Вопрос. Как очистить столбцы в которых находятся числовые значения, при помощи нажатия кнопки.
Как очистить столбцы с данными при помощи макросов
|
06.12.2010 16:35:00
|
|
|
|
|
|
06.12.2010 16:57:56
Спасибо за ответ, но возникла проблема, если столбец содержит формулы, как сделать так, чтобы удалялись только значения, а формулы оставались.
|
|
|
|
|
|
06.12.2010 17:06:52
Запись макроса (творчески перерабоанная) дала такой результат:
Range("A1:A2").SpecialCells(xlCellTypeConstants, 23).ClearContents |
|
|
|
|
|
06.12.2010 17:19:53
{quote}{login=Hugo}{date=06.12.2010 05:06}{thema=}{post}Запись макроса (творчески перерабоанная) дала такой результат:
Range("A1:A2").SpecialCells(xlCellTypeConstants, 23).ClearContents{/post}{/quote} макрос записал, но выдает ошибку: Не найдено ни одного значения удовлетворяющих заданным условиям |
|
|
|
|
|
06.12.2010 17:55:36
{quote}{login=Сашок}{date=06.12.2010 04:57}{thema=}{post}Спасибо за ответ, но возникла проблема, если столбец содержит формулы, как сделать так, чтобы удалялись только значения, а формулы оставались.{/post}{/quote}
:) A1= A2+A3 Если мы очистим значение в А1 а данные в А2 и А3 остануться то мы получим все равно результат вычисления формулы который был и до этого, если конечно автоматическое обновление не отключено Логики нет, зачем удалять значения формулы ? :(
|
|||
|
|
|
|
06.12.2010 18:07:54
:)
A1= A2+A3 Если мы очистим значение в А1 а данные в А2 и А3 остануться то мы получим все равно результат вычисления формулы который был и до этого, если конечно автоматическое обновление не отключено Логики нет, зачем удалять значения формулы ? :({/post}{/quote} Дело в том, что есть значения в столбцах А,В,С,D, столбец D содержит формулу вкоторой фигурируют значения из столбцов А,В,С, у меня при нажатии кнопки данные из столбца D переносятся в столбец А, а все остальные столбцы должны очиститься, но в столбце D, необходимо чтобы сохранились формулы |
|
|
|
|
|
06.12.2010 18:08:59
{quote}{login=}{date=06.12.2010 05:19}{thema=Re: }{post}{quote}{login=Hugo}{date=06.12.2010 05:06}{thema=}{post}Запись макроса (творчески перерабоанная) дала такой результат:
Range("A1:A2").SpecialCells(xlCellTypeConstants, 23).ClearContents{/post}{/quote} макрос записал, но выдает ошибку: Не найдено ни одного значения удовлетворяющих заданным условиям{/post}{/quote} А Вы позаботьтесь, чтоб такие значения были - и оно сработает! Или пишите перед этой строкой On error resume next |
|
|
|
|
|
06.12.2010 18:22:57
Вы лучше пример нарисуйте в формате xls, а то скоро можно будет в "битве экстрасенсов" участвовать
|
|||
|
|
|
|
06.12.2010 18:26:14
{quote}{login=Hugo}{date=06.12.2010 06:08}{thema=Re: Re: }{post}{quote}{login=}{date=06.12.2010 05:19}{thema=Re: }{post}{quote}{login=Hugo}{date=06.12.2010 05:06}{thema=}{post}Запись макроса (творчески перерабоанная) дала такой результат:
Range("A1:A2").SpecialCells(xlCellTypeConstants, 23).ClearContents{/post}{/quote} макрос записал, но выдает ошибку: Не найдено ни одного значения удовлетворяющих заданным условиям{/post}{/quote} А Вы позаботьтесь, чтоб такие значения были - и оно сработает! Или пишите перед этой строкой On error resume next{/post}{/quote} Объяните еще раз, у меня есть солбец, в котором по формулам высчитываются значения, соответственно в ячейках указаны эти значения, их нужно очистить, так почему возникает ошибка. |
|
|
|
|
|
06.12.2010 18:29:25
Очищайте те значения, которые исходные для формулы.
А данный код стирает КОНСТАНТЫ, т.е. не формулы, а забитые в ячейки значения. |
|
|
|
|
|
06.12.2010 18:36:58
{quote}{login=R Dmitry}{date=06.12.2010 06:22}{thema=}{post}Вы лучше пример нарисуйте в формате xls, а то скоро можно будет в "битве экстрасенсов" участвовать{/post}{/quote}
Вот пример. |
|
|
|
|
|
06.12.2010 18:45:35
{quote}{login=}{date=06.12.2010 06:36}{thema=Re: }{post}{quote}{login=R Dmitry}{date=06.12.2010 06:22}{thema=}{post}Вы лучше пример нарисуйте в формате xls, а то скоро можно будет в "битве экстрасенсов" участвовать{/post}{/quote}
Вот пример.{/post}{/quote} давно бы так Sub Кнопка1_Щелчок() Range("a2:a5").Value = Range("d2:d5").Value Range("b2:c5").ClearContents End Sub
|
|||
|
|
|
|
06.12.2010 18:46:10
Sub Кнопка1_Щелчок()
Range("a2:a5").Value = Range("d2:d5").Value Range("b2:c5").ClearContents End Sub
|
|||
|
|
|
|
06.12.2010 19:22:33
{quote}{login=R Dmitry}{date=06.12.2010 06:46}{thema=}{post}Sub Кнопка1_Щелчок()
Range("a2:a5").Value = Range("d2:d5").Value Range("b2:c5").ClearContents End Sub{/post}{/quote} Спасибо. |
||||
|
|
|
|||
Читают тему
