Excel VBA のIf分岐について教えてください。 ■やりたいこと■ A2セル以下(A1セルは項目名)に今日の日付を入れる。 既に今日の日付が入っていたら何もしない。

画像

Visual Basic | Excel44閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました。 問題解決しました。また何かありましたらよろしくお願いいたします。

お礼日時:9/23 14:44

その他の回答(2件)

1

Sub test() '最終行に本日の日付を入力。既に本日であればスキップ With Cells(Rows.CountLarge, "A").End(xlUp) If (.Value <> Date) Then .Offset(1).Value = Date End If End With End Sub でいいような気がしますが?

1人がナイス!しています