공돌이공돌이

키보드 활용해보자. 1. 기본 키 관련 - 컨트롤, 알트 등 기본키 정의 2. 키 누르기 1. 기본 키 관련 컨트롤, 알트 등 기본키 정의는 아래와 같다. 방향키 -> up, down, left, right Ctrl -> ^ Alt -> ! Shift -> + Win -> # 2. 키누르기 키누르는 것은 send 이용하면된다. 1) 아래 코드는 알트+1 누르면 위 방향키를 100번 누를 것이다. 항목 여러개일경우 선택하기위해 움직일 수 있다. ---------------------------------------------------------------------- #SingleInstance, Force F4:: ;F4 누르면 매크로 실행을 중지한다. ExitApp !1:: ;alt + 1 누르면 아..

오토핫키 사용할때 기본적인 내용들이다. 한국어 설정, 기본 기능 사용법 간단히 확인하기 1. 한국어 설정 아래 내용 순서대로 진행하면 한국어 사용해도 깨지지 않는다. 아래 셋팅에서 korean wansung 클릭하면 됨. 2. 기본기능 사용법 간단히 확인하기 MouseMove라는 기본기능을 사용할때 적어줘야하는 변수를 보기위해서는 콤마 " ," 작성하면 아래와 같이 나온다. MouseMove, 이렇게 작성하면 무슨말인지 알것이다. 끝

매일 똑같은 업무를 해야한다면 매크로를 만들어 사용하는것이 좋다. 오토핫키라는 프로그램으로 매크로를 만들어 사용해보자 오토핫키 시작 방법은 2가지만 설치하면 시작할 수 있다. 1. 오토핫키 다운로드 2. 코드 편집 프로그램 다운로드 3. 편집프로그램 열고 코드 작성 후 run 우선 1번 오토핫키 다운로드 아래 링크에 들어가서 설치하자 www.autohotkey.com/ AutoHotkey AutoHotkey provides a simple, flexible syntax allowing you to focus more on the task at hand rather than every single little technicality. It supports not only the popular imperat..

엑셀 데이터를 좀 더 잘보기 위해서는 테두리가 좋다. 테두리도 실선, 굵은선을 이용하면 좀 더 분류하기 좋다.( 월별, 날짜별, 데이터 분류 별 등등) 오늘은 테두리 VBA로 그리는 방법 연습해보자~~ *셀 모든 곳에 테두리 그리기 코드 Sub 테두리그리기() Set RNG1 = Range("B2:E7") RNG1.Borders.LineStyle = 1 RNG1.Borders.Weight = xlThick RNG1.Borders.ColorIndex = 35 End Sub *코드 해석 - 아래 표의 범위를 RNG1 변수에 넣는다. - 그을 선의 스타일은 1로 실선을 택한다. - 두께는 THIN 얇게 - 컬러 인덱스는 35 위의 조건으로 테두리를 그린다. 코드를 돌려보자. 위의 코드대로 실행되었음을 확인할 ..

지난시간엔 데이터를 여러개 볼때 편하기 위해 아래와 같이 데이터에 맞게 너비를 조절했다. 근데 발표자료나 다른자료들에 첨부할때 장소가 협소하면 괜찮은데 너비가 너무 좁아 불편하다. 조금 넓게 조절을 해보자 숫자로 조절하면 좀 더편하겠디? 그래서 아래 코드를 이용할 거다. Sub 열너비조절하기() Columns("B:E").ColumnWidth = 20 End Sub *코드설명 - B에서 E열까지 너비를 20로 바꾸어 주겠다. 바꾼 결과는 아래와 같다. 열너비가 늘어났다. 열너비는 셀 사이를 눌러보면 확인할 수 있다. 픽셀로 환산하는 방식인가 본데 그것까지는 모르겠고 대충 경험치로 설정하자~ 픽셀은 나중에 사진 첨부할때 용이할 듯하다. 그럼 이제 행도 가능한지 확인해봐야지 Sub 행높이조절하기() Rows..

데이터를 보면 열이 너무 넓을 때가 있다. 아래와 같은 상황이다. 데이터에 비해 열이 넓어서 공백이 너무 많다. 공백을 지워보자. 딱 데이터에 맞게 조절하는 코드는 아래와 같다. Sub 행크기조절하기() Columns("B:E").AutoFit End Sub 아주 간단하다. 열의 범위를 지정하고 오토핏!!!! 자동으로 맞춰줘 오토핏!! ㅋㅋㅋ 결과는 아래와 같다. 위의 결과는 보기 좋다기 보다 여백이 있는게 보기 좋기도 하니까 근데 데이터 항목이 현재는 3개인데 20개 넘어가고 하면 한번에 보기 쉽지 않다. 한번에 좀 더 많은 것을 보기 위해 위와 같이 여백을 줄여놓는 편이 좋다고 생각한다.

코딩에서 가장 기본적인 IF문 따라해보자 IF는 만약 어떤 조건을 만족할때 어떤 동작을 해라 라는 조건문이다. 아래는 기본적인 조건문 코드다. Sub 조건문사용하기() If IsEmpty(Cells(2, 2)) = False Then Cells(2, 2).Interior.ColorIndex = 1 End If End Sub 코드 내용 - 2행 2열 셀의 값이 있으면 - 컬러인덱스를 1로 바꾸겠다(검은색) 위의 코드를 동작시켜보자. 이를 위해 저번에 사용한 예제 파일을 아래와 같이 만들었다. ' 이제 코드를 돌려보자. 셀에 값이 들어있어서 검은색으로 칠해진것을 확인할 수 있다. 끝

엑셀 VBA를 하다보면 엑셀의 함수를 가져다 쓰면 편할것 같다는 생각이 종종 든다. 예를 들면 FOR문을 이용해 코딩을 할 수도 있지만 머리 써야하고 귀찮다. 이를위해 엑셀의 함수를 가져다 쓰는 방법을 알아보자. 우선 조건에 맞는 셀의 개수를 세는 함수를 써보자 COUNTIF다. 조건에 맞는 셀을 세겠다는 거다. *COUNTIF 가져다쓰기 코드 ------------------------------------------------------------------------------------------------------------------------------ Sub 조건만족_개수세기() Range("d5").Value = WorksheetFunction.CountIf(Range("b3:b11")..

데이터가 없는 곳을 찾아보자. 왜냐하면 데이터가 없는거는 지워버리고 처리하는게 맞다. 혹은 빈칸 찾아서 눈에 잘 띄게 해야 내가 나중에 수정할 수 있지않을까? *빈칸 찾아 색칠하기 코드 ------------------------------------------------------------------------------------------------ Sub 빈칸찾아색칠하기() For I = 1 To 8 If IsEmpty(Cells(I, 1)) Then Cells(I, 1).Interior.ColorIndex = "3" End If Next End Sub --------------------------------------------------------------------------------..

엑셀 SHEET 를 하나 추가해보자 * 추가하는 코드 ------------------------------------------------------------------------------------------------------ Sub 시트추가하기() Sheets.Add End Sub ------------------------------------------------------------------------------------------------------ 코드를 돌리면 아래와 같이 순서대로 번호를 붙여 시트가 새로생긴다. . . . . . 시트이름이 시시하다면 새로 만들어 주자. * 시트 추가하고 이름바꾸기 코드 ----------------------------------------..