VBA/Excel/Access/Word/Excel/Cell Number Format

Материал из VB Эксперт
Перейти к: навигация, поиск

Change the selected cell format

   <source lang="vb">

Sub FormatCell()

   Dim myVar As Range
   Set myVar = Selection
   With myVar
       .NumberFormat = "#,##0.00_);[Red](#,##0.00)"
       .Columns.AutoFit
   End With

End Sub

</source>