|
>TextBoxが10個あります。押すキーを限定するコードをまとめることは出来ますでしょうか?
簡単なクラスの例があります。
↓このサイトの83番のtips
ht tp://homepage2.nifty.com/kmado/kvba.htm
E00M083 ユーザーフォームの複数コントロールのイベントを纏めて処理する
■簡易版(そのユーザーフォームのみで処理する)
新規ブックのUserForm1に複数のTextBoxを配置して試してください。
'UserForm1モジュール
Option Explicit
Public WithEvents TextBox As MSForms.TextBox
Dim dbox As New Collection
Private Sub TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then KeyAscii = 0
End Sub
Private Sub UserForm_Initialize()
'コードは省略しますが、
'■簡易版(そのユーザーフォームのみで処理する)
'のInitializeイベントのコードをそっくり貼り付け
'
End Sub
|
|