Excel VBA質問箱 IV

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

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


53290 / 76732 ←次へ | 前へ→

【28258】チェックボックスで行の表示、非表示を切り替えたいです
質問  ドナルド  - 05/9/1(木) 15:15 -

引用なし
パスワード
     A
1 □都内 □東京 □川崎 □横浜 □千葉 □埼玉
2
3 tokyo23
4 tokyo23
5 tokyo23
6 tokyo23
7 tokyo
8 tokyo
9 kawasaki
10 kawasaki
11 kawasaki
12 kawasaki
13 kawasaki
14 yokohama
15 yokohama
16 yokohama
17 yokohama
18 chiba
19 chiba
20 chiba
21 saitama
22 saitama

設定
1.[表示] - [ツールバー]で[フォーム]にチェックを入れます。
2.チェックボックスを6つ配置します。
3.適当に配置します。
4.A列に「tokyo23」「tokyo」「kawasaki」「yokohama」「chiba」「saitama」と入力しています。

以上の設定をしているとき
1.「都内」チェックボックスをONにしたとき、3行目〜6行目のみ表示
2.「都内」と「川崎」チェックボックスをONにしたとき、3行目〜6行目と9行目〜13行目のみを表示
3. チェックボックスをOFFにしたときは、非表示

といったように、
チェックの入った地域に対応した行だけを表示させたいのです。

私は、以下のようなコードを各地域ごとに作成し、各チェックボックスに割り当てたのですが、うまくいきませんでした。
****************************************************
Sub open_close_tokyo23()

  Dim myGen As String
  Dim myRow As Integer
  Dim rowEnd As Integer
  Dim targetGen As String
 
  rowEnd = CInt(ActiveSheet.Range("A65536").End(xlUp).Row)
  targetGen = "tokyo23"

  Rows("A:IV").Hidden = False
  Columns("1:65536").Hidden = False
 
  For myRow = 1 To rowEnd
    myGen = Range("A" & myRow).Value
    If myGen = targetGen Then
      Rows(myRow).Hidden = True
    End If
  Next myRow

End Sub
****************************************************

どなたかコードをご教授くださいませ。

1 hits

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

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