Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Помогите!!! Выделение столбцов по цвету ячеек Добавлено: 14.01.11 22:18  

Автор вопроса:  sov105
Вопрос такой; Есть excel таблица на 250 столбцов, Эти столбцы по мере их заполнения закрашиваются в желтый цвет остольные столбцы остаются белым цветом. Помогите с кодом для выделения столбцов по цвету. Чтобы при выполнении кода выделялись только столбцы белого цвета.
Заранее благодарен за помощь...

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Jasmin



Вопросов: 23
Ответов: 417
 Профиль | | #1 Добавлено: 16.01.11 14:12
А как отмечается столбец желтым цветом ? Вручную ?

Общим алгоритм:
  Цикл по всем столбцам
  Внутри проверяем, если цвет ячейки в первой строке N столбца белый, добавляем его к списку выделенных (в правильном формате).
  По окончании цикла делаем Select по списку выделенных.

Ответить

Номер ответа: 2
Автор ответа:
 sov105



Вопросов: 2
Ответов: 3
 Профиль | | #2 Добавлено: 17.01.11 15:49
Да столбцы закрашиваются в ручную по мере выполнения работ. Есле вас не затруднит, то немогли бы вы написать код. Я мало чего понимаю в програмирование. Пользуясь стандартными средствами Макрорекодера мне удалось создать сортировку по цвету столбцов. И теперь осталось решить эту проблему чтобы вырезать оставшиеся столбцы на другой лист. С вырезанием столбцов и их вставкой в другой лист я думаю проблем у меня возникнуть не должно, вся сложность как я думаю это с выделенеем столбцов одного цвета. Если сможете помогите пожайлуста.
Заранее блогадарен за помощь.

Ответить

Номер ответа: 3
Автор ответа:
 Дмит



Вопросов: 11
Ответов: 160
 Web-сайт: dimit.pochta.ru
 Профиль | | #3
Добавлено: 18.01.11 08:56
Ну если пользуетесь рекордером, то код рекордера по закраске столбца С:
  1. Columns("C:C").Select
  2.     With Selection.Interior
  3.         .ColorIndex = 6
  4.         .Pattern = xlSolid
  5.     End With

Несколько упрощаем:
  1. Columns("C:C").Interior.ColorIndex = 6

Из этого легко сделать проверку незакраски желтым цветом:
  1. If Columns("C:C").Interior.ColorIndex <> 6 Then
  2.         'код для обработки незакрашеннго столбца C
  3.    End If

Цикл по столбцам, надеюсь, Вам не составит труда сделать.

Ответить

Номер ответа: 4
Автор ответа:
 sov105



Вопросов: 2
Ответов: 3
 Профиль | | #4 Добавлено: 29.01.11 16:34
Извените за задержку с ответом. Всем спосибо за ответы, проблему решил!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам