|
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
****************************************************
どなたかコードをご教授くださいませ。
|
|