數值固定範圍

帖子: 88
主題: 16
精華: 0
積分: 154
點名: 30
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2025-10-31

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-3-31 14:22 | 只看該作者

數值固定範圍

如題,請各高手指導,感謝

test 1.rar (6.1 KB)

樓主熱帖

ikboy

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

2^#

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

複製代碼

帖子: 88
主題: 16
精華: 0
積分: 154
點名: 30
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2025-10-31

3^#

發表於 2020-4-1 06:55 | 只看該作者

回復 2# ikboy

可請大大上傳檔案,以函數指導,感謝,

cucu

小學生 Rank: 1

帖子: 15
主題: 0
精華: 0
積分: 17
點名: 0
作業系統: Windows 10
軟體版本: Office 365
閱讀權限: 10
性別: 男
註冊時間: 2019-3-12
最後登錄: 2021-1-19

論壇贊助勳章

4^#

發表於 2020-4-1 08:18 | 只看該作者

回復 1# ws2315

試試看
C2 =IF(OR(B2>280,B2<200),RANDBETWEEN(200,280),B2)

帖子: 88
主題: 16
精華: 0
積分: 154
點名: 30
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2025-10-31

5^#

發表於 2020-4-1 19:07 | 只看該作者

回復 4# cucu

可否將函數放在B2~B21數值內,請指導,感激

cucu

小學生 Rank: 1

帖子: 15
主題: 0
精華: 0
積分: 17
點名: 0
作業系統: Windows 10
軟體版本: Office 365
閱讀權限: 10
性別: 男
註冊時間: 2019-3-12
最後登錄: 2021-1-19

論壇贊助勳章

6^#

發表於 2020-4-1 22:55 | 只看該作者

回復 cucu

可否將函數放在B2~B21數值內,請指導,感激
ws2315 發表於 2020-4-1 19:07

我認為是沒辦法把函數放在B2~B21，因為B2~B21就是判斷的依據，函數寫下去就清掉原本的數據了...

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

7^#

發表於 2020-4-2 10:26 | 只看該作者

回復 5# ws2315

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

帖子: 88
主題: 16
精華: 0
積分: 154
點名: 30
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2025-10-31

8^#

發表於 2020-4-2 20:49 | 只看該作者

回復 7# 准提部林

感謝各位大大

帖子: 88
主題: 16
精華: 0
積分: 154
點名: 30
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2025-10-31

9^#

發表於 2020-4-3 18:14 | 只看該作者

回復 2# ikboy

如範圍在B2~B9,且數值皆有小數點(200.2).請大大指導,謝謝

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

10^#

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

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