根據日期設置單元格值Excel VBA

Question

當宏在任何給定日期運行時，它應檢查當前日期並將其與一年中的不同季度進行比較，然后根據我們所在的季度更改某些單元格的值。

到目前為止，這是我要嘗試附加到當前宏末尾的內容：

Sub Dates()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim mgr, rsk As Range
    Dim d, Q1B, Q1E, Q2B, Q2E, Q3B, Q3E, Q4B, Q4E As Date

    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Mutual")
    Set mgr = ws.Range("B37")
    Set rsk = ws.Range("F37")

    d = Date
    Q1B = DateValue("01/01/2015")
    Q1E = DateValue("03/31/2015")
    Q2B = DateValue("04/01/2015")
    Q2E = DateValue("06/30/2015")
    Q3B = DateValue("07/01/2015")
    Q3E = DateValue("09/30/2015")
    Q4B = DateValue("10/01/2015")
    Q4E = DateValue("12/31/2015")

    If d <= Q1E Then
        mgr.Value = "Works 1"
        rsk.Value = "Works 2"
    End If


End Sub

我在正確的道路上嗎？ 我敢肯定，有一種更優雅的編寫方式，但這是我第一次編寫自己的VBA代碼。

Answer 1

無需宏，請嘗試以下公式

=IF(COUNTA(A2)=1,"Q"&INT((MONTH(A2)/3.25)+1)&" - "&YEAR(A2),"")

其中A2是您的包含日期的單元格