excel vba 按鈕隨機加減值

tkoper963 2022-12-13 09:02:41 ‧ 684 瀏覽

分享至

想請問一下，我想用按鈕設定用A1的值隨機計算-10~+10的結果，回傳到A2
用B1的值隨機計算-5~+5的結果，回傳到B2的。
這該如何寫呢!

japhenchen iT邦超人 1 級 ‧ 2022-12-13 12:29:01 檢舉

你把你的問題拿到這個網站，如實的複製貼上，就能馬上得到你要問的答案 https://chat.openai.com/chat

雷峰 iT邦研究生 1 級 ‧ 2022-12-13 16:25:14 檢舉

Sub Test()

'A1的值隨機計算-10~+10的結果，回傳到A2
MinA = -10
MaxA = 10
RandNumA = Int((MaxA - MinA + 1) * Rnd() + MinA)
Worksheets("工作表1").Range("A2").Value = ""
Worksheets("工作表1").Range("A2").Value = _
Worksheets("工作表1").Range("A1").Value + RandNumA

'B1的值隨機計算-5~+5的結果，回傳到B2的
MinB = -5
MaxA = 5
RandNumB = Int((MaxB - MinB + 1) * Rnd() + MinB)
Worksheets("工作表1").Range("B2").Value = ""
Worksheets("工作表1").Range("B2").Value = _
Worksheets("工作表1").Range("B1").Value + RandNumB

'確認亂數A跟B是否產生對應的值
MsgBox ("亂數A=" & RandNumA & "；" & "亂數B=" & RandNumB)

End Sub

登入發表討論