スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

テキストボックスに入力制限(数字以外は入力不可)

Option Explicit

Private Sub textbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If 数字以外の入力制限(KeyAscii) = False Then KeyAscii = 0
End Sub

Private Function 数字以外の入力制限(ByVal KeyAscii As Integer) As Boolean

Const Numbers$ = "-0123456789" ' 入力許可文字

数字以外の入力制限 = True
If KeyAscii <> 8 Then ' バックスペースは例外
If InStr(Numbers, Chr(KeyAscii)) = 0 Then
数字以外の入力制限 = False
Exit Function
End If
End If

End Function
スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。