Last Updated on 2023年6月14日 by らくろぐ
EXCELのVBAで使える関数類メモを残しておきます。
これはセルの文字列に半角カナが含まれている場合エラーを返す関数です。
セルの文字列を１文字づつ半角カナかどうかを判定し、見つかった時点でFalseを返します。
すべての文字列が全角の場合はTrueを返します。
作成したツールの便宜上、英数記号は半角でもOKとしています。
判断の順は取得した文字コードがS-JISの半角カナに含まれるかどうかです。
-[Sample Code]————————–
Function AscEx(strOrg As String) As Boolean
Dim intLoop As Integer
Dim strChar As String
AscEx = True
For intLoop = 1 To Len(strOrg)
strChar = Mid(strOrg, intLoop, 1)
If ((Asc(strChar) >= &HA9) And (Asc(strChar) <= &HDF)) Then
AscEx = False
End If
Next intLoop
End Function
————————-
※本サンプルゲームプログラムおよびデータを使用して発生した障害，問題などに関して，(有)CORALNETは一切の責任を負いません。使用はご自身の責任で行ってください。
