نوشتن جدول ضرب در یک ثانیه

[shamsololama]

با درود فراوان
این مثال را بیشتر برای نشان دادن کاربر تابع For های تو در تو نوشتم
با این کد زیر که از دو تابع For تو در تو ساخته شده در یک لحظه جدول ضرب را برای ما ترسیم می کند می گید نمی کنه ؟ امتحان کنید

Sub J_Zarb()
For i = 1 To 10
For i2 = 1 To 10
Cells(i, i2) = i * i2
Next i2
Next i
End Sub

بدرود

[mrexcel]

اگر جدول ضرب يا ماتريس بزرگ باشد براي بالا رفتن سرعت ميتوان از آرايه استفاده نمود ميتوانيد بگوئيد به چه نحو بايد اين كار را انجام داد

[shamsololama]

با درود فراوان
برای انجام این کار برای بزرگترین حالت که در اکسل وجود دارد یعنی تمام صفحه اکسل را در بر بگیرد با ماکرو و یا کپی و پیست کردن مری توان با یک آرایه بسیار ساده انجام داد که اگر در 2003 باشد جدولی برابر با 256در65536 خانه خواهد بودکه در زیر آریه و ماکرو آن نوشته ام

ماکرو:

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 2010/05/05 by shamsololama

Cells.FormulaArray = "=ROW()*COLUMN()"
End Sub

و اگر بخواهیم بدون ماکرو آن را انجام دهیم کافیست که تابع
ROW()*COLUMN() ooo
را در یک سل نوشته و با فشردن کنترل+شیفت+اینتر
و سپس این سل را کپی و با انتخاب کل صفحه و پیست این جدول را در کوتاه ترین مدت نوشت
البته می دونم که دارم پیش دوستان دارم درس پس می دم
بدرود

[mrexcel]

بسيار ممنون از راهنمائيتان

[mostafahtsm]

سلام
اصلا نیازی به نوشتن این همه کد نیست. من در سایت کاناز اسپید مطلبی دیدم برای ساخت جدول ضرب با اکسل و با گزینه Data Table اکسل. خیلی راحت در عرض کمتر از 10 ثانیه میتونید یه جدول ضرب بسازید. از لینک زیر میتونید فیلم آموزش ساخت جدول ضرب را مشاهده کنید.

فیلم آموزش ساخت جدول ضرب در اکسل با Data Table (http://www.kanazspid.ir/acc/applicationsoftwares/8-%D9%81%DB%8C%D9%84%D9%85-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%AC%D8%AF%D9%88%D9%84-%D8%B6%D8%B1%D8%A8-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D9%84-%D8%A8%D8%A7-Data-Table.html)

[generalsamad]

با سلام
لینک فیلم مشکل داره