作业帮 > 综合 > 作业

vba编写一个程序a b c d e f g1 8 2 3 =randbetween(1,5)2 2 9 43 6 4

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/04/29 21:09:57
vba编写一个程序
a b c d e f g
1 8 2 3 =randbetween(1,5)
2 2 9 4
3 6 4 5
4 7 5 6
5 1 6 4
在g1单元格里有一个公式,用于产生1——5之间的一个整数
假如随机数g1=3
能否将abc列第三行,第四行内容填充到def列第一行,第二行
【即d1,e1,f1分别是6,4,5;d2,e2,f2分别是7,5,6】
注:使用vba编写
先判断g1的值
假如g1=3,将abc列第三行,第四行内容填充到def列第一行,第二行
假如g1=4,将abc列第四行,第五行内容填充到def列第一行,第二行
假如g1=2,将abc列第二行,第三行内容填充到def列第一行,第二行
vba编写一个程序a b c d e f g1 8 2 3 =randbetween(1,5)2 2 9 43 6 4
这个很简单
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer, N As Integer
N = 1 + 5 * Rnd()
Cells(1, 7).Value = N
Range("A" & N & ":C" & N + 1).Select
Selection.Copy
Range("D1").Select
ActiveSheet.Paste
End Sub
再问: 是呀 没有g1我也会呀 怎么 以g1作为abc列第g1行 以g1+1作为abc列第g1+1行