엑셀VBA기초 제11강 - SelectionChange 이벤트, 마우스클릭하면 셀의 색이 바뀐다.(꿀 Tip는 덤)

[@김기왕-x9s]

Sub 색지우기() Range("F7").CurrentRegion.Interior.ColorIndex = 0 End Sub

[@acarushwang5606]

자막은 본강의 에서는 뺀다ᆢ실 코딩 내용이 더 중요합니다ᆢ자막으로 가려지면 ᆢ불편합니다

[@MJ-db4yo]

과제 *B2 = 마지막행번호 계산 셀 ===================이벤트 적용=================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) IngR = Range("B2") If Intersect(Target, Range("f7:f" & IngR)) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Interior.ColorIndex = 6 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else Target.Resize(1, 7).Interior.ColorIndex = 6 End If End Sub ===================이벤트 원복=================== Sub 단추1_Click() Dim i As Long For i = 7 To Range("b2") Range("F7:L" & i).Interior.ColorIndex = 0 Next i End Sub 감사합니다

[@pagchuseon]

고민하다가 4년전 과제물 보고 그대로 다시 하였습니다. 그때는 어떻게 했나 싶네요.. 기억은 없는데 기록물이 알려주네요...

[@김남웅-x9d]

자막이 크게 나오면 구문이 안보여 불편합니다. 자막은 작게 하단에만 나오게 해주시면 감사하겠습니다.

[@annekim8211]

[과제완료] - 좋은 강의 감사합니다. (워크시트) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f18")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Interior.ColorIndex = 6 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else Target.Resize(1, 7).Interior.ColorIndex = 6 End If End Sub (단추) Sub 단추1_Click() Dim i As Long For i = 18 To 7 Step -1 If Range("f" & i).Interior.ColorIndex = 6 Then Range("f" & i).Resize(1, 7).Interior.ColorIndex = 0 End If Next End Sub

[@손현주-p9q]

덕분에 열심히 잘배우고 있습니다.

[@혜린신-h9t]

늘 강의 감사드립니다. 자막이 큰 도움이 됩니다.

[@윤창영-i6i]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) lngR = Range("b10000").End(xlUp).Row If Intersect(Target, Range("b8" & ":b" & lngR)) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = 6 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else: Target.Resize(1, 7).Interior.ColorIndex = 6 End If End Sub 감사합니다

[@excelloveman-3399]

👍

[@inhyungjasperlee6869]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F26")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub Sub 지우개() Range("F6").CurrentRegion.Interior.ColorIndex = 0 End Sub

[@asdf-fb3xw]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F26")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub '지우기 Sub reg_color() Dim rngT As Range Set rngT = Range("F6").CurrentRegion.Offset(1, 0) rngT.Interior.ColorIndex = 0 End Sub

[@dalpang2]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("E5:E26")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target If .Interior.ColorIndex = 6 Then .Resize(1, 7).Interior.ColorIndex = 0 Else .Resize(1, 7).Interior.ColorIndex = 6 End If End With End Sub Sub button_click() Range("E5:K26").Interior.ColorIndex = 0 End Sub ________________________________________________________________________ *Then link the sub macro to the button from the sheet

[@자공-m7q]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("B4:B11")) Is Nothing Then Exit Sub With Target.Resize(1, Range("A1").Value).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub

[@부람쥐얼쑤]

감사합니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F26")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target.Interior '

[@masterenglishinmovies]

저는 자막은 지금처럼 다 달아주시되, 배경을 투명으로 하는 의견을 조심스레 제안해봅니다...! 아래와 같이 숙제 작성했는데, 뭔가 숫자를 바뀌어도 색깔이 제대로 안 나오네요 ㅠㅠ 코딩이 틀린 것 같지는 않아 일단 공유합니다 ㅎㅎ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngR As Long lngR = Range("f6").End(xlDown).Row If Intersect(Target, Range("f7:f" & lngR)) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target If .Interior.ColorIndex = 0 Then .Resize(1, 7).Interior.ColorIndex = 3 Else .Resize(1, 7).Interior.ColorIndex = 5 End If End With End Sub 버튼 모듈 내용 Sub delete() Dim lngR As Long lngR = Range("f7").End(xlDown).Row Range("f7:f" & lngR).ClearFormats End Sub

[@excelloveman-3399]

안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b

[@dukeunchung3379]

target을 클릭하면 color가 바뀌는 것까지는 좋은데, 잘못 클릭해서 color를 원위치 시키고자 할 경우, 바로 그 곳을 클릭해서는 안되네요. 다른 곳에 갔다가 다시 와서 찍어야 바꿀 수 있으니 실제 활용에서 제약이 많겠습니다. 엑셀 관련 유튜브사이트를 운영하시는 또 다른 한 분이 제공하는 자동고침 기능에서도 한번 입력을 잘못해 실패한 cell에서 다시 입력해도 작동이 안되고 다른 셀에 갔다 와야 해서 조금 불편했는데, 자동고침 기능은 그나마 실무적으로만 쓰면 되므로 참고 쓸 만합니다만, 직원명이 적힌 시트에서 직원명을 클릭하면 color가 바뀌고, 이 color를 기준으로 휴직대상자, 필수근무자를 table(vba든 조건부서식이든 어렵지 않지요)로 바로 보이도록 적용해서 사장께 보여드리고자 하나, 사장님이 잘못 클릭하실 경우, 아이고 잘못 눌렀네! 하고 다시 누르면 즉각 바뀌어야 하는데 이거 왜 이래? 하고 짜증내시겠어요. 해결 방법이 없을까요?

[@excelloveman-3399]

타겟을 찍고 색을 바꾸고 아래나 왼쪽 다른셀을 클릭하는 로직을 넣으면 될거 같네요 저는 기본적인 방법만 가르쳐 드리는것이고 코드는 원하는데로 필요에 맞게 만드는거라 생각합니다

[@excelloveman-3399]

아닙니다 저도 처음에는 똑같았습니다 아니 더했죠 ㅎㅎㄹ

[@gd8950]

1년 전 영상이지만.. 자막 있는게 좋아요.. 회사에서 소리없이 몰래 공부중이라.... ㅠㅠㅋㅋㅋㅋ

[@excelloveman-3399]

앗 요즘은 자막 안넣고 있습니다 ㅜㅜ 너무 바빠서요

[@no-ri-on]

저와 같으시네요 스피커빼버리고 자막만 의존하면서 하는데.. 없어졌으니... 아쉽네요 ㅠㅠ

