Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9773 / 13645 ツリー ←次へ | 前へ→

【25517】ComboBoxの範囲指定を変更する際に・・・ 05/6/2(木) 20:47 質問[未読]
【25520】Re:ComboBoxの範囲指定を変更する際に・・・ ichinose 05/6/2(木) 21:28 発言[未読]
【25549】Re:ComboBoxの範囲指定を変更する際に・・・ 05/6/4(土) 0:09 お礼[未読]

【25517】ComboBoxの範囲指定を変更する際に・・・
質問    - 05/6/2(木) 20:47 -

引用なし
パスワード
   Sheet1の中にある、ComboBox1に、

Private Sub ComboBox1_Change()

ComboBox.ListFillRange = "Sheet2!B3:" & Range("Sheet2!B3").End(xlDown).Address

End Sub

と入力したのですが、上手く行きません。Sheet2の部分がSheet1なら、上手く行くのですが、何がいけないのでしょうか?><

【25520】Re:ComboBoxの範囲指定を変更する際に・...
発言  ichinose  - 05/6/2(木) 21:28 -

引用なし
パスワード
   ▼氷 さん:
こんばんは。
一連の内容はシートに貼り付けたコンボボックスの話なのですか?
(実は、前回の投稿もそんな思いもちらっとありましたが、
 何も書いてないので決め打ちでユーザーフォームのつもりで書きました)
コントロール等は、どこに貼り付けたものなのかをはっきりと
記述して下さいネ!!


>Sheet1の中にある、ComboBox1に、
>
これは、わかりますけど、
「Sheet1のモジュールに以下のコード」と記述して下さい。

>Private Sub ComboBox1_Change()
>
'こういう記述をするなら

ComboBox1.ListFillRange = "Sheet2!B3:" & application.Range("Sheet2!B3").End(xlDown).Address

'に訂正してみて下さい
>
>End Sub

【25549】Re:ComboBoxの範囲指定を変更する際に・...
お礼    - 05/6/4(土) 0:09 -

引用なし
パスワード
   ichinoseさん、ご返信ありがとうございます^^
Applicationというものをつけると、問題解決が出来ました^^

>コントロール等は、どこに貼り付けたものなのかをはっきりと
>記述して下さいネ!!

すみません><
以後気をつけます・・・。

9773 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free