формат ячеек VS. ВПР

[Exo]

Сообщение от SAS888

Ясно. Ну, тогда так:

Sub qq()
    Dim Cell As Range
    For Each Cell In Selection
        Cell.NumberFormat = "@": Cell.Value = CStr(Cell.Value)
    Next
End Sub

ДА ДА ДА ДА ДА !!!!!!!!!!!!!!!!!


спасибо огромное !!!

З.Ы. а можно еще пример макроса который бы не исправлял, а просто говорил о том, что данный диапазон (который выделит юзер) содержит форматы отличные от того который делает Ваш макрос (я просто не уверен, можно ли его наз. текстовым, т.к. если ячейки присвоить текстовой формат то:
а) зеленая хрень не появляется
б) ВПР не работает

наверно это "сохраненные числа в текстовом формате"...ну или как-то так...

[SAS888]

Дело в том, что если ячейка исходно имеет текстовый формат, то все, что в нее введено будет текстом. А если мы изменим формат ячейки, в которой уже содержится значение, то это совсем другое дело. Поэтому, предложенный выше макрос меняет формат, затем значение ячейки преобразовывает в текстовое, затем заносит это значение в ячейку.
Другими словами, есть формат ячеек, а есть формат данных, которые введены в эти ячейки. Это разные вещи.