vba89 [심화방] VBA_심화_100제 #15 [ 4대보험계산기] 우린 이전 시간에 테이블 태그를 한방에 엑셀로 가져오는 것을 연습하였다. https://1stminokingdom.tistory.com/228 [심화방] VBA_심화_100제 #11 [ 셀레니움 Astable] 셀레니움으로 추출된 표는 KBO 홈페이지의 데이터를 추출한 내용이다. 웹의 데이터를 크롤링할때 우리는 table 태그 안에 tr태그와 td태그들을 For each 또는 For 순환문으로 적절하게 파씽하면서 크 1stminokingdom.tistory.com 하지만 이번 본인이 4대 보험계산기를 통해서 값을 가져오려 했을 때 이런식으로 폼만 가져오는 것을 보고 HTML을 살펴보았더니 이런식으로 비어있는것을 알 수 있었다. 자바스크립트로 뒷단에서 조건에 맞게 계산을 한 후 화면에 보여주는 형식인거 같.. 2023. 4. 1. [VBA] 구글번역기 beta 구글 번역기... 크롬은 태그를 숨겨놓아서 찾는데 애먹었다. 일단 지금은 영어 한글 번역만 가능... 더보기 Option Explicit Sub 구글번역() Dim rngX As Range: Set rngX = [b4] [d4] = GTranslate([b4], "en", "ko") With [b4] .HorizontalAlignment = xlGeneral .VerticalAlignment = xlTop .WrapText = True End With End Sub Function GTranslate(strInput$, strFromLang$, strToLang$) Dim strURL$ Dim xmlHttp As Object: Set xmlHttp = CreateObject("MSXML2.ServerXM.. 2023. 3. 24. [기초방] VBA 100제 #34 [ 상위5그룹 합계 ] 더보기 Sub 기초방34() Dim rngall As Range: Set rngall = [c4].CurrentRegion Dim rngX As Range Dim i&, j&, hSum&, Cnt&: Cnt = rngall.Cells.Count Dim vtemp Sheets("문제").[c4].CurrentRegion.Copy [c4] '= 문제복사 For i = 1 To Cnt - 1 '= 버블정렬 / 기초방 34-1 문제 해법 For j = i To Cnt If rngall(i) > rngall(j) Then vtemp = rngall(i) rngall(i) = rngall(j) rngall(j) = vtemp End If Next j Next i For i = 4 To 0 Step -1 '= 상위 .. 2023. 3. 5. [기초방] VBA 100제 #33 [ 칸트 차트만들기 ] 더보기 Sub 기초방33() Dim rngAll As Range: Set rngAll = Sheets("근무일정").[b3:b10] Dim rngA As Range Dim rngX As Range: Set rngX = Sheets(2).[a3] Dim rngCol As Range Dim Vtemp Dim start&, bln As Boolean Haja_Format bln '= 초기화 Sheets("근무자추출").Activate '= 근무자 추출시트 활성화 Application.Wait Now + TimeSerial(0, 0, 1) '= 1초 지연 For Each rngA In rngAll Vtemp = Split(rngA, " - ") rngX(1, 1) = rngA(1, 0) '= 고객명 rngX(1.. 2023. 3. 5. 이전 1 2 3 4 5 6 7 ··· 23 다음
