VBA 3강 - 반복문 (다른거 말고 이것만 하세요!) 

구구단 과제 입니다 ^^ 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

open.kakao.com/o/glXWEB3b 같이 실습하고~ 질문하고~ 노력하는 VBA 공부방 카톡 주소 입니다. 엑사남 스승님께는 허락 받고 공유 합니다~ 실습 하시는데 어려움 있으신 분들은 언제든 놀러오세요~

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

안녕하세요! vba 강의 찾다가 좋은 선생님 발견해서 너무 감사한 마음에 댓 남깁니다! 좋은 영상 감사드려용!

과제는 아니지만,, 질문 하나 드려도 될까요?? 엑셀 시트의 셀 중에서 한글이 섞여 있는 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 자꾸 매크로 실행하면, 영어만 쓰여져 있는 셀들도 다 지워져 버리는데.ㅠ.ㅠ 어디가 잘못된 걸까요?

알찬 강의 감사합니다. :) 과제 답변에서 질문있어요. * 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 를 쓴것이었거든요... ^^;;)

좋은 강의 감사합니다. 질문이있는데요 sh.right = range("G1").right 구문은 왜 오류가 나는건가요? 도형의 오른쪽으로 G1열의 우측에 정렬해라. 라고 생각했는데

엑사남님의 강의를 잘 듣고 있어요...혼자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 도형 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

좋은강의 즐겁게 잘 보고있습니다. 감사합니다.

구구단 과제 잘 따라 가고 있습니다. 좋은 강의 감사합니다.

구구단 과제 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

바쁘신데, 이렇게 소중한 강의를 올려주셔서 너무 감사합니다. 예쁜이모티콘과 자막까지 강의 준비하시는데 오랜시간이 걸리시겠어요. 강의중 음성이 잘 전달되어서, 자막을 제작하시는 수고를 덜 수 있을것 같아요..

1) 최초 Dim선언을하면 초기값이 0인가요? 2) Shape가 5개라서 5번 수행하는건가요?

쌤 저 구구단 숙제 성공했어요!! 대학때 배운 행렬 방정식이 생각남요 ㅋㅋ다 까묵었지만요 ㅜ 감사해요 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

셀의 왼쪽이 있다면 오른쪽도 가능하겠죠? 근데 right를 치면 오류가 나네요... 그리고 위 아래도 가능할것같은데 up down 또한 오류가 납니다 각각의 명령어가 따로 있는지요?

문과출신 취미로 하고있습니다! 항상 강의 잘보고있습니다!! 감사합니다 숙제했는데.. 옮기는건 금방 했는데 계단식으로 만든다고 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에서 반드시 변수를 선언해야 하는 경우와 어떤 차이가 있는 것인지 궁금합니다.

강의 잘 들었어요^^

35년전에 해본 기억이 가물가물... 꾸준히 따라 가보면 퇴직전에 엑셀은 껌이 되려나요? Sub gugudan() Dim i As Long For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub

초보자 수준에 맞게 강의를 너무 잘하십니다.^^ 학원보다 더 좋은 유튜브 강의 감사드립니다.^^

20년 전에 프로그래밍까지 했던 전공자인데... 업무상 엑셀 활용이 필요해서 다시금 VBA 배우러 왔습니다. 안하고 버틸수 있을줄 알았는데 실무 못 벗어나니 결국은 해야하네요 ㅎㅎㅎ

좋은강의감사합니다. 귀에쏙쏙들어와요^^

두번째 과제입니다~~ 맨처음에 실행할때는 ' 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

힌트 보기전에 작성했습니다 ㅋㅋ 이런놀라운 발전이? 너무너무 감사합니다!! 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

이해력이랑 응용력이 부족해서 그런가 과제하는데 조금 오래걸리네요 ㅋㅋㅋ;;;;; 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

서브 구단 () '구이단 () '구유제 제일 비긴 j로 긴 희미한 j로 = j = 1 ~ 9 셀 (i, j) = i * j 넥스트 엔드 서브

과제관련 질문 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 이 추출되더라고요. 원래 그런건가요?

제가 A, B 시트를 비교하고 같은 두 개의 번호를 갖고 있는 항목이 있으면 A시트에서 B시트 값을 빼려고 하는데 어떤 코드를 쓰면 좋을지 여쭤봐도 될까요..?

처음이라 숙제가 쉽지많은 않지만 고민 많이 했습니다. 아래 두번째 숙제에서 색상이 저는 희한하게 빨>흰>파>녹>노 순으로 나오네요... 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

for each 예제 신박합니다. VBA가 숫자만 다루는줄 알았더니만.^^

좋은 강의 감사합니다

진심으로 감사드립니다!

강사님 너무 감사합니다. 덕분에 VBA 라는걸 알게되는군요.. 근데 질문이 있는데. 제가 VBA 배우려는 이유는 은행계좌를 회계테이블에 자동으로 입력하도록 하려고 하는거였는데. 은행자료 엑셀로 받으니 날짜가. 2020.6.2 09:30:53 이런식으로 시간까지 나오더라구요.. 이런걸 회계용 자료 즉 20200602 이런식으로 바꾸는것도 가능할까요?

재밌게 잘 배웠습니다. 감사합니다.

구구단 과제입니다~ 항상 감사해용~ 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

3월 21일 3강 완료! 감사합니다

안녕하세요 선생님 개체가필요합니다라는 오류는 어떤건가요? .. 424 런타임 오류가 발생하였습니다. 개체가 필요합니다 라고 뜨네요 ;;;ㅎㅎ 다들 잘하시네요.. ㅠㅠ

감시힙니다

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에 대해 아무것도 몰랐는데 신세계를 경험하게 해주시네요 감사합니다!!

엑사남님 강의 감사드립니다. 다름이 아니라 for i=1 to 9 대신 숫자가 아니라 특정 cell(예, K열 1~10행)를 지정 가능하다면 약간의 소스좀 부탁드립니다.

항상 감사합니다 ^^ 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공부를 여기서 했습니다 긴말 않겠습니다 좋아요 구독 눌렀습니다 끝까지 가보렵니다

안녕하세요 혹시 for 문과 foreach이중포문사용은 못하나요？

차이점이 뭘까요? for i = 1 to 9 for j= 1 to 9 cells(i,j) = i*j next j next i For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next

감사합니다!!!!

감사합니다 선생님

for문이 증가할때마다 lngC = lngC +1 이 될꺼에요 라고 하셨는데 이게 이해가 안갑니다. ㅠㅠ 이게 이해가 안가니 lngC = lngC -1도 이해가 안가요 ㅠ 설명 좀 부탁드려요