请问在EXCEL表格某个位置随机加1到5的VB按钮怎么写？
比如我在G2的位置，需要不断随机叠加1到5的数字，需要创建一个按钮给其他人操作点击，怎么在VB里面写？同时我还需要一个按钮，每次加完，把G2到H2的数字都清零。如果有知道...
比如我在G2的位置，需要不断随机叠加1到5的数字，需要创建一个按钮给其他人操作点击，怎么在VB里面写？
同时我还需要一个按钮，每次加完，把G2到H2的数字都清零。
如果有知道的麻烦提供代码，谢谢。 展开
同时我还需要一个按钮，每次加完，把G2到H2的数字都清零。
如果有知道的麻烦提供代码，谢谢。 展开
展开全部
Sub AddRndNumb()
Dim Result As Long
Dim lngUp As Long, lngLow As Long
lngLow = 1
lngUp = 5
Randomize
Sheets("sheet1").Range("G2") = Int(Rnd() * (lngUp - lngLow + 1) + 1) '产生在lngUp-lngLow之间随机整数
End Sub
Sub ClearRng()
Sheets("sheet1").Range("G2:H2").ClearContents
End Sub
追问
我是需要在G2这个格子不断叠加1到5的数字，怎么改呢？
追答
Sheets("sheet1").Range("G2") = Int(Rnd() * (lngUp - lngLow + 1) + 1) '产生在lngUp-lngLow之间随机整数
改成
Sheets("sheet1").Range("G2") = Sheets("sheet1").Range("G2") + Int(Rnd() * (lngUp - lngLow + 1) + 1) '产生在lngUp-lngLow之间随机整数
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
