Excel VBA質問箱 IV

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

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


54096 / 76738 ←次へ | 前へ→

【27444】Re:列に入力されている文字列をみて、その文字列が入っている行を非表示にするには?
回答  りん E-MAIL  - 05/8/9(火) 15:30 -

引用なし
パスワード
   KK さん、こんにちわ。

>組み合わせると、以下のようになったのですが、修正すべき箇所、改善すべき箇所がございましたら、
>アドバイスお願いします。

MergeAreaを使っているところをみると、結合セルがあるみたいですね。
どんな風に結合しているかわからないので、ちょっと検索方法を変えました。
同じモノをさがしているようなので、統合してあります。

Sub men()
  Dim targetGen As String
  Dim fCell As Range, ICell As Range
  Dim fstAdr As String
  '女性か男性かを指定
  targetGen = "男性" 'menなのに女性?
  '
  If targetGen <> "" Then '念のため
   With ActiveSheet
     .Rows.Hidden = False '全体表示
     .Columns.Hidden = False'全体表示
     '使用範囲が対象です
     With .UsedRange
      Set fCell = .Find(what:=targetGen, LookAt:=xlWhole)
      If Not fCell Is Nothing Then
        fstAdr = fCell.Address
        Do
         Set ICell = Application.Intersect(fCell, .Parent.Columns(3))
         If Not ICell Is Nothing Then
           'C列がらみだったら行非表示
           fCell.MergeArea.EntireRow.Hidden = True
         Else
           Set ICell = Application.Intersect(fCell, .Parent.Rows(1))
           If Not ICell Is Nothing Then
            '1行目がらみだったら列非表示
            fCell.MergeArea.EntireColumn.Hidden = True
           End If
         End If
         '次検索
         Set fCell = .FindNext(fCell)
        Loop While Not fCell Is Nothing And fCell.Address <> fstAdr
      End If
     End With
   End With
  End If
End Sub

Parent(親オブジェクト参照)をつけたのは、UsedRange.Columns(3)がかならずしもC列になるとは限らないからです。
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 お礼

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