VBA 강의 찾아보다가 정말 좋은 강의 찾았네요 각 강의별 핵심이 딱딱 정해져있는 기초강의 정말 너무 좋습니다 배운걸 토대로 과제 제출합니다 만약 더 좋은 방향도 있다면 조언해주시면 감사하겠습니다~ Sub test_01() Dim i As Long Dim lngR As Long lngR = Range("B2") For i = 7 To lngR If Range("F" & i) = Range("D2") Then Range("E2:I2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlFormats Range("J2:K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlFormulas ElseIf Range("F" & i) = Range("D3") Then Range("E3:I3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlFormats Range("J2:K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlFormulas End If Next i Range("E6").Select Application.CutCopyMode = False End Sub
너무 쉽게 알려주셔서 재밌게 공부하고 있습니다. Sub homework() Range("j2:k2").Copy Range("j7:k" & Range("b2")).PasteSpecial xlPasteFormulas Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = "남" Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlPasteFormats ElseIf Range("f" & i) = "여" Then Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next Range("e6").Select Application.CutCopyMode = False End Sub
다른분들거 참고도 하고 앞에 강의도 다시 보면서 만들었네요;; 다른분들 감사하고 존경스럽습니다^^; 강의 만드신 노고에 감사드립니다. Sub test() Dim i As Long For i = 7 To 18 If Range("F" & i) = "남" Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas Else Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas End If Next i End Sub
선생님의 강의 정말 감사합니다. 차근차근 쉽게 설명해 주셔서 이해가 잘됩니다. Sub test01() Dim i As Long Range("j2:k2").Copy Range("j7:k" & Range("b2")).PasteSpecial xlPasteFormulas For i = 7 To Range("b2") If Range("f" & i) = Range("d2") Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats ElseIf Range("f" & i) = Range("d3") Then Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats End If Next i Range("e2:k2").Select Application.CutCopyMode = False End Sub
좋은 강의 감사드립니다. 미숙하지만 아래와 같이 과제 수행했습니다. Sub test1() Dim u As Long Dim lngC As Long lngC = Range("v2").End(xlToLeft).Column For u = 7 To Range("b2") If Range("f" & u) = Range("d2") Then Range("e2:i2").Copy Range("e" & u).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & u).PasteSpecial xlPasteFormats Range("j" & u).PasteSpecial xlPasteFormulas Else Range("e3:i3").Copy Range("e" & u, "k" & u).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & u).PasteSpecial xlPasteFormulas End If Next u Range("e6").Select Application.CutCopyMode = False End Sub
Sub works() Dim lngA As Long For lngA = 7 To Range("b2") If Range("f" & lngA) = Range("d2") Then Range("e2:k2").Copy Range("e" & lngA).PasteSpecial xlPasteFormats Else Range("e3:k3").Copy Range("e" & lngA).PasteSpecial xlPasteFormats End If Range("j2:k2").Copy Range("j" & lngA).PasteSpecial xlPasteFormulas Application.CutCopyMode = False Next End Sub 열심히 독학중입니다. 항상 좋은 설명 감사합니다.
7강까지 왔습니다. 정말 재미있네요. 감사합니다 선생님! Sub Homework_Copy_Paste() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("J2:K2").Copy Range("J" & i, "K" & i).PasteSpecial Range("E2:I2").Copy Range("E" & i, "I" & i).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = "여" Then Range("J3:K3").Copy Range("J" & i, "K" & i).PasteSpecial Range("E3:I3").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats End If Next Range("K" & i).Select Application.CutCopyMode = False End Sub
강의 잘들었습니다ㅎㅎ 숙제있으니 정리가 더 잘되는 느낌이에요~! 이번에는 한번에 성공했습니다 ! Sub copy_n_paste_homework() 'for if 'for문태율때 전체복사(J:K),서식복사(E:I)를 따로 실행 Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("J2:K2").copy Range("J" & i, "K" & i).PasteSpecial Range("E2:I2").copy Range("E" & i, "I" & i).PasteSpecial xlPasteFormats Else: Range("F" & i) = "여" Range("J3:K3").copy Range("J" & i, "K" & i).PasteSpecial Range("E3:I3").copy Range("E" & i, "I" & i).PasteSpecial xlPasteFormats End If Next End Sub
혼자서는 과제물 해결이 안 되서, 댓글에 있는 완성된 코딩들을 참고했는데, 여기 코드가 가장 간결하더군요. 그리고 연속되는 셀을 선택할 때, Range("E" & i, "I" & i)와 같이 쉼표를 사용하든 Range("E" & i & ":I" & i)에서와 같이 콜론을 사용하든 모두 동일하게 작동된다는 사실도 확인했습니다. 감사합니다.
RESIZE는 복습하고자 사용했습니다~ Sub homework() Dim lngR As Long Dim i As Long lngR = Range("E100").End(xlUp).Row For i = 7 To lngR If Cells(i, "f") = Range("d2") Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas Else Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas End If Range("K" & i).Select Application.CutCopyMode = False Next i End Sub
이번에도 열심히 들었습니다! 항상 감사합니다! Sub assignment() Dim i As Long Dim LngA As Long '마지막열 찾기 LngA = Range("e60000").End(xlUp).Row For i = 7 To LngA '남자 If Range("f" & i) = Range("d2") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial xlPasteFormulas Range("e2:k2").Copy Range("e" & i).PasteSpecial xlPasteFormats '여자 ElseIf Range("f" & i) = Range("d3") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial xlPasteFormulas Range("e3:k3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Next i End Sub
강의 너무 감사합니다. 숙제에서 질문이 있는데요 sub test() dim i as long for i = 7 to range("B3") if range("F"&i) = range("D2") then range("E2:K2").copy range("E" & i & ":K" & i).pastespecial xlpasteformats range("J2:K2").copy range("E" & i & ":K" & i).pastespecial xlpasteformulas end if if range("F"&i) = range("D3") then range("E3:K3").copy range("E" & i & ":K" & i).pastespecial xlpasteformats range("J3:K3").copy range("E" & i & ":K" & i).pastespecial xlpasteformulas end if next i range("E6").select application.cutcopymode = false end sub 이렇게 해서 다 되는데 J13이 J12의 함수를, J17이 J16의 함수를 가지고 오는데 무엇이 문제일까요?
강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
좋은 강의 너무 감사드립니다! 이번 과제는 좀 어려워서 1시간도 넘게 걸렸네요.. 맞는지는 모르겠지만 막상 하고 나니 할만 하네요 항상 감사합니다! Sub hw() Dim i As Long Dim lngR As Long lngR = Range("E10000").End(xlUp).Row For i = 7 To lngR If Range("F" & i) = Range("D2") Then Range("J2:K2").Copy Range("J" & i & ":" & "K" & i).PasteSpecial xlFormulas Range("E2:K2").Copy Range("E" & i & ":" & "K" & i).PasteSpecial xlFormats End If If Range("F" & i) = Range("D3") Then Range("J3:K3").Copy Range("J" & i & ":" & "K" & i).PasteSpecial xlFormulas Range("E3:K3").Copy Range("E" & i & ":" & "K" & i).PasteSpecial xlFormats End If Next i End Sub
잘 배웠습니다! 혼자도 해보고 다른분들것도 보면서 여러가지 해보니 재밌네요 Sub test03() Dim i As Long For i = 7 To 18 If Range("f" & i) = "남" Then Range("e2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteAll End If If Range("f" & i) = "여" Then Range("e3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteAll End If Next i Range("f6").Select Application.CutCopyMode = False End Sub
강의 항상 감사합니다. 코로나 조심하시고 항상 건강하시길 바랍니다. 알려주신 내용 똑같이 따라해보고, 과제도 했습니다. 과제할 때 처음엔 어떻게 하지 했는데, 앞 강의에서 알려주신 내용으로 해결이 되네요 ㅇ_ㅇ)b Sub Copy_Male_Female() Dim i As Long Dim lngR As Long lngR = Range("E10000").End(xlUp).Row For i = 7 To lngR If Range("F" & i) = "남" Then Range("E2:I2").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i & ":K" & i).PasteSpecial Else Range("E3:I3").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i & ":K" & i).PasteSpecial End If Next i Range("E6").Select Application.CutCopyMode = False End Sub
영상 감사합니다 ㅎㅎ 과제완료요 여러가지방법이있군요.. 다른것도 보고 따라해봐야겠네요... 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 = 3 Then .ColorIndex = 0 Else .ColorIndex = 3 End If End With End Sub Sub copy() Dim i As Long Dim lngr As Long lngr = Range("o4") For i = 7 To lngr Range("f7 : g" & i).Interior.Color = 16182238 Range("h7 : k" & i).Interior.Color = 16777215 Range("l7 : l" & i).Interior.Color = 14282722 Next End Sub
완전 아무것도 모르고 엑셀이 좋아서 보기 시작했는데, 항상 감사드립니다. 늦게 발견해서 매일매일 보는데 너무 재밌습니다! 숙제는 겨우 했습니다 ㅠㅠ 포기할 뻔 했는데 매번 용기 주셔서 감사드립니다. 다른 분들과 다른 것 같은데 이렇게 해도 맞겠죠..? Sub Test_01() Dim lg_A As Long Dim lg_B As Long lg_B = Range("E1000").End(xlUp).Row For lg_A = 7 To lg_B If Range("F" & lg_A) = Range("D2") Then Range("J2:K2").Copy Range("J" & lg_A).PasteSpecial xlPasteFormulas Range("E2:k2").Copy Range("E" & lg_A).PasteSpecial xlPasteFormats ElseIf Range("F" & lg_A) = Range("D3") Then Range("J3:K3").Copy Range("J" & lg_A).PasteSpecial xlPasteFormulas Range("E3:k3").Copy Range("E" & lg_A).PasteSpecial xlPasteFormats End If Next Application.CutCopyMode = False End Sub
좋은 강의 늘 잘 듣고 있습니다. 감사합니다. 과제 완료! 한가지 궁금한게,, 조건식에서 단어가 동일한 경우 말고, 일부만 포함되도 실행하는 걸로 하려면 어떻게 해야 할까요? '남'뿐만 아니라, '남자' '끝남'과 같이 '남'이 포함되기만 해도 실행되는 것처럼 할려면여.. Sub test01() For i = 7 To Range("B2") If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = Range("D3") Then Range("E3:K3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next i End Sub
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
양질의 강의 감사합니다 너무 재밌어요! Sub test() Dim i As Long Dim j As Long i = Range("e1000").End(xlUp).Row Range("j2:k2").Copy Range("j7:k" & i).PasteSpecial xlPasteFormulas For j = 7 To i If Range("f" & j) = "남" Then Range("e2:k2").Copy Range("e" & j).Resize(1, 7).PasteSpecial xlPasteFormats Else Range("e3:k3").Copy Range("e" & j).Resize(1, 7).PasteSpecial xlPasteFormats End If Next j End Sub
안녕하세요. 그동안 조용히 댓글 안 달고 보다가 다른분들께서 과제한 거 올려주신게 도움이 많이 돼서 저도 공유하고자 합니다. 엑사남님 좋은 강의 항상 감사합니다. Sub test04() Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = Range("d2") Then Range("e2:i2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteFormulas ElseIf Range("f" & i) = Range("d3") Then Range("e3:i3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas End If Next i Application.CutCopyMode = False End Sub
저도 헤매다가 다른 분들 과제 보고 힌트 얻어서 다시 했네요. 감사합니다. Sub Test01() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = Range("D2") Then Range("E2:I2").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i).PasteSpecial xlPasteAll Else Range("E3:I3").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i).PasteSpecial xlPasteAll End If Next i Range("E6").Select Application.CutCopyMode = False End Sub
강의 감사합니다. 중간에 다른 것 하다가 다시 시작했는데, 두 번 들으니 더욱 더 이해가 잘되네요. Sub test01() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("E2:K2").Copy Range("e" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("j" & i).PasteSpecial xlPasteFormulas Else Range("E3:K3").Copy Range("e" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("j" & i).PasteSpecial xlPasteFormulas End If Next i End Sub
전체 표 범위 : currentregion, 이전 서식 지우기 range(" ").currentregion.clear 예제1) Range("F6:L10")이렇게 하면 f6부터 L10까지의 범위 Sub test01() Range("O6").CurrentRegion.Clear Range("F6:L10").CurrentRegion.Copy Range("O6").PasteSpecial Application.CutCopyMode = False End Sub 예제2) 수식으로 저장하면 파일 무거움. 따라서수식이 아닌 값으로 변환하여 저장 Sub test01() Range("F6").CurrentRegion.Copy Range("F6").PasteSpecial xlPasteValues Range("F6").Select Application.CutCopyMode = False End Sub xlPasteformulas -->수식만 xlplasteformat -->서식만
안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
정말 훌륭한 강의입니다. 많이 배웁니다 감사합니다. range 함수 관련 질문이 있습니다. 기본문법이 range("A1") 이런식인가요? 그런데 어떻게 1을 대신하는 변수 (i=1)를 넣고 따옴표가 없이 range("A" & i) 가 가능한지요? range("A" & i & "") 이게 맞지 않나요 (따옴표로 마치는 부분) ,VBA에서 둘다로 해보니까 다 가능하더라고요..문법이 좀 blurry하지 않나 싶어서요..
range 는 빼고 안에 내용만 보고 말씀 드리겠습니다 A1 은 문자를 코드로 쓰기 위해서 큰따옴표로 "A1" 이라고 묶습니다 변수 i 는 큰따옴표로 묶지 않습니다 문자 A와 변수 i 를 연결하기 위해 "A"&i 라고 사용하는 것이고 "A"&i 와 "A1" 은 동일한 것입니다 추가로 "A"&i&"" 이것은 문자 A 와 변수 i 와 아무것도 아닌 ""공백을 연결 하는 것이니 이또한 A1 과 같은 뜻이 됩니다
오늘도 1깡합니다~ :) 유저폼까지도 자유롭게 다뤄서 유용한 tool을 만들고 싶습니다. 강의 감사드립니다!! Question) 모듈창에서 F5로 실행한 이후 변경된 시트를 Ctrl+Z로 되돌아가기가 되지 않습니다. 방법이 있을까요? Sub Homework_Copy() Dim i As Long Dim rng As Range Set rng = Cells(Rows.Count, "e").End(xlUp) For i = 7 To rng.Row If Range("d2") = Range("f" & i) Then Range("e2:i2").Copy Range("e" & i).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).PasteSpecial ElseIf Range("e3:i3").Copy Then Range("e" & i).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).PasteSpecial End If Next i End Sub
Sub test() Dim a As Long For a = 7 To Range("b2") If Range("f" & a) = Range("d2") Then Range("E2:i2").Copy Range("E" & a).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & a).PasteSpecial Else Range("E3:k3").Copy Range("E" & a).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & a).PasteSpecial End If Next a Range("e5").Select Application.CutCopyMode = False End Sub 어렵지만 해보니 재밌네요!!!
좋은 강의 감사드립니다! 과제 올려봅니다 ㅎㅎ Sub test01() Dim lngr As Long Dim i As Long Dim j As Long lngr = Range("E100").End(xlUp).Row For i = 7 To lngr For j = 2 To 3 If Range("F" & i) = Range("D" & j) Then Range("E" & j).Resize(1, 5).Copy Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("J" & j).Resize(1, 2).Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll End If Next j Next i Range("E6").Select Application.CutCopyMode = false End Sub
안녕하세요 과제 관련 질문 있습니다 아래코딩에서 " lngR = WorksheetFunction.CountA("F:F") + 6 For i = 7 To lngR" 이 부분이 인식이 안되더라고요 lngR을 18로 바꾸면 잘 작동하는데 어느부분이 잘못된건가요? 설명부탁드립니다 항상 감사합니다 ! Sub test01() Dim i As Long Dim lngR As Long lngR = WorksheetFunction.CountA("F:F") + 6 For i = 7 To lngR If Cells(i, "F") = Range("D2") Then Range("E2:K2").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i).PasteSpecial xlPasteFormulas End If If Cells(i, "F") = Range("D3") Then Range("E3:K3").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i).PasteSpecial xlPasteFormulas End If Next i End Sub
A 파일 sheet1의 그림 Pic1을 B파일 sheet1의 같은 위치에 Pic1을 복사하고 싶은데 Pic1을 잡는 함수가 어떤게 있어요? 인터넷을 다 뒤져도 그림파일을 엑셀의 셀에 불러다 놓는것만 있어서 컨닝을 할려고 해도 못하겠네요 좀 알려주세요 아직 vba강의는 잘 보고 있습니다. 수고하세요 ^^
질문좀요~ 강의 정말 잘 보고 있습니다. 마지막 과제 부분에서 엑사남님이 합계, 평균 부분과 성명~수학까지 한부분으로 나눠서 해야 한다고 하셔서 작성해봤는데.... 오류가 나서요~ 이유를 잘 모르겠습니다. 참고로 강의에서 알려주신데로 b2셀에 counta를 해서 총 열개수를 찾았습니다. 끝까지 하지 못한상태에서 중간중간 실행하면서 되는지 여부 확인하는데.... 오류가 나네여...;;; 뭐가 문제인지....ㅠㅠ 좀 알려주시면 안될까요? Sub macro() Dim i As Long For i = 7 To Range("b2") If Cells(i, "f") = Range("d2") Then Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial.xlFormulas Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial.xlFormats Else Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial.xlFormulas Range("e3:i3").Copy Range("e" & i).Resize(1, 5).PasteSpecial.xlFormats End If Next End Sub
이게 작업이 실제 구현될때 그 짜릿함이 엄청나네요. 그 어떤 취미활동보다 재밌어요 ㅋㅋ 조건부 복붙 과제 제 답안입니다. Sub ctlv_tesk() Dim i As Long For i = 7 To 18 If Range("F" & i) = Range("D2") Then Range("J2 : K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll Range("E2 : K2").Copy Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats Else Range("J3 : K3").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats End If Next Range("E6").Select Application.CutCopyMode = False End Sub
제가 쓴 걸로 해 보고, 다른 분들이 올린 공식도 써보니 방법이 다양하네요 자기만의 방법이 있는 건가요? 그리고 range("A10000").end(xlup).row range("xfd").end(xlleft).column 이 공식 쓰고 안 쓰고 차이가 있을까요? 아직 초보지만... 고수가 되고 싶은 꿈이 있어서... .욕심이 많습니다
안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
7강 수강완료!! 배우고 과제도 나름대로 완료 했습니다!^^;; Sub 과제_붙여넣기() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i).PasteSpecial xlPasteFormats Else Range("E3:K3").Copy Range("E" & i).PasteSpecial xlPasteFormats End If Next i Range("J2:K2").Copy Range("J7:K" & i - 1).PasteSpecial xlPasteFormulas Range("E6").Select Application.CutCopyMode = False End Sub
실행은 되는데 숙제가 제대로 된것인지 모르겠습니다. Sub CopyPaste() Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = Range("d2") Then Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial ElseIf Range("f" & i) = Range("d3") Then Range("e3:i3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial End If Next i Range("e6").Select Application.CutCopyMode = False End Sub
Sub test() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = Range("D3") Then Range("E3:K3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Range("J2:K2").Copy Range("J7:K" & i).PasteSpecial xlPasteFormulas Next i Application.CutCopyMode = False End Sub 강의 정말 감사합니다!!!!!!!!!
vba 재밌게 수강중입니다. 과제 제출! Sub homework() '수식 복사 Range("j2:k2").Copy Range("j7:j" & Range("b2")).PasteSpecial xlPasteFormulas '서식 복사 Range("e7:k" & Range("b2")).ClearFormats Dim i As Long For i = 7 To Range("b2") If Cells(i, 6) = "남" Then Range("e2:k2").Copy Cells(i, 5).PasteSpecial xlPasteFormats Else Range("e3:k3").Copy Cells(i, 5).PasteSpecial xlPasteFormats End If Next i Cells(1, 1).Select Application.CutCopyMode = False End Sub
덕분에 공부 열심히 하고 있습니다~~! Sub test() Dim i As Long Dim logR As Long For i = 7 To Range("B2") If Range("G" & i) = Range("e2") Then Range("K2:L2").Copy Range("k" & i).PasteSpecial xlPasteFormulas Range("F2:L2").Copy Range("f" & i).PasteSpecial xlPasteFormats Else Range("k3:l3").Copy Range("K" & i).PasteSpecial xlPasteFormulas Range("F3:L3").Copy Range("F" & i).PasteSpecial xlPasteFormats End If Next i Range("F2").Select Application.CutCopyMode = False End Sub
간신히 따라가면 잘 배우고 있습니다 근데 이번 과제물을 수행하면 처리속도가 느리던데 저만 이런건가요? 구문은 아래와 같습니다. Sub homework() Dim i As Long Dim lngR As Long Application.ScreenUpdating = False lngR = Cells(Rows.Count, "E").End(xlUp).Row For i = 7 To lngR If Range("f" & i) = Range("d2") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial Range("e2:i2").Copy Range("e" & i).PasteSpecial xlPasteFormats Else Range("j3:k3").Copy Range("j" & i).PasteSpecial Range("e3:i3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Next i Application.CutCopyMode = False End Sub
퍼즐푸는것 같습니다. 재밌네요~ 과제제출합니다 Sub Test01() Dim i As Long Range("J2:K2").Copy Range("J7:K18").PasteSpecial xlPasteFormulas For i = 7 To Range("B1") If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i, "K" & i).PasteSpecial xlPasteFormats Else Range("E3").Resize(1, 7).Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next i Range("A1").Select Application.CutCopyMode = False End Sub
덕분에 열공하고 있습니다. Sub Copy_Paste_HomeWork() Dim i As Long For i = 7 To Range("b2") If Range("F" & i) = "남" Then Range("E2:K2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlFormats Range("J2:K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlFormulas Else: Range("F" & i) = "여" Range("E3:K3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlFormats Range("J3:K3").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlFormulas End If Next i Range("F6").Select 'F6셀을 선택 Application.CutCopyMode = False '복사모드 취소 End Sub
Sub 과제() Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = "남" Then Range("j2:k2").Copy Range("j" & i).PasteSpecial Range("e2:i2").Copy Range("E" & i).PasteSpecial xlPasteFormats Else Range("j3:k3").Copy Range("j" & i).PasteSpecial Range("e3:k3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Next i End Sub 강 xlpasteformates 철자가 틀린지도 모르고 한참 헤맸네요 강의 감사합니다
너무 감사해요 뒤 늦게 배우고 있는데 정말 알아듣기 쉽고 유용해요 Sub Test04() Dim i As Long For i = 7 To Range("B2") If ActiveSheet.Range("F" & i) = "남" Then Range("E2:I2").Copy Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll ElseIf ActiveSheet.Range("F" & i) = "여" Then Range("E3:I3").Copy Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll End If Next i Range("E2").Select Application.CutCopyMode = False End Sub
Sub 수업7강숙제() Dim i As Long Dim lastrow As Long lastrow = Range("E10000").End(xlUp).Row For i = 7 To lastrow If Cells(i, 6) = "남" Then Range("E2:I2").Copy Cells(i, 5).PasteSpecial xlPasteFormats Range("J2:K2").Copy Cells(i, 10).PasteSpecial End If If Cells(i, 6) = "여" Then Range("E3:I3").Copy Cells(i, 5).PasteSpecial xlPasteFormats Range("J3:K3").Copy Cells(i, 10).PasteSpecial End If Next i Application.CutCopyMode = False End Sub
1004런타임 오류가 발생하였습니다. 코드가 틀린게 없는것 같은데 처음부분중에서 전체복사연습이요.ㅎㅎ RANGE 메서드 ('GLOBAL'개체의)에서 오류가 발생하였다라는게 나오네요. 아직쳇방에 못들어가서 간단한거라 여기남겨봅니다. Sub test01() Range("F6").CurrentRegion.Copy Range("06").PasteSpecial End Sub 코드보다 이렇게 수식으로 제공되서 나올때 모듈연결을 못하거나 해서 오류가 난다고 생각합니다. 그냥 새창열어서 거기다가 코드치는건 다해보고 있거든요. 그리고 lngr 이렇게 치는것과 lngR은 따로 대문자로 R을 치는건지 주석처럼 자동으로 그부분이 대문자로 변경이 되는건지 실행해보면 명령어 실행은 되는데 갑자기 궁금해져서 남깁니다.
이번과제 범위 설정하는게 되게 어려웠네요.. range("e"&i : "k" &i) 요런식으로 하니까 안되네요 ㅎㅎ.. Sub test() Dim i As Long For i = 7 To Range("b2") Range("j2:k2").Copy Range("j7:k" & Range("b2")).PasteSpecial xlPasteFormulas If Range("f" & i) = Range("d2") Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlPasteFormats ElseIf Range("f" & i) = Range("d3") Then Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next End Sub
과제 두가지로 해봤어요 Sub test4() Dim i As Long Dim lngR As Long lngR = Range("a2") For i = 7 To lngR If Range("f" & i) = Range("d2") Then Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial End If Next i For i = 7 To lngR If Range("f" & i) = Range("d3") Then Range("e3:i3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial End If Next i End Sub --------------------------------------------------------------------------------------------------------------------------- Sub test5() Dim i As Long Dim lngR As Long lngR = Range("a2") For i = 7 To lngR If Range("f" & i) = Range("D2") Then Range("e2").Resize(1, 5).Copy Range("e" & i).PasteSpecial xlPasteFormats Range("j2:K2").Copy Range("j" & i).Resize(1, 2).PasteSpecial ElseIf Range("f" & i) = Range("d3") Then Range("e3").Resize(1, 5).Copy Range("e" & i).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial End If Next i Application.CutCopyMode = False End Sub
오늘도 복습 삼매경입니다. Sub task7() Dim i As Long Range("o6").CurrentRegion.Clear Range("f6").CurrentRegion.Copy Range("o6").PasteSpecial Range("j2:k2").Copy Range("t7:U" & Range("b2")).PasteSpecial xlPasteFormulas For i = 7 To Range("b2") If Range("p" & i) = Range("d2") Then Range("e2:k2").Copy Range("o" & i).Resize(1, 7).PasteSpecial xlPasteFormats Else Range("e3:k3").Copy Range("o" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next i Range("f6").Select Application.CutCopyMode = False End Sub
질문있어요ㅠㅠ 강의중 [수식만 복사]부분이 자꾸 에러창이 뜨네요 세번째줄에 자꾸 노랑색(에러)이뜨는데 강사님 하시는데로 그대로 했느네 왜 에러가 날까요? 예제다운 받아서 했고 counta 수식은B3에 있습니다. Sub bokboot() Range("K3:L3").Copy Range("K7:L" & Range("B3")).PasteSpecial xlPasteFormulas Application.CutCopyMode = False End Sub
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
항상 양질의 강의 감사합니다! 과제입니다! Sub test05() Dim lngA As Long Dim lngB As Long lngA = Range("E1").End(xlDown).Row + 1 lngB = Range("E10000").End(xlUp).Row Range("J2:K2").Copy Range("J" & lngA & ":K" & lngB).PasteSpecial xlPasteFormulas For i = lngA To lngB If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i & ":K" & i).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = Range("D3") Then Range("E3:K3").Copy Range("E" & i & ":K" & i).PasteSpecial xlPasteFormats End If Next i Application.CutCopyMode = False Range("E" & lngA).Select End Sub
@@excelloveman-3399 lngA = range("E1").end(xldown).row +1 lngB = range("e10000").end(xlup).row 이 공식은 행만 찾는 거 아닌가 해서요 열은 xfd나 알려주신 iv1로 해야하는 거 아닌가 해서요 row 만 있고 column이 없어서 의문이 드네요
어려워서... 숙제를 안내주셨던거 군요.... 포기할까봐.. ㅎㅎ 다행히 포기하지 않고 스승님의 말씀 대로 끝까지 했습니다 ㅠㅠ 이번 숙제는 꽤 오래 걸려서 결국 지금 숙제 제출합니다. Sub Test03() Dim i As Long Dim lngR As Long lngR = Range("C1000").End(xlUp).Row For i = 6 To lngR If Cells(i, 3).Value = "M" Then Range("B2:F2").Copy Range("B" & i, "F" & i).PasteSpecial xlPasteFormats Range("G2:H2").Copy Range("G" & i, "H" & i).PasteSpecial ElseIf Cells(i, 3) = "W" Then Range("B3:F3").Copy Range("B" & i, "F" & i).PasteSpecial xlPasteFormats Range("G3:H3").Copy Range("G" & i, "H" & i).PasteSpecial End If Next i End Sub 해결하고 나니 뿌듯합니다. 좀만 쉬었다가 다시 시간날때 8강도 보고 숙제 바로 제출 하겠습니다 ㅎ 감사합니다
B2열에 =Counta( E:E)+5 Sub test8() Dim i As Long For i = 7 To Range("B3") If Cells(i, 6) = Range("d2") Then Range("j2:k2").Copy Range("J" & i).Resize(1, 2).PasteSpecial Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlFormats Else Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial Range("e3:f3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlFormats End If Range("e" & 6).Select Application.CutCopyMode = False Next i End Sub
질문있습니다 쌤 아래와 같이 코딩을 했습니다. Sub paste_formats() Dim lngi As Long Range("F6").CurrentRegion.Select lngi = Range("F6").CurrentRegion.Row + 5 MsgBox lngi Range("K3").CurrentRegion.Copy For j = 7 To lngi Range("K" & j).PasteSpecial xlFormulas Next j Application.CutCopyMode = False Range("F6").Select End Sub 그런데, lngi라는 변수가 table의 열(column)값이 되도록 설정했습니다. MsgBox를 통해 제가 의도한 열 값이 나온느지 확인했는데, 18이 나오지 않고 11이 나오네요. 뭐가 잘못된걸까요?
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
과제물 조건대로 나오게 & 과제물 처음과 동일하게 표가 나오도록 지우기 Sub paste() Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = Range("d2") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial Range("e2:i2").Copy Range("e" & i).PasteSpecial xlPasteFormats ElseIf Range("f" & i) = Range("d3") Then Range("j3:k3").Copy Range("j" & i).PasteSpecial Range("e3:i3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Range("e6").Select Application.CutCopyMode = False Next i End Sub Sub paste2() Range("j7:k" & Range("b2")).Clear Range("e7:k" & Range("b2")).ClearFormats End Sub
한창 해메다가 정답을 찾았네요... ㅠㅠㅠ Sub test05() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("J2:K2").Copy Range("J" & i).PasteSpecial xlPasteFormulas Range("E2:K2").Copy Range("E" & i).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = "여" Then Range("J3:K3").Copy Range("J" & i).PasteSpecial xlPasteFormulas Range("E3:K3").Copy Range("E" & i).PasteSpecial xlPasteFormats End If Next i End Sub
과제 어려웠는데 완성해두고 보니 완전 뿌듯해요 ㅎㅎ 재미 있네요! :) Sub test_03() Dim lnga As Long Dim lngb As Long lnga = Range("e100").End(xlUp).Row For lngb = 7 To lnga If Cells(lngb, 5) = Range("D2") Then Range("E2:M2").Copy Range(("E" & lngb) & ":" & ("M" & lngb)).PasteSpecial xlPasteFormats ElseIf Cells(lngb, 5) = Cells(3, 4) Then Range("E3:M3").Copy Range(("E" & lngb) & ":" & ("M" & lngb)).PasteSpecial xlPasteFormats End If Next Range("E6").Select Application.CutCopyMode = False End Sub
수식만 복사에서 아래와 같이 코딩했는데 수식이 먹히지가 않아요 뭐가 문제 인가요? Sub cutFormula() Dim rowCount rowCount = Cells(Rows.Count, "f").End(xlUp).Row Range("K3:L3").Copy Range("K7:L" & rowCount).PasteSpecial xlPasteFormulas End Sub
항상 잘보고 있습니다 ㅎㅎ Sub Test_05() Dim i As Long Dim a As Long For i = 6 To Range("b2") If Range("F" & i) = "남" Then Range("E2:I2").Copy Cells(i, 7).Resize(1, 5).PasteSpecial xlFormats Range("J2:K2").Copy Cells(i, 10).Resize(1, 2).PasteSpecial xlFormulas Else Range("E3:I3").Copy Cells(i, 7).Resize(1, 5).PasteSpecial xlFormats Range("J2:K2").Copy Cells(i, 10).Resize(1, 2).PasteSpecial xlFormulas End If Next End Sub
항상 유익한 강의에 초보자로서 감사함을 느끼고 있습니다. 질문이 간단하게 있습니다. Sub homework2() Dim lngA As Long Dim lngB As Long lngA = Range("E1000000").End(xlUp).Row For lngB = 7 To lngA If Cells(lngB, "F") = Range("D2") Then Range("e2:k2").Copy Range(("e" & lngB) & ":" & ("k" & lngB)).PasteSpecial xlPasteFormats ElseIf Cells(lngB, "F") = Range("D3") Then Range("e3:k3").Copy Range(("e" & lngB) & ":" & ("k" & lngB)).PasteSpecial xlPasteFormats End If Next Range("e6").Select Application.CutCopyMode = False Range("j2:k2").Copy Range("j7:K" & lngB).PasteSpecial xlPasteFormulas End Sub 도저히 답이 안나와 다른분들꺼 참고해 가면서 나름 해결을 했는데요. 제 질문은 'Range("j7:K" & lngB).PasteSpecial xlPasteFormulas' 라고 표현한것은 j7 셀에서 k lngB(k18)셀까지 수식을 붙여넣겠다. 라는 의미로 넣은건데요.(다른 분들 과제 참조) 원래 k까지 큰따옴표로 막아주고 &표시 후 lngB 이런식으로 표기하는 건가요? 이게 표준인건지 궁금해서 여쭤봅니다!
첫번째 행과 열을 찾는 방법 공유 드립니다 Dim st_r As Long Dim st_c As Long st_r = Range("F1").End(xlDown).Row st_c = Range("A6").End(xlToRight).Column Cells(st_r, st_c).CurrentRegion.copy Range("O6").PasteSpecial
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
(1번 방식) Sub test01() Dim i As Long For i = 7 To Range("B2") If Range("f" & i) = "남" Then Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteAll Else: Range("f" & i) = "여" Range("e3:i3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteAll End If Next i Range("e2").Select Application.CutCopyMode = False End Sub (2번 방식) Sub test02() Dim lngr As Long Dim i As Long lngr = Range("e1000").End(xlUp).Row For i = 7 To lngr If Range("f" & i) = "남" Then Range("e2:m2").Copy Range(("e" & i) & ":" & ("m" & i)).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range(("j" & i) & ":" & ("k" & i)).PasteSpecial xlPasteAll ElseIf Range("f" & i) = "여" Then Range("e3:m3").Copy Range(("e" & i) & ":" & ("m" & i)).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range(("j" & i) & ":" & ("k" & i)).PasteSpecial xlPasteAll End If Next i Range("e6").Select Application.CutCopyMode = False End Sub
좋은 강의 감사합니다. 열심히 듣고있습니다. Sub homework01() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("E2:I2").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i).PasteSpecial ElseIf Range("F" & i) = "여" Then Range("E3:i3").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i).PasteSpecial End If Next i Range("E200").End(xlUp).Select Application.CutCopyMode = False End Sub
숙제가 생각보다 어려워서 좀 걸렸지만 어떻게든 만들었습니다. 여기까지 올수 있게 해주셔서 감사합니다. 계속해서 포기하지않고 열심히 배울게요! Sub ASSINGMENT() Dim lngR As Long lngR = Range("b1") For i = 7 To lngR If Range("f" & i) = Range("d2") Then Range("e2:i2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteFormulas End If If Range("f" & i) = Range("d3") Then Range("e3:i3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteFormulas End If Next i End Sub
오늘도 감사합니다. ^^ 느리지만 꾸준히 잘 배우겠습니다. Sub Test_1() Dim i As Long lngR = Range("E1000").End(xlUp).Row For i = 7 To lngR If Range("D2") = Cells(i, 6) Then Range("E2:K2").Copy Range("E" & i & ":" & "K" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i & ":" & "K" & i).PasteSpecial xlPasteFormulas ElseIf Range("D3") = Cells(i, 6) Then Range("E3:K3").Copy Range("E" & i & ":" & "K" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i & ":" & "K" & i).PasteSpecial xlPasteFormulas End If Next i Range("E6").Select Application.CutCopyMode = False
Sub 과제() Dim i As Long Dim lngR As Long lngR = Range("e1000").End(xlUp).Row For i = 7 To lngR If Range("f" & i) = Range("d2") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial Range("e2:i2").Copy Range("e" & i).PasteSpecial xlPasteFormats Else Range("j3:k3").Copy Range("j" & i).PasteSpecial Range("e3:i3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Next i End Sub 오늘도 학습 잘 하였습니다. 구글 좌표 구현 부탁드려요
Sub paste_condition() Dim l_col As Long l_col = Cells(1000, 5).End(xlUp).Row For j = 7 To l_col If Range("F" & j) = Range("D2") Then Range("J2:K2").Copy Range("J" & j).PasteSpecial xlPasteFormulas Range("E2:K2").Copy Range("E" & j).PasteSpecial xlPasteFormats ElseIf Range("F" & j) = Range("D3") Then Range("J3:K3").Copy Range("J" & j).PasteSpecial xlPasteFormulas Range("E3:K3").Copy Range("E" & j).PasteSpecial xlPasteFormats End If Next j End Sub
헿 수강 완료 했습니다! Sub cp_hw() Dim i As Long For i = 7 To Range("b3") If Range("f" & i) = Range("d1") Then Range("e1:k1").Copy Range("e" & i & ":k" & i).PasteSpecial xlPasteFormats Range("j1:k1").Copy Range("j" & i & ":k" & i).PasteSpecial ElseIf Range("f" & i) = Range("d2") Then Range("e2:k2").Copy Range("e" & i & ":k" & i).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i & ":k" & i).PasteSpecial End If Next i Range("e6").Select Application.CutCopyMode = False End Sub
선생님 강의너무감사합니다. 잘보고있습니다. 범위 구할때 예를 들면 Range("A" & i).Resize(1,7) 말고 다르게 하고 싶은데 Range("A" & i : "G" & i) 이렇게 하니까 안되더라구요... 밑에 댓글보고 Range("A" & i & ":G" & i) 이라고 알았습니다. 이해가 잘 안되서 일단 외웠습니다. 이렇게 쓰는 이유가 있나요?
Range("A1:G1") 로 써야 하는데 행번호인 숫자값을 변수로 받아서 사용하려면 큰 따옴표로 묶은 주소 값과 변수(i)를 & 기호로 묶어야 합니다 Range("A1:G1") 이 범위에서는 숫자 1 이 변수 i 로 사용되어야 하고 "A" & i & ":G" & i 이렇게 기존 범위 값은 큰따옴표로 묶고 변수값은 큰따옴표로 묶으면 그냥 텍스트 i 가 되기 때문에 큰따옴표로 묶지 않습니다 큰따옴표로 묶은값과 묶지 않은 변수를 연결하기 위해서 & 기호를 사용하는것이고요
Sub 복사_붙여넣기5() Dim i As Long Dim lngR As Long lngR = Range("E10000").End(xlUp).Row For i = 7 To lngR If Range("F" & i) = Range("D2") Then Range("E2:I2").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i & ":K" & i).PasteSpecial Else Range("E3:I3").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i & ":K" & i).PasteSpecial End If Next i Range("E6").Select Application.CutCopyMode = False End Sub
Sub sheet1_과제() Dim lngk As Long For lngk = 7 To Range("c3") If Range("f" & Range("c3")) = "남" Then Range("j2:k2").Copy Range("j" & lngk).Resize(1, 2).PasteSpecial xlFormulas Range("e&lngk:k&lngk").PasteSpecial xlFormats Else If Range("f" & lngk) = "여" Then Range("e3:I3").Copy Range("e&lngk : I&lngk").PasteSpecial xlFormats Range("J3:K3").Copy Range("J&lngk : K&lngK").PasteSpecial xlFormulas End If End If Next lngk End Sub 이렇게 넣었는데 Range("e&lngk:k&lngk").PasteSpecial xlFormats 이부분이 런타임 오류나네요... ㅠㅠ 친구한테 물어보니까 런타임 오류는 문법 틀린건 아니라는데 왜 안되는지 감이 안잡히네요.
@@excelloveman-3399 Sub sheet1_과제test() Dim lngr As Long For lngr = 7 To Range("c3") If Range("f" & lngr) = Range("d2") Then Range("j2 : K2").Copy Range("e" & lngr & ": K" & lngr).PasteSpecial xlPasteFormats Range("j" & lngr & ": K" & lngr).PasteSpecial xlFormulas Else: Range("j3 : k3").Copy Range("e" & lngr & ": K" & lngr).PasteSpecial xlPasteFormats Range("j" & lngr & ": K" & lngr).PasteSpecial xlFormulas End If Next lngr End Sub ---------------------------------------------------------------------------------------------------------------------------- Sub sheet1_과제() Dim lngr As Long For lngr = 7 To Range("c3") If Range("f" & lngr) = Range("d2") Then Range("j2 : K2").Copy Range("e" & lngr).Resize(1, 7).PasteSpecial xlPasteFormats Range("j" & lngr).Resize(1, 2).PasteSpecial xlFormulas Else: Range("j3 : k3").Copy Range("e" & lngr).Resize(1, 7).PasteSpecial xlPasteFormats Range("j" & lngr).Resize(1, 2).PasteSpecial xlFormulas End If Next lngr End Sub 두가지로 다 해봤어요. 감사히 배우겠습니다. 감사드립니다