[@excelloveman-3399]

그러시군요 ㅜㅜ 참고하겠습니다

[@kuylung9337]

항상 잘 보고 있습니다. 요즘도 질문이 유효한지는 모르겠으나...궁금한게 있어서 올려봅니다. intersect 포함한 if 문에는 end if가 없아도 실행되는데 문제가 없는것 같은데...왜그런지요

[@excelloveman-3399]

한줄로 끝나는 구문은 가능합니다.

[@kuylung9337]

@@excelloveman-3399 감사합니다~

[@lsmap86]

'Worksheet (Sheet1) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngR As Long lngR = Range("B10000").End(xlUp).Row If Intersect(Target, Range("B5:B" & lngR)) Is Nothing Then Exit Sub 'Target과 Range가 교차되는 부분이 없다면, 해당 프로시져를 빠져나가라! If Target.Count > 1 Then Exit Sub '선택한 셀이 하나가 아니라 범위를 드래그해서 선택했다면 '해당 프로시져를 실행말고 빠져나가라! With Target.Resize(1, 7).Interior If .ColorIndex = 3 Then .ColorIndex = 0 Else .ColorIndex = 3 End If End With End Sub 'Module Sub Homework() Dim lngR As Long lngR = Range("B10000").End(xlUp).Row For i = 5 To lngR If Range("B" & i).Interior.ColorIndex = 3 Then Range("B" & i).Resize(1, 7).Interior.ColorIndex = 0 End If Next i End Sub

[@thomasyoon9164]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F3:F22")) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = 3 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else Target.Resize(1, 7).Interior.ColorIndex = 3 End If End SubSub delete() Range("F2:L23").Interior.ColorIndex = 0End Sub 오늘도 강의 감사합니다.

[@bluerain1426]

매일 매일 잘보고 있습니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F26")) Is Nothing Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub

[@great_mase]

오늘강의도 감사합니다. Sub clear_color() Range("f8:l31").Interior.ColorInd33ex = 0 End Sub ------------------------------------------------------------------------- 요건 버튼 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f8:F31")) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = 3Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else: Target.Resize(1, 7).Interior.ColorIndex = 3 End If End Sub --------------------------------------------------------------------------------------- 요건 본문 과제 입니다 . 질문이 있습니다. 1. If Target.Interior.ColorIndex = 3 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else: Target.Resize(1, 7).Interior.ColorIndex = 3 이걸 3 -0 - 3의 순서가 아닌 0 - 3 - 0의 순서로 하면 왜 안되는거죠?ㅠ ---------------------------------------------------------------------------------------------------------------- 2. 범위지정을 For 문을 사용하면 안되는 이유가 뭘까요? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long Dim LngA As Long LngA = Range("f60000").End(xlUp).Row For i = 8 To LngA If Intersect(Target, Range("f" & i)) Is Nothing Then Exit Sub Target.Interior.ColorIndex = 3 If Target.Interior.ColorIndex = 3 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else: Target.Resize(1, 7).Interior.ColorIndex = 3 End If Next i End Sub

[@excelloveman-3399]

colorindex 가 0은 컬러번호가 아니고 컬러를 지정하지 않겠다는 뜻입니다 만약 컬러가 없는 셀의 색을 받으려면 컬러가 없는 셀의 컬러 인덱스 번호가 뭔지 확인해보세요 아마도 -4142 인가 그럴거에요

[@excelloveman-3399]

intersect 의 위치가 이상하네요 특정 위치의 셀이 바뀐걸 캐치해야 하는데 어딘지 알고 제한을 두기 위해서 intersect 를 사용합니다 for문 위로 보낵야 합니다 for 문 아래 그렇게 넣으면 예를들어 f10셀을 변경했을때 intersect 는 f8 부터 for 문을 탈것이고 그냥 종료됩니다

[@둥근세모-o8h]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F18")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub

[@marine-gift]

자막을 전부 뺴도 됩니다^^

[@jaehyunkwon100]

사실 자막은 필요 없습니다. 강의 속도와 설명을 정말 핵심사항만 잘 이해하도록 강의해주셔서 음성으로 이해가 다 됩니다. 혹시 이해가 안되면 그구간만 다시보면 충분히 알수있어서 자막은 없어도 될 것 같습니다. (ㅜㅜ 2년이 지난 강의이지만 넘 좋은 강의라서 일 5강은 듣게 됩니다. ) 제나름대로 응용 숙제를 하고 있습니다. 엑사남님 넘넘 감사드립니다.

[@김덕훈-b9s]

1번이요. 저처럼 노베이스인 사람들에겐 자막은 필수입니다. 좋은 강의 항상 감사합니다. 배우는 사람들을 위해 열정적으로 해주시는거 보고 감탄했습니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:L26")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target.Interior If.Interior.ColorIndex = 3 Then .Resize(1, 7)Interior.ColorIndex = 0 Else .Resize(1, 7)Interior.ColorIndex = 3 End If End With End Sub

[@excelloveman-3399]

감사합니다 중간에 몇강은 자막이 없을거에요 지금은 계속 넣고 있습니다

[@하이포이요]

혹시.. 강의 예제는 어디서 다운 받을수 있나요? ㅠ

[@jeongh0ban314]

저는 자막이 아주 큰 도움이 됩니다... 감사합니다.

[@jeongseungchon]

3번째 복습 공부 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("c5:c" & Range("b2"))) Is Nothing Then Exit Sub With Target.Resize(1, 7) .Interior.ColorIndex = 6 .Font.ColorIndex = 3 .Font.Bold = True End With End Sub Sub tablecolor_clear() With Range("c5:i" & Range("b2")) .Interior.ColorIndex = 0 .Font.ColorIndex = 1 .Font.Bold = False End With End Sub

[@youngholee6587]

요즘 제일 궁금하던 내용이었는데, 잘 봤습니다~

[@jeongseungchon]

나이먹어 이런 공부를 해야하나? 하는 생각이 들 정도로 어렵군요. 60에 해도 뭔가 득이 있겠지요? 조금만 젊었더라면 좋았을 것을~~ 하는 푸념도 해봅니다. 과제는...... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F4:F" & Range("b2"))) Is Nothing Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub b2셀에 =counta(f:f)+2로하고 양식컨트롤에서 단추를 표 상단에 삽입하여 매크로를 색칠지우기로 지정했습니다. 모듈에서 Sub 색칠지우기() Range("F4:L" & Range("b2")).Interior.ColorIndex = 0 End Sub

