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

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

음..


일단 처음 선택한 영역과 Ctrl 을 누르고 선택한 영역에 색을 넣어주고싶어요..


with select.interior

.color = vbBlue

end with


이렇게되면 처음 선택한 영역에도 vbblue 의 색이 들어가고 또 다시 선택한 영역에도 vbblue의 색이 들어갑니다


여기서 제가 하고싶은것은


처음선택한 영역과 두번째 Ctrl 버튼을 누르고 선택한 영역의 색을 다르게 해주고싶습니다. 색은 랜덤으로요..


댓글 '4'

profile

[레벨:30]아별

2013.03.13 17:27:37
*.104.126.21

신강현님..
RGB함수와 RND함수를 이해하시면 될 것 같습니다.
F1을 눌러서 도움말을 참고해보세요..
다운받기 : selection답변.xlsm

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Selection.Interior.Color = RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd))
End Sub

ps. 첨부파일이 있으니 참 좋네요.. 후후..
첨부

[레벨:4]신강현

2013.03.13 17:35:05
*.218.33.33

음..일단 답변 감사합니다..


그런데 제 말은.. 만약 처음에 a1:c5 를 선택하고 선택된 상태에서 Ctrl 을 누르고 또다른 범위를 잡게되면 a1:c5와 다른색의 색이 나와야한다는 말이엿어요 .ㅠㅠ

profile

[레벨:30]아별

2013.03.14 14:05:14
*.104.126.21

신강현님..

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

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


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

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

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

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


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

아래처럼 해보시겠어요?


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


첨부

[레벨:4]신강현

2013.03.21 19:47:11
*.218.33.33

감사합니다 .. 참고 잘 하였습니다.ㅎㅎ

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40248
602 기타 인쇄매수 설정을 바꾸고 저장해도 계속해서 안 바뀐다면? file [3] [레벨:4]성투은자 2013-03-15 5063
601 엑셀일반 엑셀 질문있습니다~! [1] [레벨:1]얀수기 2013-03-15 3285
600 엑셀수식 수식좀 만들어주세요 [3] [레벨:4]요셉 2013-03-15 2726
599 추가기능(AddIns) 사용자지정 메뉴 아이콘 크기 크게 가능 한가요? [4] [레벨:5]맑은이슬 2013-03-15 2945
598 MATCH 두가지 조건을 만족시키려면 _ MATCH함수 응용 [1] [레벨:1]탐크루즈 2013-03-14 3750
» VBA 선택한 영역 랜덤 색 대해서 질문하겟습니다. file [4] [레벨:4]신강현 2013-03-13 3591
596 엑셀일반 기초질문 3개 드립니다. 감사합니다. file [3] [레벨:1]Patric Jane 2013-03-13 2991
595 엑셀수식 COUNTIFS? SUMIFS? file [2] [레벨:4]성투은자 2013-03-11 3242
594 VBA vba Activate 오류 질문합니다 file [3] [레벨:4]신강현 2013-03-11 3136
593 이미지,도형 등 이미지 밀림 현상... [2] [레벨:2]dizzy 2013-03-10 5806
592 배열수식 수식에 대해 문의드려요! file [2] [레벨:1]예진 2013-03-07 3464
591 VLookup 두 개의 조건이 일치하는 값 찾기. imagefile [3] [레벨:4]쟈니 2013-03-07 5944
590 VBA 엑셀 vba 함수 질문드릴게요. [4] [레벨:4]신강현 2013-03-04 4727
589 엑셀수식 (1년 전 당월~올해 전월 사용량) 합계의 월평균 구하기 file [3] [레벨:4]성투은자 2013-03-04 3772
588 SUMIF 특정문자 포함하는 셀에서 값을 더할 때 관련 질문입니다. [3] [레벨:1]별바라기 2013-03-01 5977
587 기타 미리보기도 1페이지인데, 똑같은 내용의 페이지가 2장씩 인쇄 file [6] [레벨:4]성투은자 2013-02-28 4552
586 엑셀일반 엑셀 -- 표시 외 n함수를 왜쓸까요?? [5] [레벨:2]song786 2013-02-27 4609
585 엑셀수식 엑셀 수식?질문 드려요 [3] [레벨:2]조기리 2013-02-26 3057
584 엑셀일반 win7에서 파일열기시 imagefile [2] [레벨:3]말키리 2013-02-25 2626
583 pivot 기본 피벗보고서에 있는 데이터 가져오기 file [3] [레벨:1]예진 2013-02-24 4423