随机数问题

骑着蚂蚁上街

目标：在a1~d1单元格依次填入随机数。在e1单元格显示“（a1+b1）*（c1+d1）= ”，不显示计算结果，公式中a1～d1均为随机数数字。
代码如下（只制作了随机数填入，e1单元格代码不会写）：
Sub 和相乘()

Dim a, i As Integer
    For i = 1 To 4
    Sheet1.Range(i & 1) = Application.RandBetween(1, 100)
    Next
End Sub
初学者，请大家多多指教，谢谢！

盼盼198310

Range("e1") = ([a1] + [b1]) * ([c1] + [d1])

全无敌666

Sub 和相乘()
Dim a, i As Integer
For i = 1 To 4
    Sheet1.Cells(1, i) = Application.RandBetween(1, 100)
Next
Range("E1") = ([a1] + [b1]) * ([c1] + [d1])
End Sub

全无敌666

不显示结果的话改为：
Range("e1") = "（" & [a1] & " + " & [b1] & " ）*（ " & [c1] & " + " & [d1] & " ）="

看看是不是这样

zxsea_7426

楼上正解(字数不够表情来凑)

骑着蚂蚁上街

全无敌666 发表于 2022-1-17 16:10
Sub 和相乘()
Dim a, i As Integer
For i = 1 To 4

按照修改的测试，随机数填入的单元格不在a1～d1，而是k1～n1？这是为什么啊？

全无敌666

我这里没问题哦，上附件

boy8199

这是 给小学生 出题?

grf1973

1. Sub 和相乘()
   
2.     Dim r, i As Integer
   
3.     For r = 1 To 10
   
4.         For i = 1 To 4
   
5.             Sheet1.Cells(r, i) = Application.RandBetween(1, 100)
   
6.         Next
   
7.         Cells(r, 5) = "（" & Cells(r, 1) & " + " & Cells(r, 2) & " ）*（ " & Cells(r, 3) & " + " & Cells(r, 4) & " ）="
   
8.     Next
   
9. End Sub
   

复制代码

骑着蚂蚁上街

grf1973 发表于 2022-1-18 16:00

收到，谢谢