九九乘法表 ＶＢＡ代码

不怀好心

<p>新建模块儿，然后输入以下代码</p><p>Sub nine9()<br/>Dim i As Byte, j As Byte, s As Byte<br/>For i = 1 To 9<br/>&nbsp;&nbsp;&nbsp; For j = i To 9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s = j * i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(j, i) = i &amp; "*" &amp; j &amp; "=" &amp; s<br/>&nbsp;&nbsp;&nbsp; Next j<br/>Next i<br/>End Sub</p><p>适合初学者学习～～～</p>

xldn2005

...........................

sdjqx

<p>谢谢</p>

紫情

代码是什么意思？

PETERSYSTEM

我也有，不过没有你的简洁

Sub yy()
Dim a As Integer
Dim b As Integer
For a = 1 To 9
For b = 1 To 9
If b > a Then
Sheet1.Cells(a, b) = ""
Else
Sheet2.Cells(a, b) = a & "x" & b & "=" & a * b
End If
Next
Next
End Sub