返回列表 上一主題 發帖

數值固定範圍

數值固定範圍

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

test 1.rar (6.1 KB)

猜一猜
  1. Sub zz()
  2. Dim a
  3. a = Range("b2:b" & [b1048576].End(3).Row)
  4. For i = 1 To UBound(a)
  5.     If a(i, 1) < 200 Or a(i, 1) > 280 Then a(i, 1) = Application.RandBetween(200, 280)
  6. Next
  7. [b2].Resize(i - 1) = a
  8. End Sub
複製代碼

TOP

回復 2# ikboy


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

TOP

回復 1# ws2315


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

TOP

回復 4# cucu


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

TOP

回復  cucu


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



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

TOP

回復 5# ws2315


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

TOP

回復 7# 准提部林


    感謝各位大大

TOP

回復 2# ikboy


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

TOP

回復 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

        靜思自在 : 【做人的開始】每一天都是故人的開始,每一個時刻都是自己的警惕。
返回列表 上一主題