匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 7 年前

EXCEL 日期 VBA

我有二個excel檔案

其右頁尾的列印設定均如下:

With ActiveSheet.PageSetup

.RightFooter = "&12" & "更新日期 : " & "&D"

End With

ActiveSheet.PrintPreview

ActiveSheet.PrintOut

目前想在左頁尾加設 "下次更新日期:"

但二個檔案的下次更新日條件不同,分別是

1、此次更新日期之30天後 (若更新日1/1,下次更新日1/31)

2、下個月之10日。(更新日不論1/1或1/31,下次更新日均為2/10)

請問指令該如何寫?

已更新項目:

To 准提部林先生

問題已獲解決

請改至答題區,以贈點數

感謝您

2 個解答

評分
  • 7 年前
    最佳解答

    1.此次更新日期之30天後

    Sub Print01()

    With ActiveSheet.PageSetup

      .RightFooter = "&12" & "更新日期 : " & "&D"

      .LeftFooter = "&12" & "下次更新日期 : " & Date + 30

    End With

    End Sub

    2012-10-13 13:23:53 補充:

    2.下個月之10日

    Sub Print02()

    With ActiveSheet.PageSetup

      .RightFooter = "&12" & "更新日期 : " & "&D"

      eDay = DateSerial(Year(Date), Month(Date) + 1, 10)

      .LeftFooter = "&12" & "下次更新日期 : " & eDay

    End With

    End Sub

    2012-10-13 22:39:33 補充:

    EXCEL VBA.依〔列印當日〕動態更改指定〔日期〕為〔頁尾〕文字

                             <.准提部林.>

    ---------------------------------

    ■程式碼1:此次更新日期之30天後

     Sub Print01()

     With ActiveSheet.PageSetup

       .RightFooter = "&12" & "更新日期 : " & "&D"

       .LeftFooter = "&12" & "下次更新日期 : " & Date + 30

     End With

     ActiveSheet.PrintPreview

     ActiveSheet.PrintOut

     End Sub

     

    ■程式碼2:下個月之10日

     Sub Print02()

     With ActiveSheet.PageSetup

       .RightFooter = "&12" & "更新日期 : " & "&D"

       eDay = DateSerial(Year(Date), Month(Date) + 1, 10)

       .LeftFooter = "&12" & "下次更新日期 : " & eDay

     End With

     ActiveSheet.PrintPreview

     ActiveSheet.PrintOut

     End Sub

     

    ■說明:

     若是要〔直接列印〕,

     可將 ActiveSheet.PrintPreview 刪去。

    ---------------------------------

  • 5 年前

    ●九州 娛樂 網站 http://ts777.cc

    ●●●運彩遊戲、真人遊戲、電子遊戲、對戰遊戲、對戰遊戲●●●

    ●新舊會員儲值就送500點

    ● 真人百家樂彩金等你拿

    ●線上影片直播、正妹圖、討論區免費註冊

    歡迎免費體驗交流試玩!

    ●九州 娛樂 網站 http://ts777.cc

還有問題?馬上發問,尋求解答。