Подскажите, что подправить в этом макросе, что бы он не только стирал текст из ячеек в столбцах K,L, но и возвращал цвет этих ячеек по умолчанию (фон ячеек был белый, а цвет текста чёрный).
[vba]
Код
Sub Макрос() ' ' Добавление строки ' With ActiveCell.EntireRow .Offset(1).Insert .Copy .Offset(1) End With 'стираем текст в ячейках столбца K,L Cells(ActiveCell.Row + 1, "K").Resize(, 2).ClearContents End Sub
[/vba]
Подскажите, что подправить в этом макросе, что бы он не только стирал текст из ячеек в столбцах K,L, но и возвращал цвет этих ячеек по умолчанию (фон ячеек был белый, а цвет текста чёрный).
[vba]
Код
Sub Макрос() ' ' Добавление строки ' With ActiveCell.EntireRow .Offset(1).Insert .Copy .Offset(1) End With 'стираем текст в ячейках столбца K,L Cells(ActiveCell.Row + 1, "K").Resize(, 2).ClearContents End Sub
Если у Вас там, кроме заливки и цветного текста, есть еще и, например, границы ячеек, то можно так [vba]
Код
Sub tt() With ActiveCell.EntireRow .Offset(1).Insert .Copy .Offset(1) End With With Cells(ActiveCell.Row + 1, "K").Resize(, 2) .ClearContents .Interior.Pattern = xlNone .Font.ColorIndex = xlAutomatic End With End Sub
[/vba]
Если у Вас там, кроме заливки и цветного текста, есть еще и, например, границы ячеек, то можно так [vba]
Код
Sub tt() With ActiveCell.EntireRow .Offset(1).Insert .Copy .Offset(1) End With With Cells(ActiveCell.Row + 1, "K").Resize(, 2) .ClearContents .Interior.Pattern = xlNone .Font.ColorIndex = xlAutomatic End With End Sub
kiramiD, спасибо конечно за плюс, но в теме все равно НУЖНО отписаться. Чтоб другие форумчане и гости знали: помогло - не помогло, и если помогло, то: по поиску форума и других гостей с подобным вопросом избавите от создания новых тем. А так получилось - всем спасибо, но не помогло
kiramiD, спасибо конечно за плюс, но в теме все равно НУЖНО отписаться. Чтоб другие форумчане и гости знали: помогло - не помогло, и если помогло, то: по поиску форума и других гостей с подобным вопросом избавите от создания новых тем. А так получилось - всем спасибо, но не помогло KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Все Ваши советы очень помогают, но концовку ставить не хочется, так как каждый новый Ваш совет помимо того, что позволяет чему то научиться новому, так еще и раскрывает кучу новых нюансов и все они применяются дальше и уже не только в этой конкретной очень сильно сжатой задачке, но и во множестве новых других своих задумок, с другими специфическими наваротами. Поэтому жирную точку, ставить не буду. Очень рада любым разным решением, так как в голове на их основе ежедневно генерится, много новых не тривиальных задач. Нет придела совершенству. Всем большое спасибо, за любой ответ.
Все Ваши советы очень помогают, но концовку ставить не хочется, так как каждый новый Ваш совет помимо того, что позволяет чему то научиться новому, так еще и раскрывает кучу новых нюансов и все они применяются дальше и уже не только в этой конкретной очень сильно сжатой задачке, но и во множестве новых других своих задумок, с другими специфическими наваротами. Поэтому жирную точку, ставить не буду. Очень рада любым разным решением, так как в голове на их основе ежедневно генерится, много новых не тривиальных задач. Нет придела совершенству. Всем большое спасибо, за любой ответ.kiramiD
[offtop]ОФФТОП Открою маленький секрет. Тех, кто не отписывается в своих темах, ждет соответствующее отношение со стороны форумчан и (сюрприз!) модеров. Как правило. Но форумчане ведь не видят Вашей реакции в личке(+ к репутации, например). И Вы, будучи вполне адекватным человеком, автоматом становитесь кандидатом для форумной критики и бойкота. А мне бы не хотелось такого для адекватных гостей. Поэтому хоть пискните(ну и слово) в ответ в самой теме, чтоб многоуважаемый форум получил посыл - например: решение устроило,рад(а), однако другие варианты не испортят мою радость и т.д. [/offtop]
[offtop]ОФФТОП Открою маленький секрет. Тех, кто не отписывается в своих темах, ждет соответствующее отношение со стороны форумчан и (сюрприз!) модеров. Как правило. Но форумчане ведь не видят Вашей реакции в личке(+ к репутации, например). И Вы, будучи вполне адекватным человеком, автоматом становитесь кандидатом для форумной критики и бойкота. А мне бы не хотелось такого для адекватных гостей. Поэтому хоть пискните(ну и слово) в ответ в самой теме, чтоб многоуважаемый форум получил посыл - например: решение устроило,рад(а), однако другие варианты не испортят мою радость и т.д. [/offtop]KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Но форумчане ведь не видят Вашей реакции в личке(+ к репутации, например).
ОФФТОП Ок. не знала, что мы для модераторов и других пользователей не видны. Тогда, в этой связи можно маленькую указявку им предложу. Пусть добавят кнопку «Лучший ответ» и список пользователей которые поблагодарили за это сообщение, очень было бы наглядно, продуктивно и информативно. Примерно как на скрине ниже, но в стилистике уже этого форума (красными кружками обвела). По моему очень не плохо и значимо будет выглядеть.[/offtop] [moder]Для оффтопа есть кнопочка специальная[/moder]
Но форумчане ведь не видят Вашей реакции в личке(+ к репутации, например).
ОФФТОП Ок. не знала, что мы для модераторов и других пользователей не видны. Тогда, в этой связи можно маленькую указявку им предложу. Пусть добавят кнопку «Лучший ответ» и список пользователей которые поблагодарили за это сообщение, очень было бы наглядно, продуктивно и информативно. Примерно как на скрине ниже, но в стилистике уже этого форума (красными кружками обвела). По моему очень не плохо и значимо будет выглядеть.[/offtop] [moder]Для оффтопа есть кнопочка специальная[/moder]kiramiD