26-01-17, 03:01 PM
(آخر تعديل لهذه المشاركة : 26-01-17, 03:28 PM {2} بواسطة sendbad100.)
غيرها هكذا
كود :
Dim txt As String
txt = "مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة"
Dim sp() As String
sp() = Split(txt, " ")