Excel VBA質問箱 IV

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

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


4136 / 13644 ツリー ←次へ | 前へ→

【58260】ユーザーフォームについて ブービー賞 08/10/15(水) 11:23 質問[未読]
【58262】Re:ユーザーフォームについて neptune 08/10/15(水) 13:42 発言[未読]
【58264】Re:ユーザーフォームについて neptune 08/10/15(水) 14:28 発言[未読]

【58260】ユーザーフォームについて
質問  ブービー賞  - 08/10/15(水) 11:23 -

引用なし
パスワード
   ユーザーフォームでアンケートの入力をしています。選択肢の番号を入力していっているのですが設問の中にいくつか「その他」となっていて回答者が記入するところがあります。今私が考えているのはユーザーフォームに回答番号を記入していき、「その他」の選択肢がある設問の回答を入力するテキストボックスに「その他」の番号を入力してTabを押すと、その他の内容を入力する別のユーザーフォームが出てくるようにしたいと考えています。どのようなコードにするとよいでしょうか。また他に良い方法があったら教えてください。

【58262】Re:ユーザーフォームについて
発言  neptune  - 08/10/15(水) 13:42 -

引用なし
パスワード
   ▼ブービー賞 さん:
こんにちは

読みにくいので適宜改行を入れて下さい。

>どのようなコードにするとよいでしょうか。また他に良い方法があったら教えてください。
ですが、したい処理の中で、具体的に何がわからないのでしょうか?
それを書いた方が回答者の方々も無駄な想像をしなくて良いのでより良い
アドバイスが頂けると思いますよ。

ちなみに、試してはいませんが、これでいけるかも?
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbTab Then
    '実行したい処理
  End If
End Sub

UserFormの表示は以下
ユーザーフォーム名.show
です。

【58264】Re:ユーザーフォームについて
発言  neptune  - 08/10/15(水) 14:28 -

引用なし
パスワード
   ▼ブービー賞 さん:
すみませんうそ書いてました。

>ちなみに、試してはいませんが、これでいけるかも?
>Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
>  If KeyCode = vbTab Then   '間違い
   If KeyCode = vbKeyTab Then  ’こちらと思います。

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