ws2315

帖子: 95
主題: 17
精華: 0
積分: 162
點名: 16
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2026-9-19

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

數值固定範圍

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

test 1.rar (6.1 KB)

樓主熱帖

ws2315

中學生 Rank: 2

帖子: 95
主題: 17
精華: 0
積分: 162
點名: 16
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2026-9-19

16^#

發表於 2020-4-14 16:21 | 只看該作者

回復 15# 准提部林

感謝准大,先試試

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

15^#

發表於 2020-4-10 18:00 | 只看該作者

回復 14# ws2315

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

TOP

ws2315

中學生 Rank: 2

帖子: 95
主題: 17
精華: 0
積分: 162
點名: 16
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2026-9-19

14^#

發表於 2020-4-10 14:33 | 只看該作者

回復 13# 准提部林
如何做一個控制程式,當每天都有新檔案時就可直接用,而不用每個再重新寫程式
可請上傳檔案, 請准大指導,感謝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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

中學生 Rank: 2

帖子: 95
主題: 17
精華: 0
積分: 162
點名: 16
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2026-9-19

12^#

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

回復 10# 准提部林

請准大在指導,感謝

測試.rar (15.53 KB)

TOP

ws2315

中學生 Rank: 2

帖子: 95
主題: 17
精華: 0
積分: 162
點名: 16
作業系統: win 7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2016-8-2
最後登錄: 2026-9-19

11^#

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

回復 10# 准提部林

感謝准大,先試試

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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)

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

TOP

ws2315