پرسش کوتاه کردن آدرس دهی

[fokker]

با سلام و عرض ادب

میخواستم بدونم چطور میشه که آدرس بلند مثه نمونه زیر کوتاه کرد :

=('1'!b2+'2'!b2+'3'!b2+'4'!b2+'5'!b2+'6'!b2+'7'!b2+'8'!b2+'9'!b2+'10'!b2+'11'!b2+'12'!b2+'13'!b2+'14'!b2+'15'!b2+'16'!b2+'17'!b2+'18'!b2+'19'!b2+'20'!b2+'21'!b2+'22'!b2+'23'!b2+'24'!b2+'25'!b2+'26'!b2+'27'!b2+'28'!b2+'29'!b2+'30'!b2+'31'!b2)/30

[iranweld]

با سلام

=sum('1:31'!b2)/30 

[fokker]

ممنون ببخشید میشه بفرمائید که اگه بخوام این فرمول رو بدون دراگ کردن تا ردیف 90000 قرار بدم باید چی کار کنم. یعنی در ردیف 90000 فرمول به صورت زیر دربیاد.

[COLOR=#007700][FONT=monospace]=[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]sum[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#DD0000][FONT=monospace]'1:31'[/FONT][/COLOR][COLOR=#007700][FONT=monospace]![/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]b90000[/FONT][/COLOR][COLOR=#007700][FONT=monospace])/[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]30 [/FONT][/COLOR]

[iranweld]

اگر با کد vba منظورتون هستش

Sub test()


For i = 2 To 90000

Range("A" & i) = "=sum(1:31!c" & i & ")/30 "

Next

End Sub 

[fokker]

پیغام خطا میده


و اگه بخواهیم از ردیف دو به پایین فرمولها رو بیاره چطور ؟ یعنی اینکه ردیف 1 ، تیتر جدول هست اونجا رو در نظر نگیره

[iranweld]

باید به تعداد تعریف شده در کد ، شیت با نام 1و2و3و.... در فایل شما موجود باشه

در کد ارسالی 2=i در نظر گرفته شده است

[fokker]

در فایلهای با پسوند xlsb میتوان از کدنویسی vba استفاده کرد.؟؟؟