數值固定範圍

返回列表下一主題上一主題發帖

ws2315

中學生 Rank: 2

帖子: 66
主題: 11
精華: 0
積分: 127
點名: 20
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2024-11-24

11^# 跳轉到 »

發表於 2020-4-5 18:22 | 只看該作者

回復 10# 准提部林

感謝准大,先試試

TOP

ws2315

中學生 Rank: 2

帖子: 66
主題: 11
精華: 0
積分: 127
點名: 20
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2024-11-24

12^#

發表於 2020-4-9 10:54 | 只看該作者

回復 10# 准提部林

請准大在指導,感謝

測試.rar (15.53 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

13^#

發表於 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

=====================

TOP

ws2315