回覆列表
-
1 # lkjlkj12344
-
2 # 使用者8616219450500
使用VB 語句來控制,經測十分管用,你手動重新整理才更新,否則不會更新。請下面語句
Private Sub Worksheet_Change(ByVal Target As Range)
Application.Calculation = xlManual
If Target.Address = "$A$10" Then
Calculate
End If
End Sub
方法一:使用函式 RANDBETWEEN(),看官方解釋:
返回位於指定的兩個數之間的一個隨機整數。每次計算工作表時都將返回一個新的隨機整數。語法:RANDBETWEEN(bottom,top)Bottom 函式 RANDBETWEEN 將返回的最小整數。Top 函式 RANDBETWEEN 將返回的最大整數。分成兩步來做:
1、生成-10到10之間的隨機數
2、這個隨機數除以1000,即滿足需求
公式為:
=RANDBETWEEN(-10,10)/1000
方法二:使用RAND()函式+INT()函式,看RAND()函式的官方解釋:
返回大於等於 0 及小於 1 的均勻分佈隨機實數,每次計算工作表時都將返回一個新的隨機實數。分三步來實現:
1、生成0到20之間的隨機數
2、這個隨機數除以1000,變成0到0.02之間的隨機數
3、這個隨機數減去0.01,變成-0.01到0.01之間的隨機數
公式為:
=INT(RAND()*20)/1000-0.01