Excel VBA質問箱 IV

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

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


53246 / 76732 ←次へ | 前へ→

【28304】Re:チェックボックスで行の表示、非表示を切り替えたいです
回答  bykin  - 05/9/2(金) 12:44 -

引用なし
パスワード
   こんにちわ。もう見てへんかな?

VBAだけで解決しようとするから難しいんですわ。
こういうやつは一般機能も活用した複合技を使えばええんです。
↓考えてみました。

1.A列のデータは3行目以降に連続して入力する。

2.C2:H2の各セルにtokyo23〜saitamaの各文字列(ローマ字です)を入力して、
  さらに文字の色を白にして見えなくする。

3.C2:H2の各セル内に収まるようにチェックボックスを6個配置する。
  (チェックボックスの表示は都内〜埼玉(漢字です)にしておく)

4.各チェックボックスの書式設定画面(コントロールの書式設定)を開き、
  リンクするセルに当該チェックボックスの真上のセルを設定する。
  (C2にあるtokyo23のチェックボックスならC1を指定)

5.B3に
  =OFFSET($B$1,0,MATCH(A3,$C$2:$H$2,FALSE))
  という数式を入力して、下までコピーする。

6.標準モジュールに下記コードを書く。

Sub test()
  Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)).AutoFilter Field:=1, _
                                 Criteria1:="TRUE", _
                                 VisibleDropDown:=False
End Sub

7.すべてのチェックボックスに上記マクロを登録する。

これで、チェックボックスをクリックすれば、チェックの入った項目のみ抽出されます。
わかりやすいように改行してるけど、実際は中身がたった1行のマクロが1個だけでええってことやね。
1行目やB列が目障りやったら、非表示にするか文字を白くしてみておくれやす。

試してみてな。
ほな。
2 hits

【28258】チェックボックスで行の表示、非表示を切り替えたいです ドナルド 05/9/1(木) 15:15 質問
【28264】Re:チェックボックスで行の表示、非表示を... こたつねこ 05/9/1(木) 16:30 発言
【28304】Re:チェックボックスで行の表示、非表示を... bykin 05/9/2(金) 12:44 回答

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