問問蓮蓬頭

學校老師在教FOR迴圈時，有時會請人寫九九乘法表，而九九乘法表有很多種撰寫方式，所以這邊會分幾個單元持續介紹。

這邊就來分享一下九九乘法表的程式撰寫。

[被乘數、乘數、符號、答案都在不同欄，且不同被乘數間會空一欄]

[插入模組]

[撰寫程式碼]

Sub NXN()

Range("A1").Select ‘資料的起始的位置，本範例為資料起始位置為儲存格A1

For X = 1 To 9 ‘欄數，因為我們是九九乘法表，所以有九欄

For Y = 1 To 9 ‘列數，因為我們是九九乘法表，所以有九列

Z = X * 6 – 5 ‘控制欄位每六欄為一個計算式

ActiveCell(Y, Z) = X         ‘被乘數

ActiveCell(Y, Z + 1) = "*"   ‘符號

ActiveCell(Y, Z + 2) = Y     ‘乘數

ActiveCell(Y, Z + 3) = "="   ‘符號

ActiveCell(Y, Z + 4) = X * Y ‘被乘數*乘數

ActiveCell(Y, Z + 5) = ""     ‘每五欄空一格

Next Y ‘跳下一列

Next X ‘跳下一欄

End Sub

[插入一個圖片，然後指定巨集]

回到活頁簿，插入一個圖形，於圖形上按右鍵 [指定巨集] ，選取剛剛建立好的模組，按下確定

[按下剛剛的執行紐，即可執行]