Excel VBA質問箱 IV

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

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


54101 / 76738 ←次へ | 前へ→

【27439】Re:列に入力されている文字列をみて、その文字列が入っている行を非表示にするには?
質問  KK  - 05/8/9(火) 13:11 -

引用なし
パスワード
   りんさん、早速の回答ありがとうございます。

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

  Dim myGen As String
  Dim myRow As Integer
  Dim rowEnd As Integer
  Dim targetGen As String

  Dim fCell As Range
  Dim fstAdr As String
  
  rowEnd = CInt(ActiveSheet.Range("A65536").End(xlUp).Row)
  '女性か男性かを指定
  targetGen = "女性"

  Rows("A:IV").Hidden = False
  Columns("1:65536").Hidden = False
 
  For myRow = 1 To rowEnd
    myGen = Range("C" & myRow).Value
    If myGen = targetGen Then
      Rows(myRow).Hidden = True
    End If
  Next myRow
  
  Set fCell = Rows(1).Find(what:="女性")
  If Not fCell Is Nothing Then
    fstAdr = fCell.Address
  Do
    fCell.MergeArea.EntireColumn.Hidden = True
    Set fCell = Rows(1).Find(after:=fCell)
  Loop Until fCell.Address = fstAdr
  End If

End Sub
=========================================================

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 お礼

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