Excel VBA質問箱 IV

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

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


17916 / 76732 ←次へ | 前へ→

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

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

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("データ1を入力してください", "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("データ2を入力してください", "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("データ3を入力してください", "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
4 hits

【64261】Application.Inputboxの利用で質問 Yoshi 10/1/28(木) 21:09 質問
【64263】Re:Application.Inputboxの利用で質問 ponpon 10/1/28(木) 23:21 発言
【64264】Re:Application.Inputboxの利用で質問 neptune 10/1/28(木) 23:23 発言
【64267】Re:Application.Inputboxの利用で質問 Yoshi 10/1/29(金) 8:30 質問
【64272】Re:Application.Inputboxの利用で質問 ponpon 10/1/29(金) 13:27 発言
【64279】Re:Application.Inputboxの利用で質問 Yoshi 10/1/29(金) 16:18 発言
【64273】Re:Application.Inputboxの利用で質問 neptune 10/1/29(金) 13:34 発言
【64274】Re:Application.Inputboxの利用で質問 neptune 10/1/29(金) 13:39 発言
【64283】Re:Application.Inputboxの利用で質問 Yoshi 10/1/29(金) 21:56 発言

17916 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free