Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9793 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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というものをつけると、問題解決が出来ました＾＾

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

すみません＞＜
以後気をつけます・・・。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9793 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free