God of EXCEL

VBA 사용자 정의 폼에서는 가로 텍스트 정렬만 지원하고 있다. 텍스트가 들어가는 컨트롤의 속성에서 TextAlign 항목에서 왼쪽, 오른쪽, 중앙 정렬을 선택 할 수 있다. (웃긴건 버튼식 컨트롤들은 기본적으로 세로 정렬이 가운데로 되어있음 ㄷㄷ;;) 보시다시피 왼쪽, 중앙, 오른쪽만 가능하며 실제로 적용해보면 가로 정렬만 된다. 세로 정렬도 필요할 때가 있는데 약간의 꼼수를 이용해서 세로 정렬 구현이 가능하다. 세로 정렬을 구현하기 위해선 두 가지 컨트롤이 필요하다. Label 1개와 Label 또는 TextBox 아무거나 1개만 더 있으면 된다. 본문에서는 Label 2개를 이용해서 세로 정렬을 구현해보겠다. 1. Label1 라벨 하나를 생성하고 Caption 삭제, BackStyle과 Boder..

전달자 또는 파라미터라 부르는 놈을 우리는 잘 알고 있으며 잘 사용하기도 한다. vba에서 대표적인(?) 파라미터를 들자면 msgbox 함수가 있다. 메세지 박스를 띄우는 함수인데 파라미터가 엄청 많다. 여기서 필수 항목은 맨 앞에 있는 Prompt이다. 메세지 내용을 담당하고 있어서 그런지 필수적으로 들어가야 할 내용인가보다. 그 뒤에 나오는 애들은 있든 없든 메세지 박스 실행에 전혀 영향을 주지 않는다. 그런 필수항목인 프롬프트를 설정하지 않으면 다음과 같은 오류를 볼 수 있을 것이다. 내가 만들 프로시저나 함수에는 저런 오류메세지가 안뜨도록 선택적 인수로 가득하게 해보자. 선택적 인수를 만들기 위해선 Optional을 붙여주자 Sub Test(X As Integer, Optional Y As Int..

정보통신서비스 부분 전년도 매출액이 100억 원이 넘으면 무조건 인증심사를 받아야 하는 것인가? ISMS 인증심사 관련 공문을 처음 받은 기업이거나 공문과 같이 온 자료를 잘 안 읽어보는 사람(나 같은 사람)은 잘 모를 수도 있는 부분이라 간략하게 정리를 해봤다. 어느 날 갑자기 이런 제목의 메일이 온다면 인증 의무 대상자로 선정되었다는 말이다. 받았다면 회사가 어떤 기준을 만족했기에 의무가 되었는지 확인할 필요가 있다. 심사를 받자니 어렵고 무섭고 두렵고 힘들고 비싸다는 생각이 들면 안 받기 위해 합법적인 방법을 찾으면 된다. (합법이란 단어가 어울리는진 모르겠군...) 나의 경우 여태까지 매출액 100억 원 이상에 해당하는 의무 대상자만 돼봤기에 다른 기준에 대해선 아는 것이 없다... 흐흑 ISMS..

2021년 8월 21일 토요일 저녁을 먹고 이마트 성서점에 들렀다. 3층 구경하던 도중 불스원샷에서 이벤트를 진행하고 있었다. 혹하는 마음에 박회장을 이끌고 어떤 상품들이 있는지 구경을 하며 이벤트 내용도 확인해보았다. 불스원 이벤트 내용 -불스원 제품 3만원 이상 구매시 랜덤박스 제공 다양한 차량 용품들이 있었지만 나는 한 번씩 사용하는 불스원샷 엔진때 제거하는 녀석을 골랐다. 한 통에 12,900원, KB국민카드로 결제시 10% 추가할인까지 ! 네이버 가격을 찾아봤을 때 2통에 27,000원이상, 티몬에서는 23,930원 (배송비 별도 2,500원)에 판매되고 있었다. 온라인보다 저렴하게 팔고있는 오프라인 매장이라니... 당장 구매했지모얌... 3개나... 흐흐흐흐 세 통을 사서 하나는 주차장에서 바..

이곡동에 다녀온 지 며칠 만에 샤브향을 재방문했다. 이번엔 대구광역시 달서구 감삼동의 샤브향이다. 감삼 샤브향에 들어가자마자 이곡동과는 상당히 다른 점들을 한눈에 알아챌 수 있었다. 비가 와서 그런진 모르겠지만 조금 어두운 느낌의 홀과 샐러드바의 부재를 꼽을 수 있겠다. 샐러드바는 그렇다 치고 앉아서 메뉴판을 훑어봤다. 월남쌈 + 버섯 포함 샤브샤브 (저녁 / 점심특선) 한우버섯샤브 1인분: 24,000원 / 20,000원 소고기버섯샤브 1인분: 20,000원 / 17,000원 한우샤브 + 해물 1인분: 25,000원 소고기샤브 + 해물 1인분: 19,000원 -월남쌈 포함 샤브샤브(저녁 / 점심특선) 한우샤브 1인분: 19,000원 / 17,000원 소고기샤브 1인분: 15,000원 / 12,900원 ..

사용자 정의 폼을 사용하다보면 KeyDown 이벤트를 이용할 때가 있다. 특정 키를 눌렀을 때 작업을 수행 할 수 있도록 할 수 있는 이벤트이다. TextBox1을 생성하고 KeyDown 이벤트를 눌러보면 다음과 같이 나타난다. 1 2 3 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) End Sub Colored by Color Scripter cs KeyCode와 Shift 파라미터는 다음과 같은 의미를 가진다. KeyCode: 내가 누른 키의 번호 Shift: Shift키를 눌렀는지 확인 (0이면 안누름, 1이면 누름) 특이한 점 - 좌측 Ctrl를 누르면 Shift 값: 2, Ke..

