Excel技巧之乘法口诀

初学excel的vba，学习了for循环和if的条件，利用这两个写了个乘法口诀，分享给大家使用。

Sub cf()
Dim i, j As Integer
For i = 1 To 9
    For j = 1 To 9
        If j <= i Then
        Cells(i, j) = j & "×" & i & "=" & i * j
        End If
    Next
Next
End Sub

效果如下


乘法口诀

也可以把 i*j 替换成"_____",这样就变成了填空题。

©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。