Excel学习网

2019年01月27日20:23:52 发表评论 热度373 ℃

  代码:

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

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: