VBA Excel 자동 색상 및 값 변경

업무용 개인 관리 스프레드 시트를 설정하려고합니다. 다양한 우선 순위의 작업 목록이 있습니다. 우선 순위가 간다 * 작업의 수가 특정 임계 값을 여기 VBA Excel 자동 색상 및 값 변경

코드의 I입니다 예를 들어, "사용 중"가용성 세포 변화의 색상과 설명 셀 값 변경, 안타

내가 여기서 뭘 시도하고있다 모든 마법

일어나는 곳이 도움이된다면 지금까지 내가 작업 목록 여기

Sub Avail_flag() 

TasksRange = ActiveSheet.Range("P3:P6") 
availcells = Range("M8,N8") 
busyflag = 0 
medBusyFlag = 0 
highBusyFlag = 0 
imedBusyFlag = 0 

If Range("p4") > 0 Then 
    medBusyFlag = 1 
ElseIf Range("p4") > 2 Then 
    medBusyFlag = 2 
ElseIf Range("p5") > 0 Then 
    highBusyFlag = 1 
ElseIf Range("p5") > 2 Then 
    highBusyFlag = 2 
ElseIf Range("p6") > 0 Then 
    imedBusyFlag = 1 
End If 

For Each sell In lRange 
    busyflag = (medBusyFlag + (highBusyFlagI * 2) + (imedBusyFlag * 3)) 

    If busyflag > 0 Then 
     For Each cell In Range(availcells) 
      cell.Color = green 
     Next 
     cell("N8").Value = "Occupied" 
    ElseIf busyflag > 3 Then 
     For Each cell In Range(availcells) 
      cell.Color = orange 
     Next 
     cell("N8").Value = "Busy" 
    ElseIf busyflag > 5 Then 
     For Each cell In Range(availcells) 
      cell.Color = red 
     Next 
     cell("N8").Value = "Unavailable" 
    Else 
     For Each cell In Range(availcells) 
      cell.Color = white 

    End If 


End Sub

의 값을 변경하면 자동으로 변경하도록 구현 어떻게해야 스프레드 시트의 캡처입니다, 하이라이트 회색 부분은

012 38,895,821,

출처

2014-02-20 tim

왜 조건부 서식을 사용하지 않습니까? –

워크 시트 개체 모듈을 살펴보면 셀의 값이 변경 될 때 실행되는 이벤트 프로 시저가 있습니다. 여기서 코드를 –

으로 복사하려는 것입니다. 조건부 서식을 사용하여 셀 값을 변경할 수 있습니까? 사용 중/사용 가능/사용 불가 변경에 대해? – tim

당신은 시트의 Change 이벤트를 사용할 수 있습니다

Private Sub Worksheet_Change(ByVal Target As Range)

출처

2014-02-20 13:18:31 neelsg

나는, 조건부 서식을 위해 내가 전에 들어하지 않았다 뭔가를했다. 그것을 찾은 후 그것을 사용하는 방법을 배우면 훨씬 더 좋은 선택 인 것 같습니다. @mehow에게 감사의 말씀을드립니다.

출처

2014-02-20 15:36:38 tim

VBA Excel 자동 색상 및 값 변경

답변

관련 문제