Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16331 / 76738 ←次へ | 前へ→

【65875】ユーザーフォームのTextBoxイベントをまとめたい
質問  みーちゃんキャット  - 10/7/4(日) 15:04 -

引用なし
パスワード
   TextBoxが10個あります。押すキーを限定するコードをまとめることは出来ますでしょうか?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)                                ・
                            ・
                            ・
0 hits

【65875】ユーザーフォームのTextBoxイベントをまとめたい みーちゃんキャット 10/7/4(日) 15:04 質問
【65876】Re:ユーザーフォームのTextBoxイベントをまとめたい よろずや 10/7/4(日) 17:22 発言
【65910】Re:ユーザーフォームのTextBoxイベントをまとめたい みーちゃんキャット 10/7/6(火) 17:06 お礼
【65922】Re:ユーザーフォームのTextBoxイベントをまとめたい 熊谷隆史 10/7/8(木) 6:33 発言
【65935】Re:ユーザーフォームのTextBoxイベントをまとめたい 熊谷隆史 10/7/9(金) 6:42 回答
【65942】Re:ユーザーフォームのTextBoxイベントをまとめたい UO3 10/7/9(金) 11:55 質問
【65944】Re:ユーザーフォームのTextBoxイベントをまとめたい Abyss 10/7/9(金) 13:55 発言
【65948】Re:ユーザーフォームのTextBoxイベントをまとめたい UO3 10/7/9(金) 22:36 お礼
【65949】Re:ユーザーフォームのTextBoxイベントをまとめたい Abyss 10/7/9(金) 23:01 発言
【65950】Re:ユーザーフォームのTextBoxイベントをまとめたい UO3 10/7/10(土) 0:03 お礼
【65921】Re:ユーザーフォームのTextBoxイベントをまとめたい mura 10/7/7(水) 13:06 回答

16331 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free