Excel进修网-还可以生成九九乘法表？

Sub 生成九九乘法表（）

Dim Rs As Byte, Cs As Byte, Arr As Variant

ReDim Arr（1 To 9, 1 To 9）

For Rs = 1 To 9

For Cs = 1 To 9

If Rs ＞= Cs Then

Arr（Rs, Cs） = Rs ＆ “ד ＆ Cs ＆ “=“ ＆ Rs * Cs

End If

Next Cs

Next Rs

Range（“B2“）.Resize（9, 9）.Value = Arr

Call FC（Range（“B2“）.Resize（9, 9））

End Sub

Sub FC（Rng As Range）

With Rng

.FormatConditions.Delete

.FormatConditions.Add Type:=xlExpression, Formula1:=“=LEN（“ ＆ Rng.Cells（1）.Address（0, 0） ＆ “）＞0“

.FormatConditions（1）.Borders.LineStyle = xlContinuous

End With

End Sub

想看更多Excel教程和公式，敬请耐烦存眷excel后期分享更多的进修内容可能在网站留下您的坚苦，抖客教程网，支持excel进修网必然不会让你失望：

Excel插件是什么？

Excel插件就是一种依附在Excel软件上的无敌通关神器。一般用户需要N步才完成的操纵，但此刻可只需点一下菜单立马完成。这样不只极大幅度淘汰进修巨大技能和用户操纵的时间从而提高效率。Excel插件还可按照用户需求自界说修改，是反复操纵的事情必备通过神器。