| |
こんにちわ。もう見てへんかな？
ＶＢＡだけで解決しようとするから難しいんですわ。
こういうやつは一般機能も活用した複合技を使えばええんです。
↓考えてみました。
１．Ａ列のデータは３行目以降に連続して入力する。
２．Ｃ２：Ｈ２の各セルにtokyo23〜saitamaの各文字列（ローマ字です）を入力して、
さらに文字の色を白にして見えなくする。
３．Ｃ２：Ｈ２の各セル内に収まるようにチェックボックスを６個配置する。
（チェックボックスの表示は都内〜埼玉（漢字です）にしておく）
４．各チェックボックスの書式設定画面（コントロールの書式設定）を開き、
リンクするセルに当該チェックボックスの真上のセルを設定する。
（Ｃ２にあるtokyo23のチェックボックスならＣ１を指定）
５．Ｂ３に
=OFFSET($B$1,0,MATCH(A3,$C$2:$H$2,FALSE))
という数式を入力して、下までコピーする。
６．標準モジュールに下記コードを書く。
Sub test()
Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)).AutoFilter Field:=1, _
Criteria1:="TRUE", _
VisibleDropDown:=False
End Sub
７．すべてのチェックボックスに上記マクロを登録する。
これで、チェックボックスをクリックすれば、チェックの入った項目のみ抽出されます。
わかりやすいように改行してるけど、実際は中身がたった１行のマクロが１個だけでええってことやね。
１行目やＢ列が目障りやったら、非表示にするか文字を白くしてみておくれやす。
試してみてな。
ほな。
|
|
ｂｙｋｉｎ
- 05/9/2(金) 12:44 -