[@excelloveman-3399]

대단하세요 필요에 맞게 하시면 됩니다

[@김애용하세유]

자막이 있는게 좋습니다. 다만 그것이 가린다면 자막 음영을 옅게 하면 어떨지요?? 과제제출합니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f26")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub Sub colorindex0() Dim lngr As Long Dim i As Long lngr = Range("f10000").End(xlUp).Row For i = 7 To lngr If Range("f" & i).Interior.ColorIndex = 6 Then Range("f" & i).Resize(1, 7).Interior.ColorIndex = 0 Else End If Next i End Sub

[@이준환-p8q]

이번강의 30분동안 혼자 끙끙 앓다가 결국 해냈습니다!!! 너무 재밌었습니다. ㅎㅎ 자막은 중요부분만 달아주셔도 감사할 것 같습니다.!!! Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:F" & Range("b3").Value)) Is Nothing Then Exit Sub With Target If .Count > 1 Then Exit Sub If .Interior.ColorIndex = 3 Then .Resize(, 7).Interior.ColorIndex = 0 Else .Resize(, 7).Interior.ColorIndex = 3 End If End With End Sub ------------------------------------------------------------------------------------------------------------------------------------- Sub clear01() Range("f7:l" & Range("b3").Value).Interior.ColorIndex = 0 End Sub

[@excelloveman-3399]

네네 앞으로 편집부분을 좀 더 신경 쓸 생각입니다 감사합니다

[@정재학-b7z]

1번이요 청각장애인분들을 위해서는 필요한것 같습니다. 수고스러우시겠지만 자막을 일일히 넣어주셔서 감사드립니다.

[@canadamomowooju]

와.. 이번거 진짜 고민 많이 했어요 그래도 완성하니 또 재미 나네요. ㅎㅎ 질문 드립니다! :) 1) 아래 if 구문에서는 with/end with를 사용할 수 없겠죠? Resize 가 공통으로 안들어가서 안되는거 같더라구요.. 그냥 시도해 봤어요 ㅎㅎ 2) If 구문에서 Else~부분을 넣으면 실행이 안되더라구요.... 어느정도 이해는 됐는데.. Else를 제외하고 왜 실행이 안되는지 100%는 이해가 안되요 ㅠㅠ.. 3) Sub_Clear 는 모듈에 따로 만들어 넣지 않고, 아래 처럼 구문 아래바로 이어 써도 되던데 상관 없나요? 오늘도 강의 감사합니다!! :) ==================================================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngb As Long lngb = Range("F100").End(xlUp).Row If Intersect(Target, Range(("F3:F") & lngb)) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Interior.ColorIndex = 0 Then Target.Resize(1, 7).Interior.ColorIndex = 6 Else Target.Resize(1, 7).Interior.ColorIndex = 6 End If End Sub ================================================== Sub clear_button() Range("F2").CurrentRegion.Interior.ColorIndex = 0 End Sub

[@excelloveman-3399]

1. with 구문 사용 가능합니다. (그런데 if문에 두가지 경우 색상이 둘다 6 으로 동일하게 했네요... 실수 ^^) With Target.Resize(1, 7).Interior If Target.Interior.ColorIndex = 0 Then .ColorIndex = 6 Else .ColorIndex = 6 End If End With 2. 질문이 잘 이해가 안되네요 ㅜㅜ 위 if문 코딩대로라면 결과 6 이 동일하게 때문에 실행이 안되는것처럼 보일거 같아요. 3. 네 상관없습니다.

[@canadamomowooju]

엑사남ExcelLoveMan- 빠른 답변 감사합니다! ㅎㅎ 1) 또 새로운것 알았네요! ㅎㅎ 이것도 연습하겠습니다 2) 이번 if 구문에 else 를 꼭 사용 해야하는 부분이었어요....;; 혹여 시간 되실때 설명 부탁 드려요 :) 3) 상관 없군요! 감사합니다! VBA포기할뻔 했는데 덕분에 재미있게 공부하고 있어요 ㅎㅎ 넘 감사합니다! 😊

[@canadamomowooju]

@@excelloveman-3399 복습하다가 질문이 생겼습니다. With/If/Else 구문을 같이 쓰고 싶으면 With ->If ->Else 순서로 쓰고 닫아야 하나요? if 를 먼저 쓰고 with를 쓰는걸 시도해보니 안되더라구요. If랑 Else가 같이 와야 하는데, 제가 시도한건 with가 그 사이에 껴서 안되는 거였나봐요...^^;;

[@excelloveman-3399]

Eunyoung Choi 순서는 상관 없습니다 다만 with if else end if end with 이렇게 쓰시거나 if with end with else with end with end if 이런식으로 쓰셔야 구문에 맞습니다 with 를 어디에 두던 몇개을 쓰던 상관없고 with 와 end with 가 쌍으로 같이 다녀야 합니다

[@canadamomowooju]

@@excelloveman-3399 이건 노트에 크게 적어 둘게요 ㅎㅎㅎ 감사합니다 :)

[@jinheo1691]

강의 항상 잘 보고 있습니다. 감사합니다. 뒤늦게 시청하느라 자막에 대한 의견은 패스하겠습니다 ㅎㅎ 과제 남기고갑니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("F8:F" & Range("B2"))) Is Nothing Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub

[@great_mase]

오랜만에 복습합니다!! Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f26")) Is Nothing Then Exit Sub If Target.Resize(1, 7).Interior.ColorIndex = 6 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else: Target.Resize(1, 7).Interior.ColorIndex = 6 End If End Sub Sub 지우기() Dim i As Long i = Range("f10000").End(xlUp).Row Range("f7:L" & i).Interior.ColorIndex = 0 End Sub

[@excelloveman-3399]

반갑네요 새해 복 많이 받으세요

[@kimheungjun0]

혹시,,, 홍길동1 과, 홍길동2번 Row 만 선택했을 때, 홍길동1 번 row 에 해당 되는 셀 선택시 노랑색, 홍길동2 row 에 있는 셀을 선택 시 녹색으로 바뀌고 싶은데요, 코드 좀 부탁 드려도 될런지요? 고맙습니다.

[@excelloveman-3399]

안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b

[@kimheungjun0]

@@excelloveman-3399 네 알겠습니다. 감사합니다

[@핑크뿡75]

