크롤링 한 값 옆에 자동으로 다른 내용을 추가 할 수 있나요?
VBA
작성자
흥어쩌라구
작성일
2023-11-09 19:19
조회
154
제가 원하는 것은 매출액 값(크롤링으로 가져옴) 옆에
자동으로 내용(전년대비 상승률)을 추가하는 것입니다. ex) 12(20%), 24(100%), 18(20%), 24(30%)
그래서 아래와 같이 해봤는데 두 가지 문제점이 있습니다.
- 괄호 안에 있는 숫자에 소수점을 없애고 싶습니다.
- 두 번째 값은 상승률을 계산할 수 있는데 세번째 값부터는 괄호 때문에 상승률 계산이 안됩니다.
추가 의문)
크롤링한 값이기 때문에 크롤링 값이 표출되는 셀에 함수를 적용할 수는 없나요?
크롤링 표출되는 셀을 다른 셀로 옯기기에는 수정할 코드가 너무 많습니다..
'매출액' Range("e16") = ie.Document.getElementsByClassName("gHead01 all-width data-list")(1).getElementsByClassName("lvl1")(0).getElementsByTagName("td")(0).innerText Range("f16") = ie.Document.getElementsByClassName("gHead01 all-width data-list")(1).getElementsByClassName("lvl1")(0).getElementsByTagName("td")(1).innerText Range("g16") = ie.Document.getElementsByClassName("gHead01 all-width data-list")(1).getElementsByClassName("lvl1")(0).getElementsByTagName("td")(2).innerText Range("h16") = ie.Document.getElementsByClassName("gHead01 all-width data-list")(1).getElementsByClassName("lvl1")(0).getElementsByTagName("td")(3).innerText Range("i16") = ie.Document.getElementsByClassName("gHead01 all-width data-list")(1).getElementsByClassName("lvl1")(0).getElementsByTagName("td")(4).innerText Range("f16") = Range("f16") & "(" & (Range("f16") - Range("e16")) / Range("e16") * 100 & "%)" '여기서 부터가 앞 셀에 (상승률%)이 추가되어서 계산이 안됨. Range("g16") = Range("g16") & "(" & (Range("g16") - Range("f16")) / Range("f16") * 100 & "%)" Range("h16") = Range("h16") & "(" & (Range("h16") - Range("g16")) / Range("g16") * 100 & "%)" Range("i16") = Range("i16") & "(" & (Range("i16") - Range("h16")) / Range("h16") * 100 & "%)"
회원등급 : 4레벨
포인트 : 195 EP
총질문 : 11 개 (마감율 : 36%)
채택답변 : 0 개
전체 13,332
| 번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
|
[📚교재 출간 안내] 「진짜쓰는 실무엑셀」 , 드디어 출간되었습니다! (236)
  오빠두엑셀
|
2022.02.03
|
추천 514
|
조회 260134
|
오빠두엑셀
|
2022.02.03 | 514 | 260134 | ||
| 공지사항 | 문서서식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(197)
오빠두엑셀
|
2021.10.28
|
추천 280
|
조회 17880
|
오빠두엑셀
|
2021.10.28 | 280 | 17880 |
| 64443 | 함수/공식 |
New 가격 범위에서 가격을 입력하면 해당 요율이 나올 수 있는 방법 문의드립니다.
 dow****
|
15:15
|
추천 0
|
조회 10
|
dow****
|
15:15 | - | 10 |
| 64437 | 함수/공식 |
New [다중조건 index large row] 함수가 적용이 안되네요
 (1)
abc초콜릿
|
11:53
|
추천 0
|
조회 16
|
abc초콜릿
|
11:53 | - | 16 |
| 64433 | VBA |
New 셀레니움 세부 내용 가져오는 방법
 임정호
