Выберите вариант для форматирования чисел

Question

Возникла проблема с выполнением следующего кода, чтобы применить соответствующее форматирование чисел для выбранного диапазона ячеек. Ошибка несоответствия типов продолжает возникать в первом операторе case. Я уверен, что это простая ошибка - некоторые советы будут оценены.

Dim cell As Range
For Each cell In Selection
Select Case cell.NumberFormat

Case "$#,##0.0_);($#,##0.0);"" - -""_);@_)":

cell.NumberFormat = "#,##0.0_);(#,##0.0);"" - -""_);@_)"

Answer 1

Вот как заставить его работать правильно:

Sub TestMe()

    Dim myCell As Range
    For Each myCell In Worksheets(1).Range("A1:A3")
        'Debug.Print myCell.NumberFormat
        Select Case myCell.NumberFormat
            Case Is = "#,##0.00_);(#,##0.00)":
                Debug.Print "some number"
            Case Else
                Debug.Print myCell.NumberFormat
        End Select
    Next

End Sub

Сложная деталь идет именно с правильным форматированием чисел. Для этого сделайте формат в ячейке Excel, выделите ячейку и напишите в ближайшее окно ?Selection.NumberFormat. Затем скопируйте его и поместите между ":