▼Jaka さん: >誤字だらけやん。
>10年たってから気づきました。
>すみません。
>他にもありそうな気が・・・。
> >> PtWd = InputBox("ボタンに持たせる引数(数字のみ)を入力してください。", "引数入力", , XPos:=横位置, YPos:=縦位置)
>> If PtWd = "" Then
>> MsgBox "引数なし 終了"
>> Exit Sub
>> ElseIf Not IsNumeric(PasWd) Then
>> MsgBox "数字だけです。 終了"
>> Exit Sub
>> End If >
>
>ElseIf Not IsNumeric(PasWd) Then
> ↓
>ElseIf Not IsNumeric(PtWd) Then