入力文字列中の全角・半角文字の混在の有無判断

対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12 ( オリジナル作成日：1996/12/20 )

概　要

　入力された文字列の中に全角・半角文字が混在しているか否かを判断する方法です。

方　法

　フォーム上にテキストボックス txt1 が貼り付けてあるものとし、このコントロールの "BeforeUpdate/更新前処理" でのイベントプロシージャの例です。

Private Sub txt1_BeforeUpdate(Cancel As Integer)
If Len(Me!txt1) <> LenB(StrConv(Me!txt1, vbFromUnicode)) Then
    Beep
    MsgBox "全角文字が入っています"
    Cancel = True
End If
End Sub

次の例は、全角文字のみとしたい場合です。

Private Sub txt1_BeforeUpdate(Cancel As Integer)
If Len(Me!txt1) * 2 <> LenB(StrConv(Me!txt1, vbFromUnicode)) Then
    Beep
    MsgBox "半角文字が入っています"
    Cancel = True
End If
End Sub

改定履歴

• 1999/09/05 2.0 の記述削除。全角文字のみとする例を追加し、タイトル変更。

目次へ戻る