Страницы: 1
RSS
Оптимизировать список работников
 
Доброго времени суток!
Я столкнулся с такой проблемой, которая отнимает у меня много времени. Подскажите, как можно оптимизировать таблицу, может у кого макрос готовый завалялся.
в таблице 6 столбцов
1-время 2-фамилия      3-имя      4-отчество      5-вход/выход      6-подразделение

Вопрос: Как выделить строки цветами чтобы было удобно просматривать/читать (каждый человек может проходить за день по нескольку раз) надо, чтобы выделяло цветом все выходы/входы каждого человека двумя цветами (пример: 1 - белым цветом, 2 голубым, 3 - белым, 4 - голубым и т.д.)
ИЛИ
вставить пустую строку между каждым человеком

на скринах я сделал небольшой пример
https://cloud.mail.ru/public/c38712bf0a84%2Fa.jpg
https://cloud.mail.ru/public/7487894a1f18%2Fb.jpg
в скринах, как вы поняли, это просто пример, сам список у меня очень длинный и редактивоать его вручную занимает кучу времени

Заранее большое спасибо!
Изменено: Entourage - 24.10.2014 13:23:37
 
Не могу прикрепить скрины, ошибка при сохранении  :(
 
Может так:

Код
Sub videlenie()
Dim lr As Integer
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lr Step 2
        For j = 1 To 6
            Cells(i, j).Interior.Color = RGB(217, 217, 217)
        Next
    Next
 End Sub
Выделяет через одну строку серым цветом, начинается со второй строки потому что первая строка это заглавие таблицы. Выделяет только столбцы A-F
Не подойдет, не правильно прочитал задание.
Изменено: ASKer_mk - 23.10.2014 17:46:49
 
Приложите пример на несколько сотрудников, для наглядности, чтобы было понятно как и что отображается в таблице
 
ASKer_mk, я там ссылки на скины вывел, там показано, что я хотел. Просто не знал как подробнее описать ситуэйшн. 1 чел может занимать от 1 до 15 строк
 
На работе не могу на этот ресурс зайти, порезан инет, поэтому не могу посмотреть
 
Вот теперь сами со своего скрина набейте данные в файл, файл на форум.
Скрины правда не смотрел (с работы не пускает), может там всего 10 простых строк... Ну тем быстрее сделаете.  :)
Страницы: 1
Наверх