'لأخذ محتويات مصفوفات قم بتعريف متغير من نوع المصفوفة ثم أستعمل For Each
Dim Col(0) As String
Col(0) = "MiCc"
Array.Resize(Col, Col.Length + 1)
Col(1) = "Soft"
Dim A As String
For Each A In Col
MsgBox(A)
Next
Dim Col(0) As String
Col(0) = "MiCc"
Array.Resize(Col, Col.Length + 1)
Col(1) = "Soft"
Dim A As String
For Each A In Col
MsgBox(A)
Next
تعليقات
إرسال تعليق