God of EXCEL

오랜기간 셀메이트를 이용한 발송 업무를 해왔다. 그리고 발송 작업을 하다보면 발송 완료처리가 제대로 되지 않는 경우가 발생한다. 이런일이 발생하면 생길 문제는 다음과 같다. 회사의 상품 재고가 맞지 않게된다. 완료처리를 하면 재고도 차감되는 방식이기에 완료처리가 되지 않는다면 상품 재고에 영향을 주게 된다. 상품이 제대로 나갔는지 고객이 받기 전엔 확인하기 어렵다. 셀메이트에는 완료처리된 시간이 기록된다. 만약 발송 작업에 문제가 있어서 고객에게 잘못 전달되었다면, 완료처리 시간을 보고 발송 작업자의 cctv를 확인하게된다. 하지만 완료처리가 되지 않았다면 언제 어떻게 잘못나가게 됬는지 cctv를 볼 수가 없다. (발송 수량이 적으면 일일히 보면서 노가다로 가능하긴 할 듯..) 고객상담 부서와의 친밀도 ..

엑셀vba에는 모듈 말고도 사용자 정의 폼을 만들어 쓸 수 있다. (word, ppt, access 등 다른 오피스 프로그램들도 마찬가지) 간단히 폼에 추가할 수 있는 컨트롤과 사용법에 대해 알아보자. 1. 폼 생성 Alt + F11을 눌러 VB 편집기를 열도록 하자. 그리고 프로젝트 창에서 마우스 우클릭하여 사용자 정의 폼을 추가한다. 만약 프로젝트 창이 안보인다면 Ctrl + R 을 누르거나 '메뉴 > 보기 > 프로젝트 탐새끼'를 누르자. 이렇게 아무것도 없는 폼이 생성되었다. 2. 폼 열기 폼을 만들었으면 열고 닫는법을 알아야 한다. 이제는 모듈을 하나 추가해서 코드 한 두줄만 작성하면 폼을 열 수 있다. 프로시저 이름을 정하고 폼 이름을 적고 온점을 누르면 다양한 속성들이 나타난다. 그 중에서 s..

저번에는 일괄적으로 암호걸어보기를 했는데 이번에는 패스워드가 걸린 엑셀 파일들을 한꺼번에 해제하거나 암호를 변경해도록 하자. 중요한점은 엑셀 파일의 암호를 알고 있어야한다는 것이다! 1. 동작 순서 1) 패스워드변경.xlsm의 셀 A2에 폴더 경로를 입력. 경로 마지막에 '\' 없어도됨 ex. c:\test 2) 파일불러오기 버튼을 클릭하면 셀 A2 경로의 파일들을 시트에 출력. (확장자는 xlsx, xls, xlsm 등) 3) 목록을 불러오면 현재 비밀번호와 변경할 비밀번호를 입력하고 비밀번호 변경을 클릭 4) 암호 변경 성공 여부에 따라 E열에 결과를 나타냄 2. 시연 폴더 경로는 'C:\패스워드연습'으로 설정하고, 안의 내용물은 위 그림과 같이 다양하게 준비했다. 엑셀 파일은 이름처럼 비밀번호를 4..

간단한 방법으로 이 데이터가 소수인지 정수인지 구분해보도록 하자. 구글링을 잘못했는지 엑셀vba 소수를 검색하면 1,2,3,5,7,9,... 과 같은 1과 자기 자신 외에는 약수를 가지지 않는 수에 대해서만 나와있다. 내가 원한건 이게 아닌데... 엑셀vba에서 0.24, 0,123, 23.4234 이런 소수들을 구분하는 방법이 있는지 궁금해서 찾아봤지만, 해답은 찾을 수 없었다. 하지만 수학적 접근으로 비교적 쉽게 해결하였다. 소수 구분 식: x - 정수형 변환(x) = 소수점 아래 숫자 예시. x 값이 123.24 라고 할 때 정수부분인 123을 x값에서 빼게 되면 0.24만 남게된다. 이 결과를 보면 나머지가 존재하기 때문에 소수라고 얘기 할 수 있다. x = 4 일때 식: 4 - 정수형 변환(4)..

