パソコンの学習支援ブログ pcmanabu

Option Explicit

Sub Macro1()
If Range("B5").Value = "" Then
Range("B5").Select
Else
Range("B4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
Dim a, b, c, d, e As String
a = InputBox("今日の日付を入力してください", "日報", Date, 200, 200)
ActiveCell.Offset(0, 0).Value = a
b = InputBox("天候を入力してください", "日報", , 200, 200)
ActiveCell.Offset(0, 2).Value = b
c = InputBox("来場者数を入力してください", "日報", , 200, 200)
ActiveCell.Offset(0, 3).Value = c
d = InputBox("売上金額を入力してください", "日報", , 200, 200)
ActiveCell.Offset(0, 4).Value = d
e = InputBox("売上金額を入力してください", "日報", , 200, 200)
ActiveCell.Offset(0, 5).Value = e

End Sub