這個(gè)案例主要是幫助大家理解和掌握 for 循環(huán)語句的應(yīng)用，代碼非常簡單。

效果：

方法：

1. 按 Alt + F11 打開 VBE，輸入以下代碼：

Sub 乘法表

Dim i As Byte, j As Byte, s As Byte '聲明變量 i,j,s

For i = 1 To 9 'i為1到9的自然數(shù)

For j = i To 9 'j為1到9的自然數(shù)

Cells(j, i) = i & 'x' & j & '=' & s '單元格第 j 行 i 列的值為相應(yīng)的乘法公式，變量和符號之間用 & 連接

Next j

Next i

End Sub

2. 回到 Excel 創(chuàng)建按鈕，修改文字，將其宏指定為上述“乘法表”，完成！

3. 心血來潮，我再加一段清空代碼，新建一個(gè)“清空”按鈕指定這個(gè)新宏

Sub 乘法表

Dim i As Byte, j As Byte, s As Byte '聲明變量 i,j,s

For i = 1 To 9 'i為1到9的自然數(shù)

For j = i To 9 'j為1到9的自然數(shù)

Cells(j, i) = i & 'x' & j & '=' & s '單元格第 j 行 i 列的值為相應(yīng)的乘法公式，變量和符號之間用 & 連接

Next j

Next i

End Sub

Sub 清空

Range('A1:I9').Clear

End Sub