Excel - Convertir sub a function

 
Vista:

Convertir sub a function

Publicado por adrian (1 intervención) el 03/08/2018 03:36:07
Saludos a todos,

Quiero cambiar un proceso sub por una function, la macro es:

1
2
3
4
5
6
Sub fecha_hora()
    If (ActiveCell.Offset(0, -4) > 0) Then
        ActiveCell.Select
        Selection.Formula = "=text(now(),""dd/mm/yyyy hh:mm"")"
    End If
End Sub

La idea es que al poner en la celda "=fecha_hora()" se muestre el dia y hora de ese preciso momento, algo asi como la funcion ahora() de excel, pero quiero que los valores no se cambien automaticamente luego de que son ingresados.

Valoro mucho su ayuda.

Saludos,

Adrian
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
Imágen de perfil de Antoni Masana
Val: 3.887
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Convertir sub a function

Publicado por Antoni Masana (1340 intervenciones) el 03/08/2018 07:40:43
A ver si te sirve esto:

1
2
3
4
5
6
7
Function Hora_Ahora()
    If ActiveCell.Activate = vbEmpty Then
       Hora_Ahora = Time
    Else
       Hora_Ahora = ActiveCell.Text
    End If
End Function

Saludos.
\\//_
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