VBA - код, который возвращает меня в исходное состояние (возможно, переключение типа поля с «текст» на «число»)

Question

У меня есть команда vba, которая добавляет 0 (где мне это нужно) к определенному правилу, которое соответствует моей цели. Команда превращает ячейки в «текстовый» тип. Меня интересует команда исправления, которая отменяет мой заказ (в некоторых случаях я должен вернуться). Вот мой код:

Sub Add_Zeros()

    Selection.NumberFormat = "@"

    For Each CL In Selection.Cells
        Select Case Len(CL)
            Case 8: CL.Value = "0" & CL.Value
            Case 9: CL.Value = IIf(Left(CL.Value, 1) = 5, "0", "") & CL.Value
            Case "" 'do nothing
            Case Else
       End Select
    Next

End Sub

У вас есть код, который восстанавливает предыдущее действие? Возможно, возвращение ячеек к их первоначальному типу в «число»

Заранее спасибо,

Answer 1

Если все, что вы хотите сделать, это удалить начальные нули, вы можете сделать что-то вроде этого:

Sub remove_Zeros()

    With Selection
        .NumberFormat = "General"
        .Value = .Value
    End With

End Sub