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 For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 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
저는 이렇게 만들어봤어요 답이랑 과제 힌트 안보고 진행했습니다. 이것 저것 중구난방으로 안알려주시고 처음부터 차근차근 해볼수 있는것부터 알려주시니 따라가기 쉽고 바로 바로 결과를 낼 수 있어서 재밌네요. 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
알찬 강의 감사합니다. :) 과제 답변에서 질문있어요. * 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 를 쓴것이었거든요... ^^;;)
안녕하세요 :) 정말 좋은강의를 듣고 있는 구독자 입니다 :) 2강까지는 숙제 댓글 안남겼는데... 전문가분께 깊은 고민 하나 상담해봅니다 ㅠ 제 공부 스타일이... 나이먹으면서 느끼는거지만 '완벽추구'라고 해야될까요... 그래서 영어도 그냥 이해하려 하지 말고, 무조건 외우면서 꾸준히가 중요하다는걸 느껴갈 무렵... 이번 프로그래밍도 ... 걸리는게 딱 하나 있습니다. 이해가 되지 않아요.... (강의가 이해가 되지 않는것이 아닙니다 ㅎ) 도형은 좋았는데, 구구단 숙제할때... 남들과는 다르게 1차적인 방법으로 풀긴 했습니다... +1, *9로 줄줄이 써갔죠... 하지만 다른분들의 답안을 보며 실행할때... 이해가 도무지 되지 않더군요. 문과쪽 두되는 굉장히 자부심이 있는데, 이과쪽 두뇌는 완전 문외한 입니다... 이런경우... 조금 힘들더라도 저만의 풀이로 나아가다가 다른 답안을 비교하면서 작성하다보면 이해력이 조금 늘지가 의문입니다 ㅠ 어찌보면 정말 기초적인 수학문제 같은데... 이정도면... 개발자가 무리일까요.... (참고로 파이썬할때 다중연속 if 문에서부터 걸렸거든요 ㅠ)
안녕하세요. 강의 봐주셔서 감사합니다. 그런 문의 하시는 분들이 많습니다. 간단하게 말씀드려서 이해 다 되도록 공부하면서 코딩하는것보다 코딩을 반복하면서 이해하는 것이 경험상 빠릅니다. 기본 구문을 여러번 반복하면서 결과를 만들어 내시고, 제일 좋은건 그 구문들을 응용하여 간단하게라도 필요한 뭔가를 만들어 보는게 도움이 많이 됩니다. 참고로 저도 문과 출신이고, 제가 아는 고수분들도 문과 많습니다. 좋은 결과 있으시길 바랍니다.
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
과제 완료 했습니다. 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의 수치를 결정하여야 하는 건지 조금 애매합니다. 이 부분에 있어서 알려주실 수 있나요?
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
과제는 아니지만,, 질문 하나 드려도 될까요?? 엑셀 시트의 셀 중에서 한글이 섞여 있는 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 구구단() 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 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
두번째 과제입니다~~ 맨처음에 실행할때는 ' 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
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
안녕하세요. 검색을 하다가 좋은 영상을 보게 되어서 궁금한 사항에 대해 질문 좀 드리겠습니다. 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
됩니다. 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
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
런타임 오류의 종류는 셀수 없을 정도로 많습니다. 카카오톡 오픈채팅방에 엑사남 검색하시고 입장하셔서 작성하시던 파일 올리시면 좋은 답변 많이 받으실 수 있습니다. 제가 만든 방은 아니고요 구독자분께서 만드시고 지금 잘 운영되고 있습니다. 공지 꼭 읽어보시고 앞으로 공부하시는데 도움되길 바랍니다.
Sub 행열번호채우기() Dim 열번호 As Long Dim 행번호 As Long For 열번호 = 1 To 99 For 행번호 = 1 To 99 Cells(1, 열번호) = 열번호 Cells(행번호, 1) = 행번호 Cells(행번호, 열번호) = 행번호 * 열번호 Next
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
안녕하세요 앞으로도 질문하실게 많을거에요^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
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
과제관련 질문 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 이 추출되더라고요. 원래 그런건가요?
처음이라 숙제가 쉽지많은 않지만 고민 많이 했습니다. 아래 두번째 숙제에서 색상이 저는 희한하게 빨>흰>파>녹>노 순으로 나오네요... 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
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 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
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
유투브 온라인 강의 중 최고네요. 감사합니다.
감사합니다^^ 초보가 보기에 딱 좋습니다~
강의 잘보고 있습니다,,갈때까지 한번,,쭈욱,쏙쏙,시원한강의 감사드립니다!
안녕하세요! vba 강의 찾다가 좋은 선생님 발견해서 너무 감사한 마음에 댓 남깁니다! 좋은 영상 감사드려용!
🔘 너무나 쉽게 강의하여 감사합니다.
선생님 친절한 설명 너무너무 감사합니다 ~~~~ ❤❤❤ 응원합니다
근무하다가 짬날때 마다 보고 있습니다.
빨리퇴근 할 수 있는 그날까지 열심히 배워보겠습니다.
너무 감사드립니다.
어제 구독하고 열심히 배우는 엑린이 입니다. 열심히 할게요~ 감사합니다.
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
숙제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 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 감사합니당
강의 정말 좋아요!!! 무릎 탁 치면서 배우고 있습니다
감사합니다
오늘은 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 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
네네 세번정도 보시면 거의 내꺼입니다
물론 실습 포함이요
응원할께요
쉽게 이해될 수 있도록 강의를 해 주시니 너무 좋아요~ 감사합니다.
좋은강의 잘 듣고 갑니다
정말 상세하고 친절한 설명에 감사드립니다 ~~*^^*
좋은 강의 감사합니다. 질문이있는데요
sh.right = range("G1").right 구문은 왜 오류가 나는건가요?
도형의 오른쪽으로 G1열의 우측에 정렬해라. 라고 생각했는데
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
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
저는 이렇게 만들어봤어요 답이랑 과제 힌트 안보고 진행했습니다.
이것 저것 중구난방으로 안알려주시고 처음부터 차근차근 해볼수 있는것부터 알려주시니 따라가기 쉽고
바로 바로 결과를 낼 수 있어서 재밌네요.
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
20년 전에 프로그래밍까지 했던 전공자인데... 업무상 엑셀 활용이 필요해서 다시금 VBA 배우러 왔습니다. 안하고 버틸수 있을줄 알았는데 실무 못 벗어나니 결국은 해야하네요 ㅎㅎㅎ
알찬 강의 감사합니다. :) 과제 답변에서 질문있어요.
* 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 를 닫는다
항상 응원할께요
다른 강의를 더 보다 보니 쏙 쏙 이해가 됐어요 그리고 방금 댓글 달아주신 덕분에 확실히 이해 됐네요 ㅋㅋㅋㅋ 감사합니다 앞으로도 좋은 강의 부탁 드려요!
안녕하세요 :)
정말 좋은강의를 듣고 있는 구독자 입니다 :)
2강까지는 숙제 댓글 안남겼는데... 전문가분께 깊은 고민 하나 상담해봅니다 ㅠ
제 공부 스타일이... 나이먹으면서 느끼는거지만 '완벽추구'라고 해야될까요...
그래서 영어도 그냥 이해하려 하지 말고, 무조건 외우면서 꾸준히가 중요하다는걸 느껴갈 무렵...
이번 프로그래밍도 ... 걸리는게 딱 하나 있습니다.
이해가 되지 않아요.... (강의가 이해가 되지 않는것이 아닙니다 ㅎ)
도형은 좋았는데, 구구단 숙제할때...
남들과는 다르게 1차적인 방법으로 풀긴 했습니다... +1, *9로 줄줄이 써갔죠...
하지만 다른분들의 답안을 보며 실행할때... 이해가 도무지 되지 않더군요.
문과쪽 두되는 굉장히 자부심이 있는데, 이과쪽 두뇌는 완전 문외한 입니다...
이런경우... 조금 힘들더라도 저만의 풀이로 나아가다가
다른 답안을 비교하면서 작성하다보면 이해력이 조금 늘지가 의문입니다 ㅠ
어찌보면 정말 기초적인 수학문제 같은데...
이정도면... 개발자가 무리일까요....
(참고로 파이썬할때 다중연속 if 문에서부터 걸렸거든요 ㅠ)
안녕하세요.
강의 봐주셔서 감사합니다.
그런 문의 하시는 분들이 많습니다.
간단하게 말씀드려서
이해 다 되도록 공부하면서 코딩하는것보다
코딩을 반복하면서 이해하는 것이 경험상 빠릅니다.
기본 구문을 여러번 반복하면서 결과를 만들어 내시고,
제일 좋은건 그 구문들을 응용하여
간단하게라도 필요한 뭔가를 만들어 보는게 도움이 많이 됩니다.
참고로 저도 문과 출신이고,
제가 아는 고수분들도 문과 많습니다.
좋은 결과 있으시길 바랍니다.
@@excelloveman-3399 긴글에 너무 좋은 답변 감사합니다 ^^
엑사남님의 댁에 건강과 행복이 깃드시길 늘 기원하겠습니다 💕
어제 처음으로 엑사남님의 여러 강의 보기 시작했는데 전형적인 문과인 저도 이해하기 쉽게 강의해주셔서 너무 감사드립니다. 열심히 해보려고 마음먹고 있습니다. 다시한번 감사 드립니다.
네 끝까지 포기하지 않기
약속입니다요 ^^
엑사남님의 강의를 잘 듣고 있어요...혼자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 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
양질의 강의 잘 듣고 있습니다. 감사합니다.
최고의 강의!
감사합니다!!!
과제 완료 했습니다.
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
활용 하시면 좋아요 ^^
정말 쉽게 잘 알려주시는 것 같아요!! >_< 들으면서 적용하고 숙제해보고 있슴당!!
좋은 강의 감사합니다. 너무 좋네요 강의 굿!
구구단 과제 잘 따라 가고 있습니다. 좋은 강의 감사합니다.
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 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 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 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 도형정열및색칠()
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
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
안녕하세요. 반갑습니다. 구독좋아요
엑셀강의 중 최고의 강의
3월 21일 3강 완료! 감사합니다
구구단 과제
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 아!! 이해됐습니다. 옮기다가 아닌 특정 셀의 왼쪽 끝을 기준으로 맞춘다. 감사합니다.
힌트 보기전에 작성했습니다 ㅋㅋ 이런놀라운 발전이?
너무너무 감사합니다!!
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 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
네 안녕하세요
강의 관련 질문은
카카오톡 단톡방 엑사남 검색하셔서
소통하세요 ^^
두번째 과제입니다~~ 맨처음에 실행할때는 ' 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
그러면서 하나씩 배우시는거에요
저도 그랬습니다 ㅎㅎ
진심으로 감사드립니다!
좋은 강의 감사합니다
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번 수행하는건가요?
안녕하세요 엑사남입니다^^
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
정말 책보고 공부하다 포기했는데...... 넘넘 감사합니다^^
네 응원합니다
Sub sh_color()
Dim sha As Object
Dim lngC As Long
lngC = 6
For Each sha In ActiveSheet.Shapes
lngC = lngC - 1
sha.Left = Range("g1").Left
sha.Fill.ForeColor.SchemeColor = lngC
Next
End Sub
그런데 아래와 같이는 안되네요.
sha.rigjt = Range("g1").Left
안녕하세요. 검색을 하다가 좋은 영상을 보게 되어서 궁금한 사항에 대해 질문 좀 드리겠습니다.
For i= 1 To 9 에서
1은 sheet2 의 지정된 셀에,
2 는 sheet3 의 지정된 셀에
3은 sheet4 의 지정된 셀에
순차적으로 옮겨 적으려면 어떻게 하는지 알고 싶습니다.
그리고 다음날 데이타는 그 밑에 계속 이어서 옮겨 적고 싶습니다
오픈채팅방 이용 부탁드립니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
생에 첫 VBA공부를 여기서 했습니다 긴말 않겠습니다 좋아요 구독 눌렀습니다 끝까지 가보렵니다
네네 끝까지 함께 가시죠~~~
아 궁금한게 LEFT는 되는데 RIGHT는 안되네요 ^^';; sh.Right = Range("i1").Left
손완경 네네 위치를 잡을때는
left 와 top 만 가능합니다
right 를 편법으로 쓰는 방법은
left로 맞추고 나서
도형의 너비 width 만큼 빼거나 더해주어야 합니다
제 경험상 그런 경우는 거의 없습니다 ^^
재밌게 잘 배웠습니다. 감사합니다.
셀의 왼쪽이 있다면 오른쪽도 가능하겠죠? 근데 right를 치면 오류가 나네요...
그리고 위 아래도 가능할것같은데 up down 또한 오류가 납니다
각각의 명령어가 따로 있는지요?
바쁘신데, 이렇게 소중한 강의를 올려주셔서 너무 감사합니다.
예쁜이모티콘과 자막까지 강의 준비하시는데 오랜시간이 걸리시겠어요.
강의중 음성이 잘 전달되어서, 자막을 제작하시는 수고를 덜 수 있을것 같아요..
넵 잘 봐주셔서 감사드립니다
감시힙니다
for each 예제 신박합니다. VBA가 숫자만 다루는줄 알았더니만.^^
네네 ^^ 중요한 구문입니다
엑사남님 강의 감사드립니다. 다름이 아니라 for i=1 to 9 대신 숫자가 아니라 특정 cell(예, K열 1~10행)를 지정 가능하다면 약간의 소스좀 부탁드립니다.
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
@@excelloveman-3399 채팅방 비밀번호 알수 있나요
서브 구단 () '구이단 () '구유제 제일 비긴 j로 긴 희미한 j로 = j = 1 ~ 9 셀 (i, j) = i * j 넥스트 엔드 서브
상세한 설명 감사드립니다. 과제 혼자서 풀어보는데 나중에 도움이 될것 같습니다.
다음 강의 꼭꼭 기다립니다 ㅠㅠ
네 감사합니다
열심히 준비할께요
편안한밤 되세요 ^^
강사님 너무 감사합니다. 덕분에 VBA 라는걸 알게되는군요.. 근데 질문이 있는데. 제가 VBA 배우려는 이유는 은행계좌를 회계테이블에 자동으로 입력하도록 하려고 하는거였는데. 은행자료 엑셀로 받으니 날짜가. 2020.6.2 09:30:53 이런식으로 시간까지 나오더라구요.. 이런걸 회계용 자료 즉 20200602 이런식으로 바꾸는것도 가능할까요?
vba 아닌 left, search 함수로 콜론 찾아서 계산하면 가능합니다
안녕하세요 혹시 for 문과 foreach이중포문사용은 못하나요？
됩니다.
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
@@excelloveman-3399 아 그렇군요 감사합니다
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 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
네 잘하셨네요
마지막까지 포기 마시고 퐈이팅입니다.
감사합니다!!!!
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
안녕하세요 선생님 개체가필요합니다라는 오류는 어떤건가요? .. 424 런타임 오류가 발생하였습니다. 개체가 필요합니다 라고 뜨네요 ;;;ㅎㅎ 다들 잘하시네요.. ㅠㅠ
런타임 오류의 종류는 셀수 없을 정도로 많습니다.
카카오톡 오픈채팅방에 엑사남 검색하시고 입장하셔서
작성하시던 파일 올리시면 좋은 답변 많이 받으실 수 있습니다.
제가 만든 방은 아니고요
구독자분께서 만드시고 지금 잘 운영되고 있습니다.
공지 꼭 읽어보시고 앞으로 공부하시는데 도움되길 바랍니다.
Sub 행열번호채우기()
Dim 열번호 As Long
Dim 행번호 As Long
For 열번호 = 1 To 99
For 행번호 = 1 To 99
Cells(1, 열번호) = 열번호
Cells(행번호, 1) = 행번호
Cells(행번호, 열번호) = 행번호 * 열번호
Next
Next
End Sub
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
Sub shapecolor()
Dim sh As Object
Dim lngC As Long
For Each sh In ActiveSheet.Shapes
lngC = lngC + 1
sh.Left = Range("F1").Left
sh.Fill.ForeColor.SchemeColor = lngC
Next
End Sub
선생님 색깔 말씀하신건 어떻게 해야하나요? 5~1로 바꾼다는게 이해가 안됩니다.
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
호기심에 해보니 사칙연산이나 과제는 변수를 선언하지 않고도 결과 값이 나오네여,, vba에서 반드시 변수를 선언해야 하는 경우와 어떤 차이가 있는 것인지 궁금합니다.
첫 강의때 알려주셨던거 같은데, dim으로 변수는 선언하되 long이나 string 등은 지정해주지 않아도 알아서 반응한다고 하시더라구요. 다만, 해당 변수가 long인지 string인지 확인하려면 PC가 한번 더 확인해야하니 큰 작업을 할때는 렉이 걸린다고 합니다.
하는 도중에 모듈에서 수정 삽입이 꺼지는 경우가 있더라구요.. 다시 지우고 글 쓰기가 너무 힘듭니다.. 어떻게 해야할까요
이번 강의도 감사히 배웠습니다.
그~ 런~ 데~ 말입니다↗
구구단을 만들 때 시작셀을 "A1"이 아니라
예를 들어 "B5셀"을 시작셀로 해서 구구단을 만들려고 하면 어떻게 해야될지 도통 노답입니다.
방법이 있다면 부탁드립니다.
안녕하세요
앞으로도 질문하실게 많을거에요^^
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
cells(i+1,j+4)=i*j 로 하시면 됩니다. i=1, j=1일 때 cells(2,5)일 것이고, 이는 B5셀를 뜻합니다.
For i = 1 To 9
Cells(i + 4, 2) = i
For j = 1 To 9
Cells(i + 4, j + 1) = i * j
Next
Next
이렇게 하니 b5셀부터 시작하네요.....
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
'엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
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 줄에서 포함된 문장이라 밑에꺼만 써도 구구단이 정상적으로 쓰여집니다^^
과제관련 질문
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 이 추출되더라고요.
원래 그런건가요?
셀에 있는 값이 아니고
그냥 변수값으로 계산하는군요
지금 만든데로 한다면
1행1열 (A1)셀 = 1 * 1
1행2열 (B1)셀 = 1 * 2
1행3열 (C1)셀 = 1 * 3 ...........
..............................................
9행1열 (A9)셀 = 9 * 1
9행2열 (B9)셀 = 9 * 2
9행2열 (C9)셀 = 9 * 3 .....
이런식으로 계산되겠네요...
의도하신바가 맞나요?
아 그리고
next 는 아래로 보내야 합니다
for i = 1 to 9
for j= 1 to 9
cells(i,j) = i*j
next j
next i
이렇게요
강의를 한번 더 집중해서 보시고
꼭 습득하시길 바랍니다
처음이라 숙제가 쉽지많은 않지만 고민 많이 했습니다.
아래 두번째 숙제에서 색상이 저는 희한하게 빨>흰>파>녹>노 순으로 나오네요...
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 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
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에 대해 아무것도 몰랐는데 신세계를 경험하게 해주시네요 감사합니다!!