구구단 과제 입니다 ^^ Sub 구구단() Dim i As Long Dim j As Long For i = 1 To 9 ''''''''''''''''''i = 1 부터 9까지 For j = 1 To 9 ''''''''j = 1부터 9까지 Cells(i, j) = i * j '''''''셀의 i행 j열을 i,j를 곱해주면 구구단완성 Next Next End Sub
Sub 도형정열및색칠() Dim 도형정열 As Object Dim 도형색칠 As Long Dim 변수 As Long 변수 = 6 For Each 도형정열 In ActiveSheet.Shapes 도형색칠 = 도형색칠 + 1 도형정열.Left = Range("g1").Left 도형정열.Fill.ForeColor.SchemeColor = 변수 - 도형색칠 Next End Sub
좋은 강의 정말 감사합니다. 끝까지 완주하겠습니다. 구구단 작성완료했습니다. Sub gugudan() Dim i As Long Dim j As Long For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub
vba로 도형도 움직이는것 처음 알았습니다. 너무 쉽게 알려주시네요. 감사드려요. 도형이동 Sub shape_test1() Dim sh As Object Dim IntA As Integer IntA = 6 Worksheets("test").Activate For Each sh In ActiveSheet.Shapes sh.Left = Range("b1").Left sh.Fill.ForeColor.SchemeColor = IntA IntA = IntA - 1 Application.Wait (Now + TimeValue("0:00:1")) Next End Sub
3강 For each ~next문 강의 감사합니다. Sub shape_color_right() Dim sh As Object Dim lngC As Long lngC = 6 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngC Next End Sub
어제 구독하고 열심히 배우는 엑린이 입니다. 열심히 할게요~ 감사합니다. Sub macro() Dim k As Long Dim t As Long For k = 1 To 9 For t = 1 To 9 Cells(k, t) = k * t Next Next End Sub Sub macro() Dim sh As Object Dim lngt As Long lngt = 6 For Each sh In ActiveSheet.Shapes lngt = lngt - 1 sh.Left = Range("G1").Left sh.Fill.ForeColor.SchemeColor = lngt Next End Sub
감사합니다. *아래에 과제 코딩해봅니다. '/첫번째 구구단문제 Sub gugudan() Dim i As Long Dim j As Long For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub '/두번째 원도형 색채워 옮기기 Sub shape2_color() Dim sh As Object Dim lngc As Long lngc = 6 For Each sh In ActiveSheet.Shapes lngc = lngc - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngc Next End Sub
오늘도 정말 잘보고 잘 배웠습니다 감사합니다!! Sub shape_color() Dim sh As Object Dim lngc As Long lngc = 6 For Each sh In ActiveSheet.Shapes lngc = lngc - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngc Next End Sub
Sub 행열번호채우기() Dim 열번호 As Long Dim 행번호 As Long For 열번호 = 1 To 99 For 행번호 = 1 To 99 Cells(1, 열번호) = 열번호 Cells(행번호, 1) = 행번호 Cells(행번호, 열번호) = 행번호 * 열번호 Next Next End Sub
오늘은 3강까지 보고 가겠습니다 강의 감사합니다 ㅎㅎㅎㅎ 밑에는 구구단 과제입니다 Sub gugudan() Dim i As Long Dim j As Long For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub + 도형 과제입니다 Sub shape_color() Dim sh As Object Dim lngc As Long lngc = 6 For Each sh In ActiveSheet.Shapes lngc = lngc - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngc Next End Sub
과제 1) Sub M_number() dim i As Long For i = 1 to 9 For j = 1 to 9 Cells (i,j)=i*j Next Next End sub **자꾸 실패했던 이유가 next를 한 번만 써서. 두 번 쓰고 통과 과제2) Sub shape_test1() dim sh as object dim IntA as long IntA = 6 For Each sh In ActiveSheet.Shapes sh.left = range("G1").left sh.fill.forecolor.schemecolor = IntA Next End Sub **오른쪽으로 옮겨야 되니 Right을 써야 되는 줄 알고 sh.right - range("G1").right 하고 계속 실패. 챗지피티에게 물어본 후 고치고 통과.
강좌를 두번째 돌려보는 중입니다. 다시 보니 이해가 더 잘되고있네요 ^^ Sub shape_color() Dim sh As Object Dim lngC As Long lngC = 6 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("G1").Left sh.Fill.ForeColor.SchemeColor = lngC Next End Sub
역시 고민하고 손으로 두드려야 기억에 오래 남습니다. 한번하고 끝낼게 아니라 여러번 해봐야겠습니다. 감사합니다. 네모로 바꿔서 해보는게 더 재미지네요 ㅋㅋ Sub shape_color_2() Dim sh As Object Dim lngc As Long lngc = 6 For Each sh In ActiveSheet.Shapes lngc = lngc - 1 sh.Left = Range("G1").Left sh.Fill.ForeColor.SchemeColor = lngc Next End Sub
안녕하세요 :) 정말 좋은강의를 듣고 있는 구독자 입니다 :) 2강까지는 숙제 댓글 안남겼는데... 전문가분께 깊은 고민 하나 상담해봅니다 ㅠ 제 공부 스타일이... 나이먹으면서 느끼는거지만 '완벽추구'라고 해야될까요... 그래서 영어도 그냥 이해하려 하지 말고, 무조건 외우면서 꾸준히가 중요하다는걸 느껴갈 무렵... 이번 프로그래밍도 ... 걸리는게 딱 하나 있습니다. 이해가 되지 않아요.... (강의가 이해가 되지 않는것이 아닙니다 ㅎ) 도형은 좋았는데, 구구단 숙제할때... 남들과는 다르게 1차적인 방법으로 풀긴 했습니다... +1, *9로 줄줄이 써갔죠... 하지만 다른분들의 답안을 보며 실행할때... 이해가 도무지 되지 않더군요. 문과쪽 두되는 굉장히 자부심이 있는데, 이과쪽 두뇌는 완전 문외한 입니다... 이런경우... 조금 힘들더라도 저만의 풀이로 나아가다가 다른 답안을 비교하면서 작성하다보면 이해력이 조금 늘지가 의문입니다 ㅠ 어찌보면 정말 기초적인 수학문제 같은데... 이정도면... 개발자가 무리일까요.... (참고로 파이썬할때 다중연속 if 문에서부터 걸렸거든요 ㅠ)
안녕하세요. 강의 봐주셔서 감사합니다. 그런 문의 하시는 분들이 많습니다. 간단하게 말씀드려서 이해 다 되도록 공부하면서 코딩하는것보다 코딩을 반복하면서 이해하는 것이 경험상 빠릅니다. 기본 구문을 여러번 반복하면서 결과를 만들어 내시고, 제일 좋은건 그 구문들을 응용하여 간단하게라도 필요한 뭔가를 만들어 보는게 도움이 많이 됩니다. 참고로 저도 문과 출신이고, 제가 아는 고수분들도 문과 많습니다. 좋은 결과 있으시길 바랍니다.
1. 구구단 Sub gogodan() Dim i As Long 'i 변수 타입 지정 (숫자 long) Dim j As Long 'j 변수 타입 지정 (숫자 long) For i = 1 To 9 'i값의 범위 지정(1 to 9) 후 반복문 시작(for) For j = 1 To 9 'j 값의 범위를 지정 Cells(i, j) = i * j 'i 값 지정 후 j값을 9까지 연산, 이후 다시 i값을 지정 반복 Next ' 곱셈에 대한 i 값에 대한 j값의 연산 반복 Next '1차 i값에 대한 반복문 지정 End Sub 2. 도형 색상 입히기 Sub shape_color2() Dim sh As Object ' 객체(도형)를 받는 변수 / 변수 타입 object Dim lngC As Long ' 숫자(색상)를 받는 변수 / 변수 타입 long ' 색상은 숫자로 표현이 가능 lngC = 6 '변수 값 정의함 For Each sh In ActiveSheet.Shapes ' 현재 시트 도형들 안에서 개별적으로 순환 lngC = lngC - 1 sh.Left = Range("G1").Left ' 도형의 왼쪽 위치는 b1셀의 왼쪽의 위치와 같다 sh.Fill.ForeColor.SchemeColor = lngC ' 도형에 색을 채우다 Next End Sub
과제는 아니지만,, 질문 하나 드려도 될까요?? 엑셀 시트의 셀 중에서 한글이 섞여 있는 cell은 clear 하고 싶어서 매크로를 짜봤는데요.. (영어의 경우 len=lenB라는 특성을 이용해서..) Sub test_01() Dim i As Long Dim j As Long For i = 2 To 26 For j = 2 To 16 If Len(Cells(i, j)) LenB(Cells(i, j)) Then Cells(i, j).Clear End If Next Next End Sub 자꾸 매크로 실행하면, 영어만 쓰여져 있는 셀들도 다 지워져 버리는데.ㅠ.ㅠ 어디가 잘못된 걸까요?
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
알찬 강의 감사합니다. :) 과제 답변에서 질문있어요. * For Next (아래 답변에서 엑사남쌤이 써주신 내용입니다) for i = 1 to 9 for j= 1 to 9 cells(i,j) = i*j >> next j >> next i 1) Next 를 두번 반복해서 아래에 쓰는 이유가 뭘까요? For 를 쓰는 숫자만큼 Next 도 써야 하는 거죠? 2) Next J 부터 쓰고 다음에 Next I 를 쓰는건 이유가 뭘까요? (제가 처음 생각 한것은 Next i 를 쓰고 J 를 쓴것이었거든요... ^^;;)
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
좋은 강의 감사합니다 끝까지 다 볼 수 있도록 노력하겠습니다 구구단 Sub GuGuDan() Dim i As Long Dim j As Long For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub 도형 Sub shape_color2() Dim sh As Object Dim lngC As Long lngC = 5 For Each sh In ActiveSheet.Shapes sh.Left = Range("G1").Left sh.Fill.ForeColor.SchemeColor = lngC lngC = lngC - 1 Next End Sub
과제 완료 했습니다. 1번 구구단 Sub gugudan() Dim i As Long Dim j As Long For i = 1 To 9 '1)i를 1~9까지 적는다' For j = 1 To 9 '2)j를 1~9까지 적는다' Cells(i, j) = i * j '3)셀의 i행, j열 부터 나열한다(i는 1~9, j는 1~9 값은 i행과 j행의 곱을 나열한다)' Next '4) 1)을 For 에서 to 까지 반복시킨다' Next '5) 2)를 For 에서 to 까지 반복시킨다' End Sub 2번 도형 G1 정렬 Sub Reverse_shape() Dim sh As Object 'Object를 이용하여 도형 지정-여기서 변수는 sh' Dim lngC As Long 'Long을 이용하여 수를 지정 - 여기서 변수는 LngC' lngC = 32 'lngC의 수치 지정(도형이 32개여서 32로 하였음)' For Each sh In ActiveSheet.Shapes 'For Each를 이용 sh를 이동시킴' lngC = lngC - 1 '컬러의 지정은 수로 나타내어짐(컬러는 반대로 시작해야 하므로 - 1로 지정)' sh.Left = Range("G1").Left 'sh를 G1으로 이동(좌우이동은 무조건 left, Right라는 것은 존재X)' sh.Fill.ForeColor.SchemeColor = lngC 'sh의 컬러를 변경 그 수치는 lngC 값에 따름' Next 'Next를 적은 뒤 끝(For Each~next)' End Sub 2번 도형 과제의 경우 아무렇게 복사 붙혀넣기를 했던 바람에 LngC =6으로 하니 실행이 안되었었는데 도형의 갯수인 32에 맞춰서 하였더니 실행이 되었습니다. 이게 실행된 것이 우연인 것인지 혹은 항상 도형의 갯수에 맞춰서 Lng의 수치를 결정하여야 하는 건지 조금 애매합니다. 이 부분에 있어서 알려주실 수 있나요?
고맙습니다. 열심히 공부하겠습니다.^^ 과제물 올립니다. Sub gugudan() Dim i, j As Long For i = 1 To 9 ' i = 1부터 9까지 반복 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub Sub shape_color2() Dim sh As Object Dim lngC As Long lngC = 6 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngC Next End Sub 건강하세요~~~
저는 이렇게 만들어봤어요 답이랑 과제 힌트 안보고 진행했습니다. 이것 저것 중구난방으로 안알려주시고 처음부터 차근차근 해볼수 있는것부터 알려주시니 따라가기 쉽고 바로 바로 결과를 낼 수 있어서 재밌네요. Sub gugudan() '구구단을 만들어보자' Dim i As Long Dim j As Long Dim k As Long If MsgBox("구구단을 외시겠습니까??", vbYesNo) = vbYes Then For k = 1 To 9 i = 1 j = 1 For i = 1 To 9 Cells(i, k) = k * j j = 1 + j Next Next Else End If End Sub
숙제2 Sub shape_color() Dim sh As Object Dim lngC As Long lngC = 6 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngC Next
you all prolly dont care but does any of you know a way to get back into an Instagram account..? I was dumb lost my login password. I would appreciate any assistance you can offer me
구구단 과제 Sub 구구단() Dim A As Long Dim b As Long For A = 1 To 9 For b = 1 To 9 Cells(A, b) = A * b Next b Next A End Sub 도형 옮기기 및 색상 과제 Sub practice() Dim A As Object Dim lngA As Long lngA = 6 For Each A In ActiveSheet.Shapes lngA = lngA - 1 A.Left = Range("G1").Left A.Fill.ForeColor.SchemeColor = lngA Next A End Sub 바쁘신 와중에 기다리던 3강 올려주셔서 대단히 감사드립니다! 천천히 잘 배우고 있습니다. 질문) 도형 과제에서 왼쪽에 있던 도형을 오른쪽 G1열로 옮기는 중에, 전 당연히 왼쪽 B쪽에 있던 도형을 오른쪽 G로 옮기려면 right를 쓰는 줄 알고 했더니 읽지를 못하고 옵션에도 right는 없더라구요. 그래서 left로 다시 한 번 해보니 결과물은 G1열로 이동이 된 걸 확인 할 수 있었습니다. vba에서는 오른쪽 왼쪽 구분이 없이 left가 "옮기다" 라는 식을 대표해서 쓰이는 것인가요?
sub shape_color() dim sh_a as object dim lng_a as long lng_a=6 for each sh_a in activesheet.shapes lng_a = lng_a -1 sh_a.left = sheets("sheet1").cells("g1").left sh_a.fill.forecolor = .schemescolor = lng_a next subend
안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
쌤 저 구구단 숙제 성공했어요!! 대학때 배운 행렬 방정식이 생각남요 ㅋㅋ다 까묵었지만요 ㅜ 감사해요 Sub gugudan() Dim i As long Dim j As long For i = 1 to 9 For j = 1 to 9 Cells (i, j) = i* j Next Next End Sub
문과출신 취미로 하고있습니다! 항상 강의 잘보고있습니다!! 감사합니다 숙제했는데.. 옮기는건 금방 했는데 계단식으로 만든다고 4시간을 씨름했네요.. GOTO문도 찾아보고 이것저것 해보다 결국 아래와같이 했는데.. 혹시 더 간단한 방법도 있을까요? Sub reverse_color() Dim SH As Object Dim lngC As Long lngC = 6 For Each SH In ActiveSheet.Shapes lngC = lngC - 1 If lngC = 5 Then SH.Left = Range("G1").Left SH.Fill.ForeColor.SchemeColor = lngC End If If lngC = 4 Then SH.Left = Range("H1").Left SH.Fill.ForeColor.SchemeColor = lngC End If If lngC = 3 Then SH.Left = Range("I1").Left SH.Fill.ForeColor.SchemeColor = lngC End If If lngC = 2 Then SH.Left = Range("J1").Left SH.Fill.ForeColor.SchemeColor = lngC End If If lngC = 1 Then SH.Left = Range("K1").Left SH.Fill.ForeColor.SchemeColor = lngC End If Next End Sub
안녕하세요. 검색을 하다가 좋은 영상을 보게 되어서 궁금한 사항에 대해 질문 좀 드리겠습니다. For i= 1 To 9 에서 1은 sheet2 의 지정된 셀에, 2 는 sheet3 의 지정된 셀에 3은 sheet4 의 지정된 셀에 순차적으로 옮겨 적으려면 어떻게 하는지 알고 싶습니다. 그리고 다음날 데이타는 그 밑에 계속 이어서 옮겨 적고 싶습니다
오픈채팅방 이용 부탁드립니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
두번째 과제입니다~~ 맨처음에 실행할때는 ' lngC = 6 i = 7 ' 를 For Each~~ 아래에다가 썼는데, 안돼서 위로 옮겼더니 제대로 나왔어요! For Next문이랑 헷갈려요ㅠㅠ Sub shape_color2() Dim sh As Object Dim lngC As Long Dim i As Long lngC = 6 i = 7 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 i = i - 1 sh.Left = Cells(1, i).Left sh.Fill.ForeColor.SchemeColor = lngC Next End Sub
'행과 열 모두 지우기 (10*10 범위) Sub DeleteAll() Dim i As Long Dim j As Long For i = 1 To 10 For j = 1 To 10 Cells(i, j) = "" Next Next End Sub '구구단 Sub Multiplication_Table() Dim i, j, k As Long '세로 내용 j = 1 For i = 2 To 10 Cells(i, 1) = j '행 번호를 1 씩 늘려가면서 숫자 기입 j = j + 1 Next '가로 내용 j = 1 For i = 2 To 10 Cells(1, i) = j j = j + 1 Next '구구단 계산 j = 2 k = 2 For i = 2 To 10 For j = 2 To 10 Cells(j, k) = (j - 1) * (i - 1) Next k = k + 1 Next End Sub
이해력이랑 응용력이 부족해서 그런가 과제하는데 조금 오래걸리네요 ㅋㅋㅋ;;;;; Sub shape_color() Dim sh As Object Dim lngC As Long lngC = 6 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("G1").Left sh.Fill.ForeColor.SchemeColor = lngC Next End Sub
두번째 숙제. Sub Homework_shape() Dim sh As Object Dim lngC As Long lngC = 6 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngC Next sh End Sub
Sub shape_color() Dim sh As Object Dim lngC As Long lngC = 5 For Each sh In ActiveSheet.Shapes sh.Left = Range("G1").Left sh.Fill.ForeColor.SchemeColor = lngC lngC = lngC + 1 Next End Sub
Sub shape_color2() Dim sh As Object Dim lngC As Long lngC = 6 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("G1").Left sh.Fill.ForeColor.SchemeColor = lngC Next End Sub
과제관련 질문 Sub gugudan() Dim i as Long Dim j as Long For i = 1 to 9 next For j = 1 to 9 Cells(i,j) = i * j next End sub 라고 썻더니 (10,1~9) 쎌에 쎌값이 10~90 까지 각각 계산값이 나오네요. For i= 1 to 9 인데 10 이 추출되더라고요. 원래 그런건가요?
for 문과 if 문을 같이 사용하면서 찾아야 합니다 첫번째 for 문은 sheet1 순환 그 안에 두번째 for 문은 sheet2 순환 두개의 for문 안에 아래 코딩을 참고해서 쓰시면 됩니다 if sheet1.range("A"&i) = sheet2.range("B"&j) then 변수 또는 셀 = sheet2.range("B"&j)-sheet1.range("A"&i) end if
처음이라 숙제가 쉽지많은 않지만 고민 많이 했습니다. 아래 두번째 숙제에서 색상이 저는 희한하게 빨>흰>파>녹>노 순으로 나오네요... Msgbox로 따로 lngV만 확인해보니 5>4>3>2>1 순서로 잘 출력 되었는데 말이죠. 정말 진심으로 좋은 영상 감사드립니다 Sub Gugudan_Homework() Dim i As Long Dim j As Long For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub ------------------------------------------------------------------- Sub Shapes_Move_Color_Homework() Dim sh As Object Dim lngV As Long lngV = 6 For Each sh In ActiveSheet.Shapes lngV = lngV - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngV Next End Sub
런타임 오류의 종류는 셀수 없을 정도로 많습니다. 카카오톡 오픈채팅방에 엑사남 검색하시고 입장하셔서 작성하시던 파일 올리시면 좋은 답변 많이 받으실 수 있습니다. 제가 만든 방은 아니고요 구독자분께서 만드시고 지금 잘 운영되고 있습니다. 공지 꼭 읽어보시고 앞으로 공부하시는데 도움되길 바랍니다.
Sub gugudan_() Dim i As Long Dim j As Long For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub vba에 대해 아무것도 몰랐는데 신세계를 경험하게 해주시네요 감사합니다!!
강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
항상 감사합니다 ^^ Sub gugudan() Dim lngA As Long Dim lngB As Long For lngA = 1 To 9 For lngB = 1 To 9 Cells(lngA, lngB) = lngA * lngB Next Next End Sub ---------------------------------------------------- Sub shapes_move_color() Dim sh As Object ''도형지정 Dim lngC As Long ''도형색깔 넘버 lngC = 6 For Each sh In ActiveSheet.Shapes ''활성시트의 shapes 내에서 순환 lngC = lngC - 1 ''도형마다 색깔 변경을 위해 sh.Left = Range("G1").Left ''도형 왼쪽을 G1 왼쪽으로 sh.Fill.ForeColor.SchemeColor = lngC Next End Sub
됩니다. 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b