|
同じコードを何度も書いていますが、変数のようなもので短縮した
コードに書き直し方を教えてください。(C列は空きです・・・この
列だけは飛ばしたいのですが・・・)
Sub InputBox_Data()
Dim Dt As Date, Rs As Long, Uk As Long
Dim Tk As String, Ts As String
'日付 = Dt
'天候 = Tk
'来場者 = Rs
'売上金額 = Uk
'担当者 = Ts
On Error Resume Next
Dt = InputBox("今日の日付を入力してください", "日報")
Range("B65536").End(xlUp).Offset(1) = Dt
Exit Sub
Tk = InputBox("今日の天候を入力してください", "日報", "晴れ")
Range("D65536").End(xlUp).Offset(1) = Tk
Rs = InputBox("来場者数を入力してください", "日報")
Range("E65536").End(xlUp).Offset(1) = Rs
Uk = InputBox("売上げ金額を入力してください", "日報")
Range("F65536").End(xlUp).Offset(1) = Uk
Ts = InputBox("担当者名を入力してください", "日報")
Range("G65536").End(xlUp).Offset(1) = Ts
End Sub
|
|