|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.03.2010, 21:10 | #1 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 15
|
Копирование значений и форматирования
Доброго времени суток, всем! Столкнулся с проблемой при написании макроса... Не получается копировать значения ячейки, в которой содержится формула, и одновременно требуется скопировать стиль форматирования ячейки. В экселе есть только функция xlPasteValuesAndNumberFormats но это мне не подходит, так как копирую текст.
Спасибо. |
18.03.2010, 23:58 | #2 |
Пользователь
Регистрация: 11.04.2009
Сообщений: 29
|
Вот пример, копируем из ячейки А1 в ячейку А2
Код:
|
20.03.2010, 12:29 | #3 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 15
|
Fierce, спасибо!
Появилась новая загвоздка, не пойму в чем дело... Копирование значений должно происходит с одного листа в другой через заданный интервал времени. И все нормально пока интервал в районе 15 секунд, а когда ставлю 1 минуту начинаются глюки, скопированное вставляется 3-4 раза. А мне нужно вообще 15 минут интервала. Вот код: Sub Copy_lines() Dim i As Integer Dim shift As Date shift = Second.Range("D2").Text i = Third.UsedRange.Row + Third.UsedRange.Rows.Count If i > 1 And First.ToggleButton1.Value = True Then Third.Range("A" & i).Value = First.Range("B3") Third.Range("B" & i).Value = First.Range("B4") End If Application.OnTime Time() + TimeValue(shift), "Copy_lines" End Sub Почему начинает глючить? Спасибо. |
20.03.2010, 13:31 | #4 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
shift = Second.Range("D2").Text - это что за зверь? что делать должен?
может все таки shift = Second(val(Range("D2").Text)) |
20.03.2010, 14:18 | #5 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 15
|
|
20.03.2010, 19:15 | #6 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 15
|
Гм, нет. У меня выдает ошибку 438(object doesnt support this property or method), когда пишу так:
shift = Second(val(Range("D2").Text)) Продолжаются глюки... вставляет строку несколько раз... |
20.03.2010, 20:04 | #7 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
ну файл то мы дождемся? не?
|
20.03.2010, 20:49 | #8 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 15
|
Конечно, нет проблем, просто я думал, что ошибку сразу в коде видно будет...
|
20.03.2010, 21:12 | #9 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
вставьте в код кнопки вместо
Код:
Код:
|
20.03.2010, 21:26 | #10 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 15
|
Теперь еще стало по-другому глючить... при интервале 5 сек все отлично, ставлю 1 минуту: вставляет две строчки, через секунд 5 еще одну...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск значений и копирование при совпадении | serafim09 | Microsoft Office Excel | 2 | 24.02.2010 13:36 |
Сравнение листов в книге, и копирование значений | Josser | Microsoft Office Excel | 10 | 22.07.2009 08:26 |
Копирование таблицы без потери форматирования | k1r1ch | Microsoft Office Excel | 3 | 09.07.2009 11:00 |
Копирование и вставка значений | tae1980 | Microsoft Office Excel | 7 | 29.05.2009 09:15 |
форматирования в Excel_и | VVk | Общие вопросы Delphi | 2 | 11.07.2008 16:27 |