작년 6월부터 소액(20만원)으로 주식투자를 시작하여 11월에 본격적으로 투자금을 넣기 시작했다. 투자 방식은 장기적으로 꾸준히 특정 종목을 매수하는 것이다. 특정 종목 3가지를 선택하고 소량으로 매수하고 후에 종목 공부를 하기 시작했다. 주식의 기본이 재무제표 보는 법이라 하는데 그걸 공부하기 위해 VBA로 재무제표 불러오는 코드를 작성했다.(?) 그냥 인터넷으로 봐도 되는데 굳이...?라고 생각할 수도 있지만, 그냥 한번 만들어봤다. 그리고 어떻게 동작하는지 정리해봤다. 1. 동작 순서 엑셀 시트에서 '종목 찾기' 버튼을 눌러 폼을 띄운다. 폼에서는 종목을 검색할 수 있으며 목록에서 선택된 종목의 재무제표를 엑셀 시트에 불러온다.(웹 크롤링, 5초 정도 소요됨 ) 웹 크롤링이 완료되면 자동으로 Acc..

집에서 발생하는 중요 문서들을 처리하기 위해 가정용 파쇄기/세단기/종이찢는 기계를 구매했다. 21일에 주문해서 22일 받았다. 여윽시 갓갓배송 1. 포장까기 요 박스에 운송장만 붙여왔다! 박스찌그러짐 그런것도 없었고 괜찮았다. 충격방지용 같은 계란판이 들어있었다. 정확히 명칭을 모르니 패쓰 위아래로 두개 들어있었음 2. 구성품 구성품 충격완화 계란판(?) 2개 설명서 1개 분쇄하는 부분 1개 갈린 종이 떨어지는 통 1개 영수증, 신용카드를 1장씩 분쇄해보았다 3. 성능 테스트 아주 시원하게 잘갈리는구먼 GIF라 소리가 안들리는게 흠이지만, 일반적으로 듣는 파쇄기 소리랑 다를게 없다. 휘이이이이~이이잉 두두두ㅜ두두 휘이이이이이잉 사용한지 2주차정도 되는 듯.. 아직까지 잘쓰고 있고 앞으로도 꾸준히 사용 할..

