|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2007입니다
* 아래줄에 질문을 작성하세요 >>
오피스튜터 네이버 구글링 등의 검색을 통해
워크시트체인지로 지정위치 값의 정보에 따라 도형색상이 바뀌는 매크로를 찾아서 해보았는데요
제가 원하는건 한개만 바뀌는게 아니고
여러위치 값의 정보에 따라 연결되는 도형색상이 모두 바뀌게 되는 파일을 만들고 싶습니다.
심각한 매크로 초보자라... (매크로 기록해서 하는것만 해본...)
동일한 조건문을 반복하고 지정값만 변경하면 되겠거니 했는데...
계속 오류가 나서 이틀동안 머리싸매다가 결국 글을 남겨봅니다 ^^;;
고수님들의 도움 부탁드립니다 ~
[현재까지 작성된 코드]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Address(False, False) = "B4" Then
Dim sh As Shape
Set sh = Me.Shapes("E01_1")
Select Case Target.Value
Case Is = 1
sh.Fill.ForeColor.RGB = RGB(105, 105, 105)
Case Is = 2
sh.Fill.ForeColor.RGB = RGB(240, 240, 240)
Case Is = 3
sh.Fill.ForeColor.RGB = RGB(240, 240, 240)
End Select
End If
End Sub |
|