Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Формат из общего не в дату, в текст - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Формат из общего не в дату, в текст
Формат из общего не в дату, в текст
ant6729 Дата: Среда, 30.05.2018, 21:43 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 451
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Всем привет!

Опять парюсь с форматами. Видимо, это у VBA особо прорабатывали....

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

и текст в конце ставил, и сиваром обварачивал, вообщем выдумывал...

Исчерпал догадки

Подскажите, пожалуйста, кто в курсе, как сохранить значение при переносе
Возможно, можно как-то убить ошибку, сохранив формат.
Заранее благодарю.
К сообщению приложен файл: Texttotext.xlsx(8.1 Kb)
 
Ответить
СообщениеВсем привет!

Опять парюсь с форматами. Видимо, это у VBA особо прорабатывали....

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

и текст в конце ставил, и сиваром обварачивал, вообщем выдумывал...

Исчерпал догадки

Подскажите, пожалуйста, кто в курсе, как сохранить значение при переносе
Возможно, можно как-то убить ошибку, сохранив формат.
Заранее благодарю.

Автор - ant6729
Дата добавления - 30.05.2018 в 21:43
ant6729 Дата: Среда, 30.05.2018, 22:18 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 451
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Для примера накидал
[vba]
Код

Sub jdjdj()
For i = 1 To 14
           m = Cells(i, 1).Value
'           m = Cells(i, 1).Text
'           m = CVar(m)
          Cells(i, 2).Value = m
          
Next i
End Sub
[/vba]


Сообщение отредактировал ant6729 - Среда, 30.05.2018, 22:19
 
Ответить
СообщениеДля примера накидал
[vba]
Код

Sub jdjdj()
For i = 1 To 14
           m = Cells(i, 1).Value
'           m = Cells(i, 1).Text
'           m = CVar(m)
          Cells(i, 2).Value = m
          
Next i
End Sub
[/vba]

Автор - ant6729
Дата добавления - 30.05.2018 в 22:18
_Boroda_ Дата: Среда, 30.05.2018, 22:18 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12353
Репутация: 5079 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Можно сначала дать ячейкам текстовый формат, а потом вставлять
[vba]
Код
Sub tt()
    Range("C1:C15").NumberFormat = "@"
    For i = 1 To 15
        a = Range("A" & i)
        Range("C" & i) = a
    Next i
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожно сначала дать ячейкам текстовый формат, а потом вставлять
[vba]
Код
Sub tt()
    Range("C1:C15").NumberFormat = "@"
    For i = 1 To 15
        a = Range("A" & i)
        Range("C" & i) = a
    Next i
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 30.05.2018 в 22:18
ant6729 Дата: Среда, 30.05.2018, 22:24 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 451
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
_Boroda_, слушайте, как всегда...
Сижу ржу...
Почему это я раньше нигде не видел..

_Boroda_,СПАСИБО ОГРОМНОЕ, ОЧЕНЬ НУЖНАЯ ИНФА!
потом что я такого нигде не примечал как-то особо...
 
Ответить
Сообщение_Boroda_, слушайте, как всегда...
Сижу ржу...
Почему это я раньше нигде не видел..

_Boroda_,СПАСИБО ОГРОМНОЕ, ОЧЕНЬ НУЖНАЯ ИНФА!
потом что я такого нигде не примечал как-то особо...

Автор - ant6729
Дата добавления - 30.05.2018 в 22:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Формат из общего не в дату, в текст
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!