|
こんにちは。
横から失礼します。
> それで、Inputboxの「×」ボタンを無効にする方法だけでもご教授いただけない
> でしょうか?宜しくお願いいたします。
「×」を無効にすること自体は出来ないと思いますので(多分・・・)
「×」を押された場合に返ってくる値で判断するしかないと思います。
こんな感じ。
ちなみに、InputBoxメソッドね。
Sub test()
Dim strData As String
Do
strData = Application.InputBox(prompt:="文字を入力してください。", Type:=2)
Loop Until strData <> "False"
MsgBox strData
End Sub
「×」や「キャンセル」が押される限りInputBoxが表示されつづけます。
「数値」を入力するInputBoxだとちと、やっかいで、
「×」で返ってくる値が「0」になるので、入力された「0」と区別がつかなくなります。
なので、「Variant」方で受け取って、判断します。
こんな感じ
Sub test()
Dim vntData As Variant
Do
vntData = Application.InputBox(prompt:="数値を入力してください。", Type:=1)
Loop Until VarType(vntData) <> vbBoolean
MsgBox vntData
End Sub
ところで、さっきワタクシコードを書いて試している最中に、
無限ループ地獄に陥って泣きました(T_T)
上記のは、試してOKだったので、アップしてるんですけど、
そちらで試すときもデータをバックアップするとかちゃんとしてからやってね^^;
|
|