入力文字の制限 (ID:79725)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでしょうか？ このコードですと、キー入力時のみチェックが入るので、貼り付け以外は対処できます。 貼り付けされると入力禁止文字も入ってしまうので、何らかの工夫が必要です。 <コード> Private Sub Text1_KeyPress(KeyAscii As Integer) '数値若しくは[BackSpace]以外又は、7桁以上は入力不可 If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> vbKeyBack Or _ (Len(Text1.Text) >= 7 And KeyAscii <> vbKeyBack) Then KeyAscii = 0 Else '全角を半角に変換する KeyAscii = Asc(StrConv(Chr$(KeyAscii), vbNarrow)) End If End Sub