Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить заливку всех ячеек / 20 сообщений из 20, страница 1 из 1
12.04.2010, 10:22
    #36573433
svetoch_zorga
svetoch_zorga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
Здравствуйте!

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

большущее спасибо!!
:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 10:31
    #36573460
svetoch_zorga
svetoch_zorga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
файл с примером листа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 10:42
    #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:45
    #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:49
    #36573520
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
Hugo121,

Модератор: как-то даже неловко вас просить использовать SRC тег.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 10:53
    #36573522
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
big-duke, извиняюсь...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 12:01
    #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:08
    #36573721
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
svetoch_zorga, вероятно, Вы напечатали сс (cc) разными шрифтами?

Код: plaintext
1.
2.
option explicit
Sub color()
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 12:17
    #36573738
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
svetoch_zorga, хотя, нет, дело в другом. Правильно:
Код: plaintext
For Each cc In WorkSheets(ИмяЛиста или индекс).UsedRange.Cells
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 12:18
    #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:20
    #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:21
    #36573756
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
svetoch_zorgaвсе равно "Variable not defined"

переменную СС надо определить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 12:22
    #36573757
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
Код: plaintext
Dim cc As Cell
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 12:27
    #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:31
    #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:37
    #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:38
    #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:40
    #36573809
svetoch_zorga
svetoch_zorga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
Большое Вам всем человеческое БЛАГОДАРЮююю!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2010, 13:47
    #36574057
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменить заливку всех ячеек
svetoch_zorga,

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


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