ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить заливку всех ячеек
20 сообщений из 20, страница 1 из 1
Изменить заливку всех ячеек
    #36573433
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Здравствуйте!

Подскажите, как программно изменить цвет заливки на листе ВСЕХ ЦВЕТНЫХ ячеек, поменять их на светло-серый, не меняя цвета "ячеек без заливки"??! только цветные!

большущее спасибо!!
:)
...
Рейтинг: 0 / 0
12.04.2010, 10:22
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573460
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
файл с примером листа
...
Рейтинг: 0 / 0
12.04.2010, 10:31
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573491
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
svetoch_zorga,

Код: plaintext
1.
2.
For Each cc In UsedRange.Cells
If cc.Interior.ColorIndex <>  15  And cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next
...
Рейтинг: 0 / 0
12.04.2010, 10:42
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573505
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
хотя проверка на 15 лишняя (но вдруг на пару-тройку цветов проверить надо), а в данном случае хватит и
Код: plaintext
1.
2.
For Each cc In UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next
...
Рейтинг: 0 / 0
12.04.2010, 10:45
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573520
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Hugo121,

Модератор: как-то даже неловко вас просить использовать SRC тег.
...
Рейтинг: 0 / 0
12.04.2010, 10:49
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573522
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
big-duke, извиняюсь...
...
Рейтинг: 0 / 0
12.04.2010, 10:53
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573703
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Hugo121хотя проверка на 15 лишняя (но вдруг на пару-тройку цветов проверить надо), а в данном случае хватит и
Код: plaintext
1.
2.
For Each cc In UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next



Hugo121, я вот так его использую...

Sub color()
For Each cc In UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex = 15
Next
End Sub


выходит ошибка 424...
:-(
видимо что то я делаю не так...
...
Рейтинг: 0 / 0
12.04.2010, 12:01
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573721
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
svetoch_zorga, вероятно, Вы напечатали сс (cc) разными шрифтами?

Код: plaintext
1.
2.
option explicit
Sub color()
...
...
Рейтинг: 0 / 0
12.04.2010, 12:08
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573738
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
svetoch_zorga, хотя, нет, дело в другом. Правильно:
Код: plaintext
For Each cc In WorkSheets(ИмяЛиста или индекс).UsedRange.Cells
...
Рейтинг: 0 / 0
12.04.2010, 12:17
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573743
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
vlth, да вроде англ.ми...

Код: plaintext
1.
2.
3.
4.
5.
6.
Option Explicit

Sub color()
For Each cc In UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next
End Sub

теперь пишет "Variable not defined"



в чем может быть дело??!
...
Рейтинг: 0 / 0
12.04.2010, 12:18
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573753
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Спасибо vlth,..

Код: plaintext
1.
2.
3.
4.
5.
6.
Option Explicit

Sub color()
For Each cc In Worksheets.ActiveSheet.UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next
End Sub
все равно "Variable not defined"
...
Рейтинг: 0 / 0
12.04.2010, 12:20
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573756
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
svetoch_zorgaвсе равно "Variable not defined"

переменную СС надо определить
...
Рейтинг: 0 / 0
12.04.2010, 12:21
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573757
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
Dim cc As Cell
...
Рейтинг: 0 / 0
12.04.2010, 12:22
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573770
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Благодарю, Shocker.Pro,
теперь вот такая ошибочка
"User-defined type no defined"

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Option Explicit
Dim cc As Cell

Sub color()
For Each cc In Worksheets.ActiveSheet.UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next
End Sub
...
Рейтинг: 0 / 0
12.04.2010, 12:27
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573785
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
выходит такая ошибочка
"User-defined type no defined"


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Option Explicit

Sub color()
Dim cc As Cell
For Each cc In Worksheets.ActiveSheet.UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next
End Sub
...
Рейтинг: 0 / 0
12.04.2010, 12:31
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573796
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
svetoch_zorga,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit

Sub color()
Dim cc As Range
For Each cc In ActiveSheet.UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next
End Sub
...
Рейтинг: 0 / 0
12.04.2010, 12:37
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573802
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Hugo121svetoch_zorga,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Option Explicit

Sub color()
Dim cc As Range
For Each cc In ActiveSheet.UsedRange.Cells
If cc.Interior.ColorIndex <> xlNone Then cc.Interior.ColorIndex =  15 
Next
End Sub



мне стало немножечко стыдно...
...
Рейтинг: 0 / 0
12.04.2010, 12:38
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36573809
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Большое Вам всем человеческое БЛАГОДАРЮююю!!!
...
Рейтинг: 0 / 0
12.04.2010, 12:40
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36574057
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
svetoch_zorga,

Модератор: И вам будет спасибо, если не забудете про тег SRC
...
Рейтинг: 0 / 0
12.04.2010, 13:47
| Ответить | Цитировать | Написать  
Изменить заливку всех ячеек
    #36574104
Фотография svetoch_zorga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetoch_zorga
Участник
Код: plaintext
понял :)
...
Рейтинг: 0 / 0
12.04.2010, 14:07
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить заливку всех ячеек
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]