|
10:26
|
추천 0
|
조회 13
|
임정호
|
10:26 | - | 13 |
| 64432 | 함수/공식 |
New Min if 함수 오류 해결 부탁드립니다.
(2)
답변완료
shlolife
|
09:50
|
추천 0
|
조회 20
|
shlolife
|
09:50 | - | 20 |
| 64429 | 함수/공식 |
New [해결방법문의] 여러시트에서 이름에따른 금액을 검색하고 싶습니다.
(1)
김광연
|
03:10
|
추천 0
|
조회 27
|
김광연
|
03:10 | - | 27 |
| 64427 | 차트/그래프 |
New 막대그래프의 선을 따서 반전시키는 방법 문의
(1)
new_hwan
|
01:36
|
추천 0
|
조회 18
|
new_hwan
|
01:36 | - | 18 |
| 64423 | 함수/공식 |
New 이름,주소 월 별로 비교해서 변경사항 있으면 IF 중첩함수로 추출하는 방법
(1)
아숫
|
2023.12.01
|
추천 0
|
조회 31
|
아숫
|
2023.12.01 | - | 31 |
| 64420 | 기능/도구 |
New ㅠㅠㅠㅠㅠ.... 어제부터 몇시간째 못풀고 있습니다.. 나열되어 있는표 교차행(?)으로 만드는법
(6)
문재희
|
2023.12.01
|
추천 0
|
조회 39
|
문재희
|
2023.12.01 | - | 39 |
| 64417 |
New 달 바뀌면 자동으로 적용되는 서식궁금합니다.
gnsdlgns
|
2023.12.01
|
추천 0
|
조회 41
|
gnsdlgns
|
2023.12.01 | - | 41 | |
| 64415 |
New 거래명부에서 가져온 정보로 거래명세서 자동채우기. 같은날 다수거래처, 다수품목 일때 오류 관련
(1)
excellJK
|
2023.12.01
|
추천 0
|
조회 37
|
excellJK
|
2023.12.01 | - | 37 | |
| 64414 | 함수/공식 |
New 연차현황 관련
(3)
용용
|
2023.12.01
|
추천 0
|
조회 44
|
용용
|
2023.12.01 | - | 44 |
| 64411 | 함수/공식 |
New 가장 가까운 좌표 리스트업
aish
|
2023.12.01
|
추천 0
|
조회 41
|
aish
|
2023.12.01 | - | 41 |
| 64410 | VBA |
New 앞 단어의 받침 유무에 따라 잘못 사용된 (을/를) 검사 매크로 만들기 질문
(2)
 777
|
2023.12.01
|
추천 0
|
조회 39
|
777
|
2023.12.01 | - | 39 |
| 64405 | 함수/공식 |
New 한 좌표값(a,b)이랑 가장 가까운 좌표값 찾기
(4)
aish
|
2023.12.01
|
추천 0
|
조회 39
|
aish
|
2023.12.01 | - | 39 |
| 64404 | 함수/공식 |
New 구매리스트 관련문의 (VLOOKUP 중복 건너뛰고 표기하기)
(3)
러브미몬스터
|
2023.12.01
|
추천 0
|
조회 43
|
러브미몬스터
|
2023.12.01 | - | 43 |
| 64396 | 함수/공식 |
New 표준편차 계산시 특정월의 데이터만 계산하고 싶습니다(X방향)
(2)
답변완료
 전설
|
2023.12.01
|
추천 0
|
조회 38
|
전설
|
2023.12.01 | - | 38 |
| 64393 | 함수/공식 |
New 엑셀 함수 값 관련 질문
(2)
리덕구
|
2023.12.01
|
추천 0
|
조회 36
|
리덕구
|
2023.12.01 | - | 36 |
| 64387 | VBA |
New 아실 크롤링 관련 문의
(1)
임정호
|
2023.11.30
|
추천 0
|
조회 42
|
임정호
|
2023.11.30 | - | 42 |
| 64384 | VBA |
New VBA PivotItem 문의
(1)
봉s
|
2023.11.30
|
추천 0
|
조회 44
|
봉s
|
2023.11.30 | - | 44 |
| 64382 | 파워쿼리/피벗 |
New [파워쿼리] 쿼리안에서 구분기호 기준으로 열분할을 하고 난 후, 아래로 채우기가 안됩니다.!!
(6)
답변완료
 jja****