지금까지 엑셀vba를 이용해서 액세스 DB에 데이터를 저장하는 방식은 SQL 쿼리를 이용했었다. 데이터가 소량일 때는 큰 문제가 되지 않았는데, 수 백개 이상이 되면서 처리 속도가 상당히 느려지는 바람에 작업에 큰 무리가 있음을 알게되었다. 그래서 한 방에 뙇! 넣을 수 있는 방법이 없을까 구글링을 하면서 찾은 해결책을 기록하고자 한다. 1. 해결방안 액세스에서 엑셀파일을 불러오는 모듈을 만들고 엑셀vba에서 액세스의 모듈을 실행시킨다. ???: 않이;;; 그럴꺼면 그냥 첨부터 액세스vba로 만들면 되는거 아니냐;; 라고 생각할 수 있다. 근데 나 도박사 엑셀의 신이 될 남자기 때문에 엑셀을 사용한다. 2. 액세스vba 모듈 추가 액세스vba에 들어갈 소스는 구글링하다가 다음 블로그에서 찾아냈다. 그냥 ..

대구 달서구 이곡동에 있는 샤브향에 다녀왔다. 1층에는 스무 대 정도는 주차할 수 있는 공간이 마련되어 있어서 편했다. 스무스하게 주차하고 2층으로 올라가 주문한다. 늘 그래왔듯 QR체크인과 손 소독 + 체온 측정을 마치고 무사히 창가 자리에 배정받았다. -월남쌈 + 버섯 포함 샤브샤브(저녁 / 점심) 한우버섯샤브 1인분: 25,000원 / 22,000원 소고기버섯샤브 1인분: 19,000원 / 16,000원 한우샤브 버섯+해물 1인분: 32,000원 / 28,000원 소고기샤브 버섯+해물 1인분: 26,000원 / 22,000원 -월남쌈 포함 샤브샤브(저녁 / 점심) 한우샤브 1인분: 19,000원 / 17,000원 소고기샤브 1인분: 13,900원 / 11,900원 한우샤브 + 해물 1인분: 25,0..

2021년 8월 13일 평림생활체육공원 근처에 있는 작은 방파제에서 낚시를 4시간 가량 진행했다. 평평하게 잘되있어서 낚시하기 좋아보인다. 얘 말고 새끼냥이도 어마무시하게 많았음. 우리가니까 도망가서 글치 비가 오락가락하는 상황에서 포기하지않고 낚시를 계속 진행했지만, 거의 4시간 가량 이곳에 있던 낚시꾼들은 생명체를 보지 못했다... 우리 일행 3명, 그 외 다른 낚시꾼 3~4명 정도 있으셨다. 하지만 그 누구도 바다 고기를 잡아 올리지 못했다. 물색이 탁해서 그런지 물고기들이 미끼를 발견하지 못한걸까? 입질조차 없다보니 그런 생각이 들 수 밖에 없었다.. 그 흔한 보리멸 복어도 나타나지 않으니 지루한 낚시가 계속 되었다. 그러다 갑자기 우비소녀 박회장이 뭔가 끌고가는 느낌이 들었는지 채비를 회수하고 ..

비트토렌트를 이용해서 BTT 토큰을 수확하고 있다. 그런데 여기서 큰 문제가 발생하게 된다. 획득한 btt 토큰을 거래소로 전송 할 수가 없다는 것이다. 구글링을 통해 알게된 사실은 2021년 4월부터 전송이 안되고 있었다. 최근에 관련된 내용으로 올라온 글을 찾지 못했기에 이 토큰은 못쓰는건가 싶었다. 하지만 비트토렌트에 직접 문의 해 본결과 다음과 같은 답변을 받을 수 있었다. -파파고 번역- 안녕 쿠주. 연락해줘서 고마워 Speed Exchange 서비스는 유지보수를 위해 다운되었다. 우리는 곧 업그레이드된 거래소 버전을 테스트하고 전달하여 사용자들이 기존 송금 문제를 해결할 수 있도록 도울 것이다. 기다려주셔서 고맙습니다! 안부의 말 캐시 B. 고객 지원 에이전트 비트토렌트 주식회사 메일 내용을 ..

