以自定义格式显示一年中的周数

Question

我想知道是否有任何自定义日期格式（Excel 或 VBA）在日期中显示（一年的）周数。

这里是为了澄清我的意思：假设

A1 = "02/03/2020  13:19:57" 

我在 A1 上有这个自定义格式：

[$-en-US]ddd, mmm dd, hh:mm

结果是：

Mon, Mar 02, 13:19 

所以我想在最后有周数：

Mon, Mar 02, 13:19, 10

顺便说一句，需要“A1”保留为日期

感谢任何帮助。

感谢@FaneDuru 解决

WeekNum = WorksheetFunction.WeekNum(ActiveCell, vbMonday)
With ActiveCell
    .NumberFormat = "[$-en-US]ddd, mmm dd, hh:mm" & """, W" & WeekNum & """"
    Debug.Print "Week num: " & WorksheetFunction.WeekNum(.Value)
    Debug.Print Year(.Value)
End With

Answer 1

请尝试以下代码。它将保持数据格式，但将建立周数。可以从日期中提取...

Sub testNumberFormatSpec()
  With ActiveCell
    .Formula = "=Now()"
    .NumberFormat = "ddd, mmm dd, hh:mm"" Week " & _
       WorksheetFunction.WeekNum(ActiveCell.value, vbMonday) & """"
     Debug.Print "Week num: " & WorksheetFunction.WeekNum(.value)
     Debug.Print Year(.value)
  End With
End Sub

我试图建议的是，这种格式不能仅仅填写其他单元格。它必须使用上面的代码构建。周数作为字符串添加到日期格式的末尾。它可以从现有的日期值中提取，但不能像格式一样应用于另一个范围。其实可以在Worksheet_Change事件中引入代码，以适应每一个变化的单元格的格式……当然是在之前定义的范围内。