新規会員登録における電話番号登録必須化のお知らせ

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

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

Sub 図38_Click()





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




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



End Sub

教えて!goo グレード

A 回答 (1件)

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


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

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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング