| |
▼八家九僧陀 さん：
>▼teian さん：
>早速のご教示有難うございます。そっくりそのまま転記させていただき、思ったとおりのことができました。本当にありがとうございます。
>が、もうすこしスッキリしたいので、あと3点お聞かせください。
>
>1.Set r = Worksheets("Sheet1").Range("B3:E10") で、B3:E10はリスト元データですが、増減があります。B3〜E列のデータ最終行の記述を教えていただけませんか？
>2.リスト元データの見出し部分に色付けしていますが、comboboxのリストにはその色付けは反映できませんか？
>3.これを参考にもっと勉強したいと思いますが、
> .RowSource = r.Address(External:=True) の部分が、どういう働き？をするのか、解説していただけませんか？ 特に(External:=True)の意味がわからないのですが？
>
>まっこと、世話のかける奴ですが、お願いします。
ヒントです。
1.について
RangeクラスのEndプロパティや、Findメソッドを使った手法がよく使われます。
サンプルコードは、ネット検索すればそこらに転がってると思いますよ。
2.について
色付けはできないでしょう。
3.について
Helpは確認されましたか？それがなくても、
Debug.PrintやMsgBoxでもいいですから、
Debug.Print r.Addressで表示される文字列と
Debug.Print r.Address(External:=True)で表示される文字列の
違いをご自分で確認するのがいいでしょう。
ちなみにその引数を指定したのは、そのシートがアクティブでない時に
フォームの表示をしても、対象範囲を取り違えないようにです。
|
|
teian
- 10/4/25(日) 18:45 -
