我们以下面的20以内加法口诀表为例，使用Excel表格中的VBA功能来实现
第一行，1个算式，第二行是2个算式。
这个里面，就有一个行号，而每一次都需要从1开始，所以还有一个参数，所以我们定一个行号r和列号c
Option Explicit
Sub 加法表()
Dim r As Integer, c As Integer
r = 1
Do While r <= 10
c = 1
Do While c <= r
Cells(r, c).Value = c & "+" & r & "=" & c + r
Cells(r, c).Borders.LineStyle = xlDouble
c = c + 1
Loop
r = r + 1
Loop
End Sub
|
因为最大行号为10，所以小于等于10的时候，一直循环，这是第1个循环，
第二个循环，列号始终从1开始，小于行号时，循环。
以上的代码中，需要对生成的单元格内容添加边框线，使用的代码为：
Cells(r, c).Borders.LineStyle = xlDouble
某单元格。边框。线样式=xl默认的双线样式
这里面的xlDouble是双比样式，如果是默认的样式，则可以使用xlContinuous，也可以使用数字1，如果使用数字0，则是取消边框线。
下载地址：【金山文档】 加法口诀表（加法练习）
https://kdocs.cn/l/cdXPhBZv22t8
|
