C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: Excelでの名前の定義を使ってコンボボックスに一覧作りたい

(過去ログ 170 を表示中)

[トピック内 3 記事 (1 - 3 表示)]　 << 0 >>

■98139 / inTopicNo.1)

　Excelでの名前の定義を使ってコンボボックスに一覧作りたい

□投稿者/ アン (1回)-(2021/09/23(Thu) 19:57:56)

分類:[.NET 全般]　

こんにちは。
環境：Microsoft Office 2019 x64bit使ってます。（Excel)

Excelで指定したセルを名前の定義使ってコンボボックスに一覧作りたいのですが、一つだけなら出来ます。これに
もう一つの名前の定義使って一緒にコンボボックスに一覧を表示させたい事です。

１、
セル指定がB2～B10を「=Sheet2!$B$2:$B$10」
セル指定がC2～C10を「=Sheet2!$C$2:$C$10」
この二つをコンボボックスに表示させたいのです。

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = 0 Then
End If

If ComboBox1.ListIndex = 1 Then
ComboBox2.ListFillRange = "=Sheet2!$B$2:$B$10" 'combobox2に表示させてます。
'ComboBox2.ListFillRange = "=Sheet2!$B$2:$C$10"'B2～C10指定してもXでした。
End If

２，=Sheet2!$B$2:$B$21と指定すれば簡単に出来ます。
ただ、アイテムの種類事にエクセルで表作っております。

１でやりたい事
・B2～B10セル表の名前がA,B,C,D,E,F,G,H,I
・C2～C10セル表の名前がJ,K,L,M,N,O,P,Q,R

セル表でA～Rをコンボボックスに表示させたいです。

２ではA～Rを指定すれば出来ます。アイテムの種類別で指定したいので１のようにどうやれば出来るのでしょうか？
ご指導よろしくお願いします。

引用返信 編集キー/

■98140 / inTopicNo.2)

　Re[1]: Excelでの名前の定義を使ってコンボボックスに一覧作りたい

□投稿者/ 魔界の仮面弁士 (3187回)-(2021/09/23(Thu) 20:22:09)

■No98139 (アンさん) に返信
> If ComboBox1.ListIndex = 0 Then
> End If
If 文の中身が空ですね。この判定って意味ありますか?
Exit Sub しているとかでも無さそうですし…。

> セル指定がC2～C10を「=Sheet2!$C$2:$C$10」
> 'ComboBox2.ListFillRange = "=Sheet2!$B$2:$C$10"'B2～C10指定してもXでした。
「Xでした。」とだけ書かれても、何のことだかわからないです。(^^;
どういう結果を期待しているのに、実際にはどうなってしまうのかを明確にしましょう。

また、C2:C10 ではなく B2:C10 にしているのは何故でしょうか?

もしも B2:C10 範囲の 18 要素を並べたいという意味であれば、
参照元データを 18 行用意しましょう。

それと、ComboBox2.ListFillRange を動的に書き換えたとして、
そのあと、ComboBox2.ListIndex や ComboBox2.Text は何も変更しなくて良いのでしょうか?

引用返信 編集キー/

■98144 / inTopicNo.3)

　Re[2]: Excelでの名前の定義を使ってコンボボックスに一覧作りたい

□投稿者/ アン (2回)-(2021/09/24(Fri) 16:14:35)

魔界の仮面弁士さん
ありがとうございました。

解決済み

引用返信 編集キー/

トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可