Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / изменить цвет границ всех ячеек на листе / 10 сообщений из 10, страница 1 из 1
01.11.2013, 19:31
    #38450474
Шелепов Дмитрий
Шелепов Дмитрий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
есть лист Excel, в котором путем закраски разных границ ячеек нарисована схема - как можно быстро заменить цвет границ всех ячеек?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2013, 20:11
    #38450503
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
Перебрать макросом все ячейки и заменить соответственно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2013, 22:57
    #38450634
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
Смотря что подразумевать под всеми ячейками на листе. Если действительно все - я бы не рекомендовал, т.к. даже 65536*256 и все с форматом - это уже очень много. А для 2007 и старше вообще беда будет. Лучше красить только из диапазона данных:
Код: vbnet
1.
ActiveSheet.UsedRange.Borders.Color = 3421846


Цвет сами определите, если что.
Если необходимо какие-то несмежные - то точно укажите диапазон.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2013, 23:13
    #38450645
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
Так что быстро не получится - надо не только перебрать ячейки отдельно, так ещё и границы ячеек тоже:
Код: vbnet
1.
2.
3.
4.
5.
    For Each c In ActiveSheet.UsedRange.Cells
        For Each b In c.Borders
            If b.LineStyle <> xlNone Then b.ColorIndex = 3
        Next
    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2013, 23:15
    #38450646
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
The_Prist,

Не пойдёт. Твоя команда закрасит у всех ячеек диапазона четыре границы указанным цветом. Даже если линий границ до этого вообще не было...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2013, 23:20
    #38450649
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
AndreTM,

Я знаю. А я понял это и надо:
авторкак можно быстро заменить цвет границ всех ячеек?
А вдруг?...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2013, 11:00
    #38452648
Шелепов Дмитрий
Шелепов Дмитрий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
AndreTM The_Prist,

Не пойдёт. Твоя команда закрасит у всех ячеек диапазона четыре границы указанным цветом. Даже если линий границ до этого вообще не было...

да, проблема как раз в том, что не у всех ячеек есть все границы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2013, 11:54
    #38452728
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
Шелепов Дмитрий,

а если
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2013, 11:55
    #38452729
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
Шелепов Дмитрий,

Код: vbnet
1.
2.
3.
4.
5.
For Each c In ActiveSheet.UsedRange.Cells
        For Each b In c.Borders
            If b.ColorIndex=5 Then b.ColorIndex = 3
        Next
    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2013, 16:29
    #38453320
Шелепов Дмитрий
Шелепов Дмитрий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
изменить цвет границ всех ячеек на листе
ПЕНСИОНЕРКА,

спасибо!

если кому понадобиться-

ссылка на палитры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / изменить цвет границ всех ячеек на листе / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 123ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2174432]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 13ms
total:  123ms
x
x
Закрыть


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