Убрать заливку всего листа при открытии файла

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Убрать заливку всего листа при открытии файла - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать заливку всего листа при открытии файла (Макросы/Sub)

Убрать заливку всего листа при открытии файла

Trank444

Дата: Понедельник, 13.07.2015, 12:14 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2003

Помогите решить проблему. Файл содержит 1 лист. Нужно с этого листа при открытии убрать все заливки со всех ячеек.

Ответить

_Boroda_

Дата: Понедельник, 13.07.2015, 12:17 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

В модуль книги пишете
[vba]

Код

Private Sub Workbook_Open()
Cells.Interior.Pattern = xlNone
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Саня

Дата: Понедельник, 13.07.2015, 12:18 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

[vba]

Код

Private Sub Workbook_Open()
Me.Worksheets(1).Cells.Interior.Pattern = xlNone
End Sub

[/vba]

Ответить

ikki

Дата: Понедельник, 13.07.2015, 12:32 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

не, я тож напишу. ишшо грамотнее.

[vba]

Код

Private Sub Workbook_Open()
Me.Worksheets(1).UsedRange.Interior.Pattern = xlNone
End Sub

[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Понедельник, 13.07.2015, 12:33

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать заливку всего листа при открытии файла (Макросы/Sub)

Страница 1 из 1
1