標題:
數值固定範圍
[打印本頁]
作者:
ws2315
時間:
2020-3-31 14:22
標題:
數值固定範圍
如題,請各高手指導,感謝
作者:
ikboy
時間:
2020-3-31 14:36
猜一猜
Sub zz()
Dim a
a = Range("b2:b" & [b1048576].End(3).Row)
For i = 1 To UBound(a)
If a(i, 1) < 200 Or a(i, 1) > 280 Then a(i, 1) = Application.RandBetween(200, 280)
Next
[b2].Resize(i - 1) = a
End Sub
複製代碼
作者:
ws2315
時間:
2020-4-1 06:55
回復
2#
ikboy
可請大大上傳檔案,以函數指導,感謝,
作者:
cucu
時間:
2020-4-1 08:18
回復
1#
ws2315
試試看
C2 =IF(OR(B2>280,B2<200),RANDBETWEEN(200,280),B2)
作者:
ws2315
時間:
2020-4-1 19:07
回復
4#
cucu
可否將函數放在B2~B21數值內,請指導,感激
作者:
cucu
時間:
2020-4-1 22:55
回復 cucu
可否將函數放在B2~B21數值內,請指導,感激
ws2315 發表於 2020-4-1 19:07
我認為是沒辦法把函數放在B2~B21，因為B2~B21就是判斷的依據，函數寫下去就清掉原本的數據了...
作者:
准提部林
時間:
2020-4-2 10:26
回復
5#
ws2315
1) 將公式值貼回B欄即可
2) 不然用VBA, 但得先自行學會將程式碼放入VBE編輯器的模組內, 並建按鈕執行
作者:
ws2315
時間:
2020-4-2 20:49
回復
7#
准提部林
感謝各位大大
作者:
ws2315
時間:
2020-4-3 18:14
回復
2#
ikboy
如範圍在B2~B9,且數值皆有小數點(200.2).請大大指導,謝謝
作者:
准提部林
時間:
2020-4-4 10:02
回復
9#
ws2315
Sub 轉換()
Dim xR As Range
Randomize
For Each xR In Range([B2], [B65536].End(xlUp))
If Val(xR) < 200 Or Val(xR) > 280 Then xR = Round(Rnd * 80 + 200, 1)
Next
End Sub
[attach]31857[/attach]
=========================
作者:
ws2315
時間:
2020-4-5 18:22
回復
10#
准提部林
感謝准大,先試試
作者:
ws2315
時間:
2020-4-9 10:54
回復
10#
准提部林
請准大在指導,感謝
作者:
准提部林
時間:
2020-4-10 09:23
回復
12#
ws2315
Sub 轉換1()
Dim xR As Range
Randomize
For Each xR In Range([B3:B10])
If xR < 200.1 Or xR > 280.2 Then xR = Int(Rnd * 802 + 2001) / 10
Next
End Sub
Sub 轉換2()
Dim xR As Range
Randomize
For Each xR In Range([E13:E20])
If xR < -2.1 Or xR > 6.2 Then xR = Int(Rnd * 84) / 10 - 2.1
Next
End Sub
=====================
作者:
ws2315
時間:
2020-4-10 14:33
回復
13#
准提部林
如何做一個控制程式,當每天都有新檔案時就可直接用,而不用每個再重新寫程式
可請上傳檔案, 請准大指導,感謝
作者:
准提部林
時間:
2020-4-10 18:00
回復
14#
ws2315
有VBA的檔案當處理檔,
把資料貼進來, 處理好了再將值貼回即可~~
作者:
ws2315
時間:
2020-4-14 16:21
回復
15#
准提部林
感謝准大,先試試
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