|
2023.11.30
|
추천 0
|
조회 50
|
jja****
|
2023.11.30 | - | 50 |
| 64381 | 함수/공식 |
New row()가 자동으로 변경될 수 있도록....
(4)
대빵
|
2023.11.30
|
추천 0
|
조회 48
|
대빵
|
2023.11.30 | - | 48 |
| 64377 | 피벗테이블 |
New 엑셀 피벗 행/열 비율 산출 질문
(2)
bugko****
|
2023.11.30
|
추천 0
|
조회 35
|
bugko****
|
2023.11.30 | - | 35 |
| 64376 | VBA |
New 견적서 내용을 리스트업 하는 VBA
조범주
|
2023.11.30
|
추천 0
|
조회 44
|
조범주
|
2023.11.30 | - | 44 |
| 64371 | 구글시트 |
New 두 개 시트 연동
(4)
답변완료
 RecSoo
|
2023.11.30
|
추천 0
|
조회 48
|
RecSoo
|
2023.11.30 | - | 48 |
| 64370 | 함수/공식 |
New 모든시트를 선택하는 함수가 있을까요?ㅠㅠ
(2)
myyh****
|
2023.11.30
|
추천 0
|
조회 61
|
myyh****
|
2023.11.30 | - | 61 |
| 64367 | VBA |
New 특정셀에 여러 변수 값을 대입하여 나오는 계산 값을 변수에 맞게 한번에 출력되게 하는 방법이 있을까요??
(2)
답변완료
박재관
|
2023.11.30
|
추천 0
|
조회 46
|
박재관
|
2023.11.30 | - | 46 |
| 64366 | 문서서식 |
New 전체인쇄와 시트1개 인쇄시 이미지 품질 저하문제
(2)
코코마
|
2023.11.30
|
추천 0
|
조회 31
|
코코마
|
2023.11.30 | - | 31 |
| 64360 | 함수/공식 |
New 각 열의 텍스트를 비교하여 일치율에 따라 관련열 값 가져오기
(1)
요코하마박
|
2023.11.30
|
추천 0
|
조회 43
|
요코하마박
|
2023.11.30 | - | 43 |
| 64359 | 구글시트 |
New 엑셀 또는 구글시트 - 다른시트 데이터의 새로운값만 순차적으로 가져오는방법..
(3)
myyh****
|
2023.11.30
|
추천 0
|
조회 37
|
myyh****
|
2023.11.30 | - | 37 |
| 64355 | 함수/공식 |
New sumifs 문의 드립니다.
(2)
답변완료
sarangh****
|
2023.11.30
|
추천 0
|
조회 44
|
sarangh****
|
2023.11.30 | - | 44 |
@흥어쩌라구 님 아래와 같이 크롤링 되는 값을 변수에 저장해서 셀에 출력될 값은 계산해서 포맷함수를 활용해서 하시면 되지 않을까요?
Sub test() Dim a, b, c, d As Double a = 1015.1 ' 크롤링값 b = 976 ' 크롤링값 c = 756.4 ' 크롤링값 d = 732.3 ' 크롤링값 e = 739.9 ' 크롤링값 Range("A1") = a Range("B1") = b & "(" & Format((b - a) / a * 100, "0") & "%)" Range("C1") = c & "(" & Format((c - b) / b * 100, "0") & "%)" Range("D1") = d & "(" & Format((d - c) / c * 100, "0") & "%)" Range("E1") = e & "(" & Format((e - d) / d * 100, "0") & "%)" End Sub@수이니 님 감사합니다.
크롤링 값을 표출하지말고 변수로 저장한다음에 계산하는거군요.
그럼 크롤링값을 변수로 저장하려면 코드를 아래와 같이 짜면 될까요?
Dim a, b, c, d As Double a = ie.Document.getElementsByClassName("gHead01 all-width data-list")(1).getElementsByClassName("lvl1")(0).getElementsByTagName("td")(0)