|
현재셀의 값과 위 셀의 값을 비교하여 같을 경우와 다를 경우 셀서식을 다르게
정합니다. 그런데 작동하지 않네요 무엇을 어떻게 해야 하는지 알려주세요
---------------------------------------------------------------------------------
Sub 위셀값과현재셀값비교조건부서식()
'
Dim x, y As Range
Set x = ActiveCell
Set y = ActiveCell.Offset(-1, 0)
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="= x <> y "
Selection.FormatConditions(1).Interior.ColorIndex = 6
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="= x = y "
Selection.FormatConditions(1).Interior.ColorIndex = 38
End Sub
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
==============[호랑나비님 글에 대한 답변입니다]==============
For Each X In 다음에 "Range("a12:z12")"같이 하면 에러가 나지 않고 잘되는데
셀이 현재있는 곳의 행을 범위로 선택하기 위해
"ActiveCell.Rows("1:1").EntireRow.Select" 를 집어 넣으면 에러가 납니다.
해결방법을 알려주세요
Sub 조건비교서식()
Dim X As Range
'Set X = ActiveCell
For Each X In ActiveCell.Rows("1:1").EntireRow.Select
If X <> X.Offset(-1, 0) Then
X.Interior.ColorIndex = 38
Else
X.Interior.ColorIndex = 6
End If
Next X
End Sub
|
|