問問蓮蓬頭

[類似矩陣方式將被乘數、乘數寫在最左欄與第一類，乘積顯示在中間]

[插入模組]

[撰寫程式碼]

Sub NXN()

Range("A1").Select

'填入最左欄的1~9

For X = 1 To 9 ‘X欄1~9

For Y = 1 To 9 ‘Y欄1~9

ActiveCell(Y + 1, X) = Y ‘Y欄的第一格要空下，所以要加一

Next Y ‘Y跳下一個值

X = 9 ‘因為只有在第一欄有值，所以X就直跳到9，Y跳下一個值

Next X ‘X跳下一個值

'填入第一列的1~9

For X = 1 To 9 ‘X欄1~9

For Y = 1 To 9 ‘Y欄1~9

ActiveCell(Y, X + 1) = X ‘X欄的第一格要空下，所以要加一

Y = 9 ‘因為只有在第一列有值，所以Y就直跳到9，X跳下一個值

Next Y ‘Y跳下一個值

Next X ‘X跳下一個值

'填入所對應的乘積

Range("B2").Select

For X = 1 To 9

For Y = 1 To 9

ActiveCell(Y, X) = Y * X

Next Y

Next X

 End Sub

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

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

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