Excel VBA質問箱 IV

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

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


5188 / 13644 ツリー ←次へ | 前へ→

【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("シート1").Select
  Set セル範囲1 = Range("Q5", Range("Q5").End(xlDown))

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

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

  部品品名 = ?????
  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列のデータ分表示してくれます。
>(空いているセルがないことが条件)

参考にさせて頂きたいと思います。
ありがとうございました。

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