|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2010
* 아래줄에 질문을 작성하세요 >>
'1004'런타임 오류가 발생하였습니다. 응용 프로그램 정의 오류 또는 개체 정의 오류입니다. 라는 메시지가 뜨네요...
여기서 "비구속_3"="c5:e7" , "비구속_4"="c12:e14"입니다.
Sub flatness()
Dim cell As Range
Dim maxvalue
Dim minvalue
For Each cell In Range("비구속_3")
maxvalue = Application.WorksheetFunction.Max(Range("비구속_3"))
minvalue = Application.WorksheetFunction.Min(Range("비구속_3"))
If cell.Value = maxvalue Then
cell.Interior.Color = vbYellow
cell.Font.Color = vbRed
ElseIf cell.Value = minvalue Then
cell.Interior.Color = vbYellow
cell.Font.Color = vbRed
End If
Next cell
For Each cell In Range("비구속_4")
maxvalue = Application.WorksheetFunction.Max(Range("비구속_4"))
minvalue = Application.WorksheetFunction.Min(Range("비구속_4"))
If cell.Value = maxvalue Then
cell.Interior.Color = vbYellow
cell.Font.Color = vbRed
ElseIf cell.Value = minvalue Then
cell.Interior.Color = vbYellow
cell.Font.Color = vbRed
End If
Next cell
End Sub |
|