VBA 根据未来日期输入值

Question

不确定标题的措辞是否正确，请根据需要进行编辑。

我有当前可以工作的代码，可以做我想做的事。但是，它不能永久维护，我正在寻找一种方法来根据未来日期在工作表中更新字段或项目。我也尝试过嵌套函数，但更喜欢 VBA。我在想我需要一个“For/Next”类型的场景，但我不确定。

基本上，我需要根据当前更新日期是过去日期还是基于半年的未来日期来更新字段。因此，如果超过 2019 年 2 月 1 日，则该值为“this”。如果日期超过 2019 年 7 月 1 日，则值为“this”。这将持续 10 年。

工作表每月更新一次，我希望代码知道从这个日期开始，是时候更新这些其他字段或项目了。以下是我对部分代码的了解。如您所见，我只是将其复制下来。看起来很乱，我相信有一种更清洁的方法可以做到这一点。我的直觉告诉我一个 for/next 场景，但我没有能力在没有帮助的情况下做到这一点。

谢谢。

If Now() > #2/1/2019# Then
    Sheets("Mock up Content Page 1").Select
    ActiveSheet.Shapes.Range(Array("TextBox 33")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi1 2019 vs Last Year"
    ActiveSheet.Shapes.Range(Array("TextBox 54")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi1 2019 vs Last Year" & Chr(13) & ""
    ActiveSheet.Shapes.Range(Array("TextBox 77")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi1 2019 vs Last Year" & Chr(13) & ""
    End If

    If Now() > #7/1/2019# Then
    Sheets("Mock up Content Page 1").Select
    ActiveSheet.Shapes.Range(Array("TextBox 33")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi2 2019 vs Last Year"
    ActiveSheet.Shapes.Range(Array("TextBox 54")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi2 2019 vs Last Year" & Chr(13) & ""
    ActiveSheet.Shapes.Range(Array("TextBox 77")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi2 2019 vs Last Year" & Chr(13) & ""
    End If

    If Now() > #2/1/2020# Then
    Sheets("Analysis").Select
    ActiveSheet.Shapes.Range(Array("TextBox 33")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi1 2020 vs Last Year"
    ActiveSheet.Shapes.Range(Array("TextBox 54")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi1 2020 vs Last Year" & Chr(13) & ""
    ActiveSheet.Shapes.Range(Array("TextBox 77")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = _
        "Semi1 2020 vs Last Year" & Chr(13) & ""
    End If

Answer 1

这样的事情似乎可以解决问题：

Dim semiType as Integer
semiType = iif(Month(now())>6,2,1)

Dim msg as String
msg = "Semi" & semiType & " " Year(now()) &  " vs Last Year"

With Sheets("Mock up Content Page 1")
    .Shapes.Range(Array("TextBox 33")).ShapeRange(1).TextFrame2.TextRange.Characters.text = msg    
    .Shapes.Range(Array("TextBox 54")).ShapeRange(1).TextFrame2.TextRange.Characters.text = msg & Chr(13)
    .Shapes.Range(Array("TextBox 77")).ShapeRange(1).TextFrame2.TextRange.Characters.text = msg & Chr(13)
End With