エクセル VBA ボタンをクリックした履歴を残すコードについて

お詳しい方　御教授をお願いします。

下記のコードを組んだのですが、ボタンを押すたびに押した履歴を下の行へ蓄積していくコードを組みたいのですが、教えてもらえなないでしょうか。

Sub 図38_Click()





Worksheets("a").Range("A4") = Format(Date, "yyyymm")




Worksheets("b").Range("B4") = Application.UserName



End Sub

No.1 ベストアンサー 回答者： kamejiro 回答日時： 2022/08/08 08:32

それぞれのセルの値が空白以外なら次の行へ行く

空白か否かを探して、空白になったらセルに値を入れる。

Sub a()
i = 4
Do Until Worksheets("a").Range("A" & i) = ""
i = i + 1
Loop
Worksheets("a").Range("A" & i) = Format(Date, "yyyymm")
End Sub


Sub b()
i = 4
Do Until Worksheets("b").Range("B" & i) = ""
i = i + 1
Loop
Worksheets("b").Range("B" & i) = Application.UserName
End Sub

この回答へのお礼

問題が解決しました。ご対応ありがとうございます

お礼日時：2022/08/08 08:57