32강-리스트박스에서 마음대로 멀티 선택하여 데이터를 시트로 다운로드 하기

[@뽀리너죠]

오늘도 재미있는 강의였습니다. 카드 거래 / 현금거래 lngTemp를 같이 쓰니 정렬이 안된거 같아.. lngTemp를 나누었고, 양식 복사 시 Intersect와 Union을 사용하여 한번에 복사하였습니다. 더 줄일 수도 있을거 같은데.. 매번 분기문 쓰다보면 길어져 있군요... 아직 갈길이 먼거 같습니다. Private Sub CommandButton5_Click() Dim i As Long Dim lngTemp_C As Long Dim lngTemp_H As Long Range("J5:P10000").Clear lngTemp_C = 4 lngTemp_H = 4 For i = 0 To ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) Then With Me.ListBox1 If .List(i, 3) = "카드" Then lngTemp_C = lngTemp_C + 1 Range("J" & lngTemp_C) = .List(i, 0) Range("K" & lngTemp_C) = .List(i, 2) Range("L" & lngTemp_C) = .List(i, 4) Else lngTemp_H = lngTemp_H + 1 Range("N" & lngTemp_H) = .List(i, 0) Range("O" & lngTemp_H) = .List(i, 2) Range("P" & lngTemp_H) = .List(i, 4) End If End With End If Next i Intersect(Range("B5:F5"), Union(Columns("B:B"), Columns("D:D"), Columns("F:F"))).Copy If lngTemp_C >= lngTemp_H Then Range("J5:L" & lngTemp_C).PasteSpecial xlPasteFormats Range("N5:P" & lngTemp_C).PasteSpecial xlPasteFormats Range("L" & lngTemp_C + 1) = Application.Sum(Range("L5:L" & lngTemp_C)) Range("L" & lngTemp_C).Copy Range("L" & lngTemp_C + 1).PasteSpecial xlPasteFormats Range("P" & lngTemp_C + 1) = Application.Sum(Range("P5:P" & lngTemp_H)) Range("P" & lngTemp_C).Copy Range("P" & lngTemp_C + 1).PasteSpecial xlPasteFormats Else Range("J5:L" & lngTemp_H).PasteSpecial xlPasteFormats Range("N5:P" & lngTemp_H).PasteSpecial xlPasteFormats Range("L" & lngTemp_H + 1) = Application.Sum(Range("L5:L" & lngTemp_C)) Range("L" & lngTemp_H).Copy Range("L" & lngTemp_H + 1).PasteSpecial xlPasteFormats Range("P" & lngTemp_H + 1) = Application.Sum(Range("P5:P" & lngTemp_H)) Range("P" & lngTemp_H).Copy Range("P" & lngTemp_H + 1).PasteSpecial xlPasteFormats End If Range("J4").Select Unload UserForm1 End Sub

[@excelloveman-3399]

모로 가도 결과만 좋타면야 ㅎㅎ 단톡방에 과제물 풀이 코드 올려드릴께요 비교 학습도 좋을거 같아요

[@bhp3735]

과제물 복붙 .... for 문 끝나고 If lngTemp_H = 4 Then MsgBox ("선택한 데이타가 없습니다. 데이타를 선택해주세요!!!") Exit Sub End If Unload UserForm1 하기전에 Application.CutCopyMode = False 추가 했어요.

[@NamJS69]

