質問: マクロについて質問です フィルターを掛けて印刷するマクロを教えて頂きたいです A3~K100に表があります(3行目は見出しです) C2に表示されている文字でC列にフィルタを掛けて印刷します。 フィルタを掛けた際に、C列に一致するものがあれば印刷。無ければ印刷しない。 という感じでお願いします。 補足が必要であればコメントください よろしくお願い致します
回答: こーゆーのですか? Sub Sample() Range("A3:K100").AutoFilter Field:=3, Criteria1:=Range("C2").Value If ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then ActiveSheet.PrintOut Else MsgBox "フィルタ結果がありません。" End If End Sub