과제제출 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngR As Long lngR = Range("F100000").End(xlUp).Row If Intersect(Target, Range("F8:F"&lngR)) Is Nothing Then Exit Sub If Target.Count >1 Then Exit Sub Target.Interior.ColorIndex=6 Target.Copy Target.Resize(1,7).PasteSpecial xlPasteFormats Target.Select Application.CutCopyMode = False End Sub 단추로 지우기 Sub Buttonclear() Dim lngR As Long lngR = Range("F100000").End(xlUp).Row Range("F8:L"&lngR).Interior.ColorIndex=0 End Sub

[@TheBluemoon05]

자막을 전부 넣어주시면 공부하는데 많은 도움이 됩니다. 감사하겠습니다.

[@excelloveman-3399]

네 그렇게 하고 있습니다 감사합니다

[@kimheungjun0]

영상 너무 많은 도움이 됩니다. 감사합니다.

[@wonhyeonglee7341]

항상 잘 보고 있습니다. 쉬운 강의 스킬로 학습하기 너무 좋았습니다. 감사합니다. ㅎ

[@하늘을우러러]

자막은 필요합니다. 바쁘시면 없어도 됩니다.

[@excelloveman-3399]

넣고 있어요 ^^

[@_cash_cow2651]

과제를 이렇게 처리했는데요. Tip에서 말씀해주신 좌측위쪽에 counta를 넣어놓으면 편리하다고 하셨는데 왜 그것이 필요한지 설명해 주시면 안될까요? 제가 뭔가 놓치거나 문제를 잘못이해한것같아요. '지우기 버튼 Private Sub CommandButton1_Click() Range("C6:I21").Interior.ColorIndex = 0 End Sub '서식지정 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rowCount As Integer If Intersect(Target, Range("C6:C21")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Target.Resize(1, 7).Interior.ColorIndex = 3 End Sub

[@ed718pkn]

늘 감사한 마음으로 공부하고 있습니다 자막은 집중도와 이해력을 확실히 상승시킵니다 다만, 인트로와 중요한 부분만 넣어 주셔도 될 것 같습니다 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngR As Long lngR = Range("F10000").End(xlUp).Row If Intersect(Target, Range("F7:F" & lngR)) Is Nothing Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub Sub 지우기() Dim lngR As Long lngR = Range("F10000").End(xlUp).Row Range("F7:L" & lngR).Interior.ColorIndex = 0 End Sub

[@excelloveman-3399]

네 최대한 도움 되도록 반영하겠습니다

[@icando3927]

자막과 다른 문구가 겹쳐지지 않으면 좋겠습니다.

[@excelloveman-3399]

네네 뒤로 가면서 반투명으로 수정했습니다

[@회계형-t4g]

안녕하세요. 항상 좋은 영상 잘 보고 있습니다. Vba 하다보면 코드 자동완성이 활성화 안되는 경우가 많은데, 혹시 이유가 무엇일까요? 어떻게 해결해야할지 모르겠습니다..

[@excelloveman-3399]

안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b

[@sweet_seoro]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngR As Long lngR = Range("F10000").End(xlUp).Row If Intersect(Target, Range("F2:F" & lngR)) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Target.Resize(1, 7).Interior.ColorIndex = 6 End Sub Sub clear() Range("F2").CurrentRegion.ClearFormats End Sub

[@호G]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f25")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Interior.ColorIndex = 3 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else Target.Resize(1, 7).Interior.ColorIndex = 3 End If End Sub 위 구문은 잘 됩니다. 그런데.. 아래 구문은 잘 안되네요.. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f25")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Interior.ColorIndex = 0 Then Target.Resize(1, 7).Interior.ColorIndex = 3 Else Target.Resize(1, 7).Interior.ColorIndex = 0 End If End Sub 이유가 뭘까요?

[@excelloveman-3399]

안녕하세요 카카옥채팅방에 엑사남 검색하시고 가입하시면 실습중에 에러나는 파일 올려주면 소통 가능하세요

[@excelloveman-3399]

colorindex 의 값을 if 문에서 사용하실때 0 말고 -4142로 해보세요 0 은 색상코드는 아니고 색상을 취소한다고 생각하시면 됩니다

[@11flyever]

한참 걸렸네요 ^^ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("C4:C" & Range("B1"))) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Target.Resize(1, 7).Interior.ColorIndex = 4 End Sub Sub clear() Range("C2:I" & Range("B1")).Interior.ColorIndex = 0 End Sub

[@hana-in-china]

과제가 이전 공부내용 복습도 하고 좋네요!ㅎㅎ 근데 궁금한 게 이런 기능은 보통 실무에서 언제 사용을 하나요 ?? 단순 이벤트용인가용 ㅋㅋ

[@excelloveman-3399]

셀렉션체인지의 사용법을 알려드린거에요 체인지, 셀렉션체인지 모두 실무에서 많이 사용하는 이벤트입니다 물론 vba에 익숙한 실무에서요 예를들어 여러 데이터중 특정 셀을 클릭했을때 a,b,c 데이터를 이벤트 기준으로 변하면서 볼수 있는기능 이런걸 예로 들 수 있겠네요

[@Byeongjun1]

4. 자막은 유튜브 자막에 넣어주세요 (청각장애인을 위해서는 필요할 거 같아요) (모든 멘트를 다 넣을 필요는 없어도, 코딩 외에 설명을 위한 멘트 정도는 넣는 건 어떨까요) (코딩을 봐야 할 때는 자막에 (코딩 중) 이렇게 자막을 넣구요)

[@excelloveman-3399]

네 거기까지는 생각을 못했네요 18강 부터라도 신경쓰도록 하겠습니다 감사합니다

[@Byeongjun1]

@@excelloveman-3399 감사합니다!

[@piro9926]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("B2:B" & Range("K1"))) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target If .Interior.ColorIndex = 4 Then .Resize(1, 5).Interior.ColorIndex = 0 Else .Resize(1, 5).Interior.ColorIndex = 4 End If End With End Sub Sub homework_clean() Range("B2:F" & Range("K1")).Interior.ColorIndex = 0 End Sub 많이 해맸습니다... 그래서 댓글들을 좀 참조했었는대 내일 복습할때는 혼자 해봐야 겠어요

[@starkepark3288]

잘 보면서 따라하고 있어요 ^^ 그런데 버튼을 만들고 메크로 지정을 하려니 메크로 이름이 없네요... T.T Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F26")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub 단추를 만들어 " 색지우기"라 명명하고 메크로 지정을 하려하니 이름이 없어 단추를 더블 클릭해서 나온 창에 Sub 단추2_Click() Range("B9:H28").Interior.ColorIndex = 0 End Sub 위 처럼 써 넣었더니 색이 지워지기는 하는데 잘 한건지 확신은 안가네요 조언 부탁합니다.

