代码:

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插件还可根据用户需求自定义修改,是重复操作的工作必备通过神器。

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注