小编USE*_*423的帖子

在VBA中,我想将日期03/11/2017(DD/MM/YYYY)转换为该日期的周数.

到目前为止,我有以下代码:

   'geting the date out of the string
    HeadlineTemp = Mid(VRHeadline, InStr(VRHeadline, "[") + 1, 10)
   'switch "." to "/"
    HeadlineTemp = Replace(HeadlineTemp, ".", "/")
   'convert to a date
    FristVRFirstKW = CDate(HeadlineTemp)

现在,我需要一个函数将该日期转换为年份的周数.第一周是星期一.

我正在寻找一个功能,在评论框中打印,谁是从该单元格更改数据的用户.我现在拥有的是:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("A" & Target.Row).Value = "" Then GoTo EndeSub
   If Not Intersect(Range("C:JA"), Target) Is Nothing Then
     On Error GoTo EndeSub
     Application.EnableEvents = False
     Range("B" & Target.Row) = Now
   End If
EndeSub:
   Application.EnableEvents = True
 End Sub

当有人在单元格中键入内容时,它会自动"触发".并且只打印更改数据的最后一个用户名,但我想成为某种日志,以打印所有用户.你认为有可能吗？