ant6729
Дата: Среда, 30.05.2018, 21:43 |
Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация:
2
±
Замечаний:
40% ±
Excel 2010
Всем привет! Опять парюсь с форматами. Видимо, это у VBA особо прорабатывали.... При внесении в цикле значения ячейки в переменную и из нее на другой лист - значение ячейки преобразуется в датовую и вставляется в виде даты. Как этого избежать, ломаю голову. и текст в конце ставил, и сиваром обварачивал, вообщем выдумывал... Исчерпал догадки Подскажите, пожалуйста, кто в курсе, как сохранить значение при переносе Возможно, можно как-то убить ошибку, сохранив формат. Заранее благодарю.
Всем привет! Опять парюсь с форматами. Видимо, это у VBA особо прорабатывали.... При внесении в цикле значения ячейки в переменную и из нее на другой лист - значение ячейки преобразуется в датовую и вставляется в виде даты. Как этого избежать, ломаю голову. и текст в конце ставил, и сиваром обварачивал, вообщем выдумывал... Исчерпал догадки Подскажите, пожалуйста, кто в курсе, как сохранить значение при переносе Возможно, можно как-то убить ошибку, сохранив формат. Заранее благодарю. ant6729
Ответить
Сообщение Всем привет! Опять парюсь с форматами. Видимо, это у VBA особо прорабатывали.... При внесении в цикле значения ячейки в переменную и из нее на другой лист - значение ячейки преобразуется в датовую и вставляется в виде даты. Как этого избежать, ломаю голову. и текст в конце ставил, и сиваром обварачивал, вообщем выдумывал... Исчерпал догадки Подскажите, пожалуйста, кто в курсе, как сохранить значение при переносе Возможно, можно как-то убить ошибку, сохранив формат. Заранее благодарю. Автор - ant6729 Дата добавления - 30.05.2018 в 21:43
ant6729
Дата: Среда, 30.05.2018, 22:18 |
Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация:
2
±
Замечаний:
40% ±
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]
Для примера накидал [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
Сообщение отредактировал 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация:
6479
±
Замечаний:
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]
Можно сначала дать ячейкам текстовый формат, а потом вставлять [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_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация:
2
±
Замечаний:
40% ±
Excel 2010
_Boroda_, слушайте, как всегда... Сижу ржу... Почему это я раньше нигде не видел.. _Boroda_,СПАСИБО ОГРОМНОЕ, ОЧЕНЬ НУЖНАЯ ИНФА! потом что я такого нигде не примечал как-то особо...
_Boroda_, слушайте, как всегда... Сижу ржу... Почему это я раньше нигде не видел.. _Boroda_,СПАСИБО ОГРОМНОЕ, ОЧЕНЬ НУЖНАЯ ИНФА! потом что я такого нигде не примечал как-то особо... ant6729
Ответить
Сообщение _Boroda_, слушайте, как всегда... Сижу ржу... Почему это я раньше нигде не видел.. _Boroda_,СПАСИБО ОГРОМНОЕ, ОЧЕНЬ НУЖНАЯ ИНФА! потом что я такого нигде не примечал как-то особо... Автор - ant6729 Дата добавления - 30.05.2018 в 22:24