Excel VBA 質問スレ Part77

[840 デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdea-h8KF) 2022/10/12(水) 08:39:59.19 ID:FAaW2+wFd]

これでいい？らめ？

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