數值固定範圍

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

1^# 跳轉到 »

發表於 2020-4-2 10:26 | 顯示全部帖子

回復 5# ws2315

1) 將公式值貼回B欄即可
2) 不然用VBA, 但得先自行學會將程式碼放入VBE編輯器的模組內, 並建按鈕執行

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

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

Xl0000067.rar (9.13 KB)

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

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

3^#

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

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

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

4^#

發表於 2020-4-10 18:00 | 顯示全部帖子

回復 14# ws2315

有VBA的檔案當處理檔,
把資料貼進來, 處理好了再將值貼回即可~~