카드거래와 현금거래의 카운트를 별도로 세어야 하고, 카드와 현금일 경우 열 offset이 4만큼 차이나서 colTemp 변수를 사용해서 데이터를 넣는 부분은 공통으로 사용하도록 했습니다. 합계 부분은 결과 값 자체를 넣기 보다 수식을 넣도록 해서 자동 계산되어 합계가 보이도록 했습니다. 카드거래가 없거나 현금거래가 없는 경우 해당 제목행의 서식이 삭제되는 문제가 있어 한건이라도 선택된 데이터가 있는 경우에만 서식을 복사해 넣도록 조건을 추가했습니다. Private Sub CommandButton5_Click() Dim i As Long Dim rowTemp As Long Dim colTemp As Long Dim lngCard As Long '카드거래 카운트 Dim lngCash As Long '현금거래 카운트 Range("J5:P65536").Clear lngCard = 4 lngCash = 4 For i = 0 To ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) Then With Me.ListBox1 If .List(i, 3) = "카드" Then lngCard = lngCard + 1 rowTemp = lngCard '카드거래 표의 행을 결정 colTemp = 0 '카드거래 표의 시작 열은 J+0 Else '"현금"일 경우 lngCash = lngCash + 1 rowTemp = lngCash '현금거래 표의 행을 결정 colTemp = 4 '현금거래 표의 시작 열은 J+4 End If Range("J" & rowTemp).Offset(0, colTemp) = .List(i, 0) '날짜 Range("K" & rowTemp).Offset(0, colTemp) = .List(i, 2) '지출항목 Range("L" & rowTemp).Offset(0, colTemp) = .List(i, 4) '금액 End With End If Next i If lngCard > 4 Then '카드거래를 선택한 경우에만 실행 '합계를 계산하는 수식을 넣음 Range("L" & lngCard).Offset(1, 0) = "=sum(L5:L" & lngCard & ")" '서식 복사&붙여넣기 Range("B5,D5,F5").Copy Range("J5:L" & lngCard).PasteSpecial Paste:=xlPasteFormats '합계 서식 복사&붙여넣기 Range("F5").Copy Range("L" & (lngCard + 1)).PasteSpecial Paste:=xlPasteFormats End If If lngCash > 4 Then '현금거래를 선택한 경우에만 실행 '합계를 계산하는 수식을 넣음 Range("P" & lngCash).Offset(1, 0) = "=sum(P5:P" & lngCash & ")" '서식 복사&붙여넣기 Range("B5,D5,F5").Copy Range("N5:P" & lngCash).PasteSpecial Paste:=xlPasteFormats '합계 서식 복사&붙여넣기 Range("F5").Copy Range("P" & (lngCash + 1)).PasteSpecial Paste:=xlPasteFormats End If Application.CutCopyMode = False Range("J4").Select Unload UserForm1 End Sub

[@excelloveman-3399]

선수급입니다

[@drunkenk8524]

너무 잘보고있습니다.^^* 조회를 하고 다른 시트로 넣을땐어떻게하죠??

[@excelloveman-3399]

안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b

[@호새벽]

안녕하세요... 그런데... 예를들어 데이터 하나 선택 완료후 i열 5행 시트에 기록이 되고, 그리고나서 다시 데이터 하나를 선택 완료하면 i열 6행에 데이터가 들어가야되는데..... 처음 i열 5행에 입력된 데이터는 지워지고.. 그 자리에 데이터가 들어가는데... 해결방법이 없을까요?...

[@excelloveman-3399]

안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b

[@단군-w7n]

안녕하세요. 선생님 리스트 박스에서 선택을하면 아래 행에 입력을 누적해서 하고 싶은데 잘 안되는데 어떻게 해야하나요? 시트2의 c10부터 누적을하고 싶은데 어렵습니다.. Private Sub CommandButton2_Click() Dim I As Long Dim INGTEMP As Long INGTEMP = Sheet2.Range("C10").End(xlUp).Row + 1 For I = 0 To ListBox1.ListCount If Me.ListBox1.Selected(I) Then INGTEMP = INGTEMP With Me.ListBox1 Range("C" & INGTEMP) = .List(I, 0) Range("D" & INGTEMP) = .List(I, 1) Range("E" & INGTEMP) = .List(I, 2) Range("F" & INGTEMP) = .List(I, 3) Range("G" & INGTEMP) = .List(I, 4) Range("H" & INGTEMP) = .List(I, 5) Range("I" & INGTEMP) = .List(I, 6) End With End If Next I End Sub

[@호새벽]

혹시 해결하셨나요?,, 저도 행에 입력을 누적해서 관리하고싶은데.. 되질않네요 ㅜㅜ

[@퐁당퐁당-h4o]

