Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5190 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52168】複数シートのセル範囲を一つのリストとして出したい 太郎 07/10/26(金) 11:38 質問[未読]
【52171】Re:複数シートのセル範囲を一つのリストと... Jaka 07/10/26(金) 13:36 発言[未読]
【52176】Re:複数シートのセル範囲を一つのリストと... 太郎 07/10/26(金) 15:46 お礼[未読]
【52168】複数シートのセル範囲を一つのリストとし...
質問  太郎  - 07/10/26(金) 11:38 -
引用なし
パスワード
   いつもお世話になってます。

データの入力規制のリストとして出すにあたって
複数セルのセル範囲をそのリストとして指定したいです。
たとえば
　　Sheets("シート１").Select
　　Set セル範囲１ = Range("Q5", Range("Q5").End(xlDown))

　　Sheets("シート２").Select
　　Set セル範囲２ = Range("Q5", Range("Q5").End(xlDown))

このセル範囲１とセル範囲２を一つのセル範囲にし部品品名という変数に
入れたいです。

　　部品品名 = ？？？？？
　　ActiveWorkbook.Names.Add Name:="部品品名", RefersToR1C1:=部品品名
　　ActiveWorkbook.Names("部品品名").Comment = ""

？？？？？の部分が分からないので教えて下さい。
【52171】Re:複数シートのセル範囲を一つのリスト...
発言  Jaka  - 07/10/26(金) 13:36 -
引用なし
パスワード
   入力規制のリスト専用セルを作って、そこにデータを入れて参照させてください。

リスト範囲は、

=INDIRECT("Sheet1!A1:A" & COUNTA(A:A))

とでもしておけば、A列のデータ分表示してくれます。
（空いているセルがないことが条件）
【52176】Re:複数シートのセル範囲を一つのリスト...
お礼  太郎  - 07/10/26(金) 15:46 -
引用なし
パスワード
   ▼Jaka さん：
返信ありがとうございます。

>入力規制のリスト専用セルを作って、そこにデータを入れて参照させてください。

マクロだけで出来ればいいなと思っていたのですが、
？？？？？に当てはまるマクロは無いのでしょうか？

>リスト範囲は、
>
>=INDIRECT("Sheet1!A1:A" & COUNTA(A:A))
>
>とでもしておけば、A列のデータ分表示してくれます。
>（空いているセルがないことが条件）

参考にさせて頂きたいと思います。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5190 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free