1 2 3 4 5 6 7 8 9 10 11 12 13 14 | iRangeText = ActiveCell . Text iRangeText = Cells( 1 ).Text iRangeText = Range("A1").Text ' и т.д. Если существует вероятность, что ширина столбца может повлиять на корректность отображения данных, то в этом случае нужно : code: #vba With Range("A1") If Not IsError(.Value) Then MsgBox Application . Text(.Value, .NumberFormat) Else MsgBox "Ячейка содержит значение ошибки" End If End With В некоторых случаях результаты могут различаться. |