Home / Questions / 16074
Accepted
SeWaNsX
Asked: 2020-07-07 13:51:15 +0800 CST 2020-07-07 13:51:15 +0800 CST

Function =TEXT(cell;"hh:mm") Excel Visual basic

  • 772

Dear, I need to make a macro emulating the EXCEL =TEXT() function in vb.

the idea is that by having cells with hours (7:55) the vb function transforms me to 07:55. Usually for this I use =TEXT(cell,"hh:mm"), this transforms it for me. I need to bring that function to visual basic but it doesn't work for me with the following code:

Sub cambiarFormatohhmm()
Dim celda As Range

    For Each celda In Selection
        celda.Value = Texto(celda,"hh:mm")
    Next

End Sub

Any ideas?

excel

2 Answers

  1. Best Answer

    Try changing the line forto look like this:

    Sub cambiarFormatohhmm()
Dim celda As Range

    For Each celda In Selection
        cell.NumberFormat = "hh:mm"
    Next

End Sub
    • 2 
  2. Sub cambiarFormatohhmm()
Dim celda As Range

    For Each celda In Selection
        celda.Value = Format(celda,"hh:mm")
    Next

End Sub
    • -1