Ich habe eine Zelle mit einem Datum ex. "05/11/09" Es wird derzeit als "11-MAI-09" angezeigt. Wie kopiere ich oder verwende VBA, um die Zeichenfolge "11-MAI-09" in die Zelle daneben zu bekommen (NICHT "05/11/09")?Wie kann ich den angezeigten Wert anstelle des tatsächlichen Werts in Excel abrufen?
Ich kann es nicht anders als das Ausstechen der Datumsstücke selbst herausfinden.
Verwenden Sie die Format-Funktion.
Format("5/11/2009", "DD-MMM-YY")
Dies wird zurück:
11-May-09
Wenn Fall zählt:
UCase(Format("5/11/2009", "DD-MMM-YY"))
kehrt:
11-MAY-09
Ich glaube, dass Sie die TEXT-Funktion verwenden können, um einen Datumswert nach Ihren Wünschen zu formatieren.
Die Formatzeichenkette "dd-mmm-yy" würde "05/11/09" als "11-MAI-09" formatieren.
Versuchen Sie folgendes:
Sub FormattedText()
Dim r As Range
On Error Resume Next
Set r = Application.InputBox(prompt:="Select cell", Type:=8)
If r.Count <> 1 Or r Is Nothing Then
Exit Sub
End If
On Error GoTo 0
ActiveCell = "'" & r.Text
End Sub
Es Text einer ausgewählten Zelle (Aufforderung) in der aktiven Zelle setzen.
Sie können mit der rechten Maustaste auf die Zelle klicken und das Format als Allgemein festlegen. Dadurch können Sie etwas einfügen, ohne dass es automatisch auf etwas anderes formatiert wird.
Um sich vor dem Kopieren und Einfügen zu schützen, möchten Sie auch zunächst das gewünschte Datum eingeben und nicht formatieren und dann kopieren.
In VBA können Sie dies tun:
Range("B2") = Range("A2")
Range("B2").NumberFormat = "dd-mmm-yyyy hh:mm:ss" 'Date as 10-Jun-2005
Wenn Sie Schleife es dann:
Range("B" & i) = Range("A"& i)
Range("B" & i).NumberFormat = "dd-mmm-yyyy hh:mm:ss" 'Date as 10-Jun-2005
Range("B1").Value = Range("A1").Text
Mit dem Modifikator .text statt .value der Zelle wird die Textformatierung anstelle des Rohdatums kopiert.
Chuck
Low-Tech, aber sehr einfache Art und Weise - es in Word einfügen, dann in Excel kopieren zurück! Kann aber eine Weile mit einer großen Datei dauern ... aber funktioniert hervorragend für einmalige Anwendungen!
„Die gleiche Antwort, aber mit einer anderen Funktion (die für mich gearbeitet hat):
Public Function DisplayText(ByVal pRange As Range) As String
DisplayText = pRange.Text
End Function
Nur =DisplayText(A1) verwenden.Wenn Sie das Zellenformat ändern gibt diese Funktion den angezeigten Text“
How can I get the displayed value of a cell in MS Excel (for text that was converted to dates)?