God of EXCEL

오늘 처음으로 보안기사 실기시험을 쳤다. 공부를 제대로 안했더니 알랑말랑한 문제들이 다수 출제되었다. 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회에서 필기 탈락했는지 분석해봤더니 공부를 너무 안한다. 내가봐도 너무 안했다.. 심각할정도로 운으로 합격하려는 마음이 컸나보다.. 그래서 공부만 하면 재미도 없고 지루하기만 해서 기출문제 프로그램을 만들면서 공부해보려고 한다. 어느 정도 틀은 잡았고 문제만 계속 집어 넣기만 하면된다. 문제 집어넣고 프로그램 잘 실행되는지 확인하는 과정에서 공부가 될꺼라는 나만의 생각ㅋㅋㅋ 이거라도 하면 좀 낫지 않을까??ㅋㅋ 있어보이게 업데이트 내역이니 버전이니 이런것도 넣어보고 해설 온/오프 기능도 넣고, 분야 선택해서 풀어볼 수 있게 만들었..

기본 기능에 충실한 vba코드를 작성해봤다. 제곧내 엑셀 파일마다 다른 암호를 설정하고 싶을 때 요롷고롬 하면 쉽게 할 수 있었다. 1. 코드 Option Explicit Sub 파일별로다른암호걸기() Dim lastFile As Integer Dim i As Integer Dim Excel_ap As Excel.Application Application.DisplayAlerts = False lastFile = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row Set Excel_ap = CreateObject("excel.application") Excel_ap.Visible = False Excel_ap.Application.DisplayAlerts = False F..

엑셀 매크로와 vba를 처음 접했을 때 부딪히는 문제였다. 매크로 기록하고 '나중에 또 써먹어야지 히히' 라는 생각하며 파일 저장을 했다. 분명 나는 파일 저장을 했다. 근데 다음에 파일을 열어보면 ??? 매크로 어디감??? ㅜㅜㅜ 매크로 기록하고 저장할 때 경고창이 나타남에도 잘 읽어보지 않고 닫거나 '저장 안 함'을 눌러버려서 매크로 코드가 많이 실종됬었다.. xlsm 이나 xls 확장자로 저장하면 이런 불상사가 생기지 않을 것이다. 요약. .xlsx 기본 확장자에는 vba코드가 포함되지 않는다. .xlsm vba코드를 포함한 파일 .xls 97 - 2003 통합 문서 파일인데 vba코드가 포함됨 .xlam 엑셀 추가기능 파일, vba 코드 포함

이제 막 사용자 정의 폼을 시작했을 때 '왜 색깔이 이거 밖에 없어? 겁나 꾸졌네'라고 생각했다. 하지만 다양한 컬러들을 설정 할 수 있음을 찾아내고 말았다.. 알고보니 넘나 쉬운것. 1. 폼 색상 조절 Color 글자가 들어가는 아무 속성이나 클릭하면 위 그림과 같은 색상 선택 창이 나타난다. 색상표, 시스템 두가지 탭이 존재하고 색상표에서 다양한 색들을 사용 할 수 있다. 알록달록한 예쁜색들이 보인다. 원래 맨 아래 두 줄은 흰색으로 되있었는데 내가 이것저것 색을 넣어놨다. 기본으로 제공되는 색을 변경할 수 없다. (첫번째 줄 ~ 여섯번째 줄) 맨아래 두 줄에서 아무 칸이나 마우스 오른쪽 클릭을 하면 색 정의 창이 나타난다. 여기서 RGB 값을 직접 조정해서 색을 추가해도 되고 마우스 클릭으로 해도되..

엑셀vba의 사용자 정의 폼을 이용해서 달력을 만들어보았다. 약간의 노가다가 필요하였다. 1. 폼 구성 커맨드버튼 2개와 레이블 48개, 프레임 1개를 이용해서 폼을 구성하였다. - 레이블 사용처 1) 년도 표시 2개: 숫자, 년 2) 월 표시 2개: 숫자, 월 3) 달력 요일 7개: sun, mon, tue,wen... 4) 달력 일 35개: 1일 부터 마지막 일 5) 선택 날짜 표시 2개 2. 코드 달력코드는 모듈 3개와 폼 1개로 이뤄져있다. -모듈 사용처 1) 달력에 날짜 표시 (1,2,3,4,....,31) 2) 글자의 볼드 해제 3) 달력 날짜 표시 삭제 -폼에 사용된 코드 1) 왼쪽 화살표 버튼: 이전 달로 이동 2) 오른쪽 화살표 버튼: 다음 달로 이동 3) 폼 열렸을 때 초기화 4) 날짜..

