No.2ベストアンサー
- 回答日時:
Sheet2のComboBox1のMouseDownイベントプロセジュアとして
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
d = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
f = Trim(Str(d))
Sheet2.ComboBox1.ListFillRange = "sheet1!a1:a" & f
End Sub
として見ました。
Sheet1のA列の最下行を増やしたり減らしたりすると、その後にコンボのリストがクリックするごとに増減していることを確認しました。
d = Worksheets("sheet1").Range("A1").・・のA1は
最初行に合わせて変えること。
No.3
- 回答日時:
リストの範囲が最下行までと決まっている場合次のイベントプロシージャでいけると思われます。
ただ、リスト範囲の列数と最上行数は指定してください。Private Sub Worksheet_Activate()
Dim mycul As Integer '<-リスト範囲の列数
Dim myrow1 As Integer '<-リスト範囲の最上行数
Dim myrow2 As Integer '<-リスト範囲の最下行数
mycul = 1 '<-リスト範囲の列数を指定(1はA列,2はB列...)
myrow1 = 2 '<-リスト範囲の最上行を指定
myrow2 = Range(Sheets("Sheet1").Cells(Rows.Count, mycul).End(xlUp).Address).Row
ComboBox1.ListFillRange = _
"Sheet1!" & Range(Cells(myrow1, mycul), Cells(myrow2, mycul)).Address
End Sub
2度も回答いただき、本当にありがとうございました。NO2の方と同様にこちらでもうまく動きました。シートに2つコンボボックスがありますので、1つはNO2の方、もう1つをこの書き方で利用させていただきたいと思っております。まだまだ勉強不足で、コメントを書いていただいたのは、本当に助かりました。心よりお礼申し上げます。ありがとうございました。
No.1
- 回答日時:
デザインモードでコンボボックスのプロパティウインドウを表示して、
ListFillRange
の値をセル参照にすることが可能です。例えばSheet1のセルA1からA5にリストがある場合、
ListFillRangeの値をSheet1!$A$1:$A$5
とします。マクロを組む必要はありません。
> sheet2がアクティブになった時にマクロが自動実行し、入力範囲が変更されれば完璧です
であれば、Sheet2のActivateイベントプロシージャを以下のように記述します。なお、この例ではコンボボックスの名前をComboBox1とします。
Private Sub Worksheet_Activate()
ComboBox1.ListFillRange = "Sheet1!$A$1:$A$5"
End Sub
EXCEL2000で動作確認
この回答への補足
すみません。質問を補足してもよろしいでしょうか?sheet1のリスト範囲が、表が更新される毎に変わってしまうのです。それでも、この方法で出来るのでしょうか?何卒宜しくお願い致します。
補足日時:2004/04/27 17:35回答の補足に入力してしまいました。お礼のところにするべきでした。申し訳ありません。
再度、入力します。
すみません。質問を補足してもよろしいでしょうか?sheet1のリスト範囲が、表が更新される毎に変わってしまうのです。それでも、この方法で出来るのでしょうか?何卒宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Excel(エクセル) Excel ドロップダウンリスト(入力規則)に関してです データの入力規則で元データ79000行のド 3 2023/07/17 10:06
- 統計学 データ分析に関する問題です。 ある町である感染症の保菌者は0.5%である。保菌者を少なくとも1人含む 3 2022/07/28 19:56
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) スプレッドシートのマクロで値の入力があるセルの範囲を指定する方法を教えて下さい 2 2022/04/05 17:29
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
目次は文書中の先頭にのみにし...
-
ワード、上下中央揃えにしたい...
-
大学のレポートについてです。...
-
最近MacBookに変えました。 マ...
-
ワードが白と黒が反転してしま...
-
A4サイズ横位置というのは ワー...
-
A4縦の2枚のワードをA3にするや...
-
KADOKAWA電撃大賞の互換ソフト...
-
ワードが打ち込みできません
-
ワードです。 スマホでは横書き...
-
ワード2016で図の形式の色の変...
-
ワード レイアウトの崩れ
-
なぜワードで開けず互換性ソフ...
-
txtって、ページ番号振れないん...
-
ワードのこと教えてくれるとこ...
-
ワードの行✖️文字数について。 ...
-
https://dengekitaisho.jp/nove...
-
ワードはページ数イコール枚数...
-
ワードで文章打つ時、全角、半...
-
右側に半券のついたチケットを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワード、上下中央揃えにしたい...
-
A4縦の2枚のワードをA3にするや...
-
ワードが白と黒が反転してしま...
-
なぜワードで開けず互換性ソフ...
-
ワードやエクセルのファイルの...
-
パソコンで見た時とスマホで見...
-
txtってパソコンでも横書きに表...
-
KADOKAWA電撃大賞の互換ソフト...
-
MicrosoftのOfficeに代わるソフ...
-
互換性のないSafariからみた画...
-
IMEパッドの手書き入力
-
右側に半券のついたチケットを...
-
ワード レイアウトの崩れ
-
ワードの差し込み文書で困って...
-
txtって、ページ番号振れないん...
-
A4サイズ横位置というのは ワー...
-
ワードのこと教えてくれるとこ...
-
KADOKAWA電撃文庫のSafariで見...
-
最近MacBookに変えました。 マ...
-
office365のワードがプリントで...
おすすめ情報