Dim rowfill As Integer
rowfill = 0
For i = 5 To Sheets("work").Cells(1, 1).Value - 1
If Sheets("work").Cells(i, 13).Value > 0 Then
rowfill = rowfill + 1
End If
Next i
Dim araylist(rowfill, 6) As Variant
For i = 5 To Sheets("work").Cells(1, 1).Value - 1
For j = 13 To 18
araylist(i, j) = Sheets("work").Cells(i, j).Value
Next j
Next i
End Sub
آرایه با ردیف متغیر
Collapse
این تاپیک قفل است.
X
X
-
سلام چگونه میتوان ارایه ای با تعداد ردیف متغیر تعریف کرد مثلا متغیرrowfill در کد زیر
کد PHP:برچسب ها: هیچکدام -
خودم گشتم یه چیزهائی بصورت کلی فهمیدم و آن اینکه در تعریف ارایه ابعاد آن باید ثابت باشد و وقتی ما یک متغیر به ابعاد آن نسبت میدهیم گرچه بعدا مقدار بگیرد اما سیستم همچنان آن را بعنوان یک متغیر می شناسد و باید با تابعی متغیر را قبل از معرفی به آرایه ، به مقدار ثابت تغییر داد و تعریف کرد و سپس ارایه را دوباره با ثابت جدید گسترش داد - حالا اگر درست گفته باشم از اساتید خواهش میکنم روش این کار را توضیح دهند -
کامنت



کامنت