[[20041116192459]]　『オートフィルタのデータをリストボックスに』（はじめる一歩）　ページの最後に飛ぶ

『オートフィルタのデータをリストボックスに』（はじめる一歩）

[オートフィルタのデータをリストボックスに設定できますか]

 本学校でリストボックスの作りかたを教えて頂き活用しています。
 そこで質問なのですが、オートフィルタのデータのデータを自動的にリストボックス
を作成できるかというをお聞きしたいのですが

 　　A　　　　　Ｂ　　　Ｃ　　　　　　　　　　　Z
 １　３３２　　ADS　　三重
 ２　３３４　　DSD　　静岡
 ３　４３４　　FDF　　東京
 ４　３１３　　DFD　　三重
 ５　１２３４　CDC　　静岡
 ６　１２３　　JHJ　　奈良

 というようなデータの表があるとします
 オートフィルタを設定しＣ列を県で選択して活用しているのですが、
 Ｚ列くらいのとこにＣ列のデータのリストボックスをつくりオートフィルタ機能を使いたいのですが可能でしょうか？
 質問のしかたが不明確かわかりませんが宜しくお願いします。

 とりあえず疑問点だけ・・・。
 作りたいのはどちらでしょうか。

 (1)オートフィルタで抽出したものをリストボックスに表示したい。
 (2)リストボックスで選択した項目を、オートフィルタで抽出したい。

 ※どちらも過去ログにあるとは思いますけど。
 （川野鮎太郎）

早速の回答有難うございます。
（２）のほうです。
Ｃ列のフィルタボタンをオンした時
現れる三重、静岡、東京、奈良　をリストボックスへだしたいのですが
（はじめる一歩）

 質問が少し違ったようです。
 オートフィルタに出てくる項目（重複を除いたもの）をリストボックスに出したいってことですね。

 リストボックスとは、入力規則のことで良いのでしょうか。
 そうであれば、作業列を使う方法ですが、以下のようなことで可能です。
	 A	 B	 C	 D	 E
  1			県名		三重
  2	332	ADS	三重	1	静岡
  3	334	DSD	静岡	1	東京
  4	434	FDF	東京	1	奈良
  5	313	DFD	三重	2	
  6	1234	CDC	静岡	2	
  7	123	JHJ	奈良	1	
  8				0	
  9				0	
 10				0	
 11				0	
 12				0

 D2=COUNTIF($C$2:C2,C2)　として、下方にコピー					
 E1=IF(COUNTIF($D$2:$D$12,1)>=ROW(A1),INDEX($C$1:$C$12,SMALL(IF(($D$2:$D$12=1),ROW($C$2:$C$12),""),ROW(A1)),1),"")					
 として、Shift+Ctrlキー押しながら、Enterキーで確定して、配列数式に。

 入力規則を設けたいセルで、データ－入力規則、入力値の種類をリスト
 元の値に　=OFFSET($E$1,,,COUNTIF($D$2:$D$12,1))　を入れてOK

 範囲は適当に変えてください。

 参考までにどうぞ。
http://skyblue123.hp.infoseek.co.jp/Excel/AutoFilt2.xls

 もし、フォームのリストボックスであれば、挿入－名前－定義で参照範囲に
 =OFFSET($E$1,,,COUNTIF($D$2:$D$12,1))　といれて、リストなどと名前を付けてください。
 フォームのコントロールの書式設定で、コントロール－参照範囲に　リスト　と入れてください。

 ついでに、コントロールツールボックスのリストボックスなら、上記のように名前を定義して、
 ListFillRangeの欄に　リスト　と入れてください。
 （川野鮎太郎）

川野さん。有難うございます。
勉強不足で川野さんの説明の中身を即理解することが出来ません。少し自分で
考えてやってみます。また相談させてください。とりあえずお礼まで。
（はじめる一歩）

コメント返信：

[ 一覧(最新更新順) ]

[[20041116192459]] 『オートフィルタのデータをリストボックスに』（はじめる一歩） ページの最後に飛ぶ

[[20041116192459]]　『オートフィルタのデータをリストボックスに』（はじめる一歩）　ページの最後に飛ぶ