Excelのマクロ教えて下さい。 表の最終行を取得して、そこまでを印刷範囲として 印刷するマクロを調べながら作ったのですが、 その前の段階の条件として

Excel | Visual Basic65閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

ThanksImg質問者からのお礼コメント

色々迷走しましたが、この方の回答をヒントに出来ました! ありがとうございました。

お礼日時:1/26 14:51

その他の回答(1件)

0

あなたが書いたコードを、提示してください。そうでないと、正確なアドバイスは無理です。 方針としては、↓のようなコードにすることですね。 If Not IsEmpty(Range("EY7").Value) Then 'あなたが書いたコード End If

下記に記載させて頂きます。 教えた頂いたコードを加えてみたのですが、 上から8行分は印刷されてしまいました。。。 途中の私の書き方が影響していると思うのですが、 マクロ素人で応用がきかず、どう修正すれば良いのでしょうか。 Sub 印刷() Worksheets(\u0022印刷用\u0022).Activate r = WorksheetFunction.CountIf(Columns(\u0022G\u0022), \u0022\u003e*\u0022) + 8 ActiveSheet.PageSetup.PrintArea = \u0022$A$1:$BE\u0022 \u0026 r ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub