iT邦幫忙

0

excel vba 按鈕隨機加減值

  • 分享至 

  • xImage

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

你把你的問題拿到這個網站,如實的複製貼上,就能馬上得到你要問的答案 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
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
johncoc
iT邦新手 3 級 ‧ 2022-12-13 17:31:14

A2儲存格填入公式 =A1+RANDBETWEEN(-10,10)
B2儲存格填入公式 =B1+RANDBETWEEN(-5,5)

按鈕的vba

Sub Update()
    Calculate
End Sub

我要發表回答

立即登入回答