항상 강의 감사 드립니다^^ Private Sub CommandButton5_Click() Dim i As Long Dim lngTemp1 As Long '카드 행 변수 Dim lngTemp2 As Long '현금 행 변수 Range("J5:L65536").Clear '카드거래 초기화 Range("N5:P65536").Clear '현금거래 초기화 lngTemp1 = 4 lngTemp2 = 4 For i = 0 To ListBox1.ListCount - 1 '리스트 전체를 순환 If Me.ListBox1.Selected(i) Then 'i행이 선택 되었다면 If ListBox1.List(i, 3) = "카드" Then lngTemp1 = lngTemp1 + 1 With Me.ListBox1 Range("J" & lngTemp1) = .List(i, 0) Range("K" & lngTemp1) = .List(i, 2) Range("L" & lngTemp1) = .List(i, 4) End With ElseIf ListBox1.List(i, 3) = "현금" Then lngTemp2 = lngTemp2 + 1 With Me.ListBox1 Range("N" & lngTemp2) = .List(i, 0) Range("O" & lngTemp2) = .List(i, 2) Range("P" & lngTemp2) = .List(i, 4) End With End If End If Next i Range("B5:F5").Copy Range("J5").CurrentRegion.Offset(1, 0).PasteSpecial xlPasteFormats Range("B5:F5").Copy Range("N5").CurrentRegion.Offset(1, 0).PasteSpecial xlPasteFormats Range("L" & lngTemp1 + 1) = Application.Sum(Range("L5:L" & lngTemp1)) Range("P" & lngTemp2 + 1) = Application.Sum(Range("P5:P" & lngTemp2)) Range("J" & lngTemp1 + 1).Resize(1, 2).Merge Range("J" & lngTemp1 + 1) = "합계" Range("N" & lngTemp2 + 1).Resize(1, 2).Merge Range("N" & lngTemp2 + 1) = "합계" Application.CutCopyMode = False Unload UserForm1 End Sub

[@목우-u8x]

좋은 강의 감사합니다. 힌트 안보고 해보겠다고 낑낑거리면 SUM 그냥 해보았습니다. 'Range("P" & r2 + 1) = Application.Sum(Range("P5:P" & r2)) '배우고 또 배워 갑니다. Private Sub CommandButton8_Click() '과제 Dim i As Long Dim r1 As Long '현금 행번호 Dim r2 As Long '카드 행번호 r1 = 4 r2 = 4 Range("j5:p" & Rows.Count).Clear For i = 0 To Me.ListBox1.ListCount - 1 With Me.ListBox1 If .Selected(i) Then If .List(i, 3) = "카드" Then r1 = r1 + 1 Range("J" & r1) = .List(i, 0) Range("K" & r1) = .List(i, 2) Range("L" & r1) = .List(i, 4) Else r2 = r2 + 1 Range("N" & r2) = .List(i, 0) Range("O" & r2) = .List(i, 2) Range("P" & r2) = .List(i, 4) End If End If End With Next Range("B5,D5,F5").Copy If r1 > 5 Then Range("J5:L" & r1).PasteSpecial xlPasteFormats Range("L" & r1 + 1) = "=SUM(L5:L" & r1 & ")" End If If r2 > 5 Then Range("N5:P" & r2).PasteSpecial xlPasteFormats Range("P" & r2 + 1) = "=SUM(P5:P" & r2 & ")" End If Range("J4").Select End Sub

[@빅데이타-l4s]

과제물 입니다. 이번 과제는 본 강의의 내용보다 원하는 범위에 서식을 붙여넣는 요령을 익히는 과정이 더 까다롭군요. '//* 리스트박스 다중 선택 다운로드 *// 거래유형구분 Private Sub CommandButton3_Click() Dim i As Long '리스트박스를 전체 For문으로 순환할 변수 Dim lngB As Long '원본 마지막행 Dim lngJ As Long '결과 마지막행 Dim lngCard As Long '선택된 리스트를 복사해 넣을 엑셀행 번호(카드거래) Dim lngCash As Long '선택된 리스트를 복사해 넣을 엑셀행 번호(현금거래) lngB = Range("B" & Rows.Count).End(xlUp).Row Range("J5:P" & lngB).Clear '결과범위 초기화(어차피 원본데이타수를 넘지 못함.) lngCard = 4: lngCash = 4 '엑셀행 초기화(데이타는 5행부터 시작) For i = 0 To ListBox1.ListCount - 1 '리스트는 0부터 시작 With Me.ListBox1 If .Selected(i) Then '선택된 리스트만 복사 If .List(i, 3) = "카드" Then lngCard = lngCard + 1 '다음 엑셀행 Range("J" & lngCard) = .List(i, 0) '1열 값 이동 Range("K" & lngCard) = .List(i, 2) '3 "" Range("L" & lngCard) = .List(i, 4) '5 "" Else lngCash = lngCash + 1 '다음 엑셀행 Range("N" & lngCash) = .List(i, 0) '1열 값 이동 Range("O" & lngCash) = .List(i, 2) '3 "" Range("P" & lngCash) = .List(i, 4) '5 "" End If End If End With Next i '합계구하고 합계행 일치시키고(카드,현금 합계를 같은 행에) 서식 붙여넣기 If lngCard >= lngCash Then '합계행 lngJ lngJ = lngCard + 1 Else lngJ = lngCash + 1 End If Range("L" & lngJ) = Application.Sum(Range("L5:L" & lngCard)) '카드내역 합계금액 Range("P" & lngJ) = Application.Sum(Range("P5:P" & lngCash)) '현금내역 합계금액 '결과내역에 서식 붙여넣기 Union(Range("B5"), Range("D5"), Range("F5")).Copy '날짜, 지출항목, 금액 복사 Range("J5:L" & lngJ).PasteSpecial xlPasteFormats '카드내역에 서식붙여넣기 Range("N5:P" & lngJ).PasteSpecial xlPasteFormats '현금내역에 서식붙여넣기 Range("J" & lngJ) = "합 계" Range("N" & lngJ) = "합 계" Union(Range("J" & lngJ), Range("L" & lngJ), _ Range("N" & lngJ), Range("P" & lngJ)).Font.Bold = True '합계 굵게 Range("J4").Select Application.CutCopyMode = False 'CutCopyMode 해제 Unload UserForm1 End Sub

