Свойство Value дапазона, содержащего одну ячейку, всегда возвращает неформатированное значение (обычно числовое), содержащееся в этой ячейке. Если Вы хотите получить форматироование ячейки вместе с её значением, используйте свойство Text вместо Value.

Пример:

Sub Contents()
     MsgBox "The Active Cell is  " _
     & ActiveCell.Value & vbCrLf _
     & "Formated as  " & ActiveCell.Text
End Sub 

Для наглядной демонстрации различия этих свойств, занесите в текущую ячейку какое-нибудь число в формате денежной единицы.

© design & content by Acidigital, 2001