나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 호랑나비 (yang1204)

추천:  2
파일:     조회:  4708
제목:   VBA 무엇이 잘못되었는지?
     
  현재셀의 값과 위 셀의 값을 비교하여 같을 경우와 다를 경우 셀서식을 다르게 
정합니다. 그런데 작동하지 않네요 무엇을 어떻게 해야 하는지 알려주세요 
---------------------------------------------------------------------------------
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...): 

* 아래줄에 질문을 작성하세요 >>
 
[불량 게시물 신고]  
졸따구Sub 조건비교서식()
  Dim X As Range
  For Each X In Range("조건이들어있는범위")
    If X <> X.Offset(-1,0) Then
      X.Interior.Colorindex = 6
    Else
      X.Interior.Colorindex = 38
    Endif
  Next X
End Sub
그럼..
07-07 (16:14)
삭제 ■신고
        
  

작성일 : 2003-07-07(15:48)
최종수정일 : 2003-07-07(15:50)
 


 ◎ 관련글

  제 목   작성자   날짜
VBA 무엇이 잘못되었는지? 호랑나비 2003-07-07
[재질문]VBA 무엇이 잘못되었는지? 호랑나비 2003-07-07