God of EXCEL

일상생활을 하다보면 종이에 작성된 목록을 보고 엑셀에 옮겨적는 경우가 있다. 다음과 같은 경우는 순번, 이름, 생일 ,나이, 성별을 적기위해 준비해놓은 상황이다. 보통 엔터를 치거나 오른쪽 방향키를 이용하여 이동하면서 셀에 데이터를 입력 할 것이다. 하지만 '탭' 버튼을 알게된 순간 이것만 누르게 될 것이다. 1. 엔터 키를 이용한 입력 엔터를 사용하면 이렇게 답답한 상황이 연출된다.. 2. 방향키를 이용한 입력 엔터로 하는것보다 편해보이지만 손가락이 뭔가 불편하다. 방향키가 멀어서 그런지 자주 사용하지 않게된다. 그리고 '탭'키를 이용한것과 아주 극명하게 차이나는 부분도 있기에 방향키가 더 별로인것도 있다. 3. 탭키를 이용한 입력(Tab, Caps Lock 위에 있는 키) 이거보시게 방향키랑 뭐가 다..

날이 따뜻해서 밖에 싸돌아다니기 좋아졌다. 그 덕분인지 예전에 하던 포켓몬고가 생각나 다시 시작하게 되었다. 대구 지역의 포켓스탑 10개 이상, 체육관 5개 이상 모여있는 곳들을 찾아서 정리 해볼생각이다. 오늘은 자주가던 지역을 위주로 탐방해보았다. 달서구 이곡동 장미공원 달서구 이곡동 와룡공원 달서구 두류동 두류공원 달서구 중리동 체육공원(퀸스로드, 대구의료원 근처) 달서구 용산동 용산근린공원,가정법원 1.장미공원(대구 달서구 이곡동 1306-6) 장미공원에서 서쪽 아파트 단지(한빛 마을)로 내려가면서 포켓스탑 돌리고 체육관 깨부수는 재미가 있다. 장미공원 북쪽에는 포켓스탑이 듬성듬성있어서 크게 메리트가 있어 보이지 않았다. 오늘같은(2022년 2월 26일) 레이드 이벤트가 있을 때 사람들의 많은 참여..

1. 강화 크래프트 1.15 (PvP) 출처: https://cafe.naver.com/edac?iframe_url_utf8=%2FArticleRead.nhn%253Fclubid%3D17046257%2526articleid%3D87460 네이버카페: 스타 에디터 아카데미 업그레이드가 확률에 따라 성공하고 실패하는 아주 재밌는 맵이다. 게다가 고테크 건물이 없이도 3업이상 진행할 수 있기때문에 운이 좋다면 저글링이 무적이 되기도 한다. 그리고 이 맵에는 특수기능이 3가지 존재한다. 업그레이드 성공 확률 설정 (인게임에서 설정, 20~80%) 초당 미네랄4, 가스2 추가 자원 획득 (방제 또는 인게임에서 설정) 서든데스 모드: 게임 시작 시 등장하는 센터 건물(해처리, 넥서스, 커맨드센터) 파괴되면 패배 (..

with를 이용하면 보다 짧은 코드를 작성할 수 있다. 어떻게 쓰는지 알아보자. 사용법 Sub with_Test() With Range("A1") .Font.Color = RGB(255, 0, 0) End With End Sub With 함수는 변수, 개체 등을 생략 할 수 있게 만들어준다. 위 예시 코드를 보면 With 옆에 생략할 개체를 넣어줌으로써 With 와 End With 사이에서는 해당 개체를 적지않고 .(온점)만 찍어도 개체의 속성을 사용 할 수 있게 된다. ※ 범위, 셀, 시트 등의 개체가 아니라 변수를 넣어도 됨 ※ vba가 그렇듯 마지막엔 End with 필수! 이중 With Sub with_Test() With Sheets(1) With .Range("A1") .Font.Color =..

엑셀vba를 이용해 파일이름을 변경해보자. 변경할 때 쓰는 함수는 Name As 아주 간단하다. 사용법: Name 원본파일 As 변경될파일이름 ex) Name "C:\test\A.txt" As "C:\test\AA.txt" Name As 특징 파일 이름 변경 가능 파일 이동 시킬 수 있음 대소문자 구분하지 않음( a.txt = A.txt , aaaA.txt = Aaaa.txt 같은 파일로 취급) 확장자 변환 가능하지만 데이터 손실됨. 존재하지 않는 파일이면 오류 발생(53 런타임 오류, 파일을 찾을 수 없음) 존재하지 않는 폴더로 이동할 경우 오류 발생(53 런타임 오류, 파일을 찾을 수 없음) Name As 테스트 Sub 파일이름변경하기() Name "C:\test\A.txt" As "C:\test2\..