[@excelloveman-3399]

이벤트 프로시져는 매크로 지정을 할 수 없습니다 이벤트는 사용자의 동작이 시작 버튼이나 마찬가지 입니다 이벤트가 아닌 일반 프로시져는 보일거에요

[@이정훈-e3f7l]

무조건 넣어주세요......안보일때...뭔가하고 더 봅니다..올려주시니깐 고맙습니다

[@excelloveman-3399]

소중한 의견 감사합니다. '안보일때' 가 어떤 의미죠?

[@이정훈-e3f7l]

화면이 자막때문에 약간 가려질때 입니다...다시보기합니다..

[@김크리스-n2z]

이번과제 이렇게 해봤습니다 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long i = WorksheetFunction.CountA(Range("C:C")) + 5 If Intersect(Target, Range("C7: C" & i)) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Target.Resize(1, 7).Interior.ColorIndex = 6 End Sub Sub reset() Range("C7").CurrentRegion.Interior.ColorIndex = 0 End Sub

[@이장희-v2u]

모듈에서 색상지우기를 만들고 단추에 매크로 지정하고(색상지울 때 counta의 셀 참조로) 워크시트에서 (sheet1) selectionchange로 성명열 선택하게 하고 색상변경(target.resize이용)으로 작성하여 성공하였습니다 감사합니다 ^^

[@이광혁-j7q]

감사합니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f26")) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = 3 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else Target.Resize(1, 7).Interior.ColorIndex = 3 End If End Sub (버튼) Sub clear_color() Dim i As Long For i = 26 To 7 Step -1 Range("f" & i).Resize(1, 7).Interior.ColorIndex = 0 Next i End Sub

[@마루모찌-s5j]

안녕하십니까 오늘도 과제 제출합니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("B4:B" & Range("B1000").End(xlUp).Row)) Is Nothing Then Exit Sub == 데이터가 아주 많을 때를 가정해서 범위를 잡아보았습니다. If Target.Count > 1 Then Exit Sub With Target.Interior If .ColorIndex = 7 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else Target.Resize(1, 7).Interior.ColorIndex = 7 End If End With End Sub Sub clearformats() Range("B4:H" & Range("h1000").End(xlUp).Row).Interior.ColorIndex = 0 == 이 부분 또한 데이터가 아주 많을때를 가정해서 작성 해 보았습니다. End Sub 항상 감사합니다. 건강하십시오, 아 그리고 자막은 조금 줄여도 될 것 같다고 생각합니다. 예를들어 중요한 코드가 나오는 부분은 자막이 필요하겠지만 그냥 이야기하는 부분은 자막을 뺀다던가 하는 방식으로 가면 좋을 것 같습니다.

[@excelloveman-3399]

넵 감사합니다 참고할께요 ^^

[@anstnghks016]

오늘도 좋은 강의 감사합니다! 밤에 자기전에 두시간정도 듣고 과제하는데 머리쓰니 잠도 잘오네요..! 내일도 찾아 뵙겠습니다 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F" & Range("G1"))) Is Nothing Then Exit Sub //// G1셀 =COUNTA(F:F)+5 With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub Sub 원상복귀() Range("F2:L" & Range("G1")).Interior.ColorIndex = 0 End Sub

[@excelloveman-3399]

네네 너무 무리하진 마세요 ^^ 응원할께요

[@말썽쟁이곰쥐]

항상 감사드립니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngR As Long lngR = Range("f7").End(xlDown).Row If Intersect(Target, Range("f7:f" & lngR)) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target If .Interior.ColorIndex = 5 Then .Resize(1, 7).Interior.ColorIndex = 0 Else .Resize(1, 7).Interior.ColorIndex = 5 End If End With End Sub Sub macro_지우기() Range("F7").CurrentRegion.Interior.ColorIndex = 0 End Sub

[@박재일-w7g]

exit sub가 들어가면 end if를 안 써줘도 되는건가요??

[@빅토리-j7f]

11강 실습 과제물은 어디서 다운 받을 수 있나요? 여러군데 찾아봤는데 안보여서 글로 남깁니다

[@excelloveman-3399]

실습파일이 없는 강의도 있어요

[@0_0hyunni]

오타 하나 때문에 계속 보고있었네요. 결국 해냈습니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F8:F20")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target If .Interior.ColorIndex = 5 Then .Resize(1, 7).Interior.ColorIndex = 0 Else .Resize(1, 7).Interior.ColorIndex = 5 End If End With End Sub Sub allback01() Dim i As Long For i = 8 To Range("A4") Cells(i, "F").Resize(1, 7).Interior.ColorIndex = 0 Next i End Sub

[@Byeongjun1]

과제하다가 큰 벽을 만나 질문 드립니다! 도와주세요~ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F26")) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = 0 Then Target.Resize(1, 7).ColorIndex = 6 Else Target.Resize(1, 7).ColorIndex = 0 >> 이 부분에서 오류가 났나봐요. 오류 화면 떠서 디버그 눌렀더니 여기에 노란 음영 표시가 되네요. End If End Sub

[@excelloveman-3399]

resize 다음에 interior 이 빠져있네요

[@Byeongjun1]

@@excelloveman-3399 도와주신 덕분에 과제 완성했습니다. 감사합니다! [Reset 버튼에 쓰일 매크로] Sub reset() Dim lngA As Long Dim lngB As Long lngA = Range("F1").End(xlDown).Row + 1 lngB = Range("F100000").End(xlUp).Row Range(Cells(lngA, 6), Cells(lngB, 12)).Interior.ColorIndex = 0 End Sub [선택할 때] Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F26")) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = 6 Then Target.Resize(1, 7).Interior.ColorIndex = 0 Else Target.Resize(1, 7).Interior.ColorIndex = 6 End If End Sub

[@excel3591]