[@gotamixyi3896]

숙제가 잘 안풀려서, 올려주신 내용 복/붙 해서 다시 공부했습니다. 감사합니다. 같은 영상을 보고 공부한건데 성취도가 저와는 확연히 다르시네요. 감탄했습니다.^^

[@excelloveman-3399]

실제 개발자들도 복붙이 생활입니다 ^^

[@asdf-fb3xw]

다른 분의 과제 제출 내용입니다. 복습할 때 참고하기 위해 댓글로 남겨봅니다. Private Sub CommandButton3_Click() Dim i As Long '리스트박스를 전체 For문으로 순환할 변수 Dim lngB As Long '원본 마지막행 Dim lngJ As Long '결과 마지막행 Dim lngCard As Long '선택된 리스트를 복사해 넣을 엑셀행 번호(카드거래) Dim lngCash As Long '선택된 리스트를 복사해 넣을 엑셀행 번호(현금거래) lngB = Range("B" & Rows.Count).End(xlUp).Row Range("J5:P" & lngB).Clear '결과범위 초기화(어차피 원본데이타수를 넘지 못함.) lngCard = 4: lngCash = 4 '엑셀행 초기화(데이타는 5행부터 시작) For i = 0 To ListBox1.ListCount - 1 '리스트는 0부터 시작 With Me.ListBox1 If .Selected(i) Then '선택된 리스트만 복사 If .List(i, 3) = "카드" Then lngCard = lngCard + 1 '다음 엑셀행 Range("J" & lngCard) = .List(i, 0) '1열 값 이동 Range("K" & lngCard) = .List(i, 2) '3 "" Range("L" & lngCard) = .List(i, 4) '5 "" Else lngCash = lngCash + 1 '다음 엑셀행 Range("N" & lngCash) = .List(i, 0) '1열 값 이동 Range("O" & lngCash) = .List(i, 2) '3 "" Range("P" & lngCash) = .List(i, 4) '5 "" End If End If End With Next i '합계구하고 합계행 일치시키고(카드,현금 합계를 같은 행에) 서식 붙여넣기 If lngCard >= lngCash Then '합계행 lngJ lngJ = lngCard + 1 Else lngJ = lngCash + 1 End If Range("L" & lngJ) = Application.Sum(Range("L5:L" & lngCard)) '카드내역 합계금액 Range("P" & lngJ) = Application.Sum(Range("P5:P" & lngCash)) '현금내역 합계금액 '결과내역에 서식 붙여넣기 Union(Range("B5"), Range("D5"), Range("F5")).Copy '날짜, 지출항목, 금액 복사 Range("J5:L" & lngJ).PasteSpecial xlPasteFormats '카드내역에 서식붙여넣기 Range("N5:P" & lngJ).PasteSpecial xlPasteFormats '현금내역에 서식붙여넣기 Range("J" & lngJ) = "합 계" Range("N" & lngJ) = "합 계" Union(Range("J" & lngJ), Range("L" & lngJ), _ Range("N" & lngJ), Range("P" & lngJ)).Font.Bold = True '합계 굵게 Range("J4").Select Application.CutCopyMode = False 'CutCopyMode 해제 Unload UserForm1 End Sub

[@ngcold]

