Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6052 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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に以下のようにあります。

　　　Ａ　　　　Ｂ　　　　Ｃ　　　　
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 = "リストＡ!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 = "リストＡ!A2:A200"
が A列しか入れていないからです。

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

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

としてください。
【47574】Re:コンボボックスで選択した内容に対応...
お礼  タフマン  - 07/3/15(木) 11:23 -
引用なし
パスワード
   ▼Blue さん：
はい、さっき私もそれに気がついて
御礼とお断りを送ろうと思っていたところでした
ご親切にご教授いただき誠に有難う御座いました。
これからも分からない事がいくつも出てくると思いますので
懲りずに面倒見ていただけると幸いです。
重ねてありがとう御座いました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6052 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free