본문 바로가기

엑사남180

[VBA] 네이버 영어사전 LV5.(댓글 또 요청) 네이버 사전이 json구조로 변경이 되어서 lv4에서 lv5로 업데이트 완료 더보기 Option Explicit Sub Haja_word_Lv4() Dim rngAll As Range: Set rngAll = Range([a2], [a2].End(4)) '= 단어 영역 순환 Dim rngA As Range Dim response, test As Object Dim html As Object: Set html = CreateObject("htmlfile") Dim xmlhttp As Object: Set xmlhttp = CreateObject("msxml2.xmlhttp") Dim strUrl$, strplay$ Dim json As Object Dim temp As Object rngAll.Next.R.. 2024. 2. 11.
[365리뷰] 칸트차트 만들기[feat. 서랍님] https://www.youtube.com/watch?v=SVO32ur-69I 서랍님 칸트차트 리뷰이다. =LAMBDA(테이블,시작일,일정, LET( →step1, "람다함수를 통해서 테이블 시작일 일정의 값을 받는다", 기간,SEQUENCE(1,일정,시작일), →step2, "함수를 만들어서 각 행의 TRUE 값을 반환받는다", 함수,LAMBDA(r,IF((INDEX(테이블,r+1,2)=기간),1,"")), →step3, "반복할 행값을 구한다", 테이블갯수, ROWS(테이블)-1, →step4, "각 행을 반복하며 스텝2에서 만들어진 함수값의 반환값을 REDUCE의 결과값으로 호출한다", x, REDUCE("",SEQUENCE(테이블갯수), LAMBDA(a,v,VSTACK(a,함수(v)))), →st.. 2024. 2. 10.
[기초방] VBA 100제 #91 [ 표에서 다중검색하기 ] 우노 사설님의 강의에서 문제를 가져와 보았다. https://www.youtube.com/watch?v=16_mEL_B6lM&t=615s 전통적인(?) 방법은 이러한 순서로 진행하게 될것이다. 1. rngH [A4:H4]를 순환하면서 지역 RANGE("K4")에서 해당 지역이 포함되어 있는지를 확인후에 2. 해당되는 지역이 있다면 그 지역의 데이터를 순환하면서 CheckStr을 호출하여 카운트된 수를 반환하여 그 합을 구하는 방식이다.For Each rngQ In rngH If InStr(rngR, rngQ) > 0 Then Set rngY = rngQ.Offset(1) NumCnt = NumCnt + CheckStr(Range(rngY, rngY.End(4)), rngC.Value) End If Nex.. 2024. 1. 7.
[한글화작업] 엑셀을 아래아 한글로 변환하기 엑셀을 한글로 변환화는 의뢰 한번 맺은 의뢰자의 인연은 쭈~~욱 2024. 1. 3.

티스토리툴바