[حل شده] آدرس دهی در حلقه

[yogishiip]

سلام
میخام یه حلقه بنویسم بجای یکی از اعداد مجموع تعداد سلول های یک فایل رو بنویسه
در فرمول
For i=1 to 1000
بجای 1000 مجموع تعداد سطر ها از a1 تا a100 که در فایل 1.xlsx در مسیر درایو d قرار داره رو حساب کنه
(d:\1.xlsx'count(a1:a100)

[kazamie]

dim I as integer
I= worksheetfunction.counta(workbook (1).sheets(1).range("A1:a100"))
فقط چون با گوشی نوشتم تست نکردم اما اگر درست باشد از i به جای ۱۰۰۰ استفاده میشود