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

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

  • 772

亲爱的，我需要在 vb 中制作一个模拟 EXCEL =TEXT() 函数的宏。

这个想法是通过将单元格设置为几个小时（7:55），vb 函数将我转换为 07:55。通常为此我使用 =TEXT(cell,"hh:mm")，这会为我转换它。我需要将该功能带到 Visual Basic，但它不适用于以下代码：

Sub cambiarFormatohhmm()
Dim celda As Range

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

End Sub

有任何想法吗？

excel

2 Answers

  1. Best Answer

    尝试将行更改for为如下所示：

    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