Excel VBA 日本語入力(IME)をオンにしてInputBoxを開く

Sub imeon()
Dim 名前 As String
戻る:
With Workbooks.Add
With ActiveCell.Validation
 　　.Add Type:=xlValidateInputOnly
 　　.IMEMode = xlIMEModeOn
End With
名前 = InputBox("名前を入力してください。")
 　　.Close SaveChanges:=False
End With
If 名前 <> "" Then
　　MsgBox 名前
Else
　　MsgBox "名前が未入力です。この項目はキャンセルできません。"
　GoTo 戻る
End If
End Sub

3行目【 戻る: 】

InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数から受け取ったデータが格納されている変数「名前」のデータが空の場合、つまり、InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】に値が未入力もしくは、キャンセルボタンが押された場合に16行目のGoTo【ｺﾞｳﾄｩ】ステートメントで処理が戻る位置を表す「戻る:」ラベルです。

4行目【 With Workbooks.Add 】
IMEオンの入力規則を設定するブックをWorkbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのAdd【ｱﾄﾞ】メソッドで追加して、With【ｳｨｽﾞ】ステートメントで指定します。

5行目【 With ActiveCell.Validation 】

4行目で追加したブックはアクティブブックになっているので、追加したブックのシートのセルにValidation【ﾊﾞﾘﾃﾞｰｼｮﾝ】プロパティを使用して入力規則を表すValidation【ﾊﾞﾘﾃｨｰｼｮﾝ】オブジェクトを呼び出し、With【ｳｨｽﾞ】ステートメントで指定します。

6行目【 .Add Type:=xlValidateInputOnly 】
With【ｳｨｽ】ステートメントで指定したValidation【ﾊﾞﾘﾃﾞｨｰｼｮﾝ】オブジェクトのAdd【ｱﾄﾞ】メソッドを使用してアクティブセルに入力規則を追加します。Add【ｱﾄﾞ】メソッドの入力規則の種類を表す引数Type【ﾀｲﾌﾟ】には「すべての値」を表すxlValidateInputOnly【ｲﾝﾌﾟｯﾄｵﾝﾘｰ】を設定します。

7行目【 .IMEMode = xlIMEModeOn 】
With【ｳｨｽﾞ】ステートメントで指定したValidation【ﾊﾞﾘﾃﾞｰｼｮﾝ】オブジェクトのIMEMode【ｱｲｴﾑｲｰﾓｰﾄﾞ】プロパティを使用して日本語モードをオンにします。

9行目【 名前 = InputBox(“名前を入力してください。”) 】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を使用してユーザーからデータを受け取り、変数「名前」に代入します。

10行目【 .Close SaveChanges:=False 】
4行目のWith【ｳｨｽﾞ】ステートメントで指定した、追加したブックをWorkbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのClose【ｸﾛｰｽﾞ】メソッドを使用して、ブックの変更を保存するかしないかを設定する引数SaveChanges【ｾｰﾌﾞﾁｬﾝｼﾞｽﾞ】にFalseを設定してブックを保存しないで閉じます。

12行目【 If 名前 <> “” Then 】
If【ｲﾌ】ステートメントを使用して変数「名前」に格納されている値が空ではないときを定義します。

13行目【 MsgBox 名前 】
条件分岐の条件が成立したとき、つまり変数「名前」の値が空ではないときMsgBox【ﾒｿｯｾｰｼﾞﾎﾞｯｸｽ】関数で変数「名前」に格納されている値を表示します。

14行目【 Else 】

Else【ｴﾙｽﾞ】ステートメントを使用して条件が成立しない場合、つまり変数「名前」に格納された値が長さ0文字の文字列（空）の場合に以下15行目の処理を実行します。

15行目【 MsgBox “名前が未入力です。この項目はキャンセルできません。” 】
変数「名前」の値が空だった場合、MsgBoX【ﾒｯｾｰｼﾞﾎﾞｯｸｽ】関数でメッセージを表示します。

16行目【 GoTo 戻る 】
変数「名前」の値が空だった場合、GoTo【ｺﾞｳﾄｩ】ステートメントで3行目の（戻る:】ラベルまで処理を戻します。