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順に進行しますが、例えば、TextBox1の入力内容に因って、TextBox5 や 7 又は 8に
移行したいのですが、どのようにコードを記述したらよいのでしょうか?
 ご指導お願いします。

【63257】Re:TextBoxの選択
回答  neptune  - 09/10/20(火) 14:41 -

引用なし
パスワード
   ▼MTOO さん:
>例えば、TextBox1の入力内容に因って、TextBox5 や 7 又は 8に
>移行したい
困るのは人間でそれはExcelには判りません。
どうやってExcelに伝えるんですか?

↑は出来ているとして、
SetFocusってのがあったと思いますから、それを使いましょう。

【63258】Re:TextBoxの選択
発言  Jaka  - 09/10/20(火) 14:41 -

引用なし
パスワード
   ▼MTOO さん:
>Form入力画面上にTextBoxが10配置されています。通常はTabIndex順に進行しますが、例えば、TextBox1の入力内容に因って、TextBox5 や 7 又は 8に
>移行したいのですが、どのようにコードを記述したらよいのでしょうか?
> ご指導お願いします。

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