excel - Excel 中的动态工作表名称为 DATE

Question

我在互联网上找到了一个代码并尝试了它。该代码有效。但我担心的是我希望将工作表重命名为日期。或者至少允许代码从单元格中读取格式 mm/dd/yyyy。

这是代码示例:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Target = Range("A1")
    If Target = "" Then Exit Sub
    Application.ActiveSheet.Name = VBA.Left(Target, 31)
End Sub

如果 A1 的值为 06/01/2016，我希望我的工作表名称为 Jun01,2016 或至少名称为日期。

注意..我还尝试了其他网站的其他建议，但仍然无法正常工作

Answer 1

如果日期存储为文本，我们可能需要对此进行调整。让我知道。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsDate(Range("A1")) Then

        ActiveSheet.Name = Format(Range("A1"), "MM-DD-YYYY hh-mm-ss")

    End If
End Sub