Subプロシージャについて教えてください。 (ID:126540)

名前

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

本文 ガッさんご回答ありがとうございます。 Private Sub txtJpn_KeyPress(Index As Integer, KeyAscii As Integer) Select Case KeyAscii Case Asc("0") To Asc("9") Case Asc("-") Case vbKeyBack Case Else KeyAscii = 0 End Select End Sub Private Sub txtMathe_KeyPress(Index As Integer, KeyAscii As Integer) Select Case KeyAscii Case Asc("0") To Asc("9") Case Asc("-") Case vbKeyBack Case Else KeyAscii = 0 End Select End Sub だとちゃんと動くのですが、これだとプログラムが長くなってしまうので簡単に書ける方法はないかなと思ったのですが。。。