エクセルVBAについて

質問

エクセルVBA についての質問です。

この問題の答えを教えて頂きたいです。

次の条件を満たすプロシージャを作成してください。

１、ダイアログボックスに最初に市外局番なしの電話番号を入力すると、
先頭に小文字の「a]をつけた電話番号が自動的に、セルB3に入力される。

2、ダイアログボックスでキャンセルを押すと、
電話番号を入力してください、というメッセージボックスが表示される。

3、セルB3の値が「a1234567890」のとき、セルB3が赤の太字になり、
さらにセルC3に「検証用です」と入力される。

この問題の正解となる式を教えてください。
どこが間違っているかがわからず困っております。
よろしくお願いいたします。

回答No.1

bin-chan · ベストアンサー

> どこが間違っているかがわからず困っております。
まだ何もできてないのでは？

仕様を確認させてください。

・どうやってはじめます？
・ダイアログに配置するボタンは「キャンセル」だけですか？「ＯＫ」は無し？
・キャンセルを押すと「電話番号を入力してください」なら、どうやって終わります？

補足

・エクセルシートにセルB2に電話番号、セルC2に備考と入力。セルB3に電話番号、C3に備考を入力するための空白のセルを作ります。Module1を選択し、式を入力して始めます。If　Then　Elseステートメント、変数=Application.InputBox
MsgBoX を使って完成させたいと思います。

・OKはありです。

・キャンセルを押したら、電話番号を入力してくださいというメッセージで終わって頂ければ大丈夫です！

回答No.2

watabe007

>１、ダイアログボックスに最初に市外局番なしの電話番号を入力すると、
>先頭に小文字の「a]をつけた電話番号が自動的に、セルB3に入力される。
＞キャンセルを押したら、電話番号を入力してくださいという
＞メッセージで終わって頂ければ大丈夫です！

Sub Test()
　　Dim myStr As String
　　myStr = InputBox("電話番号を入力してください。")
　　If myStr = "" Then
　　　　MsgBox "電話番号を入力してください。", vbCritical
　　Else
　　　　Range("B3").Value = "a" & myStr
　　End If
　　If myStr = "1234567890" Then Range("C3").Value = "検証用です"
End Sub
>3、セルB3の値が「a1234567890」のとき、セルB3が赤の太字になり、
>さらにセルC3に「検証用です」と入力される。
B3セルに条件付書式を設定されば良いかと