Sub multiPlus()'//九九乘法表'//by Sdx孙大侠//公众号【Excel小火箭】Dim i As Integer, j As IntegerDim rng As Range, c As RangeDim sht As WorksheetApplication.ScreenUpdating = FalseSet sht = ActiveSheetWith sht.Cells.Range("A:I").ClearFor i = 1 To 9For j = 1 To i.Cells(i, j) = " " & CStr(i) & "×" & CStr(j) & "=" & i * j & " ".Cells(i + 1, j) = CStr(j)NextNext'//格式调整With .Cells.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.Columns.AutoFitEnd WithSet rng = sht.Range("A1:I10") '//加边框For Each c In rngIf Len(c.Value) > 0 Then c.Borders.LineStyle = 1NextSet rng = Nothing.Range("E1") = "九九乘法口诀表".Range("E37") = "闯关成功记得在格子里画爱心打卡哦".Range("A10:I35").Borders.LineStyle = 1End WithSet sht = NothingApplication.ScreenUpdating = TrueEnd Sub
△ 回复“小火箭”,获取源代码
希望本期文章对你有所启发，VBA源代码已同步上传，欢迎下载。
