Visual Basic - nombre de mes

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

nombre de mes

Publicado por gonza (2 intervenciones) el 27/06/2018 19:32:14
hola

existe alguna macro que haga los sig:

si selecciono un rango de celdas en excel que contenga los numero del 1 al 12; se puede hacer con una macro que en cada una de las celdas me remplace el numero por el nombre del mes?. Donde este el 1 me lo cambie por "Ene", 2 por "Feb"......12 por "Dic" .


gracias!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 12
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

nombre de mes

Publicado por Yamil Bracho (226 intervenciones) el 27/06/2018 20:13:39
No existe pero la puedes hacer facil con VBA

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Sub NumeroMesANombre()
    Dim cell As Object
    Dim meses(1 To 12) As String
 
    meses(1) = "Ene": meses(2) = "Feb": meses(3) = "Mar": meses(4) = "Abr"
    meses(5) = "May": meses(6) = "Jun": meses(7) = "Jul": meses(8) = "Ago"
    meses(9) = "Sep": meses(10) = "Oct": meses(11) = "Nov": meses(12) = "Dic"
 
    For Each cell In Selection
      If cell >= 1 Or cell <= 12 Then
        cell = meses(cell)
      End If
    Next cell
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

nombre de mes

Publicado por gonza (2 intervenciones) el 27/06/2018 22:59:03
Excelente!!!!
ya hice pruebas y si funciona.....muchas gracias!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad