Tengo una celda que contiene una fecha ex. "11/05/09" Actualmente se muestra como "11-MAYO-09". ¿Cómo copio y pego o uso VBA para obtener la cadena "11-MAY-09" en la celda al lado (NO "11/05/09")?¿Cómo puedo obtener el valor mostrado en lugar del valor real en Excel?
No puedo entenderlo aparte de reconstruir las piezas de fecha por sí mismo.
Usar la función Format.
Format("5/11/2009", "DD-MMM-YY")
Esto devolverá:
11-May-09
Si el caso importa:
UCase(Format("5/11/2009", "DD-MMM-YY"))
rendimientos:
11-MAY-09
Creo que puede usar la función TEXTO para formatear un valor de fecha a su gusto.
La cadena de formato de "dd-mmm-aa" formateará "05/11/09" como "11-MAYO-09".
Prueba esto:
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
Se pondrá texto de una celda seleccionada (indica) en la celda activa.
Debería poder hacer clic derecho en la celda y establecer el formato como General. Esto le permitirá colocar algo sin que se le formatee automáticamente a otra cosa.
Para evitar copiar y pegar, también querrá comenzar poniendo la fecha que desea y sin formatear y luego copiar.
En VBA puede hacer esto:
Range("B2") = Range("A2")
Range("B2").NumberFormat = "dd-mmm-yyyy hh:mm:ss" 'Date as 10-Jun-2005
Si necesita bucle de entonces:
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
El uso del modificador .text de la celda en lugar del modificador .value copiará el formato del texto en lugar de la fecha sin formato.
Chuck
baja tecnología, pero de manera muy fácil - pegarlo en Word, a continuación, copiar de nuevo en Excel! Sin embargo, puede tomar un tiempo con un archivo grande ... ¡pero funciona muy bien para usos únicos!
"La misma respuesta, pero con una función diferente (que ha trabajado para mí):
Public Function DisplayText(ByVal pRange As Range) As String
DisplayText = pRange.Text
End Function
sólo tiene que utilizar =DisplayText(A1).Si cambia el formato de la celda esta función devolverá el texto que se muestra"
How can I get the displayed value of a cell in MS Excel (for text that was converted to dates)?