回覆列表
-
1 # Excel辦公實戰
-
2 # 玩Office
這個操作的關鍵點，在於要寫一個隨機函式RANDBETWEEN。
利用這個隨機函式，可以返回任意範圍的整數。
比如：
=randbetween(0,4)返回的就是0-4之間的任意整數。
接著假設你希望返回的是140，145，150，155，160，很容易可以發現一個規律--這幾個數之間的步長是5。
所以我們得公式應該這樣寫：
=140+randbetween(0,4)*5
如果你說，條件是”140-160之間的任意一個數“，而不是”140-160“這一串字元的話，那就加一個條件判斷好了。
=IF(AND(F2>=140,F2<=160),140+RANDBETWEEN(0,4)*5,"")
這個問題得以解決。
-
3 # EXCEL技術應用
在A2單元格輸入公式：=IF(AND(A1>=140,A1<160),CHOOSE(RANDBETWEEN(1,5),140,145,150,155,160),IF(AND(A1>=160,A1<=180),CHOOSE(RANDBETWEEN(1,5),160,165,170,175,180),""))，即可
-
4 # EXCEL之道
A2中設定公式=RANDBETWEEN(LEFT(A1,FIND("~",A1)-1),MID(A1,FIND("~",A1)+1,3))
先看效果圖具體VBA程式碼如下：如何使用：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim brr()
If Target.Cells.Count <> 1 Then Exit Sub
On Error Resume Next
Debug.Print Target.Address
Application.EnableEvents = False
If Target.Row = 1 Then
arr = Split(Target, "~")
For i = arr(0) To arr(1) Step 5
n = n + 1
ReDim Preserve brr(1 To n)
brr(n) = i
Next
Target.Offset(1, 0) = Join(brr, "、")
End If
Application.EnableEvents = True
End Sub