텍스트 파일 쓰기와 같은 방법으로 배치(batch) 파일을 만들어보자 배치 파일은 cmd 명령어를 이용한 프로그래밍이라 할 수 있다. 간단히 ping 보내는 파일을 만들어보겠다. 1. 파일 생성 코드 1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit Sub Create_Batch_File() Dim FILE_Path As String FILE_Path = "C:\Users\S-PC-01\Desktop\test\ping.bat" Open FILE_Path For Output As #1 Print #1, "ping -t 8.8.8.8" Close #1 End Sub Colored by Color Scripter cs 1) FILE_Path 변수에 파일확장자를 포함한 경로..

인터넷 익스플로러 컨트롤 할 때 클래스네임을 이용하는 경우 getElementsByClassName을 사용하게 된다. 그런데 형식이 일치하지 않는다며 런타임 오류가 발생하는 경우가 있다.. ㅜㅜ 네이버 로그인 화면으로 접속하고 html을 불러온다음 로그인 버튼의 클래스네임을 찾아 Object에 저장하는 코드이다. set object 부분에서 런타임 13오류가 발생했다. 그 이유는 마지막에 .item이 빠졌기 때문이다. 내가 이걸 어떻게 알게됬는지는 나도 모르겠다... 검색하다 알게된건가..

엑셀vba에서는 변수 선언을 하지 않아도 바로바로 쓸 수 있어서 편리했다. 하지만 코드가 길어지고 많은 변수를 사용 할 때 조금 헷갈리는 경우 발생하기도 한다. 그래서 언제부터인지 Option Explicit를 선언하여 변수 선언을 강제하고 있다. 변수선언을 하지 않고도 위 그림처럼 사용해도 아무런 문제는 없다. 짧은 코드에서는 이게 더 편함 위 코드를 실행하면 A=3, B = 7, C = 10이라는 값이 들어가게된다. 아무런 문제가 없지만 장기적으로 계속 프로그래밍을 하려면 변수 선언을 강제화하는게 좋은 습관일거라 판단하였고 편리한 부분도 있어서 Option Explicit 선언을 사용하고 있다. Option Explicit 선언을 하면 사용하는 모든 변수에 대해 선언해야만 한다. 각기 다른 데이터 타..

코린이는 궁금증이 생겼다. private sub, sub 의 차이가 뭘까? 영어 뜻만본다면 대충 어떤건지 감이 오긴하지만 직접 알고 싶어서 테스트를 해봤다. 1 2 3 4 5 Sub 더하기_함수(ByVal A As Integer) Debug.Print A + A End Sub cs 모듈1 1 2 3 4 5 6 Option Explicit Sub 결과() 더하기_함수 (A) End Sub

vba 사용중 코드의 결과가 어떻게 나오는지 궁금할 때 사용하면 유용하다. 암산으로도 가능한 코드를 작성하고 실행해본다. 결과는 어디서 확인???? 직적 실행 창에서 할 수 있다. 'ctrl + g'를 누르거나 '메뉴>편집>직접 실행 창'으로 열 수 있다. 확인 해보면 4라는 숫자가 적혀있음을 볼 수 있다. 정말 쉽군 그리고 직접 실행창은 아무거나 입력할 수 있다. 굳이 쓸일은 별로 없겠지만 ...

이미 열려있는 익스플로러를 컨트롤하고 싶다. 그래서 구글링을 통해 배워봤다. 1. 준비 VB편집기에서 Microsoft Internet Controls를 참조 추가하면 준비 끝 2. 코드 1234567891011121314151617 Dim IE As SHDocVw.ShellWindows Dim wanna_IE As SHDocVw.InternetExplorer Set IE = New SHDocVw.ShellWindows For Each wanna_IE In IE If wanna_IE.LocationName = "Naver" Then MsgBox "네이벼 열려있음", vbInformation, "확인" Exit Sub End If Next wanna_IE End SubColored by Color Scri..

시트를 숨기면 숨기는거지 완전히 숨기는건 또 뭐여 vba를 이용해 한 번 숨겨놓으면 숨기기 취소에서 보이지 않는다 ㅎㅎ 일반적으로 시트 숨기기 하면 시트 우클릭하여 숨기기 버튼만 누르면 되는데 문제는 '숨기기'해도 '숨기기 취소'에 떡 하니 나타나 있다는 것이다. 이럴거면 왜 숨기는겨... 그래서 만들어 놓은건진 몰겠지만 완전히 숨기기 취소 목록에 나타나지 않도록 만들 수 있다 어떤건지 살펴보자 123Sub Sheet_Hidden() Sheets(1).Visible = xlSheetVeryHiddenEnd SubColored by Color Scriptercs 시트 표시여부를 설정하는 visible 속성의 xlsheetveryHidden 옵션을 선택하면 완전히 숨길 수 있다. Visible 속성에는 3가..