|
▼inoue さん:
早速ご指摘ありがとうございます。
>「短縮」以前に。
>このコードだと、
>>Exit Sub
>から下は実行されないのではないですか?
>
>それに列ごとに最終行を確認していますが、
>この方法だと一旦抜けができると入力データが同じ行には揃いません。
ご指摘ありがとうございます。実は未入力時にエラーがでるので、エラーを
避ける方法は無いか検討していて、ついつい貼り付けてしまっています。
訂正しております。解決方法がありましたら、アドバイスお願いします。
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
Dt = InputBox("今日の日付を入力してください", "日報")
Range("B65536").End(xlUp).Offset(1) = Dt
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
|
|