質問: VBAのユーザーフォームのテキストボックスの入力につて 以下2つにてご教示願います。
回答: 一応こういうのを見つけました。しかし、やってみると全角文字には無力でした。 全角文字対応です。 Option Explicit ' Private Sub TextBox1_Change() ' TextBox1 = TextCheck(TextBox1, "[^0-9]", "数字を貼り付けしてください") End Sub ' Private Sub TextBox2_Change() ' TextBox2 = TextCheck(TextBox2, "[^ァ-ヶ]", "カナを貼り付けしてください") End Sub Function TextCheck(Text As String, Pattern As String, Prompt As String) _ As String Dim RegExp As Object ' Set RegExp = CreateObject("VBScript.RegExp") RegExp.Pattern = Pattern RegExp.Global = True TextCheck = RegExp.Replace(Text, "") ' If TextCheck <> Text Then MsgBox Prompt, vbCritical End If End Function を参考に IMEMode = 3 にすると、英数字の入力 IMEMode = 5 にすると、全角カナの入力になります。