우리의 원래 목적지는 환여횟집이었으나 운이 안따랐는지 문이 닫혀있었다.. 나중에 알게된 사실인데 환여횟집은 다른 곳으로 이전했다고 한다. 네이버에는 환여횟집이 두 곳으로 나오는데 내가 간 곳은 환호공원 오른쪽에 있는 주소였다. 잘못된 주소인걸 직접 가게앞까지 가서 알게되었지모얌... 그래서 그냥 옆에 있는산해정횟집에 들어가버림... 그렇게 먼 곳으로 간 건 아니었는데 주차도 다하고 귀찮고 배고파서 산해정횟집으로 ㄱㄱ! ※ 현재 환여횟집 주소: 경북 포항시 북구 해안로 189-1 (지도상에서 환호공원 왼쪽에 표시된 가게) 우리 일행은 알밤 2개, 멍게비빔밥 1개, 전복물회 1개를 주문하고 음식을 기다렸다. 대기 중 메뉴판 탐색은 국룰?! 처음엔 메뉴판인지도 모르고 단순히 포항 홍보책자인줄 알았다.. 그러고..

포항에 놀러갔다가 가본 대화식당. 가는길에 들은 얘기로는 식객 허영만의 백반기행에 방영된 식당이라고 한다. 난 이 프로그램을 보지도 않으며 테레비 맛집 방송같은건 신뢰하지 않는 사람 중 한 명이다. 하지만 근처에 마땅히 먹을 것도 없고해서 박회장의 추천으로 가보았다. 방송 출연한 가게답게 평일 점심이었음에도 불구하고 많은 사람들로 북적북적였다. 몇 분의 대기시간을 가진 후 차례가 되어 자리에 앉게되었다. 그런데 일행이 4명이었는데 한 상에 다 같이 앉기엔 자리가 비좁은 편이었다.(남성 2명, 여성2명) 아무래도 코로나로 인해 테이블을 띄어놔서 그런듯했다. 자리에 앉으니 쌀밥 또는 보리 섞은 밥 할지 물어보신다. 우린 쌀밥, 보리밥 2개씩 시켰고, 음식이 나올 동안 대기하였다. 주문을 하고 얼마지나지 않아..

2021년 8월 7일 이른 오후 박회장과 나는 오랜만에 낚시를 다녀왔다. 장소는 포항 영일신항망 방파제. 포항 낚시의 메카, 낚시 천국 주차는 초록색 네모지역에 했고 입구는 빨간 원에서 부터 시작이다. 방파제가 워낙 높아서 담넘듯이 벽타고 올라가는건 불가능해보였다. 많은 사람들이 입구를 통해 왔다갔다 하고 있었다. 주차 구역 옆에 직사각형 구조물에는 배들이 정박해있었고, 그 곳에서 낚시하는 분들도 있었다. 신항만방파제 들어가기전에 빨간 선으로 그어 놓은 곳에는 낚시점들이 줄지어 있었다. 그리고 CU, 이마트24, GS 편의점도 다다닥 붙어있었다. 포항 영일신항만 방파제 특. 방파제 입구에 낚시점이 많다. 방파제 입구에 편의점이 많다. 방파제 옆에 바로 해수욕장 있다. 방파제가 아주 길고 높다. 원투 낚시..

vba를 이용해 파일을 삭제해보자!!!! USING: Kill "File Path" 사용법: Kill "삭제할 파일 경로" 이번에도 경로나 파일이름을 이상하게 만들고 오류 테스트를 해봤다. 어떤 오류가 나올지 충분히 예상 되는 부분? 그러나 오류가 filecopy 함수와는 다르게 나타나는 것을 볼 수 있다. 경로가 이상하거나 파일이름이 잘못되어도 동일하게 런타임 53 오류를 뱉어낸다. filecopy 함수는 경로가 다르면 런타임 76, 파일이름이 잘못되면 런타임 53 오류를 발생시켰다.

vba를 이용해서 파일을 복사해보자! Using: filecopy "Source File", "Destination File" 사용법: filecopy "원본 파일", "복사할 경로" 원본 파일 이름이나 복사될 경로가 잘못됐다면 어떻게 될까? 당연히 오류 나겠지? - 런타임 53 오류: 파일 이름이 잘못됐을 때 나타나는 오류 - 런타임 76 오류: 경로가 잘못됐을 때 나타나는 오류 이런 오류가 발생한다는 사실을 확인했고 다른 실험을 해봤다. 원본 파일의 경로와 파일이름을 이상하게 만들어서 실행하면 어떤 오류가 나타날까? 런타임 73 오류가 먼저나타나는 것을 알 수 있었다. 끝