Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
скопировать значения в текстовый формат (с нулями)
 
Подскажите, пожалуйста, есть ли возможность в экселе перенести значения (значения в формате "дополнительный", "все форматы") - в текстовый, если стоят нули перед числом
например:
число:000003 - в формате "дополнительный"-"русский"
008- в формате "дополнительный"-"китайский"
0009 - в формате "все форматы"
 
Есть.
Я сам - дурнее всякого примера! ...
 
а как? по всем формулам пробежалась - оставляет число без нулей (если переносить в текстовый формат)
 
Цитата
Катериная
, Вы обратите внимание что у Вас данные "в формате "дополнительный"-"русский"", а не сами данные. В Ехсе явный пример это отображение даты и времени.
Раз у Вас данные в "формате" их необходимо сначала перевести например через ТЕКСТ(A1;"0000000"), или ПОВТОР().
 
Цитата
Вы обратите внимание что у Вас данные "в формате "дополнительный"-"русский"", а не сами данные. В Ехсе явный пример это отображение даты и времени.
Раз у Вас данные в "формате" их необходимо сначала перевести например через ТЕКСТ(A1;"0000000"), или ПОВТОР().
если через ТЕКСТ(A1;"0000000"), то добавляются ненужные нули
через ПОВТОР() - убираются все нули.
Сейчас такие цифры я копирую в ворд, а потом из ворда опять копирую в эксел в текстовый формат, только тогда он оставляет столько нулей, сколько в "неформате" (в нетекстовом формате  :) ).
Вот хотелось бы узнать - может есть проще способ, сразу в экселе?
 
Может и есть... если б видеть, что вам нужно.
На словах у вас объяснить не получается...
 
Пример в экселе во вложении  :) .
 
Насколько знаю - только макросом. Формула не может определить формат ячейки.

например, так (простенькая ЮДФ)
Изменено: Михаил С. - 13 Окт 2013 18:45:10
 
Пользовательская функция для перевода.
Код
Function ToText(rDan As Range)
    Dim k$
    k = rDan.NumberFormat
    ToText = Format(rDan.Value, k)
End Function
 
Михаил С.
Igor67

спасибо вам большое за помощь  8)
 
Лучше так:
Код
Function ToText(rDan As Range)
    ToText = rDan.Text
End Function

Иначе некоторые денежные форматы могут отображаться некорректно.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
The_Prist, так делал, но видимо было где-то еще что то, но не прошло:(
Страницы: 1
Читают тему (гостей: 1)