본문 바로가기

전체 글156

[vba] ENCODEURL Function ENCODEURL(varText As Variant, Optional blnEncode = True) Static objHtmlfile As Object If objHtmlfile Is Nothing Then Set objHtmlfile = CreateObject("htmlfile") With objHtmlfile.parentWindow .execScript "function encode(s) {return encodeURIComponent(s)}", "jscript" End With End If If blnEncode Then ENCODEURL = objHtmlfile.parentWindow.encode(varText) End IfEnd Function 2021. 1. 30.
[vb6.0/vba] 한글을 발음대로 영어로 변환(한글이름 영문표기) Function Ename(T$) Dim cho() As Variant, moum() As Variant, jong() As Variant cho() = Array("g", "kk", "n", "d", "tt", "r", "m", "b", "pp", "s", "ss", "", "j", "jj", "ch", "k", "t", "p", "h") moum() = Array("a", "ae", "ya", "yae", "eo", "e", "yeo", "ye", "o", "wa", "wae", "oe", "yo", "u", "wo", "we", "wi", "yu", "eu", "ui", "i") jong() = Array("", "k", "kk", "k", "n", "n", "n", "t", "l", "l", "l.. 2021. 1. 30.
[vb.net] JSON To DataTable {"Table":[ {"link_product_list":"\/category\/\ub514\ud4e8\uc800\/115\/","name":"\ub514\ud4e8\uc800","param":"?cate_no=115","cate_no":115,"parent_cate_no":1,"design_page_url":"product\/list.html","like_count":0}, {"link_product_list":"\/category\/\ud504\ub798\uadf8\ub7f0\uc2a4\uc5d0\uc13c\uc15c\uc624\uc77c\/116\/","name":"\ud504\ub798\uadf8\ub7f0\uc2a4\/\uc5d0\uc13c\uc15c\uc624\uc77c","param":"?c.. 2021. 1. 21.
Mouse Click & Keyboard Event: Action Class in Selenium Webdriver 출처 :: ωωω.guru99.com/keyboard-mouse-events-files-webdriver.html ​ Mouse Click & Keyboard Event: Action Class in Selenium Webdriver Details Last Updated: 23 September 2020 In this tutorial, we will learn handling Keyboard and Mouse Event in Selenium Webdriver Action Class in Selenium Action Class in Selenium is a built-in feature provided by the selenium for handling keyboard and mouse events. It.. 2020. 11. 18.
[google spreadsheets] 구글 스프레드시트 여러 영역을 하나의 리스트로 Join 하는 방법 구글링을 해보니 아래와 같은 수식이 검색됩니다. =Query(VMERGE((ImportRange("0AozvCNI02VmpdG9MNkhIWk8xVWJ0XzVsLVN0aHdVUlE","Sheet1!A1:B")); ImportRange("0AozvCNI02VmpdG9MNkhIWk8xVWJ0XzVsLVN0aHdVUlE","Sheet2!A2:B")); "select * where Col1 is not null") 그래서 와 역시 구글 스프레드시트는 막강하구나 감탄을 하였습니다. ​ 그런데 아래와 같이 #NAME? 라고 나옵니다. VMERGE 함수가 없답니다. ​ 관련해서 검색을 해봤습니다. VMerge is a script installable from the script gallery of Google Spr.. 2020. 10. 28.
[script] Google 스프레드시트 스크립트 정리 스프레드시트로 매크로 작업할 일이 있어서 작업하다가 구글 스크립트 api는 처음이라 기록해 둡니다. 전체시트 var sheets = SpreadsheetApp.getActiveSpreadsheet().getSheets(); 특정 시트 var DB = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('DB'); 현재 시트 var sheet = SpreadsheetApp.getActive(); ​ 다른파일 var ss = SpreadsheetApp.openByUrl("https://docs.google.com/spreadsheets/d/" + docName + "/edit"); ​ 데이터 마지막 행 eRow = DB.getDataRange().getLastRow.. 2020. 10. 27.
2020-10-05 ~ 2020-10-11 네이버 카테고리별 키워드 클릭 순위 카테고리순위키워드패션의류 > 여성의류 > 니트/스웨터1니트패션의류 > 여성의류 > 카디건1여성가디건패션의류 > 여성의류 > 원피스1원피스패션의류 > 여성의류 > 티셔츠1맨투맨패션의류 > 여성의류 > 블라우스/셔츠1블라우스패션의류 > 여성의류 > 점퍼1여성경량패딩패션의류 > 여성의류 > 재킷1트위드자켓패션의류 > 여성의류 > 코트1핸드메이드코트패션의류 > 여성의류 > 청바지1여자게스청바지패션의류 > 여성의류 > 스커트1플리츠스커트패션의류 > 여성의류 > 레깅스1레깅스패션의류 > 여성의류 > 바지1팬츠패션의류 > 여성의류 > 트레이닝복1여성트레이닝세트패션의류 > 여성의류 > 조끼1니트조끼패션의류 > 여성의류 > 정장세트1여성정장세트패션의류 > 여성의류 > 한복1한복대여패션의류 > 여성의류 > 유니폼/단체복1.. 2020. 10. 17.
[vba] vba(매크로) 타이머 활용 Module1: Window API를 활용한 예제 Option Explicit Option Private Module #If VBA7 And Win64 Then ' 64 bit Excel under 64-bit windows ' Use LongLong and LongPtr Private Declare PtrSafe Function SetTimer Lib "user32" _ (ByVal hwnd As LongPtr, _ ByVal nIDEvent As LongPtr, _ ByVal uElapse As LongLong, _ ByVal lpTimerFunc As LongPtr _ ) As LongLong Public Declare PtrSafe Function KillTimer Lib "user32" _ (B.. 2020. 10. 8.
[vba] 멀티 쓰레딩(VBA Multi Threading) / 멀티 쓰레드 vba에서 멀티 쓰레드가 지원이 안되지만 방법은 몇가지 방법으로 구현이 가능하다 ​ 난 개인적으로 스크립트를 이용한 방법이 아름다워 보인다. ​ 아래 샘플들 참고하시길... ​ Want to learn how to add multithreading using C#.NET? EXCEL: Multithreading VBA using C#.NET Want to learn how to add multithreading using VBscript? EXCEL: Multithreading VBA using VBscript Want to learn how to add multithreading using VBA via VBscript? EXCEL: Multithreading using VBA via VBscript .. 2020. 10. 8.
[vb.net] DataTable에서 중복되지 않는 유일한 값 추출 및 ComboBox에 아이템 추가하는 예제 가끔 DataTable에서 중복되지 않는 값을 추출해야 할 때가 있습니다. ​ DataTable에서 중복되지 않는 유일한 값 추출 및 ComboBox에 아이템 추가하는 예제 소스입니다. ​ Dim ctg() As String = D.AsEnumerable().Select( Function(DR) Return DR.Field(Of String)("카테고리") End Function).Distinct().ToArray ComboBox1.Items.Clear() ComboBox1.Items.AddRange(ctg) 2020. 10. 6.
[vba] 아는것이 힘이다 - 2중 및 다중 중첩 For문의 활용 보통 2중 중첩 For문의 경우 아래와 같이 사용합니다. Sub program1472_com() Dim i As Integer, n As Integer Dim T As String T = "i * n = ?" & vbCrLf For i = 1 To 5 For n = 1 To 5 If Len(T) Then T = T & vbCrLf T = T & i & " * " & n & " = " & i * n Next n Next i MsgBox T End Sub 아래는 출력 결과 입니다. 이정도는 초보 분들도 다 아실 내용입니다. ​ 다음으로 소개해 드릴 방법은 상상도 못할 고급 프로만이 사용하는 기술 입니다. ​ Sub program1472_com() Dim i As Integer, n As Integer Dim.. 2020. 10. 2.
사용 안 하는 USB 허브를 이용한 4포트 USB 고속 충전기 만들기 아래와 같이 생긴 USB 허브하 하나 있네요 사용안하고 있어서 4포트 충전기를 만들어 볼까 합니다. 우선 뒷판을 분리했습니다. 그리고 각 전원 부분을 배선을 추가하여 전류가 잘 흐를 수 있도록 추가로 연결하고 아답타 잭도 하나 추가 하였습니다. 다음으로 케이스가 뜨지 않도록 아답타 잭 부분만큼 잘라줍니다. 마무리가 거칠어 커터칼로 마무리를 다듬어 줍니다. 아답타 잭이 둥근걸 생각 못하고 조금 덜 자를걸 그랬나 봅니다. 완성 하였습니다. 스위치도 잘 동작 합니다. ​ 다음으로 휴대폰 충전을 해보겠습니다. 헌데 충전 시간이 장난이 아닙니다. 충전 완료까지 23시간? .... 헉... ​ 원인을 찿아 보았습니다. ​ 4핀구성(type A, B)의 경우 번호 신호 선색깔 1 vbus(+5volt) ​ 2 dat.. 2020. 10. 2.
[vb.net] VB.NET으로 이벤트 로그 생성 및 읽기, 쓰기 및 삭제 이벤트 로그 기록을 위해 우선 MSDN 자료를 찿아 보았습니다. ​ CreateEventSource(String, String) ​ 오버로드 CreateEventSource(EventSourceCreationData) 이벤트 소스와 해당 이벤트 로그에 대한 지정된 구성 속성을 사용하여 지역화된 이벤트 메시지를 작성할 올바른 이벤트 소스를 설정합니다. CreateEventSource(String, String) 로컬 컴퓨터의 로그에 엔트리를 쓰는 유효한 이벤트 소스로 지정된 소스 이름을 설정합니다. 또한 이 방법을 사용하면 로컬 컴퓨터에 새로운 사용자 지정 로그를 만들 수도 있습니다. CreateEventSource(String, String, String) 사용되지 않습니다. 지정된 컴퓨터의 로그에 엔트.. 2020. 9. 23.
[vba] OLEDB를 활용한 시트 데이터 검색 및 추출을 통한 데이터 정리 간만에 흥미를 가질만한 질문이 올라왔습니다. 많은 데이터중에서 특정 조건으로 데이터를 추출하고자 합니다. ​ 조금 이해는 불가하지만 나름 얻고자 하는 데이터가 무엇인지 한참 고민을 했습니다. 1차질문(엑셀 VBA 질문 드립니다.), 2차질문(1:1 질문) ​ ​ 아래와 같은 데이터가 있습니다. 이후 중략 ​ 이 데이터를 기반으로 아래와 같이 뽑고자 합니다. 조건이 무엇일까? 질문을 여러번 읽어보고 감이 왔습니다. ​ 그래서 결과를 아래처럼 뽑아냈습니다. 아래는 관련 동영상 입니다 아래는 동영상에서 사용된 vba 매크로 소스코드 입니다 우선 도구 - 참조 에서 아래처럼 참조를 추가합니다. Sub program1472_com() Application.ScreenUpdating = False Do While .. 2020. 9. 22.
[vba] ListBox 를 활용한 검색폼 웹 크롤링 관련한 답변을 주로 하는데 요즘 먹이감이 별로 없다. 간만에 시간이 좀 되어 답변한 내용을 정리해 봅니다. ​ 뭐 채택은 안되었지만... ​ 아래는 등록 및 검색하는 결과 영상입니다. ​ 아래는 등록 폼 입니다. 동적 컨트롤을 삽입하여 깔끔하게 처리하였습니다. 아래는 "검색"폼 입니다. ​ 아래는 동영상에 사용된 파일과 코딩한 UserForm 입니다. 엑셀 매크로&VBA 바이블:실무에 최적화된 엑셀 사용서, 한빛미디어 40,500원 (포스팅일기준) 엑셀 2016 매크로&VBA 무작정 따라하기:기본+회사실무, 길벗 19,800원 (포스팅일기준) 엑셀 2016 매크로 & VBA 바이블:회사에서 필요한 코드는 모두 있다!, 한빛미디어 40,500원 (포스팅일기준) 2020. 9. 22.
[vba] CreateObject 오류시 x64에서 ScriptControl등 사용하는 방법 vba 사용하는 사람이면 그냥 32비트 깔아라... 엑셀 2016을 설치하고 나서 영 불편한 게 아니네요.... ​ 64 비트 실행 환경에서 ScriptControl이 제공되지 않아 오류가 발생합니다. 미래를 생각하는 가장 좋은 방법은 ScriptControl의 대안을 고려하는 것입니다. 그러나 다른 수단이 없는 것은 아닙니다. 64 비트 Windows에는 32 비트 실행 환경도 있습니다. ScriptControl은 32 비트 실행 환경에서 제공됩니다. Function CreateObjectx86(sProgID) Static oWnd As Object Dim bRunning As Boolean #If Win64 Then bRunning = InStr(TypeName(oWnd), "HTMLWindow") .. 2020. 9. 22.
[vb.net] WinHttp를 이용한 네이버 맞춤법 검사제목없음 Private Function SpellerProxy(ByVal value As String) As String Dim URL As String, T As String URL = "https://m.search.naver.com/p/csearch/ocontent/util/SpellerProxy?" URL &= "_callback=jQuery1124027291531983561435_" & UNIX_TIME() URL &= "&q=" & UrlEncode(value) URL &= "&where=nexearch" URL &= "&color_blindness=0" URL &= "&_=" & UNIX_TIME() With CreateObject("WinHttp.WinHttpRequest.5.1") .Open("G.. 2020. 9. 22.
μTorrent Web 설치 프로그램 다운로드 μTorrent Web 다운로드 https://download-new.utorrent.com ​ 세계 최고의 토렌트 클라이언트 자신의 엔터테인먼트 수요에 맞는 버전을 선택하세요 최신! 다운로드 중에도 재생할 수 있습니다 더는 기다릴 필요가 없어요, 마음껏 인터넷을 시청하세요 무료 다운로드 지금 바로 파일을 재생하세요 원하는 모두를 저장하세요 빠른 다운로드 ​ ​ 유저들에게 사랑받는 이유 “ µTorrent는 직관적인 인터페이스로 우아하고 심플한 기능을 제공합니다. 사용자에게 필요한 모든 기능과 설정이 포함되어 있습니다. 아무것도 복잡할 필요는 없는 것이지요. Dr. J. Fever 9/1/2017 ​ “ µTorrent의 주요 장점은 신속하며, 원격 관리 스크립팅과 자동화와 같은 고급 사용자 설정을 활용.. 2020. 9. 21.
[vb.net] 암호화/복호화(Encrypt / Decrypt) '// 복호화 Public Function Decrypt(ByVal cipherText As String, Optional key As String = "") As String If key.Length = 0 Then key = Application.ProductName Dim wrapper As New Simple3Des(key) Try Return wrapper.DecryptData(cipherText) Catch ex As System.Security.Cryptography.CryptographicException 'MsgBox("The data could not be decrypted with the password.") End Try Return Nothing End Function '// 암호.. 2020. 9. 21.
[vba] partners.coupang.com 에 WinHttp로 로그인 해서 상품정보 가져오기 Sub login_coupang_com() Dim IE As Object Dim URL As String, Cookie As String, T As String Dim PostData As String Set IE = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "https://login.coupang.com/login/login.pang?rtnUrl=https%3A%2F%2Fpartners.coupang.com" With IE .Open "GET", URL .SetRequestHeader "Accept", "text/html, application/xhtml+xml, image/jxr, */*" .SetRequestHeader "Accept-Language",.. 2020. 9. 21.
FileLocator Pro Version 8.5 - Build 2912 Crack FileLocator Pro Version 8.5 - Build 2912 Crack ​ ​ 다운로드 받을 수 있는 곳입니다. 아래 링크에서 받을 수 있습니다. FileLocator Pro 8.5 Build 2912 Multilingual دانلود FileLocator ؛ برنامه جست‌وجوی سریع فایل downloadly.ir 파일 다운로드 링크 دانلود رایگان نرم افزار - ویندوز، مک، لینوکس، فیلم آموزشی، سریال، اندروید - دانلودلی ویندوز، مک، لینوکس، فیلم آموزشی، سریال، اندروید - دانلودلی downloadly.ir 설명대로 설치 후 같이 동봉된 Crack 폴더의 하위 폴더중 운.. 2020. 9. 21.