Excel의 셀 채색 2012

Question

Excel 2013에서 명명 된 셀 범위를보고 해당 셀의 텍스트가 흰색 인 경우 해당 셀의 텍스트 색을 오른쪽에 설정하고 싶습니다. 세포도 흰색으로. 아무도이 불쌍한 VBA 프로그래밍 newb 도움을 줄래? 매우 감사. 좋은 하루 되세요!

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    Range("DateOut").Select 
    For Each Cell In Selection 
     If Cell.Font.ColorIndex = 2 Then 
      Cell.Offset(, 1).Font.ColorIndex = 2 
     End If 
    Next 

    End Sub 

Answer 1

코드는 잘 작동

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
    Range("DateOut").Select 
    For Each Cell In Selection 
     If Cell.Font.ColorIndex = 2 Then 
      Cell.Offset(, 1).Font.ColorIndex = 2 
     End If 
    Next  
    End Sub 

어떤 부분이 문제가있는? 당신이 시트 이름에 코드를

• 오른쪽 클릭을 추가하고보기 코드를 선택하고 붙여 넣을 수있는 위치에 문제가있는 경우 는

Answer 2

시도하십시오 : :이

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    For Each Cell In Range("DateOut") 
    If Cell.Font.ColorIndex = 2 Then Cell.Offset(, 1).Font.ColorIndex = 2 
    Next 
End Sub