Dynamischer Tabellenname in Excel als DATUM

Question

Ich habe einen Code im Internet gefunden und es ausprobiert. Der Code funktioniert. aber meine Sorge ist, dass ich das Blatt als Date umbenennen möchte. oder erlauben Sie dem Code, das Format mm/dd/yyyy von der Zelle zu lesen.

hier ist die Probe des Codes:

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 

, wenn der Wert von A1 2016.06.01 ist, ich mag meine Blattnamen als Jun01,2016 oder zumindest die Namen haben, wie Datum.

Hinweis .. Ich habe auch versucht, anderen Vorschlag (n) von anderen Seiten, aber immer noch nicht funktioniert

Answer 1

Ich bin mir nicht sicher, warum dies ein Worksheet_SelectionChange Ereignis Makro sein muss oder warum Sie die Zielparameter neu schreiben aber vielleicht wird funktionieren.

Private Sub Worksheet_SelectionChange(ByVal Target as Range) 
    If Target.Address <> "$A$1" or Not IsDate(Range("A1")) Then Exit Sub 
    Me.Name = Format(Target.Value2, "mmmdd,yyyy") 
End Sub 

Select A1 (und nur A1) mit einem Datum (möglicherweise =today()) in A1 und den Namen des Arbeitsblatt angepasst werden (z Jul07,2016).

Answer 2

Möglicherweise müssen wir dies optimieren, wenn das Datum als Text gespeichert wird. Gib mir Bescheid.

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