jimsjoo

[jimsjoo]

OpenAI API키

지난 번에는 구글인증을 얻기 위한 복잡한 과정을 간략하게 보았는 데, 이번에는 OpenAI 키를 얻어야 한다. 구글에 비해 상당히 간단하다. 아래의 링크를 API키를 얻기 위해 참조한 블로그 글이다. n8n x ChatGPT : AI으로 자동화에 날개를 달아보자 다만 블로그 글을 따라하다 막히는 부분이 있는 데, 블로그에서 말한 Dashboard-API Keys 메뉴가 안보인다는 것이다. 글의 작성시점이후 OpenAI platform 페이지가 변경된 듯하다. 이런 경우 Search 텍스트 상자에 “API Keys”로 검색하면 바로 찾아 갈 수 있다(https://platform.openai.com/settings/organization/api-keys) [Create new secret key]…

[jimsjoo]

n8n과 구글API

한때 RPA라는 용어가 유행했는 데, 이번에는 새로운 자동화툴들이 AI와 결합하여 뜨거워지고 있다. IFTTT, Zapier, Make, n8n, Power 등이 그들인데, 사실 제대로 써본 건 없다. 그 이유는 이 글을 쓰는 넘이고인물급이라 VBA와 같은 로컬환경안에서 스크립트를 만들어 굴리는 게 더 편안하다. 아래 링크는 무료자동화툴을 소개하는 글인데, 도구 선택에 도움이 될 수있을 것이다. 무료 업무 자동화 툴 TOP 5: IFTTT, Zapier, Make, n8n, PowerAUTOMATE 초보자로서 이러한 툴이 어려운 이유중 하나는 외부서비스를 연계하기 위해 필요한 인증이 어려운 탓이기도 하다. 구글의 여러가지 서비스는 스마트폰과 엮여서 자주 사용하는데, 그들의 서비스를 연계하면 근사한…

[jimsjoo]

What sort algorithm should I use?

What sort algorithm should I use?Most of the sort functions in the library use a mix of sort algorithms based on quicksorts because some sort algorithms are much faster when there are fewer elements and some algorithms work when there are more. For example, for libstdc++, GCC’s C++ library, the sort function partitions to a certain depth, and if the partition is moderately small, it performs an…

[jimsjoo]

Office365 업그레이드후 VBA작동문제

매우 성가신 Excel VBA 파일 손상 문제(Excel 365로 업그레이드하면 통합 문서의 VBA 코드가 작동하지 않음)가 있다면 시도해 볼 만한 방법이 하나 있다. 다음과 같이 관련 레지스트리를 수정한다. \HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Excel\options 로 이동하여 새로운 DWORD값을 추가하고 이름은 ‘ForceVBALoadFromSource’로 명명한다. 그리고 값은 1로 한다(아래 그림 참고) 주워 들은 바에 따르면 “원인은 Excel이 VBA 코드의 컴파일 상태를 올바르게 저장하지 않아 64비트 Excel이 영향을 받는 Excel 파일을 열 때 해당 문제에서 복구할 수 없기 때문입니다(32비트는 일반적으로 복구 가능). 다른…

[jimsjoo]

DDE를 사용하여 ATM 옵션델타 모니터링

간만에 DDE를 사용하는 VBA코딩을 해보았다. 이미 예전에 DDE VBA코드를 선 보인 바 있다. 이번 예제는 여러 행사가격의 옵션 그릭스(greeks)를 워크시트에 실시간으로 보여주고 , 이중 ATM 콜옵션(기초자산의 가격변동에 따라 ATM옵션은 달라진다)의 델타를 시간별로 라인차트로 보여준다. 위의 그림에서 콜델타, 풋델타 차트는 여러 행사가격 옵션의 델타를 이어 놓은 것인데, 이론에서 배운 것과 비슷한 모양이다. 콜델타추이 차트는 시간별로 기초자산인 선물가격과 ATM옵션의 델타를 보여준다. (나중에 다시 쓸게요. 급 귀찮. 현타가 옴-이짓을 뭐하러 하나 싶음)

[jimsjoo]

VBA에서 Restful API이용하기

좋은 도구가 많은 세상에 VBA 따위로 이런 일을 하는 게 멍청한 일이다. 그러나 엑셀에서 일어나는 작업과 연계할 필요성이 있는 경우 바보 같은 짓이라도 해두면 낫지 않을 까? 다음은 판매정보를 보내는 코드중 일부이다. Dim json As New Dictionary json("apiType") = "sale" json("srs") = srs json("srsNo") = srsNo json("saleCnt") = saleCnt json("memId") = memId json("memNo") = memNo json("memName") = memName json("returnYn") = returnYn json("txId") = txId Data =…

[jimsjoo]

워크시트의 수 만개 행을 언제 뺑뺑이 도나?

평화로운 워크시트에 VBA 대규모 공사를 벌일 참이었다. 1,048,576개의 행을 모두 도는 건 아니지만 수천, 수만 개의 행을 수행하면서 각종 연산을 하려고 치면 엑셀은 맛이 갈 수 있다. 보통 평범하게 A컬럼의 셀 값이 비어 있는 지 검사하고 , 뭔가 있다면 작업을 하고, 아니면 다음을 한다. Sub demoLoopAllRows() Dim s As Worksheet Dim rngCmd As Range Const CELL_BEGIN = "A2" Const CELL_END = "A1048576" Set s = Sheet1 For Each rngCmd In s.Range(s.Range(CELL_BEGIN), s.Range(CELL_END).End(xlUp)) If Len(rngCmd) <> 0…

[jimsjoo]

엑셀로 JSON 다루기

웹상에서 ���이터를 주고 받는 보편적인 데이터 형식을 꼽으라면 당연히 JSON이다. 잼민이도 쉽게 이해할만한 포맷인데, 키와 값 한 쌍으로 전송할 데이터를 표현한다. 근데 이걸 보느라면 VBA에서 가끔 사용하는 딕셔너리와 무척 닮아 있다. 딕셔너리도 키와 값을 다루는 데이터형이다. 사실 그넘이 그넘일 듯하다. VBA에서 사용할만한 JSON라이브러리를 찾아보니, ‘VBA-JSON'(github.com/VBA-tools/VBA-JSON)이라는 평범한 게 하나 있다. 이것은 VBA에서 JSON포맷으로 변환하고 파싱해준다. 깃헙에 소개한 샘플코드를 보면 Dim Json As Object Set Json =…

[jimsjoo]

WriteFile API를 사용하여 이진 파일 데이터 쓰기 방법

WriteFile API를 사용하여 이진 파일 데이터 쓰기 방법

남의 일 도와주다 검색한 건데, 나중에 혹 쓸 일이 있을 까 싶어… Public Const GENERIC_WRITE = &H40000000 Public Const GENERIC_READ = &H80000000 Const FILE_ATTRIBUTE_NORMAL = &H80 Const CREATE_ALWAYS = 2 Const OPEN_ALWAYS = 4 Const INVALID_HANDLE_VALUE = -1 Const FILE_NAME = "TEST.DAT" 'This can be any file that does not 'currently exist. Type MyType value As Integer End Type Declare Function ReadFile Lib "kernel32"…

[jimsjoo]

이번 달의 두 번째 화요일은 며칠일까요?  

Function dhNthWeekday(dtmDate As Date, intN As Long, _ intDOW As Long) As Date ' Find the date of the specified day within the month. For ' example, retrieve the 3rd Tuesday's date. Dim dtmTemp As Date If (intDOW < vbSunday Or intDOW > vbSaturday) _ Or (intN < 1) Then ' Invalid parameter values. Just ' return the passed-in date. dhNthWeekday = dtmDate Exit Function End If ' Get the first of the…

[jimsjoo]

프로세스 목록 구하기

다음은 프로세스 목록을 구하는 예제이다. 결과는 현재 워크시트에 저장한다. 사실 이건 VBA의 기능은 아니구 셀스크립팅의 파워랄까 Sub getprocess() Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process", , 48) Dim row As Integer row = 1 For Each objItem In colItems ActiveSheet.Cells(row, 1).Value =…

[jimsjoo]

진정한 난수발생기

주사위를 직접 던져 구한 난수입니다. 확실하죠~

[jimsjoo]

Getting disk usage data with the filesystem object in VBScript

Getting disk usage data with the filesystem object in VBScript

대부분 리눅스를 서버OS로 사용하기도 하지만, 아직 익숙치 않아 윈도를 서버로 사용하는 경우도 있다. 대개의 경우 ���버가 별 말썽을 부리진 않지만 종종 모니터링 할 필요가 생긴다. 아무래도 CPU상태나 디스크용량 등등을 확인하여 메일로 보내주면 좋을 것 같아 스크립트를 하나 둘씩 모으는 중인데 다음의 디스크의 잔여용량을 확인해주는 스크립트이다. VBScript지만 VBA에 그대로 가져다 사용해도 된다. 어차피 그넘이 그럼이다. Function GetFreeSpace(Drive, strComputer) Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set…

[jimsjoo]

Number with the thousands separated by commas

Number with the thousands separated by commas

#include <string> #include <iostream> using namespace std; string sep_digit_by_comma( string s ){ string temp; int num= ( s.size()%3 ) ? ( s.size()/3 ) : ( s.size()/3 - 1 ); for( int i=0, j=0; i<=num; ++i ){ for( ; j<s.size()-3*(num-i); ++j ){ temp+=s.substr(j,1); } if( j!=s.size() ) temp+=","; } return temp; } int main(int argc, char *argv[]) { string s; cin >> s; cout <<…

[jimsjoo]

The results of the SolverSolve function 

엑셀의 해찾기는 프로그래밍에 익숙하거나 익숙하지 않거나 많은 사람들이 사용하는 선형방정식 해결방법이다. 비선형방정식임에도 불구하고 마땅한 툴이 없어 이걸 사용하기도 한다. 그런데 프로그램을 만들어 많은 양의 방정식을 푸는 경우 종종 해찾기가 문제를 해결해주지 못하는 경우도 생긴다. 다음은 이런 경우(일종의 에러)를 대비하지 못한 코드이다. SolverReset SolverAdd CellRef:="$B$5:$B$6", Relation:=1, FormulaText:="4" SolverOk SetCell:="$B$8", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$5:$B$6" SolverSolve True 위의 코드에서 해찾기를 실행하는 Solver함수가…

[jimsjoo]

How to test running time of VBA code

How to test running time of VBA code

내가 만든 함수의 성능이 어��� 정도 인지 확인하는 방법은 여럿 있는데, VBA가 제공하는 Now(), Timer함수를 사용하는 것 외에 QueryPerformanceCounter/ QueryPerformanceFrequency라는 API함수를 호출하는 방법이 있다. 사실 첨 보는 함수라서 이렇게 참고삼아 올린다. Option Explicit Private Type LARGE_INTEGER lowpart As Long highpart As Long End Type Private Declare Function QueryPerformanceCounter Lib "kernel32" _ (lpPerformanceCount As LARGE_INTEGER) As Long Private Declare…

[jimsjoo]

How to Add controls to a frame in an Excel userform with VBA

How to Add controls to a frame in an Excel userform with VBA

The following code demonstrates how you can dynamically populate a frame in a userform with controls… In the form I used I had a frame control named Frame1, so in the UserForm_Initialize you call Frame1.Controls.Add to embed a control in the frame. You can set the control which gets returned to a WithEvents control variable that you have defined in the UserForm code module so you can respond to…