| |
こんにちは。
上手じゃないですけど。
上が、女性なら非表示にするコード。男性も同じやり方です。
下が全てを表示するコードです。ループにしなきゃいけなくないかもしれませんが。
ループをA列で数えてるので、
ナンバリングは確実にやられてないとですが。
Sub myTest()
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 = "女性"
For myRow = 1 To rowEnd
myGen = Range("C" & myRow).Value
If myGen = targetGen Then
Rows(myRow).Hidden = True
End If
Next myRow
End Sub
Sub AllHiddenFalse()
Dim myRow As Integer
Dim rowEnd As Integer
rowEnd = CInt(ActiveSheet.Range("A65536").End(xlUp).Row)
For myRow = 1 To rowEnd
Rows(myRow).Hidden = False
Next myRow
End Sub
▼KK さん：
> A B C D E F G H I
> 1 No. 名前 性別 男結果1 男結果2 男結果3 女結果1 女結果2 女結果3
> 2 1 ○○一郎 男
> 3 2 ○○二郎 男
> 4 3 ○○三郎 男
> 5 4 ○○花子 女
> 6 5 ○○花代 女
> 7 6 ○○四郎 男
> 8 7 ○○光
> 9 8 ○○五郎 男
>10 9 ○○花江 女
>
>[ALL] [男] [女]
>
>以上のようなアンケート調査のリストがあり、
>下には[共通][男][女]のボタンが配置されています。
>
>性別が“不明”な場合は、空欄にしてあります。
>
>＜操作＞
>[男]ボタンを押したとき
> A B C D E F
> 1 No. 名前 性別 男結果1 男結果2 男結果3
> 2 1 ○○一郎 男
> 3 2 ○○二郎 男
> 4 3 ○○三郎 男
> 7 6 ○○四郎 男
> 8 7 ○○光
> 9 8 ○○五郎 男
>
>
>[女]ボタンを押したとき
> A B C G H I
> 1 No. 名前 性別 女結果1 女結果2 女結果3
> 5 4 ○○花子 女
> 6 5 ○○花代 女
> 8 7 ○○光
>10 9 ○○花江 女
>
>
>[ALL]ボタンを押したとき
>すべて表示
>
>※性別=""のときは、常に表示されるようにしたいです。
>
>以上を満たすVBAをご教授いただけませんでしょうか。
|
|
ちくたく
- 05/7/29(金) 9:57 -
