|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
Data 를 조회후 조회된 데이터들의 행을 노랑색으로 자동 색칠하고 싶은데요..
현재는 조건부 서식으로 사용하고 있는데..내용이 바뀔때 마다 해야하니 번거러움이 있습니다.
방법이 없겠습니까..?
데이터 조회는 아래와 같이 하고 조회된 데이터를 바로 색칠하고 싶습니다.
Sub OP_조건별_검색()
Application.ScreenUpdating = False
s_c_flag = Cells(2, 4)
strSQL = "SELECT i_index, S_No, S_Seq, c_Code, c_flag"
strSQL = strSQL & " FROM [OP_Data$] "
strSQL = strSQL & " Where s_seq > 0 "
If s_c_flag <> "" Then
strSQL = strSQL & " AND c_flag ='" & s_c_flag & "'"
End If
strConn = "Provider= Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.FullName & ";" & "Extended Properties= Excel 12.0;"
Set rngRs = New ADODB.Recordset
rngRs.Open strSQL, strConn, adOpenForwardOnly, adLockReadOnly, adCmdText
Range("OP_Code_수정_Range").ClearContents
If rngRs.EOF Or rngRs.BOF Then
Else
Range("C5").CopyFromRecordset rngRs
No_Add
End If
Set rngRs = Nothing
Application.ScreenUpdating = True
End Sub
==============[update님 글에 대한 답변입니다]==============
첨부파일을 참고하여 수정 후 사용하십시요...
==============[잡초님 글에 대한 답변입니다]==============
첨부파일 참고하세요... |
|