가장 큰 난관
- 주어진 source 엑셀 파일을 참조하여 part열이 마케팅인 데이터만 추출하는 VBA 매크로 코드 오류
- 강의에 사용된 엑셀보다 제 버전(2010 ㅠㅠ)이 낮다 보니 설명해 주시는 기능들을 찾기가 어렵고 없는 것도 있다 보니
(제가 못 찾는 거겠지요) 설명대로 100% 따라 할 수 없어 제가 제대로 이해를 한 건지 못 한 건지 알 수 없습니다
3. 우여곡절 끝에 ChatGPT에게 겨우 겨우 질문을 해보았는데요 역시 오류입니다.
질문을 이리저리 바꿔봐도 안돼서 삭제하고 처음부터 다시 질문하기를 수십 번 입니다
이하 건의
1. 주어진 기간 내 80% 이수하고 싶어도 할 수 가 없겠어요. 건의 드리자면
이수율이 60%이상인 경우 80% 이수할 때까지 기간 연장을 조금 더 해주시길 건의 드립니다.
2. 2시간 정도 여러 날 공부해도 이해가 안돼서 오늘은 끝장을 봐야지 하는 마음으로
저녁 7시~새벽 1시 넘어서 하고 있습니다만 내일 출근이 걱정되네요
가벼운 마음에 현재 큰 이슈인 ChatGPT 따라잡으려고 시도했다가 제가 따라잡히게 생겼어요^^
3. 일주일 넘게 3, 4주 차 수업을 여러 번 돌려보고 따라하고 있지만 진도가 나가질 못하고 있습니다.
다른 튜터 분들은 4, 5, 6주 차 질문이 몇 개 안되는 것 같고 스스로 해결했다는 것도 있으시던데 부럽기만 합니다
4. 어려워도 조금씩 이해가 가는 것 같기는 하는데 이러다가 포기할 것 같아요.
제 개인 웹사이트도 만들고 싶고 그 다음 과정도 시도하고 싶지만 두렵네요
건의를 적극 반영해주세요!!!
작성한 코드 및 에러 메세지
!숙제 과정(여러 종류 의 질문 중 하기 질문이 가장 근접한 것 같아 올립니다~)
질문1)
part열이 마케팅인 데이터를 추출해서 새로운 시트에 남길 수 있는 자동화 방법이 필요해. VBA를 통해 매크로 형식으로 만들어줘
챗 답변1)
Sub 데이터_추출_및_자동화()
Dim 원본시트 As Worksheet
Dim 새시트 As Worksheet
Dim 원본마지막행 As Long
Dim 새로운행 As Long
Dim i As Long
' 첫 번째 시트를 원본 시트로 설정
Set 원본시트 = ThisWorkbook.Sheets(1)
' 새로운 시트 추가
Set 새시트 = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
새시트.Name = "새로운시트"
' 원본 시트에서 마지막 행 찾기
원본마지막행 = 원본시트.Cells(원본시트.Rows.Count, "A").End(xlUp).Row
' 새로운 시트에 데이터 복사
새로운행 = 1 ' 새로운 시트에서 시작할 행
For i = 1 To 원본마지막행
' "Part" 열이 "마케팅"인 데이터만 추출
If 원본시트.Cells(i, "Part").Value = "마케팅" Then => 오류
' 데이터를 새로운 시트로 복사
원본시트.Rows(i).Copy 새시트.Rows(새로운행)
새로운행 = 새로운행 + 1
End If
Next i
End Sub
===================
질문2)
위 코드를 실행하니 part열이 마케팅인 정보도 추출하지 못하고 If 원본시트.Cells(i, "Part").Value = "마케팅" Then 부분이 '13' 런타임 오류가 발생하였습니다. 형식이 일치하지 않습니다 하니 수정해줘
챗 답변2)
Sub 데이터_추출_및_자동화()
Dim 원본시트 As Worksheet
Dim 새시트 As Worksheet
Dim 원본마지막행 As Long
Dim 새로운행 As Long
Dim i As Long
' 첫 번째 시트를 원본 시트로 설정
Set 원본시트 = ThisWorkbook.Sheets(1)
' 새로운 시트 추가
Set 새시트 = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
새시트.Name = "새로운시트"
' 원본 시트에서 마지막 행 찾기
원본마지막행 = 원본시트.Cells(원본시트.Rows.Count, "A").End(xlUp).Row
' 새로운 시트에 데이터 복사
새로운행 = 1 ' 새로운 시트에서 시작할 행
' "Part" 열이 "마케팅"인 데이터만 추출
For i = 1 To 원본마지막행
If UCase(Trim(원본시트.Cells(i, "Part").Value)) = "마케팅" Then => 오류
' 데이터를 새로운 시트로 복사
원본시트.Rows(i).Copy 새시트.Rows(새로운행)
새로운행 = 새로운행 + 1
End If
Next i
End Sub
