Excel订单跟踪：带时区时间戳设置及Excel Online适配问题求助

问题核心 #

多人跨时区（美国多地）使用存储在Box的Excel文件跟踪订单，当前VBA生成的时间戳仅显示本地时间（无时区标识），导致PST用户提交的订单时间看起来符合CST截止时间，但实际已超时；同时Excel Online不支持现有VBA生成时间戳。

解决方案 #

1. 桌面版Excel：修改VBA添加时区标识 #

将原有VBA代码替换为以下版本，自动获取用户本地时区缩写并追加到时间戳后：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tz As Object
    Dim localTime As Date
    
    If Target.Column = Range("DOcol").Column Then
        localTime = Now()
        ' 获取系统时区信息
        Set tz = CreateObject("WbemScripting.SWbemLocator").ConnectServer.Get("Win32_TimeZone")
        
        ' 生成带时区缩写的时间戳（格式：mm/dd/yyyy hh:mm CST）
        Range("DateCol").Rows(Target.Row).Value = _
            Format(localTime, "mm/dd/yyyy hh:mm") & " " & tz.StandardName
    End If
End Sub

效果：不同时区用户提交的时间会自动带上对应时区标识（如CST、PST），方便直接和CST截止时间对比。

2. 桌面版Excel：统一转换为CST时间存储 #

如果所有订单需以CST为基准，可将用户本地时间自动转换为CST/CDT后存储，彻底消除时区混淆：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tz As Object
    Dim localTime As Date, cstTime As Date
    
    If Target.Column = Range("DOcol").Column Then
        localTime = Now()
        Set tz = CreateObject("WbemScripting.SWbemLocator").ConnectServer.Get("Win32_TimeZone")
        
        ' 转换为CST/CDT：先转UTC，再根据夏令时调整
        If tz.DaylightInEffect Then
            cstTime = DateAdd("h", 5, DateAdd("n", tz.Bias, localTime)) ' CDT（UTC-5）
        Else
            cstTime = DateAdd("h", 6, DateAdd("n", tz.Bias, localTime)) ' CST（UTC-6）
        End If
        
        ' 设置单元格值和显示格式
        Range("DateCol").Rows(Target.Row).Value = cstTime
        Range("DateCol").Rows(Target.Row).NumberFormat = "mm/dd/yyyy hh:mm ""CST/CDT"""
    End If
End Sub

效果：所有时间戳统一显示为CST/CDT，无需用户手动转换时区即可直接核对截止时间。

3. Excel Online兼容方案：使用公式生成带时区的时间戳 #

由于Excel Online不支持VBA，可使用Excel 365内置公式实现自动生成：
在时间戳列的第一个数据单元格输入以下公式（假设订单号列为A列，时间戳列为C列）：

=IF(NOT(ISBLANK([@订单号])), TEXT(NOW(), "mm/dd/yyyy hh:mm") & " " & 
    SWITCH(ZONE(HOME(), TRUE), 
        -6, "CST", 
        -7, "PST", 
        "UTC" & TEXT(ZONE(HOME(), TRUE), "+00")), 
    "")

效果：当订单号列录入内容时，自动生成带时区标识的时间戳，支持多人在线编辑。

内容的提问来源于stack exchange，提问作者jrussin