vba编写一个程序a b c d e f g1 8 2 3 =randbetween(1,5)2 2 9 43 6 4 54 7 5 65 1 6 4在g1单元格里有一个公式,用于产生1——5之间的一个整数假如随机数g1=3能否将abc列第三行,第四行内容填充到def列第一行,第
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 23:52:36
![vba编写一个程序a b c d e f g1 8 2 3 =randbetween(1,5)2 2 9 43 6 4 54 7 5 65 1 6 4在g1单元格里有一个公式,用于产生1——5之间的一个整数假如随机数g1=3能否将abc列第三行,第四行内容填充到def列第一行,第](/uploads/image/z/14196478-22-8.jpg?t=vba%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8Fa+b+c+d+e+f+g1+8+2+3+%3Drandbetween%281%2C5%292+2+9+43+6+4+54+7+5+65+1+6+4%E5%9C%A8g1%E5%8D%95%E5%85%83%E6%A0%BC%E9%87%8C%E6%9C%89%E4%B8%80%E4%B8%AA%E5%85%AC%E5%BC%8F%2C%E7%94%A8%E4%BA%8E%E4%BA%A7%E7%94%9F1%E2%80%94%E2%80%945%E4%B9%8B%E9%97%B4%E7%9A%84%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0%E5%81%87%E5%A6%82%E9%9A%8F%E6%9C%BA%E6%95%B0g1%3D3%E8%83%BD%E5%90%A6%E5%B0%86abc%E5%88%97%E7%AC%AC%E4%B8%89%E8%A1%8C%2C%E7%AC%AC%E5%9B%9B%E8%A1%8C%E5%86%85%E5%AE%B9%E5%A1%AB%E5%85%85%E5%88%B0def%E5%88%97%E7%AC%AC%E4%B8%80%E8%A1%8C%2C%E7%AC%AC)
vba编写一个程序a b c d e f g1 8 2 3 =randbetween(1,5)2 2 9 43 6 4 54 7 5 65 1 6 4在g1单元格里有一个公式,用于产生1——5之间的一个整数假如随机数g1=3能否将abc列第三行,第四行内容填充到def列第一行,第
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 54 7 5 65 1 6 4在g1单元格里有一个公式,用于产生1——5之间的一个整数假如随机数g1=3能否将abc列第三行,第四行内容填充到def列第一行,第
这个很简单
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