メッセージボックスへのエラーの出し方 (ID:110370)

名前

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

本文 なんだか入力制限について書いているようなので、ためしにコードを書いてみました。 ExcelのVBAですけど、プロシージャの中身をVBに移植すれば大丈夫のはずです。 Private Sub Text1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Len(Text1.Text) > 3 Then KeyAscii = 0 Select Case LCase$(Chr$(KeyAscii)) Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _ "a", "b", "c", "d", "e", "f" Case Else KeyAscii = 0 End Select End Sub