- 840 名前：デフォルトの名無しさん mailto:sage [2022/10/12(水) 08:39:59.19 ID:FAaW2+wFd.net]
- これでいい？らめ？
Sub Main()
'全角数字も数字と見なす
If Suujikana(StrConv(InputBox("入力せぇ"), vbNarrow)) Then
MsgBox "数字だよ"
Else
MsgBox "数字じゃないよ"
End If
End Sub
Function Suujikana(moji As Variant) As Boolean
On Error GoTo er
moji = moji * moji
Suujikana = True
Exit Function
er:
Suujikana = False
End Function