오랜만에 과제 올립니다. 한동안 어설픈 실력으로 업무에 적용시킨다고 강의를 못봤네요^^; 참 유용하게 잘 써먹고 있습니다. Range("J4").currentregion을 했더니 표 위의 카드거래 글씨가 있는 행까지 범위가 잡혀버리는 문제가 있었네요ㅎㅎ Private Sub CommandButton5_Click() Dim i As Long Dim lngTempCard As Long Dim lngTempCash As Long Range("J4").CurrentRegion.Offset(2, 0).Clear Range("n4").CurrentRegion.Offset(2, 0).Clear lngTempCard = 4 lngTempCash = 4 With Me.ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then If Me.ListBox1.List(i, 3) = "카드" Then lngTempCard = lngTempCard + 1 Range("J" & lngTempCard) = .List(i, 0) Range("K" & lngTempCard) = .List(i, 2) Range("L" & lngTempCard) = .List(i, 4) Else lngTempCash = lngTempCash + 1 Range("n" & lngTempCash) = .List(i, 0) Range("o" & lngTempCash) = .List(i, 2) Range("p" & lngTempCash) = .List(i, 4) End If End If Next i End With Range("l" & lngTempCard + 1) = Application.Sum(Range("l5:l" & lngTempCard)) Range("p" & lngTempCash + 1) = Application.Sum(Range("p5:p" & lngTempCash)) Range("b5, d5, f5").Copy Range("j5:l" & lngTempCard).PasteSpecial xlPasteFormats Range("n5:p" & lngTempCash).PasteSpecial xlPasteFormats Range("f5").Copy Range("l" & lngTempCard + 1).PasteSpecial xlPasteFormats Range("p" & lngTempCash + 1).PasteSpecial xlPasteFormats End Sub

[@bhp3735]

리스트박스에 구분선을 넣을수 있나요? 행 높이 설정은 어떡게 하나요?

[@excelloveman-3399]

유툽 댓글 표현이 답변드리기가 쉽지 않네요 일단 행높이는 조정 옵션이 없습니다 나머지는 카카오톡 오픈채팅을 시작해 보세요. 링크를 선택하면 카카오톡이 실행됩니다. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b 오픈챗방에서 문의하시면 답변 많이들 달아 주십니다 공지 꼭 읽어보시고요

[@tvletsplaywithsoy4178]

재밌어요 ㅋㅋ Private Sub 거래유형다운_Click() Dim i, j, k As Integer Dim n, g As Integer Dim rowend As Integer Dim rngJ, rngN As Range Application.ScreenUpdating = False Set rngJ = Range("j6").CurrentRegion.Offset(2, 0) '==================== 카드영역 Set rngN = Range("n6").CurrentRegion.Offset(2, 0) '==================== 현금영역 rngJ.Clear '==================== 카드영역초기화 rngN.Clear '==================== 카드영역초기화 n = 6 '==================== 복사된 값을 넣을 변수 For i = 0 To Me.ListBox1.ListCount - 1 n = n + 1 If Me.ListBox1.Selected(i) = True Then '==================== 선택되었다면 If Cells(n, 7) = "카드" Then '==================== 거래유형을 비교 k = 0 '==================== 카드면 j열부터 Else k = 4 '==================== 현금이면 n열부터 End If '============================================================================================================= '= k 값으로 카드와 현금일때 열 위치를 변경 rowend = Cells(Rows.Count, 10 + k).End(3).Row + 1 '==================== 복사될 위치 = 내용이 있는 마지막행 + 1 g = 0 '==================== 열을 반복 할 변수 For j = 10 To 12 '==================== 열을 반복할 반복문 Cells(rowend, j + k) = Me.ListBox1.List(i, g) '==================== 선택된 리스트의 위치를 셀에 뿌려줌 g = g + 2 '==================== 항목이 2칸이 넘어가기 때문에 +2를 해줌 Next j End If Next i Range("j4:l4").Copy '==================== 서식복사 영역 '==================================================================================================================== '= 서식 붙혀넣기 Range("j7:l" & Cells(Rows.Count, 10).End(3).Row).PasteSpecial xlPasteFormats Range("n7:p" & Cells(Rows.Count, 14).End(3).Row).PasteSpecial xlPasteFormats Range("j6").Select '==================== 복사 후 셀위치(없어도 됨) Application.CutCopyMode = False '==================== 복사 후 원본의 깜빡임 해제 Unload Me End Sub

[@excelloveman-3399]

주석 좋아요 ^^