如標題所說。我有一個正在製定的預算表,我想要一個按鈕,以便每週當我收到報酬時我可以單擊它,並將已經分配的工資添加到每項費用的分配資金池中。
因此,我已經完成了所有計算,用於將每週支出分配給費用,但我不知道如何編寫按鈕來執行我需要的操作。
好的,基本上我需要將 D6 到 D48 的所有數字加到 E6 到 E48 中的相鄰數字。但是,我還需要新的數字出現在該列中,就好像每次都添加新的金額一樣。即 E6 = E6+D6,每次按下按鈕時,它只會將 D 列中的內容新增到 E 列。
抱歉胡言亂語,我希望這是有道理的。
感謝您提前提供的任何幫助
彼得
答案1
好吧,在斯科特的大力幫助下,我已經成功地讓代碼正常工作了。非常感謝您的投入。這是我想出來的程式碼:
私有子 CommandButton1_Click()
Dim x As Integer
Dim y As Double
Range("E2").Value = Range("E2").Value + 1
For x = 6 To 48
y = Range("E" & x).Value
Range("E" & x).Value = y + Range("D" & x).Value
Next x
結束子
我還在放置按鈕的上方添加了一個計數器,這樣我就知道我是否已經在那週按下了它。