| |
こんばんは
横から失礼します。
下手ですが、こんな感じでどうでしょう？
Sub test()
If Check_Eisuuzi(ActiveCell) = False Then
MsgBox "セルが空白か英数字以外が入っています。"
End If
End Sub
Function Check_Eisuuzi(ByVal rg As Range) As Boolean
Dim i As Integer, ii As Integer, stl As Integer
Dim str As String
str = rg.Text
ii = Len(str)
If ii = 0 Then Exit Function
For i = 1 To ii
stl = Asc(Mid(str, i, 1))
If (stl >= 48 And stl <= 57) Or _
(stl >= 65 And stl <= 90) Or _
(stl >= 97 And stl <= 122) Then
Else
Check_Eisuuzi = False
Exit Function
End If
Next i
Check_Eisuuzi = True
End Function
Sub test()を実行してみてください。
特定のセルの場合は、ActiveCellをRange("A1")などとして下さい。
尚、全角文字は考慮していません。
必要が有れば言って下さい。
それでは
|
|
