如果匹配某些条件，VBA 在变量前添加一个数字答案

【问题标题】：VBA add a number before a variable if matches certain conditions如果匹配某些条件，VBA 在变量前添加一个数字
【发布时间】：2020-01-15 12:20:33
【问题描述】：

我正在尝试更新每周报告。但是对于 1 到 9 之间的日历周，我希望在前面附加 0。所以它显示“CW1-14”而不是“CW1-14”，例如我试图用 if statesmen 来做 - 到目前为止没有成功。

Dim week1 As String
week1 = Format(Date - 7, "ww")
'If week1 <= 9 Then
'week1 = Format(0, Date - 7, "ww")
'ElseIf week1 > 9 Then
'week1 = Format(Date - 7, "ww")
 'End If

 Dim long1 As String
long1 = Format(Date - 10, "yyyy")
Dim week2 As String
week2 = week1 - 4
Dim nameweek As String
nameweek = "CW" & week2 & " - " & "CW" & week1 & " " & long1

【问题讨论】：

format(Format(Date - 7, "ww"),"00")

标签： vba date

【解决方案1】：

您可以使用两次Format()。

Dim week1 As String
week1 = Format(Format(Date - 7, "ww"), "00")
' That would produce week1 = "01" or "09"

【讨论】：