메모

Sub SwapSelectedCells() Dim tempValue As Variant Dim cellA As Range, cellB As Range 'Check if exactly two cells are selected If Selection.Count 2 Then MsgBox "Please select exactly two cells to swap.", vbInformation, "Selection Error" Exit Sub End If 'Assign the selected cells to their respective variables Set cellA = Selection(1) Set cellB = Selection(2) 'Store the value of cellA in a temporary..

Sub MergeWorkbooksWithDialog() Dim MyPath As String, FilesInPath As String Dim MyFiles() As String Dim SourceRcount As Long, FNum As Long Dim mybook As Workbook, BaseWks As Worksheet Dim sourceRange As Range, destrange As Range Dim rnum As Long, CalcMode As Long Dim targetFile As Variant 'Show the Open dialog box to select the target file targetFile = Application.GetOpenFilename("Excel Files (*...

버추얼박스에 xp를 설치하고 델7을 사용해오던 중 실컴과 다른 동작을 보여 디버깅 해봐도 답이 없어 실컴에 설치해 보기로 했다 설치된 컴포넌트 패키지가 많아서 고민좀 하다 검색을 해보니 레지스트리을 백업해서 옮기면 된다고 해서 필요하다 싶은 부분만 레지스트리 파일로 만들어 옮겨 주니 다행히 실행이 잘됨 CnWizards나 GExperts 같은 툴도 복사해서 같이 옮겨줌. Borland\Delphi7\Projects\Bpl 폴더에 있는 설치된 컴포넌트의 bpl을 실컴의 똑같은 위치에 옮겨주면됨 옮겨야 할 레지스트리는 대충 아래와 같음. 물론 필요하지 않은 것도 있겠지만 몰라서 그냥 해봄 방법은 [HKEY_CURRENT_USER\Software\Borland\를 모두 내보내기 한 후 아래와 같이 필요한 부분..

브레이크가 부러져서 교체한지 일년도 안돼 또 부러져서 다시 살려고보니 품절이라 알리에서 스텐으로 된걸 주문함. 배송비 포함하면 국내어서 플라스틱 제품과 비슷한 가격임. 이번에 좀 오래가길~ 일단 밑면 나사를 풀고 부러진걸 새걸로 교체함 기존은 나사 세개인데 새건 2개이지만 잘 고정되는듯 닿지도 않고 잘맞음 조립은 분해의 역순. 당분간 잘타고 다닐듯~

; Set the time window in milliseconds during which the second ; Esc key press must occur for it to be recognized as a double press. ; Increase or decrease this value as necessary. doublePressTimeout := 300 ; This variable keeps track of the time of the last Esc key press. lastEscPressTime := 0 ; This function is called when the Esc key is pressed. Esc:: ; Get the current time. currentTime := A_T..

통계청 인허가 자료는 아래에서 다운로드 가능하고 2개월의 시간차이가 있음 https://kosis.kr/statHtml/statHtml.do?orgId=116&tblId=DT_MLTM_1946&vw_cd=MT_ZTITLE&list_id=116_11626_001&scrId=&seqNo=&lang_mode=ko&obj_var_id=&itm_id=&conn_path=MT_ZTITLE&path=%252FstatisticsList%252FstatisticsListIndex.do KOSIS kosis.kr 아래와 같은 형식으로 받으려면 조회설정과 행령전환을 해줘야한다. 조회설정에서 조회 조건을 추출하고자하는 항목만 선택하면 된다. 위의 자료는 구분과 부분을 총계만 선택하고 시점을 2007부터 선택한 결과이다. 선택..

KB통계 자료

IME_CHECK(WinTitle) { WinGet,hWnd,ID,%WinTitle% Return Send_ImeControl(ImmGetDefaultIMEWnd(hWnd),0x005,"") } Send_ImeControl(DefaultIMEWnd, wParam, lParam) { DetectSave := A_DetectHiddenWindows DetectHiddenWindows,ON SendMessage 0x283, wParam,lParam,,ahk_id %DefaultIMEWnd% if (DetectSave A_DetectHiddenWindows) DetectHiddenWindows,%DetectSave% return ErrorLevel } ImmGetDefaultIMEWnd(hWnd) { retur..

얼마전 앞쪽은 소리가나서 공업사에서 브레이크 패드 교체 하였으나 뒤쪽은 괜찮다고 해서 그냥 직접 교체하기로함 일단 타이어 너트를 먼저 풀어 놓아야 들어 올려서 작업이 수월함 보통 트렁크에 있는 렌치에 올라서서 몸무게로 풀있는데 아무리 해도 안풀려서 대형 스패너를 연장대로 이용해서 겨우품 토크렌치가 없는 관계로 너트마다 현재 위치를 표시해놓고 조일때 그위치까지 조이면 됨 위 사진은 약간 풀린 상태라서 위치가 다름 바퀴 탈거후 조립할때도 같은 위치에 걸어줘야 위치를 표시는 효과가 있음 자리가 바뀌면 체결시 돌아가는 정도가 달라져 위치 표시한 효과가 없을수도 있음 잭을 돌려서 열심히 올려준다 바퀴를 탈거하고 캘리퍼 볼트를 푼다 근대 작은 스패너 같은걸로 안풀리므로 큰 라쳇렌치로 해야 쉽게풀림 패드를 빼보니 반..

configTime(0, 0, "pool.ntp.org"); // get UTC time via NTP로 시간을 받아오지 못할 경우 보통 유동ip의 경우 별 문제가 없지만 고정ip만 되면 시간을 받아오지 못해 구글링 해본 결과 dns설정을 해주지 않아서 그렇다고 한다. 아래와 같이 dns설정해 주니 잘됨 IPAddress dns1(8,8,8,8); Brownout detector was triggered 라이브러리 추가 및 setup에 아래의 구문 추가 #include "soc/soc.h" #include "soc/rtc_cntl_reg.h" setup(){ WRITE_PERI_REG(RTC_CNTL_BROWN_OUT_REG, 0); //disable brownout detector }