이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
![[레벨:4]](http://www.abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1851point (50%), 레벨:4/30"){kind=icon}
신강현일단 처음 선택한 영역과 Ctrl 을 누르고 선택한 영역에 색을 넣어주고싶어요..
with select.interior .color = vbBlueend with
이렇게되면 처음 선택한 영역에도 vbblue 의 색이 들어가고 또 다시 선택한 영역에도 vbblue의 색이 들어갑니다
여기서 제가 하고싶은것은
처음선택한 영역과 두번째 Ctrl 버튼을 누르고 선택한 영역의 색을 다르게 해주고싶습니다. 색은 랜덤으로요..
댓글 '4'
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
아별신강현님..
음.. 일단.. 미안합니다.
제가 질문을 잘 못 이해했네요..
질문을 하실때는 이 기능을 왜 구현하는지에 대한 목적을 설명을 해주시면..
더 좋은 방법을 찾을 수 있으며.. 제가 의욕도 더 생길 것 같네요..
왜.. 어디에 쓰는지 모르는 코딩을 한다는 건.. 의욕이 안 생깁니다.
다음 질문하실때 참고하시기 바랍니다.
음.. 도데체 이걸 어따 써먹으려는지 모르겠지만..
아래처럼 해보시겠어요?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rBefore As Range
Dim r As Range, lColor As Long
If Target.Areas.Count = 1 Then
Target.Interior.Color = vbBlue
Set rBefore = Target
Else
lColor = RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd))
For Each r In Target
If Intersect(r, rBefore) Is Nothing Then
r.Interior.Color = lColor
End If
Next r
Set rBefore = Target
End If
End Sub
첨부파일을 참고하세요..
다운받기 : selection답변2.xlsm
