엑사남의 VBA 제 3강 반복문 입니다. 반복문의 종류는 여러가지가 있지만 딱 두가지만 할 줄 알아도 VBA 활용하는데 큰 무리가 없습니다. 일단. 어느정도 할 줄 알때! 그때부터 더 고급 기술을 배우세요. 욕심 부리지 말고... 하나씩 차근 차근... 기초가 튼튼해야 높이 쌓을 수 있습니다.
좋은 강의 정말 감사합니다. 끝까지 완주하겠습니다. 구구단 작성완료했습니다. 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
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
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"))
저는 이렇게 만들어봤어요 답이랑 과제 힌트 안보고 진행했습니다. 이것 저것 중구난방으로 안알려주시고 처음부터 차근차근 해볼수 있는것부터 알려주시니 따라가기 쉽고 바로 바로 결과를 낼 수 있어서 재밌네요. 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
과제 완료 했습니다. 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 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
과제 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 하고 계속 실패. 챗지피티에게 물어본 후 고치고 통과.
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 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
Sub 행열번호채우기() Dim 열번호 As Long Dim 행번호 As Long For 열번호 = 1 To 99 For 행번호 = 1 To 99 Cells(1, 열번호) = 열번호 Cells(행번호, 1) = 행번호 Cells(행번호, 열번호) = 행번호 * 열번호 Next
쌤 저 구구단 숙제 성공했어요!! 대학때 배운 행렬 방정식이 생각남요 ㅋㅋ다 까묵었지만요 ㅜ 감사해요 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 = 7 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("B1").Left sh.Fill.ForeColor.SchemeColor = lngC
3강도 수강 잘 받았습니다! Sub V_number() ' For ~ Next (반복하다) Dim i As Long 'Dim(변수지정)_i(이름)_As(이 것은)_Long(숫자이다) For i = 1 To 9 'For(반복 시작)_i(이름) = 1 To 9 (i의 값을 1~9까지 순차 반복) Cells(i, 1) = i 'Cells(셀 위치) (i, 1)(1열,1행) Cells(1, i) = i Next End Sub Sub gogodan() Dim i As Long Dim j As Long For i = 1 To 9 Cells(i, 1) = i For j = 1 To 9 Cells(i, j) = i * j 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 를 쓴것이었거든요... ^^;;)
구구단 과제 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가 "옮기다" 라는 식을 대표해서 쓰이는 것인가요?
두번째 과제입니다~~ 맨처음에 실행할때는 ' 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
과제는 아니지만,, 질문 하나 드려도 될까요?? 엑셀 시트의 셀 중에서 한글이 섞여 있는 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
안녕하세요 :) 정말 좋은강의를 듣고 있는 구독자 입니다 :) 2강까지는 숙제 댓글 안남겼는데... 전문가분께 깊은 고민 하나 상담해봅니다 ㅠ 제 공부 스타일이... 나이먹으면서 느끼는거지만 '완벽추구'라고 해야될까요... 그래서 영어도 그냥 이해하려 하지 말고, 무조건 외우면서 꾸준히가 중요하다는걸 느껴갈 무렵... 이번 프로그래밍도 ... 걸리는게 딱 하나 있습니다. 이해가 되지 않아요.... (강의가 이해가 되지 않는것이 아닙니다 ㅎ) 도형은 좋았는데, 구구단 숙제할때... 남들과는 다르게 1차적인 방법으로 풀긴 했습니다... +1, *9로 줄줄이 써갔죠... 하지만 다른분들의 답안을 보며 실행할때... 이해가 도무지 되지 않더군요. 문과쪽 두되는 굉장히 자부심이 있는데, 이과쪽 두뇌는 완전 문외한 입니다... 이런경우... 조금 힘들더라도 저만의 풀이로 나아가다가 다른 답안을 비교하면서 작성하다보면 이해력이 조금 늘지가 의문입니다 ㅠ 어찌보면 정말 기초적인 수학문제 같은데... 이정도면... 개발자가 무리일까요.... (참고로 파이썬할때 다중연속 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
재미있습니다. Sub Shape_color() Dim sh As Shape Dim lngC As Long lngC = 20 For Each sh In ActiveSheet.Shapes lngC = lngC - 1 sh.Left = Range("F1").Left sh.Fill.ForeColor.SchemeColor = lngC Next End Sub
For a = 1 To 10 For b = 1 To 10 Cells(a, b) = a * b
Next Next
End Sub '숙제 하다보니 이수식으로 숙제결과값은 맞은듯한데... 뭔가 수식을 건너뛴거같아 찜찜합니다 이것도 맞는거겠지요? ================================================== Sub homework2() Dim sh As Object Dim lngc As Long Dim lngd As Long
lngc =6
For Each sh In ActiveSheet.Shapes sh.Left = Range("g1").Left lngc = lngc - 1 sh.Left = Range("g1").Left sh.Fill.ForeColor.SchemeColor = lngc Next
End Sub ==================================================== '혼자서는 답을 찾지못해 다른분들 숙제를 참조하였습니다 lngc 값은 "-"가 되면 에러가 발생하네요 ㅠㅠ 궁금한거는 sh.Left = Range("g1").Left 를 sh.right = Range("g1").right 값으로 변경하니.. 에러가 나는데요 right 값은 없는걸까요? 왜 에러가 나는지 잘 모르곘습니다 열심히 공부할게요!
문과출신 취미로 하고있습니다! 항상 강의 잘보고있습니다!! 감사합니다 숙제했는데.. 옮기는건 금방 했는데 계단식으로 만든다고 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
안녕하세요. 검색을 하다가 좋은 영상을 보게 되어서 궁금한 사항에 대해 질문 좀 드리겠습니다. For i= 1 To 9 에서 1은 sheet2 의 지정된 셀에, 2 는 sheet3 의 지정된 셀에 3은 sheet4 의 지정된 셀에 순차적으로 옮겨 적으려면 어떻게 하는지 알고 싶습니다. 그리고 다음날 데이타는 그 밑에 계속 이어서 옮겨 적고 싶습니다
오픈채팅방 이용 부탁드립니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
다들 똑똑하시구나... 전 힌트 안보고 이렇게 했고... 새삼 무식하다는 것을 깨닫......ㅠㅠㅠㅠㅠㅠ for를 두번 쓰는게 가능할줄은 몰랐네요. Sub gugu() Dim i As Long For i = 1 To 9 Cells(1, i) = i Cells(2, i) = i * 2 Cells(3, i) = i * 3 Cells(4, i) = i * 4 Cells(5, i) = i * 5 Cells(6, i) = i * 6 Cells(7, i) = i * 7 Cells(8, i) = i * 8 Cells(9, i) = i * 9
Sub rnrneks() 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 For Each sh In ActiveSheet.Shapes lngc = lngc + 1 sh.Left = Range("B1").Left sh.Fill.ForeColor.SchemeColor = lanc Next End Sub Sub shape_color_2nd() 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 두번째과제도 컨닝 했습니다. 솔직히 고백 해요 ㅠ 계속 따라하다보면 언젠가는 늘겠지요?
![15. 엑셀로 달력 만들기 [채우기 핸들]로 1부터 30까지 쉽고 빠르게 입력하는 방법 '하나씩 입력하는 분들 필수 시청!'](/img/n.gif)
좋은 강의 정말 감사합니다. 끝까지 완주하겠습니다.
구구단 작성완료했습니다.
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 구구단()
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
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
숙제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
어제 구독하고 열심히 배우는 엑린이 입니다. 열심히 할게요~ 감사합니다.
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
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
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
🔘 너무나 쉽게 강의하여 감사합니다.
오늘은 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
감사합니다. *아래에 과제 코딩해봅니다.
'/첫번째 구구단문제
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
응용 잘 하셧네요 ㅎㅎ
도형이 7개면 어떻게 될까요?
@@excelloveman-3399 도형이 일곱개면 저 코드 그래도인상태에서 lngC=8로 수정하면 되나요??
준호 네 현재 시트에 모든 도형에 적용 됩니다
@@excelloveman-3399 감사합니당
강의 잘보고 있습니다,,갈때까지 한번,,쭈욱,쏙쏙,시원한강의 감사드립니다!
근무하다가 짬날때 마다 보고 있습니다.
빨리퇴근 할 수 있는 그날까지 열심히 배워보겠습니다.
너무 감사드립니다.
선생님 친절한 설명 너무너무 감사합니다 ~~~~ ❤❤❤ 응원합니다
두번째 숙제.
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
open.kakao.com/o/glXWEB3b
같이 실습하고~ 질문하고~ 노력하는 VBA 공부방 카톡 주소 입니다.
엑사남 스승님께는 허락 받고 공유 합니다~
실습 하시는데 어려움 있으신 분들은 언제든 놀러오세요~
엑셀 공부하시는 모든분들 안녕하세요
김또깡님은 제 강의를 열심히 듣고 실습하시는
열혈 구독자이십니다
서로 질문도하고 엑셀관련 실무적인 의견도 나누면
도움되실거라 생각합니다
저도 들어가서 눈팅할께요
모두들 응원합니다
저는 자막때문에 바빠서 이만 ...
쉽게 이해될 수 있도록 강의를 해 주시니 너무 좋아요~ 감사합니다.
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
고맙습니다.
열심히 공부하겠습니다.^^
과제물 올립니다.
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
안녕하세요. 반갑습니다. 구독좋아요
엑사남님의 강의를 잘 듣고 있어요...혼자vba도 해보고 잼있어요...넘 어려워 했는데 쉽게 알려주어서 감사합니다. 과제도 혼자서 열심해 해보고 있답니다. 늦은 나이에 배우는 것 힘드는데 엑사님 덕분에 다시 엑셀을 공부하게 되네요...감사합니다.~~
숫자는 잊으시고 열정에 응원하겠습니다
절대 포기하지 마세요
진심으로 감사합니다
과제 완료 했습니다.
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의 수치를 결정하여야 하는 건지 조금 애매합니다. 이 부분에 있어서 알려주실 수 있나요?
안녕하세요
코드 디버깅 관련 빠른 답변을 원하시면
카카오톡 엑사남 오픈채팅방
open.kakao.com/o/glXWEB3b
활용 하시면 좋아요 ^^
강좌를 두번째 돌려보는 중입니다. 다시 보니 이해가 더 잘되고있네요 ^^
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 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 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 하고 계속 실패. 챗지피티에게 물어본 후 고치고 통과.
안녕하세요! vba 강의 찾다가 좋은 선생님 발견해서 너무 감사한 마음에 댓 남깁니다! 좋은 영상 감사드려용!
좋은 강의 감사합니다. 너무 좋네요 강의 굿!
좋은강의 잘 듣고 갑니다
정말 상세하고 친절한 설명에 감사드립니다 ~~*^^*
구구단 칸 채우기가 이렇게 뿌듯할 수가 없어요 ㅋㅋㅋㅋㅋ 좋은 강의 고맙습니다
쉬운 해설 너무 감사합니다. 열심히 배울께요...
구구단 과제 잘 따라 가고 있습니다. 좋은 강의 감사합니다.
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 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
강의 정말 좋아요!!! 무릎 탁 치면서 배우고 있습니다
감사합니다
20년 전에 프로그래밍까지 했던 전공자인데... 업무상 엑셀 활용이 필요해서 다시금 VBA 배우러 왔습니다. 안하고 버틸수 있을줄 알았는데 실무 못 벗어나니 결국은 해야하네요 ㅎㅎㅎ
역시 고민하고 손으로 두드려야 기억에 오래 남습니다. 한번하고 끝낼게 아니라 여러번 해봐야겠습니다. 감사합니다.
네모로 바꿔서 해보는게 더 재미지네요 ㅋㅋ
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
네네 손가락이 기억합니다 ^^
양질의 강의 잘 듣고 있습니다. 감사합니다.
Sub 행열번호채우기()
Dim 열번호 As Long
Dim 행번호 As Long
For 열번호 = 1 To 99
For 행번호 = 1 To 99
Cells(1, 열번호) = 열번호
Cells(행번호, 1) = 행번호
Cells(행번호, 열번호) = 행번호 * 열번호
Next
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 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 shape_color()
Dim sh As Object
Dim lngC As Long
lngC = 7
For Each sh In ActiveSheet.Shapes
lngC = lngC - 1
sh.Left = Range("B1").Left
sh.Fill.ForeColor.SchemeColor = lngC
Next
End Sub
정말 쉽게 잘 알려주시는 것 같아요!! >_< 들으면서 적용하고 숙제해보고 있슴당!!
3강도 수강 잘 받았습니다!
Sub V_number() ' For ~ Next (반복하다)
Dim i As Long 'Dim(변수지정)_i(이름)_As(이 것은)_Long(숫자이다)
For i = 1 To 9 'For(반복 시작)_i(이름) = 1 To 9 (i의 값을 1~9까지 순차 반복)
Cells(i, 1) = i 'Cells(셀 위치) (i, 1)(1열,1행)
Cells(1, i) = i
Next
End Sub
Sub gogodan()
Dim i As Long
Dim j As Long
For i = 1 To 9
Cells(i, 1) = i
For j = 1 To 9
Cells(i, j) = i * j
Next
Next
End Sub
감사합니다! 참고로 cells 문장이 두 번 쓰여졌는데 위에 문장은 밑에 i, j 줄에서 포함된 문장이라 밑에꺼만 써도 구구단이 정상적으로 쓰여집니다^^
오늘도 동영상보면서 공부중이에요
감사합니다 ^^
힌트 보기전에 작성했습니다 ㅋㅋ 이런놀라운 발전이?
너무너무 감사합니다!!
Dim loA As Long
Dim loB As Long
For loA = 1 To 9
For loB = 1 To 9
Cells(loA, loB) = loA * loB
Next
Next
초보자 수준에 맞게 강의를 너무 잘하십니다.^^ 학원보다 더 좋은 유튜브 강의 감사드립니다.^^
과찬이십니다
감사합니다
유료강의 보다 더 낫습니다. 최고 네요.
좋은강의감사합니다. 귀에쏙쏙들어와요^^
네 감사합니다
응원할께요 ^^
좋은 강의 감사합니다. 질문이있는데요
sh.right = range("G1").right 구문은 왜 오류가 나는건가요?
도형의 오른쪽으로 G1열의 우측에 정렬해라. 라고 생각했는데
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
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 를 쓴것이었거든요... ^^;;)
안방문을 열고 나와서 화장실 문을 열고
볼일보고
다시 안방으로 갈때는?
화장실 문을 닫고 안방문을 닫는다
이해되실까요?
for i 를 하고 for j 를 하고
닫을때는
next j 를 닫고 next i 를 닫는다
항상 응원할께요
다른 강의를 더 보다 보니 쏙 쏙 이해가 됐어요 그리고 방금 댓글 달아주신 덕분에 확실히 이해 됐네요 ㅋㅋㅋㅋ 감사합니다 앞으로도 좋은 강의 부탁 드려요!
서브 구단 () '구이단 () '구유제 제일 비긴 j로 긴 희미한 j로 = j = 1 ~ 9 셀 (i, j) = i * j 넥스트 엔드 서브
정말 책보고 공부하다 포기했는데...... 넘넘 감사합니다^^
네 응원합니다
엑셀강의 중 최고의 강의
정말 쉽고 너무 잘 풀어주세요! 감사합니다
네 감사합니다
끝까지 포기 없이 퐈이팅입니다
구구단 과제
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가 "옮기다" 라는 식을 대표해서 쓰이는 것인가요?
네 열심히시라 뿌듯하네요
맞습니다
vba 에서 도형 정렬 기준은
top 와 left 로 약속되어 있습니다
만약 도형의 오른쪽 끝을 특정 셀 위치로 맞추려면
도형의 width (너비) 만큼 left 에서
빼는 방법을 사용합니다
노력을 응원합니다
감사합니다
그리고 left 가 옮기다라는 약속은 아니고요
도형.left = range("G1").left
라고 한다면
도형의 왼쪽 끝을
G1셀의 외쪽 끝과 같게 하라는 뜻입니다
@@excelloveman-3399 아!! 이해됐습니다. 옮기다가 아닌 특정 셀의 왼쪽 끝을 기준으로 맞춘다. 감사합니다.
최고의 강의!
감사합니다!!!
감사함니다 좋은 강의를 해주셔서 열심히 잘 따라 하고있습니다
for each 예제 신박합니다. VBA가 숫자만 다루는줄 알았더니만.^^
네네 ^^ 중요한 구문입니다
감사합니다. 계단식 정렬 과제 입니다.
Sub shape_color()
Dim sh As Object
Dim lngc As Long
Dim level As Long
lngc = 6
level = 1
For Each sh In ActiveSheet.Shapes
lngc = lngc - 1
sh.Fill.ForeColor.SchemeColor = lngc
sh.Left = Cells(1, level).Left
sh.Top = Cells(level, 1).Top
level = level + 1
Next
End Sub
강의 잘 들었습니다!!
과제 1
Sub gogodan()
Dim i As Long
Dim j As Long
For i = 1 To 9
Cells(i, 1) = i
For j = i To 9
Cells(i, j) = i * j
Next
Next
End Sub
과제2
Sub shape_color_test()
Dim sh As Object
Dim lngC As Long
lngC = 6
For Each sh In ActiveSheet.Shapes
lngC = lngC - 1
sh.Left = Range("F1").Left
sh.Fill.ForeColor.SchemeColor = lngC
Next
End Sub
감사합니다!!
두번째 과제입니다~~ 맨처음에 실행할때는 ' 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
그러면서 하나씩 배우시는거에요
저도 그랬습니다 ㅎㅎ
강의 잘 들었어요^^
재밌게 잘 배웠습니다. 감사합니다.
과제는 아니지만,, 질문 하나 드려도 될까요??
엑셀 시트의 셀 중에서 한글이 섞여 있는 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
구구단 과제입니다~ 항상 감사해용~
Sub V()
Dim i As Long
Dim y As Long
For i = 1 To 9
Cells(i, 1) = i
For y = 1 To 9
Cells(i, y) = i * y
Next
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 hw()
Dim sh As Object
Dim lngC As Long
lngC = 6
For Each sh In ActiveSheet.Shapes
lngC = lngC - 1
sh.Left = range("E1").Left
sh.Fill.ForeColor.SchemeColor = lngC
Next
End Sub
안녕하세요 :)
정말 좋은강의를 듣고 있는 구독자 입니다 :)
2강까지는 숙제 댓글 안남겼는데... 전문가분께 깊은 고민 하나 상담해봅니다 ㅠ
제 공부 스타일이... 나이먹으면서 느끼는거지만 '완벽추구'라고 해야될까요...
그래서 영어도 그냥 이해하려 하지 말고, 무조건 외우면서 꾸준히가 중요하다는걸 느껴갈 무렵...
이번 프로그래밍도 ... 걸리는게 딱 하나 있습니다.
이해가 되지 않아요.... (강의가 이해가 되지 않는것이 아닙니다 ㅎ)
도형은 좋았는데, 구구단 숙제할때...
남들과는 다르게 1차적인 방법으로 풀긴 했습니다... +1, *9로 줄줄이 써갔죠...
하지만 다른분들의 답안을 보며 실행할때... 이해가 도무지 되지 않더군요.
문과쪽 두되는 굉장히 자부심이 있는데, 이과쪽 두뇌는 완전 문외한 입니다...
이런경우... 조금 힘들더라도 저만의 풀이로 나아가다가
다른 답안을 비교하면서 작성하다보면 이해력이 조금 늘지가 의문입니다 ㅠ
어찌보면 정말 기초적인 수학문제 같은데...
이정도면... 개발자가 무리일까요....
(참고로 파이썬할때 다중연속 if 문에서부터 걸렸거든요 ㅠ)
안녕하세요.
강의 봐주셔서 감사합니다.
그런 문의 하시는 분들이 많습니다.
간단하게 말씀드려서
이해 다 되도록 공부하면서 코딩하는것보다
코딩을 반복하면서 이해하는 것이 경험상 빠릅니다.
기본 구문을 여러번 반복하면서 결과를 만들어 내시고,
제일 좋은건 그 구문들을 응용하여
간단하게라도 필요한 뭔가를 만들어 보는게 도움이 많이 됩니다.
참고로 저도 문과 출신이고,
제가 아는 고수분들도 문과 많습니다.
좋은 결과 있으시길 바랍니다.
@@excelloveman-3399 긴글에 너무 좋은 답변 감사합니다 ^^
엑사남님의 댁에 건강과 행복이 깃드시길 늘 기원하겠습니다 💕
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
상세한 설명 감사드립니다. 과제 혼자서 풀어보는데 나중에 도움이 될것 같습니다.
나 자신이 모자를 뿐 강의는 진심 최고 입니다...
별말씀을요 전 처음에 진짜 모질이였습니다요
처음이라 숙제가 쉽지많은 않지만 고민 많이 했습니다.
아래 두번째 숙제에서 색상이 저는 희한하게 빨>흰>파>녹>노 순으로 나오네요...
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
생에 첫 VBA공부를 여기서 했습니다 긴말 않겠습니다 좋아요 구독 눌렀습니다 끝까지 가보렵니다
네네 끝까지 함께 가시죠~~~
아 궁금한게 LEFT는 되는데 RIGHT는 안되네요 ^^';; sh.Right = Range("i1").Left
손완경 네네 위치를 잡을때는
left 와 top 만 가능합니다
right 를 편법으로 쓰는 방법은
left로 맞추고 나서
도형의 너비 width 만큼 빼거나 더해주어야 합니다
제 경험상 그런 경우는 거의 없습니다 ^^
재미있습니다.
Sub Shape_color()
Dim sh As Shape
Dim lngC As Long
lngC = 20
For Each sh In ActiveSheet.Shapes
lngC = lngC - 1
sh.Left = Range("F1").Left
sh.Fill.ForeColor.SchemeColor = lngC
Next
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
3월 21일 3강 완료! 감사합니다
진심으로 감사드립니다.
강사님 너무 감사합니다. 덕분에 VBA 라는걸 알게되는군요.. 근데 질문이 있는데. 제가 VBA 배우려는 이유는 은행계좌를 회계테이블에 자동으로 입력하도록 하려고 하는거였는데. 은행자료 엑셀로 받으니 날짜가. 2020.6.2 09:30:53 이런식으로 시간까지 나오더라구요.. 이런걸 회계용 자료 즉 20200602 이런식으로 바꾸는것도 가능할까요?
vba 아닌 left, search 함수로 콜론 찾아서 계산하면 가능합니다
진심으로 감사드립니다!
다음 강의 꼭꼭 기다립니다 ㅠㅠ
네 감사합니다
열심히 준비할께요
편안한밤 되세요 ^^
강의 감사합니다.
Sub homework1()
Dim a As Long
Dim b As Long
For a = 1 To 10
For b = 1 To 10
Cells(a, b) = a * b
Next
Next
End Sub
'숙제 하다보니 이수식으로 숙제결과값은 맞은듯한데... 뭔가 수식을 건너뛴거같아 찜찜합니다
이것도 맞는거겠지요?
==================================================
Sub homework2()
Dim sh As Object
Dim lngc As Long
Dim lngd As Long
lngc =6
For Each sh In ActiveSheet.Shapes
sh.Left = Range("g1").Left
lngc = lngc - 1
sh.Left = Range("g1").Left
sh.Fill.ForeColor.SchemeColor = lngc
Next
End Sub
====================================================
'혼자서는 답을 찾지못해 다른분들 숙제를 참조하였습니다 lngc 값은 "-"가 되면 에러가 발생하네요 ㅠㅠ
궁금한거는 sh.Left = Range("g1").Left
를 sh.right = Range("g1").right 값으로 변경하니.. 에러가 나는데요
right 값은 없는걸까요? 왜 에러가 나는지 잘 모르곘습니다
열심히 공부할게요!
네 right 는 없습니다
right를 하려면 left 와 도형너비 또는 셀너비
등으로 계산하여 맞추시면 됩니다
vba에서 객체 위치 기준은 top와 left 입니다
문과출신 취미로 하고있습니다!
항상 강의 잘보고있습니다!! 감사합니다
숙제했는데.. 옮기는건 금방 했는데 계단식으로 만든다고 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
구구단 따라해봤는데 넘 재밌어요 ㅋ 나이 47에 신세계네요 이게 재밌다니 ㅎㅎ
나이는 숫자에 불과합니다 ^^ 식상한가요?
1) 최초 Dim선언을하면 초기값이 0인가요? 2) Shape가 5개라서 5번 수행하는건가요?
안녕하세요 엑사남입니다^^
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
감사합니다!!!!
Sub shape_color2()
Dim sh As Object
Dim lngc As Long
Dim lngb As Long
For Each sh In ActiveSheet.Shapes
lngc = 5 - lngb
lngb = lngb + 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
다들 똑똑하시구나... 전 힌트 안보고 이렇게 했고... 새삼 무식하다는 것을 깨닫......ㅠㅠㅠㅠㅠㅠ
for를 두번 쓰는게 가능할줄은 몰랐네요.
Sub gugu()
Dim i As Long
For i = 1 To 9
Cells(1, i) = i
Cells(2, i) = i * 2
Cells(3, i) = i * 3
Cells(4, i) = i * 4
Cells(5, i) = i * 5
Cells(6, i) = i * 6
Cells(7, i) = i * 7
Cells(8, i) = i * 8
Cells(9, i) = i * 9
Next
End Sub
아주 중요한걸 깨우친거에요
화이팅입니다.
셀의 왼쪽이 있다면 오른쪽도 가능하겠죠? 근데 right를 치면 오류가 나네요...
그리고 위 아래도 가능할것같은데 up down 또한 오류가 납니다
각각의 명령어가 따로 있는지요?
Sub rnrneks()
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
For Each sh In ActiveSheet.Shapes
lngc = lngc + 1
sh.Left = Range("B1").Left
sh.Fill.ForeColor.SchemeColor = lanc
Next
End Sub
Sub shape_color_2nd()
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