Excel VBA質問箱 IV

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

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


42818 / 76732 ←次へ | 前へ→

【38976】Re:テキストボックスのフォーカス移動
回答  Jaka  - 06/6/15(木) 16:10 -

引用なし
パスワード
   テキストボックスが5個として
(クラスも何も使わず、素直?に書くと)

シートモジュール

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Call 移動(KeyCode, 1)
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Call 移動(KeyCode, 2)
End Sub

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Call 移動(KeyCode, 3)
End Sub

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Call 移動(KeyCode, 4)
End Sub

Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Call 移動(KeyCode, 5)
End Sub

'標準モジュール
Sub 移動(KeyNo, No)
If KeyNo = vbKeyTab Then
  If No >= 5 Then
   No = 1
  Else
   No = No + 1
  End If
  ActiveSheet.OLEObjects("TextBox" & No).Activate
End If
End Sub

0 hits

【38966】テキストボックスのフォーカス移動 りの 06/6/15(木) 14:42 質問
【38969】Re:テキストボックスのフォーカス移動 Jaka 06/6/15(木) 15:14 発言
【38972】Re:テキストボックスのフォーカス移動 りの 06/6/15(木) 15:39 質問
【38976】Re:テキストボックスのフォーカス移動 Jaka 06/6/15(木) 16:10 回答
【38985】Re:テキストボックスのフォーカス移動 りの 06/6/15(木) 16:41 お礼

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