현재 PHP HTML MariaDB를 이용해 웹 구축을 하고 있다. 웹 구축에 문외한이라 구글링의 도움을 받으며 열심히 만드는 중 로그인 페이지 구현에서 아주 애를 먹었다. 문제 상황 1) 로그인.php 2) 로그인_체크.php 3) 메인.php 1) -> 2) -> 3) 순으로 페이지 이동을 하는데 2번에서는 세션이 확인되지만 3번 페이지에서는 세션 값이 사라지는 현상이 발생하였다. 수많은 구글링을 통해 해결해보려 했지만 되지 않았다... 그런데 생각보다 아주 쉽게 해결할 수 있었다. PHP 코드 작성할 때 대소문자 구분 없이 해도 된다고 배웠는데, session 변수는 예외였던 것인가?? 소문자로 했을 땐 작동이 되지 않았고, 대문자로 하니 정상적으로 값이 출력되었다.. var_dump($_sessi..

캠핑 + 펜션의 2박 3일 마지막날. 점심으로 사천시의 맛집이라는 하주옥에 다녀왔다. 우리가 방문한 시간엔 아주아주 냉면먹기 좋은 날씨였다. 섭씨 30도를 웃도는 뜨거운 여름날씨.. 허억.. 방문객이 워낙 많아서 그런지 번호표도 준비되어있었다. ++ 주차장도 널널함 우리 일행은 54번의 번호를 받았다. 순서가 되면 방송으로 몇번 들어오시라고 안내해준다. 은행인줄 알았음... 냉면집이라 그런지 순환속도가 상당히 빠른 느낌이다. 그래도 30~40분쯤 기다린듯? ㅋㅋ 차례가 되어 들어가자마자 찍은 메뉴판이다. 우리는 물냉 2, 비냉 2 총 4그릇을 시켰고 물은 워터다. 주문하고 각종 밑반찬이 나온다. 잡채와 유자 드레싱 샐러드, 찐만두(1인 1개)가 나온다. 메인메뉴가 나타났다. 그릇도 상당히 크고 내용물도 ..

특정 셀의 데이터가 변경될 경우 언제 바꼈는지 시간을 기록하고 싶을 때가 있다. 간단한 vba 코딩으로 해결해보자! 1. VBA 코드(단일 셀) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 1 Then Cells(Target.Row, "D") = time End If End Sub Target = 현재 데이터가 변경된 셀 정보 time = 현재 시간 정보 (시분초) now = 오늘 날짜 및 시간 (년월일 시분) 코드 해석: 타켓의 열이 1번(A열)이고 행이 1보다 크다면 타켓의 행번호와 D열에 현재 시간을 입력하라. 2. VBA 코드(범위) Private Sub Worksheet_Chang..

프로그래밍에서 쓰는 용어들은 참 어렵다.. 하지만 알아야지 나중에 Const는 상수라고 하며 변수의 반대 개념이다. 변수는 값을 바꿀 수 있지만 상수는 고정값이며 변경 불가능하다. VBA 코드에서 Const 사용법은 다음과 같다. Const 상수이름 = 1 Const 상수이름2 = "문자열" Sub Test() Debug.Print 상수이름 Debug.Print 상수이름2 End Sub 사용법: Const 사용할 이름 = 값 사용법: Public Const 사용할 이름 = 값 기본적으로 상수 선언을 하면 선언된 모듈 내에서만 사용 가능하며, 앞에 Public을 붙여준다면 모든 프로젝트에서 사용할 수 있게 된다. Public 없는 상태로 다른 모듈에서 상수를 호출하면 아무 일도 일어나지 않는다. 만약 Op..

프로그램 동작 중 사용자에게 입력값을 받아야 할 때가 있다. InputBox 함수를 이용해서 해결해 보자! InputBox 사용법 InputBox 함수 입력값 또는 버튼 선택에 따라 다른 코드 진행 입력값 검증 1. InputBox 사용법 Sub Inputbox_Test() InputBox "내용", "제목", "기본값" End Sub Msgbox 함수와 비슷한 인수들을 가지고 있다. InputBox Prompt, [Title], [default], [xpos], [ypos], [helpfile], [context] InputBox 함수의 내용에 해당하는 Prompt만 필수이며 나머지 인자는 선택사항이다. title: 제목 default: 시작했을 때 입력되있을 값 xpos: 가로 위치 (숫자로 입력) ..

프로그램 동작 중 사용자에게 경고 알림 확인 등 메세지 팝업을 띄워서 알려야 하는 경우가 있다 그럴때 사용할 수 있는 함수는 msgbox ! Msgbox 사용법 Msgbox 버튼 선택에 따라 다른 코드 진행 Msgbox 내용 줄바꿈 1. Msgbox 사용법 Sub Msgbox_Test() MsgBox "내용", vbOKCancel, "제목" End Sub msgbox 함수는 Prompt, [buttons], [title], [helpfile], [context] 5가지 인수를 사용할 수 있다. 이 중에서 Prompt는 필수이며 메세지 내용을 나타낸다. 나머지는 선택사항 buttons = 버튼 형식 선택 title = 메시지박스 제목 helpfile = 도움말 파일[context 인수를 사용하면 필수 항목..

추석이 다가오기전 문어의 시세가 얼마나 될런지 다른 해산물들의 가격은 얼마나 하는지 알아보기 위해 가봤다. 매천시장은 농수산시장과 수산시장 두 종류로 나누어진다. 초행길이면 네비게이션을 잘 보고 가시길 바란다. 그리고 여느 수산시장이 다 그렇듯 호객행위가 존재하지만 끌고가고 그러진 않는다. 볼거 보면서 지나다니면 된다. ++ 시장에선 현금을 좋아하지만 카드도 다 받아준다. 현금주면 더 좋은데~ 라고 말하는 판매자도 있었지만 카드 내밀었다고 부가세 10% 더 받는다고 가격을 높여부르진 않았다. (4곳 방문했는데 1곳에서 들음) 매천수산시장 주소(번지): 대구광역시 북구 매천동 526 매천수산시장 주소(도로명): 대구광역시 북구 매천로 63 여전히 정겨운 바다냄새가 나는 수산시장이다. 낚시의 욕구를 자극하지..

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..