| |
1.form上にいくつかのTextBoxを配置し入力しています。
2.それらのTextBoxにTabキーでフォーカスを移し順次入力します。
現在、上記の仕様でTabが押された時に入力桁数などを自動で判断させています。
↓のような感じです。
--------------------------------------------------------------------------
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeytab Then
'英字であるか？桁数はあっているか？の処理
End If
End Sub
----------------------------------------------------------------------
ただ、今のままですと大げさな話TextBoxが100個あった時はオブジェクト名
だけ変えて同じプログラムを100個書かないとならないですよね・・・
UserFormのKeyDownイベントを使用してみましたが
UserForm上にフォーカスがないからか反応してくれませんでした。
なんとか簡略化や別の方法で同じ機能を実現できないでしょうか？
よろしくおねがいします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
