標準モジュール内での関数で、ユーザーフォーム上のテキストボックスのキー入力制限をするには？

解決

ｐｐ 2006-11-15 01:45:33 No: 134134

標準モジュールにテキストボックスの入力を数字と小数点だけに制限する関数を作り、あるユーザーフォームのテキストにキー入力が生じた場合にその関数を実行するようにしたいのですがどうすればいいでしょうか？
  ちなみにテキストボックスに入力するキー制限は現在このようにしています。これを各テキストボックスごとに書いていけば入力制限はうまくいくのですが、できれば標準モジュールからの関数呼び出しで行う方法が知りたいのです。
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii >= 48 And KeyAscii <= 57 Then       '数値
         ElseIf KeyAscii = 46 Then       '.
        ElseIf KeyAscii = 13 Then                       'Enter
         ElseIf KeyAscii = 8 Then                        'BackSpace
         Else
            KeyAscii = 0
         End If
End Sub

ｐｐ 2006-11-15 02:36:59 No: 134135

自己解決しました。お騒がせしました。