エクセルVBA Inputboxについて教えてください。
InputBoxの使い方について教えてください。
テストで下記のように書いてみました。
Sub input_test2()
ans = InputBox("質問！適当に数字を入れてね")
MsgBox Application.WorksheetFunction.IsNumber(ans), vbInformation, "入力判定"
If Application.WorksheetFunction.IsNumber(ans) Then
If ans = 0 Then MsgBox "入力されたのは、 0", vbInformation, "回答"
If ans = 1 Then MsgBox "入力されたのは、 1", vbInformation, "回答"
If ans = 2 Then MsgBox "入力されたのは、 2", vbInformation, "回答"
If ans = 3 Then MsgBox "入力されたのは、 3", vbInformation, "回答"
If ans >= 4 Then MsgBox "入力されたのは、 4以上", vbInformation, "回答"
Else
MsgBox "入力は数字でしてください！", vbExclamation, "お願い"
End If
End Sub
１．入力が数値ならTRUEがかえると思ったのですが、何を入れてもFALSEしかかえりません。どこがまずいのでしょうか？
２．表示されるInputBoxのサイズが随分横に長いのですが、サイズを変える方法はあるのでしょうか？
３．MsgBoxの"入力判定"や”回答”ようにInputBoxにも最上行に日本語を表示させる方法はないでしょうか？
以上、よろしくお願いいたします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
ご教授頂いた内容でできました。 ありがとうございました。