Дано: выгрузка из 1С в Excel адресов контрагентов с указанием номеров домов в каждой ячейке столбца. Выгружает по умолчанию, почему-то используя представления. Т.е. в выгруженном файле мы видим адреса 1, 1а, 1б, 1Б и т.п., а на самом деле это все форматы 1 (формат стоит "все форматы")... Странно. Но ладно. Далее. По требованию заказчика нам необходимо, чтобы столбец с номерами домов был в текстовом формате. И, конечно, когда мы просто меняем формат всего столбца ячеек на текстовый, все ячейки становятся "1". Подскажите, пожалуйста, как изменить формат столбца таким образом, чтобы он и стал в результате текстовым, как необходимо по заданию, и числа остались именно такими, какими мы их видим (с литерами "а", "б" и т.д.). Заранее спасибо. [moder]Покажите
Дано: выгрузка из 1С в Excel адресов контрагентов с указанием номеров домов в каждой ячейке столбца. Выгружает по умолчанию, почему-то используя представления. Т.е. в выгруженном файле мы видим адреса 1, 1а, 1б, 1Б и т.п., а на самом деле это все форматы 1 (формат стоит "все форматы")... Странно. Но ладно. Далее. По требованию заказчика нам необходимо, чтобы столбец с номерами домов был в текстовом формате. И, конечно, когда мы просто меняем формат всего столбца ячеек на текстовый, все ячейки становятся "1". Подскажите, пожалуйста, как изменить формат столбца таким образом, чтобы он и стал в результате текстовым, как необходимо по заданию, и числа остались именно такими, какими мы их видим (с литерами "а", "б" и т.д.). Заранее спасибо. [moder]ПокажитеGarnet
Сообщение отредактировал _Boroda_ - Вторник, 28.07.2015, 10:55
Public Function IzForm(ss As Range) IzForm = Format(ss, ss.NumberFormat) End Function
[/vba], которую можно посмотреть, нажав Альт + F11. Затем копируете полученное и вставляете значениями куда хочется. К вставленному можно применить формат Текстовый
В соседний столбец пишете
Код
=IzForm(I2)
, где IzForm функция пользователя [vba]
Код
Public Function IzForm(ss As Range) IzForm = Format(ss, ss.NumberFormat) End Function
[/vba], которую можно посмотреть, нажав Альт + F11. Затем копируете полученное и вставляете значениями куда хочется. К вставленному можно применить формат Текстовый_Boroda_