エクセル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にも最上行に日本語を表示させる方法はないでしょうか？
以上、よろしくお願いいたします。
お礼
回答いただきましてありがとうございます
補足
cells(11)のDATAをcells(99)に移すとき １）inputbox("cellを選択してください",type:=8) ２）cells(11)をクリック ３）ok or キャンセル？ ４）ok をクリック ５）inputbox("移動先のcellを選択してください",type:=8) ６）cells(99)をクリック ７）ok or キャンセル？ ８）ok をクリック ９）次の命令 上記の３）４）７）８）をなくしたいのです。