過去ログ

                                Page     792
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼検索したデータをコンボボックスに表示する  さる 03/2/24(月) 14:48
   ┗Re:検索したデータをコンボボックスに表示する  つん 03/2/24(月) 15:29
      ┗Re:検索したデータをコンボボックスに表示する  さる 03/2/24(月) 15:47
         ┗Re:検索したデータをコンボボックスに表示する  さる 03/2/24(月) 16:22
            ┗Re:検索したデータをコンボボックスに表示...  つん 03/2/24(月) 16:41
               ┗Re:検索したデータをコンボボックスに表示...  さる 03/2/25(火) 11:55

 ───────────────────────────────────────
 ■題名 : 検索したデータをコンボボックスに表示する
 ■名前 : さる
 ■日付 : 03/2/24(月) 14:48
 -------------------------------------------------------------------------
   いつもお世話になってます。

userform1のcombobox1にsheet1のデータを表示させるにはどうすればいいんでしょうか?

どなたかよろしくお願いします。
 ───────────────────────────────────────  ■題名 : Re:検索したデータをコンボボックスに表示する  ■名前 : つん <honey@sweetparty.ne.jp>  ■日付 : 03/2/24(月) 15:29  -------------------------------------------------------------------------
   さる さん、こんにちは

>userform1のcombobox1にsheet1のデータを表示させるにはどうすればいいんでしょうか?

こうかな?

  ComboBox1.RowSource = "[" & ThisWorkbook.Name & "]Sheet1!a1:a4"
 ───────────────────────────────────────  ■題名 : Re:検索したデータをコンボボックスに表示する  ■名前 : さる  ■日付 : 03/2/24(月) 15:47  -------------------------------------------------------------------------
   つん さん、はじめまして。

>ComboBox1.RowSource = "[" & ThisWorkbook.Name & "]Sheet1!a1:a4"

エラーになったのですが、="sheet1!a1a4!"にしたらできました。
助かりました。ありがとうございました。
 ───────────────────────────────────────  ■題名 : Re:検索したデータをコンボボックスに表示する  ■名前 : さる  ■日付 : 03/2/24(月) 16:22  -------------------------------------------------------------------------
   もう一つ、userform1に、textbox1、combobox1、sheet1に表が3つあります。
textbox1に入力した数字(1,2,3)によって、combobox1に表示するデータを
変えたいのですが、どうすればよいのでしょうか?
 ───────────────────────────────────────  ■題名 : Re:検索したデータをコンボボックスに表示...  ■名前 : つん <honey@sweetparty.ne.jp>  ■日付 : 03/2/24(月) 16:41  -------------------------------------------------------------------------
   さる さん、はじめまして(^o^)ノ

>もう一つ、userform1に、textbox1、combobox1、sheet1に表が3つあります。
>textbox1に入力した数字(1,2,3)によって、combobox1に表示するデータを
>変えたいのですが、どうすればよいのでしょうか?

うーん、数字を入力してからどのタイミングでコンボボックスに設定したらいいかわからんから・・・・

  Select Case TextBox1.Value
    Case 1
      ComboBox1.RowSource = "[" & ThisWorkbook.Name & "]Sheet1!a1:a4"
    Case 2
      ComboBox1.RowSource = "[" & ThisWorkbook.Name & "]Sheet1!b1:b4"
    Case 3
      ComboBox1.RowSource = "[" & ThisWorkbook.Name & "]Sheet1!c1:c4"
    Case Else
      MsgBox "1〜3までの数字をどうぞ"
  End Select

Exitイベントに書いてみたら、右上のバッテン押そうとしても、Case Else通っちゃうし(あまり前やけど)なんかうまいこと考えてください(^^;
ところで、こちらでは"[" & ThisWorkbook.Name & "]Sheet1!a1:a4"でエラーでなかったですわ。
 ───────────────────────────────────────  ■題名 : Re:検索したデータをコンボボックスに表示...  ■名前 : さる  ■日付 : 03/2/25(火) 11:55  -------------------------------------------------------------------------
   つんさん、こんにちは。

つんさんのコードを参考にやってみました。
ものすごく苦労していたんですが、結構あっさりできました。
ありがとうございました。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 792