Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17922 / 76738

←次へ　｜　前へ→


	【64261】Application.Inputboxの利用で質問

Yoshi - 10/1/28(木) 21:09 -


	引用なし

	パスワード

データを４列に入力するに当たり、Ａpplication.Inputboxを利用しました。
キャンセルやＯＫを釦押したときに対応するコードを使ったのですが、いちれる単位に同じコードを４回使っていますが、これを１回で済ませることはできないでしょうか。
また、最初のA列には”Ｘ月Ｙ日”をコードで規定したいのですが、どのようにコードを書けば良いでしょうか。
全般的にもっとスマートなコードがあれば、ご指摘いただければ幸いです。
よろしくお願いします。

Sub データ入力()

Dim md As Variant
Dim hn As Variant
Dim ln As Variant
Dim pn As Variant
　
With Sheets("sheet1").Range("A65536").End(xlUp).Offset(1, 0)
　
　md = Application.InputBox("月日を入力してください", "日付", "1/1")
　If VarType(md) = vbBoolean Then
　　 MsgBox "キャンセルされました"
　Else
　　 If md = "" Then
　　　 MsgBox "何も入力せずOKが押されました"
　　 Else
　　　.Value = md
　　 End If
　End If

　hn = Application.InputBox("データ１を入力してください", "hnデータ")
　If VarType(hn) = vbBoolean Then
　　 MsgBox "キャンセルされました"
　Else
　　 If hn = "" Then
　　　 MsgBox "何も入力せずOKが押されました"
　　 Else
　　　.Offset(, 1).Value = hn
　　 End If
　End If

　ln = Application.InputBox("データ２を入力してください", "lnデータ")
　If VarType(ln) = vbBoolean Then
　　 MsgBox "キャンセルされました"
　Else
　　 If ln = "" Then
　　　 MsgBox "何も入力せずOKが押されました"
　　 Else
　　　.Offset(, 2).Value = ln
　　 End If
　End If

　pn = Application.InputBox("データ３を入力してください", "pnデータ")
　If VarType(pn) = vbBoolean Then
　　 MsgBox "キャンセルされました"
　Else
　　 If pn = "" Then
　　　 MsgBox "何も入力せずOKが押されました"
　　 Else
　　　.Offset(, 3).Value = pn
　　End If
　End If
　
End With

End Sub

0 hits

▼

【64261】Application.Inputboxの利用で質問 Yoshi 10/1/28(木) 21:09

≪