안녕하세요. 오늘도 알찬 VBA 강의 감사합니다. 과제물 제출합니다. 고맙습니다.^^ 자막은 1 번입니다. 자막넣어주시는거 많은 도움이 됩니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LngLR As Long LngLR = Range("B1") If Intersect(Target, Range(("F7") & ":" & ("F" & LngLR))) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target.Resize(, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub _____________________________________________________________________________________________________________________________________ Sub Clear_Color() Dim LngFR, LngLR, i As Long LngFR = 7 LngLR = Range("B1") For i = LngFR To LngLR If Range("F" & i).Interior.ColorIndex = 6 Then Range("F" & i).Resize(, 7).Interior.ColorIndex = 0 Next i End Sub

[@갑똘e]

엑사남님 수정해서 작성 해보고 있는데요 색이 바뀐거는 해봤느데요 색 대신 문자 를 바꾸려고 해보니 Targt.intrior.colorindex 를 어떻게 바꿔야 할까요?

[@hyunwoongcho45]

무료로 양질의 강의 제공해주셔서 감사합니다. 과제 중 질문이 있어서 댓글 남깁니다. 셀 주소는 제 임의로 설정한거라 신경 안쓰셔도 됩니다. last = range("a1") If Intersect(target, range("b2:b"&last)) is nothing Then Exit Sub 이 부분을 currentregion을 활용해서 작성할수는 없나요?? If Intersect(target, range("b2").currentregion) is nothing Then Exit Sub 이런식으로 두고 실행해봤는데 실행이 안 되더군요.. 다음으로 resize 관련하여 질문이 있습니다. resize가 일시적인 변화인지요? 표현하기가 좀 어렵습니다만 range("c2").select Selection.resize(1,2).interior.colorindex = 3 이렇게 작성하면 실행이 정상적으로 되는데, range("c2").select Selection.resize(1,2) Selection.interior.colorindex = 3 이런식으로 작성하면 실행이 안되길래 여쭈어봅니다. 몇 달 전 영상이기에 댓글이 달릴지는 모르겠지만,, 강의 잘 보고 있습니다. 항상 감사드립니다.

[@excelloveman-3399]

If Intersect(target, range("b2").currentregion) is nothing Then Exit Sub 이부분도 정상 작동해야 합니다 이 구문의 뜻은 선택한 셀이 B2셀이 포함된 표 범위만 이벤트를 적용한다는 것입니다 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("B2").CurrentRegion) Is Nothing Then Exit Sub MsgBox 1 End Sub 이렇게 시트에 넣고 테스트 해보세요 Selection.resize(1,2).select Selection.interior.colorindex = 3 이렇게 하던가 또는 Selection.resize(1,2).colorindex = 3 이렇게 하시면 됩니다

[@the..9940]

감사합니다 강의가 뒤로 갈 수록 하루에 한 강좌 마스터도 힘드네요..ㅎㅎ 초반에는 하루에 2강씩도 욕심내서 했던 거 같은데... 난이도가 올라가는 만큼 어렵지만, 제 실력도 느는 거 같아서 너무 감사합니다~~ 좋은 영상입니다^^

[@excelloveman-3399]

난이도가 쉽기만 하면 그만큼 건질건 없을거에요 어려운만큼 숙달되시면 그 전꺼는 ㅋㅋㅋ 껌입니다 잘하실거에요 파이팅입니다

[@박가장과왕비]

전 자막 있었으면 좋겠습니다.

[@jjyun80]

이번 과제는 쉽다고 느껴져서 설명을 대충 듣고 시작했다가 마무리 하는데 한참 걸렸습니다. 과제 설명하시는 부분 몇 번을 돌려보고 서야 감 잡았습니다. 특히 Resize. 왜 처음 설명 들을 땐 Resize 활용하라는 말씀을 듣지 못했는지 ㅜㅜ 아무튼 모든 강의가 흘려들을 부분 없는 좋은 강의입니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F" & Range("B3"))) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Target.Resize(1, 7).Interior.ColorIndex = 3 End Sub Sub 단추1_Click() Range("F7:L26").Interior.ColorIndex = 0 End Sub

[@joon-hoseo8259]

이번 강의도 감사 드립니다. 토요일 아침에 눈 뜨자마자 강의 듣고 과제 중입니다~ 재미있어요^^)b (자막은 적절하게 넣는 게 좋은 것 같습니다.) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("C5:C" & Cells(1, 2))) Is Nothing Then Exit Sub With Target.Resize(1, 6).Interior If .ColorIndex = 3 Then .ColorIndex = 0 Else .ColorIndex = 3 End If End With End Sub

[@excelloveman-3399]

넵 감사합니다

[@jerjire7102]

자막 문제 없습니다. 지금처럼 있는게 좋습니다. 근데 뭐 발음이 분명하셔서 없어도 괜찮을 것같기도 하네요.

[@강대국-p4w]

과제 제출합니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:F26")) Is Nothing Then Exit Sub For i = 7 To Range("b2") If Range("F" & i) = Target Then Range("F" & i).Resize(1, 7).Interior.ColorIndex = 6 End If Next i End Sub Sub test1() Dim i As Long For i = 2 To Range("b2") If Range("f" & i).Interior.ColorIndex = 6 Then Range("F" & i).CurrentRegion.Interior.ColorIndex = 0 End If Next i End Sub

[@죠죠-x1s]

출첵요~ 자막은 빼고 강의노트를 따로 올려 주시는것도 좋을듯 싶어요 나중에 생각 안나서 동영상 다시 찾아보게 되거든요 원하는 내용 영상 뒤져보게 되드라구요 과제 질문입니다 resize로 잡아서 하긴 했는데 한개씩 선택하면 의도된데로 적용이 되는데 범위 선택하면 한줄만 적용이 되네요 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F" & Range("D2"))) Is Nothing Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 3 Then .ColorIndex = 0 Else .ColorIndex = 3 End If End With End Sub

[@excelloveman-3399]

출첵만 하고 가신건 아니죠? 과제물도 올려주세요 완경님 ~~~

[@excelloveman-3399]

네 완경님 소중한 의견 감사합니다 일단 자막관련은 12강 인트로에 어찌할지 결론 내렸고요 ^^ 저도 본업이 있는지라 강의노트를 따로 신경써서 올리기에는 손이 부족할것 같아요.(막내가 세살이라 ㅎㅎ) 제 생각이 맞는지는 모르겠으나 만약 정리된 강의 구문이 자주 플요하시다면 강의를 들으실때 따로 정리 노트를 직접 만드시는것도 학습에 도움이 되지 않을까 싶습니다. 저 또한 저만 알아볼수 있는 그런 요약 구문들을 지금도 찾을때마다 만들어서 정리합니다 ^^ 그게 진짜 내꺼가 되더라고요 감사합니다.

[@죠죠-x1s]

