[已解决]请教 高手 每次打开excel，实现某单元格的数据 随机加1-50

ibm003

需要在A1已有的数据上，随机加1-50，我知道在A1中直接输入=A1 + RANDBETWEEN(1, 50)，可以实现，由于其他原因，不能在A1中直接用这个。
所以需要在WORKBOOK中实现，麻烦高手帮忙一下，非常感谢

以下是我现在用的，提示 子过程或函数未定义，不知道哪里出错了

Private Sub Workbook_Open()
Sheets("1").Range("A1") = Sheets("1").Range("A1") + RandBetween(1, 50)
End Sub

最佳答案

月排行榜 / 总排行榜

高

2020-3-11 13:27

Sheets("1").Range("A1") = Sheets("1").Range("A1") + WorksheetFunction.RandBetween(1, 50)

跳转到最佳答案楼层

高

Sheets("1").Range("A1") = Sheets("1").Range("A1") + WorksheetFunction.RandBetween(1, 50)

ibm003

高 发表于 2020-3-11 13:27
Sheets("1").Range("A1") = Sheets("1").Range("A1") + WorksheetFunction.RandBetween(1, 50)

非常感谢啊，问题解决了。

fjmxwrs

函数使用的问题，写法不同而已，效果一样

1. Private Sub Workbook_Open()
   
2.     With Sheets("1").Range("A1")
   
3.         .Value = .Value + Application.RandBetween(1, 50)
   
4.     End With
   
5. End Sub

复制代码