vba如何实现如图九九乘法表

vbyou126 · 发表于 2016-1-25 09:19

vba如何实现如图九九乘法表

fxl447098457 · 发表于 2016-1-25 09:25

Sub 乘法口诀()
Dim i As Byte, j As Byte, arr(1 To 9, 1 To 9)
For i = 1 To 9
For j = 1 To i
arr(i, j) = i & "*" & j & "=" & i * j
Next j
Next i
[a1].Resize(9, 9) = arr
End Sub

复制代码

随心_201320085 · 发表于 2016-1-25 09:27

Sub Button1_Click()
For i = 1 To 9
For a = 1 To 9
If a > i Then Exit For
Cells(i, a) = i & "*" & a & "=" & i * a
Next
Next
End Sub

复制代码

随心_201320085 · 发表于 2016-1-25 09:29

11测试.zip (13.69 KB, 下载次数: 55)

hcm19522 · 发表于 2016-1-25 10:31

http://blog.xuite.net/hcm19522/twblog/377076039
B2:J10=IF(ROW(A1)<COLUMN(A1),"",ROW(A1)&" * "&COLUMN(A1)&" = "&ROW(A1)*COLUMN(A1))

gxl19870625 · 发表于 2016-1-25 10:58

Sub chengfabiao()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Cells(i, j) = (j & "×" & i & " = " & i * j)
Next j
Next i
End Sub

复制代码

chenxuemin0815 · 发表于 2016-1-26 09:43

Sub 乘法口诀()
For i = 1 To 20
For j = 1 To i
Cells(i, j) = i & "*" & j & "=" & i * j
Next j
Next i
End Sub

liyidong · 发表于 2017-1-14 11:18

第一个回答的最好用，秒出，其他的有延时。3楼变量没定义。

白发三千丈 · 发表于 2017-2-4 15:32

我看了楼上的大神都是顺向写的代码，我提供一个不同的写法。
sub a()
dim i%,j%,k%
k = 1
for i = k to 9
  for j = k to 9
cells(j,i) = i & "*" & j & "=" & i*j
  next j
  k = k+1
next i
end sub

fanzhongren · 发表于 2017-2-4 20:42

fxl447098457 发表于 2016-1-25 09:25

[a1].Resize(9, 9) = arr 请教一下，这句代码是什么意思？

		自动登录	找回密码
密码			免费注册

[求助] vba如何实现如图九九乘法表

评分

评分

评分

最新热点 /1