用VBA在EXCEL中实现九九乘法表制作,并加上边框

来源:互联网 发布:java中的this 编辑:程序博客网 时间:2024/06/08 18:52


Sub 九九乘法表制作()

Dim a!, b!
For a = 1 To 9
    For b = 1 To 9
         If b > a Then
        Sheet10.Cells(a, b) = ""
        Else
        Sheet10.Cells(a, b) = b & "*" & a & "=" & a * b
         Sheet10.Cells(a, b).Borders.LineStyle = xlContinuous
        End If
        Next
        Next
End Sub
阅读全文
0 0