아하 넵 저만에 정리 노트를 정리하는게 좋겠군요 조언 감사합니다 ^^ 과제를 올리고 끈거 같은데 댓글수정이 안되어 있네요 몇가지 궁금한게 있습니다 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:F" & Range("B2"))) Is Nothing Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 3 Then .ColorIndex = 0 Else .ColorIndex = 3 End If End WithEnd Sub 1. resize를 넣었더니 한개씩 선택은 잘 되는데 범위선택은 안되요 (ex. F7:F10) 2. 예를 들어 F7을 선택하여 빨간색 만들고 다시 F7을 선택하면 변화가 없습니다 다른 셀을 찍을때만 색 변경이 가능한건지 Sub del() Range("F7:L" & Range("B2")).Interior.ColorIndex = 0 End Sub 3. 위와 같은 구문을 resize를 적용해도 가능 한건지 Range("F7:F" & Range("B2")).resize(1,7).Interior.ColorIndex = 0 F7:F27 까지 한줄만 잡고 resize 해봤는데 맨 윗 행만 지워져요

[@excelloveman-3399]

1. F열의 셀을 클릭할때 resize 로 선택한 F셀부터 1행7열 까지의 색상을 변경하는 것입니다. 2. 이미 선택한 셀은 다른 셀을 클릭했다가 다시 클릭해보세요 3. Range("F7").resize(Range("B2"),7).Interior.ColorIndex = 0 이렇게 하면 됩니다.

[@죠죠-x1s]

@@excelloveman-3399 오오오 되요 그런 방법이 감사합니다 ^^

[@benben-kh6in]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target.Interior If .ColorIndex = 0 Then .ColorIndex = 3 Else .ColorIndex = 0 End If End With End Sub 제가 생각하기로 0과 3의 위치를 바꿔도 작동할거라고 생각했는데 작동을 안하네요 이유가 뭘까요 ?

[@hi5jun]

재밌어요.. 엑사님이 조금이라도 덜 힘든방향으로 .. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngC As Long lngC = Cells(1, 1) If Intersect(Target, Range(Cells(5, 3), Cells(lngC, 3))) Is Nothing Then ' Or Target.Count > 1 Then Exit Sub End If With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub ********************* ' 도형삽입후 매크로 연결 Sub Del_color() Dim lngC As Long lngC = Cells(1, 1) Cells(5, 3).Resize(lngC, 7).Interior.ColorIndex = 0 End Sub

[@hucklee3919]

저도 가끔 베가스를 쓰기 때문에 자막 작업의 번거로움을 익히 아는데요. 엑사남님의 발성이나 발음에 문제가 있어 전달력이 떨어진다면 모를까, 전혀 그렇지 않기 때문에 수고로이 자막작업을 하실 필요는 없지 싶은데요. 당장 어제 오픈이벤트 강의만 해도 딱 한 번 들은 강의 내용을 떠올리며 전혀 막힘 없이 일필휘지로 완성할 수 있을 정도로 전달력이 훌륭했었는데요 뭐. 굳이 자막 안 넣으셔도 될 듯 ^^

[@excelloveman-3399]

아 이리 높게 평가해주시니 감사할 뿐입니다 네 잘 고민해서 어떻게든 듣는 분들께 도움되는 방향으로 반영하겠습니다 소중한 댓글 감사합니다

[@hucklee3919]

@@excelloveman-3399 감히 제가 평가를요? 가당치도 않구요~ 덕분에 이번엔 정말 그리도 하고 싶었지만 매번 넘어지길 반복햇던 VBA를 할 수 있을 것 같은 느낌이 점점 더 강해지는 게, 설레네요~ 넘 부담드리는 것 같아 죄송할 뿐이구요. 모쪼록 편안한 주말 되셨으면~^^(이 강의는 술 깨고 내일 봐야할 것 같네요.^^;:)

[@뽀리너죠]

3. 굳이 자막을 만드시는데 많은 시간이 걸리는 경우 자막이 도움은 되지만 자막없이도 더 좋은 양질의 강의가 올라오는게 좋을것같습니다. (자막이 필요한 사람의 경우 톱니바퀴 클릭 후 자막 > 사용함 으로 바꿔주면 약간 오타가 나지만 영상물의 자막이 나오게 됩니다 필요한 사람은 거기서 사용 가능합니다.) + 굳이 자막을 넣자면 검은 바탕 흰글씨가 아닌 투명 바탕에 투명도 30~40% 정도 넣은 하늘색이나 하얀색 정도가 좋아 보입니다.

[@excelloveman-3399]

네 답변 감사합니다 자막빼고 중요한 부분만 텍스트 이미지를 넣을까 고민해 보겠습니다

[@임종두-m5q]

자막이 가리기는 하지만 있는게 좋습니다.

[@pagchuseon]

자막 만드시는 시간이 오래 걸리니 동영상 강의 영상 제작에 더 많은 시간이 할애 되기를 희망합니다. 너무 시간에 쫒기면 마음이 다급해지니 망중한을 즐기는것도 좋을것 같습니다. 과제를 해보려고 하는데 실습화일 다운을 받는곳이 없네요.

[@excelloveman-3399]

네 감사합니다 그래도 도움 되시라고 자막은 계속 올리고 있네요 ^^ 실습파일이 있는것은 영상 하단 상세 펼치시면 다운로드 링크가 있습니다 링크 없는 영상은 실습파일이 없는 강의 입니다

[@the..9940]

