Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3258 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63256】TextBoxの選択 MTOO 09/10/20(火) 14:26 質問[未読]
【63257】Re:TextBoxの選択 neptune 09/10/20(火) 14:41 回答[未読]
【63259】Re:TextBoxの選択 MTOO 09/10/20(火) 16:08 お礼[未読]
【63258】Re:TextBoxの選択 Jaka 09/10/20(火) 14:41 発言[未読]
【63260】Re:TextBoxの選択 MTOO 09/10/20(火) 16:10 お礼[未読]
【63256】TextBoxの選択
質問  MTOO  - 09/10/20(火) 14:26 -
引用なし
パスワード
   Form入力画面上にTextBoxが10配置されています。通常はTabIndex順に進行しますが、例えば、TextBox１の入力内容に因って、TextBox５　や　７　又は　８に
移行したいのですが、どのようにコードを記述したらよいのでしょうか?
　ご指導お願いします。
【63257】Re:TextBoxの選択
回答  neptune  - 09/10/20(火) 14:41 -
引用なし
パスワード
   ▼MTOO さん：
>例えば、TextBox１の入力内容に因って、TextBox５　や　７　又は　８に
>移行したい
困るのは人間でそれはExcelには判りません。
どうやってExcelに伝えるんですか？

↑は出来ているとして、
SetFocusってのがあったと思いますから、それを使いましょう。
【63258】Re:TextBoxの選択
発言  Jaka  - 09/10/20(火) 14:41 -
引用なし
パスワード
   ▼MTOO さん：
>Form入力画面上にTextBoxが10配置されています。通常はTabIndex順に進行しますが、例えば、TextBox１の入力内容に因って、TextBox５　や　７　又は　８に
>移行したいのですが、どのようにコードを記述したらよいのでしょうか?
>　ご指導お願いします。

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
　 select case Textbox1.value
　　　case 1
　　　　 TextBox5.SetFocus
　　　case 2
　　　　 TextBox7.SetFocus
　 end select
End If
End Sub

とか。
【63259】Re:TextBoxの選択
お礼  MTOO  - 09/10/20(火) 16:08 -
引用なし
パスワード
   neptuneさん
　お礼申し上げます。ありがとうございました。
【63260】Re:TextBoxの選択
お礼  MTOO  - 09/10/20(火) 16:10 -
引用なし
パスワード
   Jakaさん
　ありがとうございました。おかげ様で悩みが一つ解決しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3258 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free