Кнопка для подстановки значения "0" в определенные ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Кнопка для подстановки значения "0" в определенные ячейки (Макросы/Sub)

Максим2

Дата: Пятница, 04.11.2022, 21:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый вечер !
Я нашел код обнуления диапазона ячеек.

"====================
Как применить кнопку для очистки определенных ячеек в Excel.
Код VBA: очистить содержимое определенных ячеек:

[vba]

Код

Sub Clearcells()
'Updateby Extendoffice
Range("A2", "A5").Clear
Range("C10", "D18").Clear
Range("B8", "B12").Clear
End Sub

[/vba]
====================================
Создал кнопку Clearcells, назначил макрос что выше, нажал.
И не то что мне нужно

1. Мне нужно чтобы не очищал поля ячейки в пустую, а ставил "0" .
2. У меня в этих ячейках цветной фон был до нажатия на кнопку. Нужно ,чтобы при нажатии кнопки "Clearcells" ставил в заданных ячейках "0" и НЕ менял фона ячейки и Жирность текста.
3. В макросе выше прописан диапазон "A2", "A5" , а мне нужно конкретные ячейки D2 D6 D7 D8 и диапазон с D11 по D17

Просьба поправить макрос

$IMAGE1$

Ответить

Максим2

Дата: Пятница, 04.11.2022, 21:52 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

К сообщению приложен файл: 3590197.jpg (55.5 Kb)

Ответить

Pelena

Дата: Пятница, 04.11.2022, 21:54 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19176

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата Максим2, 04.11.2022 в 21:51, в сообщении № 1 (

)

конкретные ячейки D2

для D2
[vba]

Код

Range("D2")=0

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Максим2

Дата: Пятница, 04.11.2022, 22:03 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

сПАСИБО ПОЛУЧИЛОСЬ

[vba]

Код

Sub Clearcells()
'Updateby Extendoffice
Range("D2") = 0
Range("D6") = 0
Range("D7") = 0
Range("D8") = 0
Range("D11") = 0
Range("D12") = 0
Range("D13") = 0
Range("D14") = 0
Range("D15") = 0
Range("D16") = 0
Range("D17") = 0
End Sub

[/vba]