Страницы: 1
RSS
Условное форматирование для графиков Ганта (Gantt)
 
Есть табличка с графиком коммандировок сотрудников, есть график Ганта (линейный график с цветными полосками) который должен закрашиваться красным цветом (к примеру)когда сотрудник в коммандировке. С помощью ПОИСКПОЗ определяю позицию фамилии в списке, день начала коммандировки и её конец, как на основании этих 3 значении заставить уловно форматировать диапазон ячеек который соответствует данному сотруднику и его периоду коммандировки?  
 
В файле для примера закрасил красным цветом пару периодов чтобы нагляднее было, помогите, должно быть легко, но я пока не очень разбираюсь.
 
У меня какой-то другой график получился, подозреваю что у других потенциальных помощников тоже...
 
Option Explicit  
Private Sub Gant()  
Dim i As Long  
Dim FIO As String  
Dim KolFIO As Long  
Dim FoundFIO As Range  
Dim iBegin As Date  
Dim iEnd As Date  
Dim FoundBegin As Range  
Dim FoundEnd As Range  
 
With Sheets("Лист1")  
   KolFIO = 0  
   While .Cells(KolFIO + 18, 2).Value <> ""  
       KolFIO = KolFIO + 1  
   Wend  
       Rows("4:9").EntireRow.Interior.ColorIndex = xlColorIndexNone  
   For i = 1 To KolFIO  
      FIO = .Cells(17 + i, 2)  
   iBegin = .Cells(17 + i, 3)  
     iEnd = .Cells(17 + i, 4)  
       
     Set FoundFIO = .Range("B4:B9").Find(FIO, , xlValues, xlWhole)  
     Set FoundBegin = .Rows(3).Find(iBegin, , xlFormulas, xlWhole)  
     Set FoundEnd = .Rows(3).Find(iEnd, , xlValues, xlWhole)  
.Range(.Cells(FoundFIO.Row, FoundBegin.Column), .Cells(FoundFIO.Row, FoundEnd.Column)). _  
Interior.ColorIndex = 3  
   Next  
End With  
End Sub
 
{quote}{login=kim}{date=17.02.2012 10:17}{thema=}{post}У меня какой-то другой график получился, подозреваю что у других потенциальных помощников тоже...{/post}{/quote}  
 
Kim спасибо за советы работает :), график тот что был прорисован в файле просто был для примера, то есть реально датам не соответствовал  
 
Kuzmich к сожалению в VBA я полный профан, спасибо хоть есть теперь куда стремиться :)
Страницы: 1
Читают тему
Наверх