오늘 처음으로 보안기사 실기시험을 쳤다. 공부를 제대로 안했더니 알랑말랑한 문제들이 다수 출제되었다. 1. 단답형 문제 1) KISA 사이버위협 단계 * 복수 정보통신서비스제공자(ISP)망, 기간통신망에 장애 또는 마비 * 침해사고가 다수기관에서 발생해썩나 대규모 피해로 확대될 가능성 증가 2) 메모리 보호 기법 * 메모리 보호기법 종류 ① DEP (Data Excution Protection) NX(Non-eXecutable)와 w^x 동의어 메모리영역에 write 및 execute 권한을 동시에 부여하지 않음. 메모리 영역에서 실행권한을 뺌. ex) 환경변수 실행권한 제거. => Shell Code 삽입 공격을 막음. 메모리 공간 권한 확인 ② ASLR (Address Space Layout Rand..

가끔 하나의 함수가 길어지는 경우가 발생한다. 너무 길어지면 가로 스크롤이 생기고 가독성이 떨어지게 된다. _(언더바)를 이용해서 코드를 여러 줄로 작성해보자. 1. 테스트 1 2 3 4 5 6 Sub 연습() Debug.Print ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row '1번 Debug.Print ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Row '2번 End Sub Colored by Color Scripter cs A열의 마지막 데이터를 찾아주는 함수로 테스트하였다. 1번의 경우 한 줄로 작성했고, 2번은 두 줄로 만들어봤다. 실행결과야 둘 다 똑같은 1의 값을 출력했다. 함수를 두 줄로 작성하려면 _(언더바..

숨겨진 엑셀 시트가 한 두개면 그냥 내가 숨기기 취소해서 보이면 간단하다. 하지만 그 수가 10개가 넘어간다면 일일히 숨기기 취소하기엔 힘들지 않을까? 그래서 한방에 숨겨져 있는 모든 시트를 세상에 드러나도록 해봤다. 1. 코드 Option Explicit Sub 숨기기일괄취소() Application.ScreenUpdating = False Dim i As Integer For i = 1 To ActiveWorkbook.Sheets.Count If Sheets(i).Visible = False Then: Sheets(i).Visible = True Next i End Sub 엑셀에서 Alt+ F11키를 눌러 VBA 편집기를 열고 프로젝트 창에서 모듈하나를 추가해주고 코드를 복붙하면 끄읕. 크게 어려운 ..

도박사의 생일이라고 박회장님이 선물을 줬다. 평소에 유선 이어폰의 불평불만을 늘어놓던걸 기억하고 무선 이어폰이라는 아주아주 기가막힌 제품을 받았다. 1. 박스 포장 상당히 아담한 사이즈의 박스포장으로 왔다. 귀요미 스맛폰 박스랑 비슷한 느낌의 재질과 두께감. 나쁘지 않았다. 2. 구성품 LG TONE Free의 구성품은 아래와 같다. TONE Free 이어젤 2종 USB 충전 케이블 (충전 어댑터는 별매..?왜 그랬을까..) 사용 설명서 제품 보증서 이 정도면 과자 포장보다 아주 효율적으로 들어가있다고 생각된다. 3. 사용기 도박사는 막귀 + 무선 이어폰 처음 사용자임 그러다보니 이번에 사용해보면서 신세계를 경험할 수 있었다. 손바닥의 1/4 정도 크기밖에 되지 않는 껍데기를 열었을때 아기자기한 이어폰들..

엑셀vba 편집기를 이용하다보면 도킹 기능이 상당히 불편하게 느껴질 때가 있다. 처음엔 그러려니하며 썼지만 이젠 못참겠다. 그래서 도킹을 없애봤다. 1. 도킹 기능이란? 엑셀vba 편집기에는 프로젝트, 속성, 조사식, 직접 실행 창, 코드, 지역 창 등 상당히 여러가지 보기 옵션을 선택 할 수 있다. 이 옵션 창들을 vba편집기 테두리 부분에 끌어서 옮기다 보면 갑자기 툭하고 붙는 경우가 있다. 이 기능은 vba에서 지원해주는건데 그렇게 필요한거 같진 않다.. (나의 개인적인 생각) 2. 도킹 해제하기 vba편집기의 '도구 > 옵션 > 도킹 탭'에서 쉽게 해제 할 수 있다. 체크 해제 후 확인을 눌러주면 vba 편집기에 들러붙지 않게 된다.

시트의 마지막 데이터(행 또는 열)가 몇번째 셀에 있는지 알고싶다. 쉽게 알아내보자. 1. 테스트 환경 구축 위 그림에서 셀 (10,"A"), (7,"C"), (4,"E"), (2,"H") 네 곳에 '마지막'이라는 글자를 입력하였다. 이 글자들을 활용해 위치를 찾아내보자. 2. vba 코드 123456789Sub 마지막_위치_알아내기() Dim LastRow As Integer Dim LastCol As Integer LastRow = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row LastCol = Sheets(1).Cells(2, Columns.Count).End(xlToLeft).Column End SubColored by Color Scriptercs 육안으로 ..

엑셀 파일에 자동으로 암호를 걸어보도록 하자 1. 매크로 동작 순서 ① 파일 목록 불러오기 클릭하여 폴더 선택 ※ xls, xlsx, xlsm 이외의 파일은 불러오지 않음 ② C열에 적용할 패스워드를 입력한다. ③ 암호 설정하기 클릭하면 자동으로 암호넣고 저장 완료 ④ 이미 암호가 걸려있는 파일은 적용되지 않고 실패 로그를 남김 2. 매크로 실행 영상

원하는 엑셀 파일을 선택하여 암호를 걸어보도록 하자. 1. 매크로 동작 순서 ① 설정할 암호 입력 ※ 암호 조건: 최소 4자리 이상, 위 아래 암호 입력 값이 동일 해야함 ② 암호 조건이 맞으면 OK 버튼 활성화 ③ 파일 선택창 열림 ④ 원하는 경로로 들어가 파일 선택 (여러개 선택 가능) ⑤ 선택된 파일들 암호 걸고 저장됨. (백그라운드로 진행됨) ⑥ 종료되면 파일을 확인한다. ⑦ - 끝 - 2. 매크로 실행 영상 오우 잘되는군...

올해 정보보안기사 시험만 두 번 봤다. .... 불합격 하였다.. 과락없는게 신기할 뿐 하지만 다행히(?)도 보험으로 들어놓은 산업기사 필기는 합격하였다. 내가 왜 15회, 16회에서 필기 탈락했는지 분석해봤더니 공부를 너무 안한다. 내가봐도 너무 안했다.. 심각할정도로 운으로 합격하려는 마음이 컸나보다.. 그래서 공부만 하면 재미도 없고 지루하기만 해서 기출문제 프로그램을 만들면서 공부해보려고 한다. 어느 정도 틀은 잡았고 문제만 계속 집어 넣기만 하면된다. 문제 집어넣고 프로그램 잘 실행되는지 확인하는 과정에서 공부가 될꺼라는 나만의 생각ㅋㅋㅋ 이거라도 하면 좀 낫지 않을까??ㅋㅋ 있어보이게 업데이트 내역이니 버전이니 이런것도 넣어보고 해설 온/오프 기능도 넣고, 분야 선택해서 풀어볼 수 있게 만들었..