Sub 制作乘法口诀表1()
Dim i, j, i1, j1%
For i = 1 To 20
i1 = i + 3
For j = 1 To 20
j1 = j + 1
Cells(i1, j1) = j & "×" & i & "=" & i * j
Next j
Next i
End Sub
用vba做了一个大99乘法口诀表,分享给大家。
最新推荐文章于 2024-03-20 11:13:49 发布

Sub 制作乘法口诀表1()
Dim i, j, i1, j1%
For i = 1 To 20
i1 = i + 3
For j = 1 To 20
j1 = j + 1
Cells(i1, j1) = j & "×" & i & "=" & i * j
Next j
Next i
End Sub