حلقه فور در حلقه فور ایچ
سلام بر اساتید محترم
لطفا راهنمایی فرمایید که ایراد کد زیر کجاست و چرا جواب نمیدهد
ممنون از وقتی که میزارید
لطفا راهنمایی فرمایید که ایراد کد زیر کجاست و چرا جواب نمیدهد
ممنون از وقتی که میزارید
کد:
For each c in sheet1.range("a1:a10")
For i = 1 To
If c.Value <> "" Then
ListBox2.AddItem c.Offset(0, 3).Value
ListBox2.List(ListBox2.ListCount - 1, 1) = c.Offset(0, 4).Value
ListBox2.List(ListBox2.ListCount - 1, 2) = c.Offset(0, 5).Value
ListBox2.List(ListBox2.ListCount - 1, 3) = i
ListBox2.ColumnCount = 4
;90 ListBox2.ColumnWidths = "200;180;90"
Exit For
End If
Next i
Next