アプリ＆PCガジェット当サイトは、アフィリエイト広告を利用しています。

Excel　VBAサンプルメモ１

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は一切の責任を負いません。使用はご自身の責任で行ってください。