Excel VBA質問箱 IV

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

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


18936 / 76738 ←次へ | 前へ→

【63240】Re:抽出(VBA)について
発言  こもと  - 09/10/19(月) 16:53 -

引用なし
パスワード
   ▼むむ さん:

こんなのでは?

Sub Mac()
With ActiveSheet
 .Rows.Hidden = False
 With .Range("A6").CurrentRegion.Offset(1).EntireRow.Columns("IV")
  .FormulaR1C1 = "=MONTH(RC17)=MONTH(TODAY())"
  .Value = .Value
  Set r = .Find(What:="TRUE", After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _
         SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
         MatchByte:=False, SearchFormat:=False)
  If Not r Is Nothing Then
   .ColumnDifferences(r).EntireRow.Hidden = True
  End If
  .ClearContents
 End With
End With
End Sub
0 hits

【63237】抽出(VBA)について むむ 09/10/19(月) 16:20 質問
【63240】Re:抽出(VBA)について こもと 09/10/19(月) 16:53 発言
【63242】Re:抽出(VBA)について kanabun 09/10/19(月) 18:29 発言

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