복습 중에 써 봤는데, 안 돼서 질문드립니다~!! Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long If Intersect(Target, Range("f7:f26")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub For i = 7 To 26 If Range("f" & i).Select Then Range("F" & i).Resize(1, 7).Interior.ColorIndex = 6 End If Next i End Sub 라고 하니 안 되는군요... 흠.. 처음에 한 번 되더니 디버그 뜨면서 노랑으로 안 바뀌는군요 ㅠㅠ

[@excelloveman-3399]

For 문 안에 IF문 다시 확인해 보세요 참고로 코드만 봐서는 오류를 알기가 어렵습니다 카톡방에서 엑사남 검색하시면 오픈채팅방이 있습니다 오류 질문시는 실제 오류가 난 파일을 올리시면 서로 소통하고 학습이 가능합니다

[@jojuan2540]

감사합니다. ^^ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngR As Long lngR = Range("E1000").End(xlUp).Row If Intersect(Target, Range("E4:E" & lngR)) Is Nothing Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 6 Then .ColorIndex = 0 Else .ColorIndex = 6 End If End With End Sub

[@pagchuseon]

매일 강의 하나씩 학습하려고 했는데 오늘은 출장관계로 어제 학습한 내용의 과제로 대체합니다. 좋은 강의 감사합니다. 그리고 엑셀로 좌표입력하는 방법을 알려주신것도 감사합니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f" & Range("b3"))) Is Nothing Then Exit Sub Target.Resize(1, 7).Interior.ColorIndex = 6 End Sub 지우기는 다음과 같이 구성하였습니다. Sub 지우기() Range("F6:L26").Interior.ColorIndex = 0 End Sub

[@excelloveman-3399]

네 도움 되시길 바랍니다 감사합니다

[@sangboshin4020]

재미있는 강좌 감사합니다. 실력이 많이 늘었어요^^

[@excelloveman-3399]

아주 듣기 좋은 말입니다 감사합니다

[@kdcjyeng]

자막은 중요한 경우만 넣었으면 좋겠네요.. 지금의 .. 4분지1 정도로도 충분할거 같아요

[@excelloveman-3399]

네 소중하 의견 감사합니다 반영 하도록 할께요

[@부담독서자]

감사합니다

[@kangsamsung]

자막 안넣어도 될것 같에요,

[@excelloveman-3399]

감사합니다

[@jasonlim4511]

엑셀 Sheet 에서 Ctrl+F 단어 찾기 사용시 . 셀테두리 색상 변경 하는 방법좀 부탁 드립니다.. (제가 찾고자 하는 결과 셀 테두리가 기존문서처럼 검정색이라 잘 않보여서 그럽니다 - 하루에 30-50번정도 사용중 입니다) ..부탁 드립나다 . 감사 합니다..

[@excelloveman-3399]

안녕하세요 필요한 VBA 코드와 관련한 질문은 아래 카카오 오픈 채팅방을 이용하세요 open.kakao.com/o/glXWEB3b 입장하시면 공지 꼭 읽어 보시고 공지에 맞게 질문 하시면 됩니다

[@woomoomoo4121]

항상 좋은강의 감사합니다~ 자막은 중요부분만 넣었으면 좋겠어요~ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f" & Range("a2"))) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target If .Interior.ColorIndex = 3 Then .Resize(1, 7).Interior.ColorIndex = 0 Else .Resize(1, 7).Interior.ColorIndex = 3 End If End With End Sub

[@excelloveman-3399]

넵

[@sezinpaek8127]

3번 자막을 전부뺀다!! 항상 잘 보고 있습니다

[@excelloveman-3399]

넵 소중한 의견 감사합니다 인트로만 넣고 본강의는 중요한 부분만 넣으려고 합니다

[@twotwo9tnt]

항상 잘 보고 있고 많은 도움을 받고 있습니다. 감사합니다. 자막이 없는것 보다는 있는게 낫겠지만 일반 적인 내용은 굳이 자막이 없어도 될것 같아요. 중요 하거나 혹여 녹화중 틀린 부분과 추가 해야 하는 부분에 있어서 넣거나 자막을 넣는다고 하더라도 말없이 타이핑을 치는 시간에 마지막 자막을 계속 오랜 시간 켜 놔서 오히려 중요한 타이핑 자막을 가리는 경우가 있더라고요. 그런게 아니라면 자막은 있는게 좋죠. 위에서 말씀 드린것 처럼 꼭 필요한 부분만 넣으면 좋을것 같아요.

[@excelloveman-3399]

네 소중한 의견 감사합니다 인트로는 유튜브 자체 자막으로 투명하게 넣고 본 강의는 핵심만 텍스트 이미지로 삽입하는 쪽으로 생각 중입니다

[@뽀리너죠]

숙제가 꽤 오래 걸렸습니다.... Target.Row 구문 찾아보느라고 꽤 오랜시간이 걸렸네요. 선택된 행의 행값을 가져오는 것을 여러 방법으로 고민하다가 결국 구글링해서 찾아서 응용해 봤습니다. 항상 감사합니다.~~~ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngR As Long lngR = Range("B100").End(xlUp).Row If Intersect(Target, Range("B3:B" & lngR)) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = 6 Then Range("B" & Target.Row, "H3" & Target.Row).Interior.ColorIndex = 0 Else Range("B" & Target.Row, "H" & Target.Row).Interior.ColorIndex = 6 End If End Sub Sub click() Dim i As Long Dim lngR As Long lngR = Range("B100").End(xlUp).Row For i = 3 To lngR Range("B" & i).CurrentRegion.Interior.ColorIndex = 0 Next i End Sub

[@뽀리너죠]

12강 보고... resize 사용하면 된다는걸 뒤늦게 알았네요~

[@excelloveman-3399]

네네 resize 6강에서 나왔던 구문이긴 합니다만 자주 사용해야 기억이 나니까 구글링 하신게 천금같은 경험이였으리라 확신합니다 vba 기본을 알고 엑셀 기능을 알면 사실 + 구글링 이면 천하 무적이죠 기본을 알면 그다음 응용은 검색입니다 ^^ 항상 응원합니다 김또깡님

[@환장하노]

오늘도 숙제 완료!! Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("d7:l27")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Target If .Interior.ColorIndex = 3 Then .Resize(1, 7).Interior.ColorIndex = 0 Else .Resize(1, 7).Interior.ColorIndex = 3 End If End With End Sub Sub Homework_clear() Dim i As Long Set Rng = Cells(Rows.Count, "d").End(xlUp) For i = 7 To Rng.Row Range("d" & i).Resize(1, 7).Interior.ColorIndex = 0 Next i End Sub

[@wealthy8889]

자막 없어도 이해 잘되고 잘 들려서 괜찮은데 핵심 부분만 해주는 게 좋을 듯 하네요

[@excelloveman-3399]

넵 현재는 본강의는 꼭 필요한게 아니면 자막을 빼고 있습니다 감사합니다

[@김덕현-v3s]

저는 댓글 너무나 필요해요. 쏙쏙 정리되고 좋아요

[@excelloveman-3399]

넵 감사합니다

[@TheJaebeomPark]

전 핵심만 자막으로 넣는게 어떨까 합니다

[@excelloveman-3399]

넵 소중한 의견 감사합니다

[@byeonghanjeon1153]

음성으로도 충분한 것 같습니다.

[@excelloveman-3399]

네 소중한 의견 감사합니다

[@tv-ot3or]

1,감사합니다

[@boeunii]

전 본 강의에서 중요한 부분만 자막 넣어주시면 될 거 같아요