Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
54097 / 76732 ←次へ　｜　前へ→
【27437】Re:列に入力されている文字列をみて、その文字列が入っている行を非表示にするには？
回答  りん E-MAIL  - 05/8/9(火) 11:55 -
引用なし
パスワード
   KK さん、こんにちわ。

>これを"男性"という文字列がある列を非表示にするという方法に変更したいのですが
>そのコードをご教授いただけますでしょうか？
>ちなみに、"男性"と記入する欄を1行目に追加しました。

Sub test()
　 '１行目で男性を検索し、見つけたら列非表示
　 Dim r1 As Range, r1Pos As String
　 With ActiveSheet.Rows(1)
　　　 Set r1 = .Find(what:="男性", LookAt:=xlWhole)
　　　 If Not r1 Is Nothing Then
　　　　　 r1Pos = r1.Address
　　　　　 Do
　　　　　　　 '非表示
　　　　　　　 r1.EntireColumn.Hidden = True
　　　　　　　 '次
　　　　　　　 Set r1 = .FindNext(r1)
　　　　　 Loop While Not r1 Is Nothing And r1.Address <> r1Pos
　　　 End If
　 End With
End Sub

こんな感じです。
Findメソッドの使用例を参考に作りました。
0 hits
▼ 【27110】列に入力されている文字列をみて、その文字列が入っている行を非表示にする... KK 05/7/29(金) 9:31 質問
【27111】Re:列に入力されている文字列をみて、その... Jaka 05/7/29(金) 9:56 発言
【27116】Re:列に入力されている文字列をみて、その... KK 05/7/29(金) 10:35 お礼
【27121】Re:列に入力されている文字列をみて、その... Jaka 05/7/29(金) 11:06 回答
【27113】Re:列に入力されている文字列をみて、その... ちくたく 05/7/29(金) 9:57 回答
【27118】Re:列に入力されている文字列をみて、その... KK 05/7/29(金) 10:43 質問
【27119】Re:列に入力されている文字列をみて、その... ちくたく 05/7/29(金) 10:58 回答
【27132】Re:列に入力されている文字列をみて、その... KK 05/7/29(金) 14:27 質問
【27133】Rows("A:IV")でも動作 ちくたく 05/7/29(金) 14:39 発言
【27136】Re:Rows("A:IV")でも動作 KK 05/7/29(金) 16:11 お礼
【27120】Re:列に入力されている文字列をみて、その... ちくたく 05/7/29(金) 11:00 発言
【27125】Re:列に入力されている文字列をみて、その... KK 05/7/29(金) 13:15 質問
【27126】Re:列に入力されている文字列をみて、その... ちくたく 05/7/29(金) 13:22 回答
【27127】Re:列に入力されている文字列をみて、その... KK 05/7/29(金) 13:42 お礼
【27247】Re:列に入力されている文字列をみて、その... KK 05/8/3(水) 14:24 質問
【27277】ありがとうございました。 KK 05/8/4(木) 9:36 お礼
【27432】Re:列に入力されている文字列をみて、その... KK 05/8/9(火) 11:18 質問
【27437】Re:列に入力されている文字列をみて、その... りん 05/8/9(火) 11:55 回答≪
【27438】Re:列に入力されている文字列をみて、その... りん 05/8/9(火) 12:29 発言
【27439】Re:列に入力されている文字列をみて、その... KK 05/8/9(火) 13:11 質問
【27444】Re:列に入力されている文字列をみて、その... りん 05/8/9(火) 15:30 回答
【27450】Re:列に入力されている文字列をみて、その... KK 05/8/9(火) 18:38 質問
【27454】Re:列に入力されている文字列をみて、その... りん 05/8/9(火) 19:04 回答
【27456】Re:列に入力されている文字列をみて、その... KK 05/8/9(火) 19:43 質問
【27458】Re:列に入力されている文字列をみて、その... りん 05/8/9(火) 19:55 回答
【27461】ありがとうございました。 KK 05/8/9(火) 20:32 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
54097 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free