Макрос на форматирование данных на листе

[Kyxac]

Есть файл с кучей расчетов и прочих данных.

Есть простенький макрос на форматирование листа

Sub Trebu10()

ActiveSheet.Cells.Font.Name = "Trebuchet MS"

ActiveSheet.Cells.Font.Size = 10

End Sub

Теперь надо, чтобы он еще и всем числам кроме дат на листе задавал формат "# ###; (# ###); -"

Желательно как можно быстрее, т.к. макрос потом будет действовать на все листы, коих фигова туча...

Вроде это можно как-то сделать через xlCellType или xlFormatConditions, но к сожалению знаний синтаксиса у меня не хватает...

Помогите, пожалуйста

[VictorM]

чтобы он еще и всем числам кроме дат на листе задавал формат

И как же вы это себе представляете?
Как дать понять Excel, что это именно то число, которое Вы хотите видеть в определенном формате?
Если числа расположены в конкретном месте таблицы, проблем конечно нет.
Кстати, дата для Excel тоже число, только чтобы нам было понятнее и удобнее отображается в формате даты.

[Kyxac]

Ну есть на листах есть данные, которым заданы определенные форматы. Соответственно мне надо чтобы определенные форматы (даты) остались неизменны, а остальные приобрели нужный формат числа.

Пробовал сделать макрос, который бы заменял только формат дат, чтобы потом его как-нибудь переделать. Но нефига не работает

Sub zamena()
With Application.FindFormat.NumberFormat = "d/m/yyyy"
End With

With Application.ReplaceFormat.NumberFormat = "# ###; (# ###);-"
End With

ActiveSheet.Cells.Replace What:="", Replacement:="", _
SearchFormat:=True, ReplaceFormat:=True

End Sub