VBA добавить число перед переменной, если соответствует определенным условиям

Question

Я пытаюсь обновить еженедельный отчет. Однако для календарных недель от 1 до 9 я буду sh присоединен к 0 спереди. Таким образом, он показывает «CW1-14» вместо «CW1-14», например, я пытаюсь сделать это с государственными деятелями - пока безуспешно.

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

Answer 1

Вы можете использовать Format() дважды.

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