• 締切済み

ComboBox1_Changeについて

Private Sub ComboBox1_Change() Dim si As Integer With UserForm1 .ComboBox2.Text = "" si = .ComboBox1.ListIndex ' ComboBox1 の何番目が選択されたかを得る Select Case si Case 0 ' 0番が選択されていたらComboBox2 の内容をC列から作成する .ComboBox2.RowSource = "Sheet1!C1" Case 1 .ComboBox2.RowSource = "Sheet1!C2" End Select End With End Sub コンボボックス1で選択された値に対して『Sheet1!C1』が 表示されるようにするには、『.RowSource』の部分に 適切な言語がありますでしょうか。 また、『.RowSource』は、こういう効果がある等 紹介しているサイトをご存知あれば教えてください。 (探してみたのですが、めぐり合えず)

みんなの回答

  • hige_082
  • ベストアンサー率50% (379/747)
回答No.1

>『.RowSource』の部分に適切な言語がありますでしょうか。 言語?セル範囲を指定する以外は受け付けないと思いますが >『.RowSource』は、こういう効果がある等 どんな効果を求めているのでしょうか?

すると、全ての回答が全文表示されます。
このQ&Aのポイント
  • キヤノン複合プリンターXK110を購入してから約1.5年経ちましたが、最近コピー機能を使用した際に画像が薄黒くなり、用紙の半分がさらに黒く印刷される現象が発生しました。
  • 一度電源を切り再起動した後に印刷すると、スキャナーでも同様の現象が発生しますが、通常の印刷には問題はありません。
  • エラーコードは覚えていませんが、修理が必要な状態です。キヤノン製品の修理について教えていただきたいです。
回答を見る

専門家に質問してみよう