Excel VBA循環存儲在不同的單元格上的值按鈕點擊

我目前有一個工作表，我在其中存儲我公司的帳戶，例如。所有的轉帳（錢進出）。我只需要一個按鈕，點擊後可以將當前日期保存在單元格中，並在其旁邊顯示公司銀行餘額的「總額」。我打算在每個月底點擊按鈕，記錄特定日期的所有餘額。我在轉移到下一個單元以存儲下個月的日期和金額時遇到問題。Excel VBA循環存儲在不同的單元格上的值按鈕點擊

什麼，我想實現的一個例子

總（小區B8）= $ 100（月1）

在Button_1點擊

單元格A1 =當前日期單元格A2 = （單元格B8）

總計（單元格B8）= $ 200（第2個月）（新的金額已進入）

在Button_1單擊< ------這不應該改變在A1和A2

細胞B1量=當前日期

細胞B2 = $ 200（細胞B8）

等。永遠一個月後

我的代碼：

Sub Button2_Click() 

Dim Cell As Integer 
Dim SelectedCell As String 

For i = 1 To 10 
    Cell = 4 
    SelectedCell = CStr(Cell) 
    Range("C" + SelectedCell).Value = Range("C38").Value 
    Cell = Cell + 1 
Next i 

End Sub

來源

2016-09-28 Stefan

你在你寫B中的代碼有問題詢問）尋求幫助）人寫的代碼，你*或* C）如何點擊按鈕？ – Jeeped

如果是a），那麼請[發佈代碼]（http://stackoverflow.com/help/how-to-ask）。 – BruceWayne

子Button2_Click（）昏暗細胞作爲整數昏暗SelectedCell作爲字符串對於i = 1至10 細胞= 4 SelectedCell = CStr的（單元）範圍（「C」 + SelectedCell）。價值=範圍（「C38」）值 Cell = Cell + 1 Next i 我需要代碼的幫助，抱歉我很清楚這一點。我已經嘗試了一個for循環，一邊做，一邊踢一屁股，如果語句。似乎沒有任何工作。我無法編輯我的問題以包含代碼，因此必須將其粘貼到此處。 – Stefan

如前所述我在這個問題中，您在轉移到下一個單元格以存儲日期和金額時遇到問題。

假設您已將當前餘額存儲在B8。

請嘗試以下代碼

Sub Button2_Click() 
Dim col_num As Integer 

col_num = 1 

Do Until Cells(1, col_num).Value = "" 

    col_num = col_num + 1 

Loop 

Cells(1, col_num).Value = Date 
Cells(2, col_num).Value = Range("B8").Value 

End Sub

來源

2016-09-29 06:14:43

非常感謝您的幫助。完美的作品！ – Stefan

Excel VBA循環存儲在不同的單元格上的值按鈕點擊

回答

相關問題