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


Цвет сами определите, если что.
Если необходимо какие-то несмежные - то точно укажите диапазон.
...
Рейтинг: 0 / 0
01.11.2013, 22:57
| Ответить | Цитировать | Написать  
изменить цвет границ всех ячеек на листе
    #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:13
| Ответить | Цитировать | Написать  
изменить цвет границ всех ячеек на листе
    #38450646
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
The_Prist,

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

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

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

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

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

спасибо!

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

ссылка на палитры
...
Рейтинг: 0 / 0
05.11.2013, 16:29
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / изменить цвет границ всех ячеек на листе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38450646&tid=2174432]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 66ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 15ms
total:  182ms
созд. / загр.: 182ms
x
x
Закрыть


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