1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

[레벨:30]아별

2013.03.14 14:05

신강현님..

음.. 일단.. 미안합니다.

제가 질문을 잘 못 이해했네요..


질문을 하실때는 이 기능을 왜 구현하는지에 대한 목적을 설명을 해주시면..

더 좋은 방법을 찾을 수 있으며.. 제가 의욕도 더 생길 것 같네요..

왜.. 어디에 쓰는지 모르는 코딩을 한다는 건.. 의욕이 안 생깁니다.

다음 질문하실때 참고하시기 바랍니다.


음.. 도데체 이걸 어따 써먹으려는지 모르겠지만..

아래처럼 해보시겠어요?


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


문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)