Excel VBA質問箱 IV

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

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


6032 / 13645 ツリー ←次へ | 前へ→

【47560】コンボボックスで選択した内容に対応するデータをテキストボックスに表示す... タフマン 07/3/14(水) 17:43 質問[未読]
【47561】Re:コンボボックスで選択した内容に対応す... Blue 07/3/14(水) 17:52 発言[未読]
【47562】Re:コンボボックスで選択した内容に対応す... タフマン 07/3/14(水) 18:29 質問[未読]
【47565】Re:コンボボックスで選択した内容に対応す... Blue 07/3/14(水) 21:02 発言[未読]
【47569】Re:コンボボックスで選択した内容に対応す... タフマン 07/3/15(木) 10:40 質問[未読]
【47570】Re:コンボボックスで選択した内容に対応す... Blue 07/3/15(木) 10:46 質問[未読]
【47572】Re:コンボボックスで選択した内容に対応す... タフマン 07/3/15(木) 11:12 質問[未読]
【47573】Re:コンボボックスで選択した内容に対応す... Blue 07/3/15(木) 11:18 発言[未読]
【47574】Re:コンボボックスで選択した内容に対応す... タフマン 07/3/15(木) 11:23 お礼[未読]

【47560】コンボボックスで選択した内容に対応する...
質問  タフマン  - 07/3/14(水) 17:43 -

引用なし
パスワード
   ユーザーフォームにコンボボックスとテキストボックスが有り
コンボボックスのリストはシート2に以下のようにあります。

   A    B    C    
1  東京   あああ   1111
2  大阪   いいい   2222
3  名古屋  ううう   3333 
4  北海道  えええ   4444
5  京都   おおお   5555
6  九州   かかか   6666
7  四国   ききき   7777

コンボボックスで「京都」を選択したときにテキストボックスに
「おおお」が表示されるようにしたいのですが
どのようにしたら良いのかわかりません
是非、ご教授頂きたいのでよろしくお願い致します。

【47561】Re:コンボボックスで選択した内容に対応...
発言  Blue  - 07/3/14(水) 17:52 -

引用なし
パスワード
   RowSourceでA1:B7を指定して、
取得時には、Listプロパティから取得するとか。

UserFormに ComboBox1 と CommandButton1 があるとき

Private Sub UserForm_Initialize()
  With Me.ComboBox1
    .RowSource = "Sheet1!A1:B7"
  End With
End Sub

Private Sub CommandButton1_Click()
  With Me.ComboBox1
    If .ListIndex <> -1 Then
      MsgBox .List(.ListIndex, 1)
    End If
  End With
End Sub

てな感じで。

【47562】Re:コンボボックスで選択した内容に対応...
質問  タフマン  - 07/3/14(水) 18:29 -

引用なし
パスワード
   ▼Blue さん:

Blueさん、早速のアドバイス有難う御座います。

>UserFormに ComboBox1 と CommandButton1 があるとき

コマンドボタンが無い場合って言うのは無理なのでしょうか?
また、コンボボックスが複数個ありそれぞれにテキストボックスが
あります。

【47565】Re:コンボボックスで選択した内容に対応...
発言  Blue  - 07/3/14(水) 21:02 -

引用なし
パスワード
   ▼タフマン さん:
>コマンドボタンが無い場合って言うのは無理なのでしょうか?
コマンドボタンにしたのはタイミングがわかりやすかったからです。
コンボボックスのチェンジイベントに書けば出来るでしょう。

【47569】Re:コンボボックスで選択した内容に対応...
質問  タフマン  - 07/3/15(木) 10:40 -

引用なし
パスワード
   ▼Blue さん:

>コンボボックスのチェンジイベントに書けば出来るでしょう。

Blueさん有難う御座います。

Private Sub UserForm_Initialize()
  
  With Me.ComboBox1
    .RowSource = "リストA!A2:A200"
  End With
  
  LinkCell
  
End Sub

Private Sub ComboBox1_Change()

  With Me.ComboBox1
    If .ListIndex <> -1 Then
      TextBox9.Value = .ListIndex
    End If
  End With

End Sub

上記のようにやってみたんですがComboBox1で選択したとき
TextBox9には数字しか表示されません。
またその数字も行の番号-1の値です。
どこがおかしいのか分からず試行錯誤しております。
是非ヒントだけでも教えていただけないでしょうか?

【47570】Re:コンボボックスで選択した内容に対応...
質問  Blue  - 07/3/15(木) 10:46 -

引用なし
パスワード
   >    If .ListIndex <> -1 Then
>      TextBox9.Value = .ListIndex
>    End If
なんで?

>MsgBox .List(.ListIndex, 1)
だから

TextBox9.Text = .List(.ListIndex, 1)

ではだめだっだのでしょうか?

【47572】Re:コンボボックスで選択した内容に対応...
質問  タフマン  - 07/3/15(木) 11:12 -

引用なし
パスワード
   ▼Blue さん:

Blueさん何度も有難う御座います。
何分初心者な者でイライラされてしまうかも分かりませんが
申し訳御座いません

>TextBox9.Text = .List(.ListIndex, 1)

上記のようにしたら
「List プロパティの値を取得できません、引数が不正です。」
と言うエラーが出てしまいます。

【47573】Re:コンボボックスで選択した内容に対応...
発言  Blue  - 07/3/15(木) 11:18 -

引用なし
パスワード
   ▼タフマン さん:
>「List プロパティの値を取得できません、引数が不正です。」
>と言うエラーが出てしまいます。
あ〜

>.RowSource = "リストA!A2:A200"
が A列しか入れていないからです。

B列に表示したいものがあるのであれば

.RowSource = "リストA!A2:B200"

としてください。

【47574】Re:コンボボックスで選択した内容に対応...
お礼  タフマン  - 07/3/15(木) 11:23 -

引用なし
パスワード
   ▼Blue さん:
はい、さっき私もそれに気がついて
御礼とお断りを送ろうと思っていたところでした
ご親切にご教授いただき誠に有難う御座いました。
これからも分からない事がいくつも出てくると思いますので
懲りずに面倒見ていただけると幸いです。
重ねてありがとう御座いました。

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