공돌이공돌이

코딩에서 가장 기본적인 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 ------------------------------------------------------------------------------------------------------ 코드를 돌리면 아래와 같이 순서대로 번호를 붙여 시트가 새로생긴다. . . . . . 시트이름이 시시하다면 새로 만들어 주자. * 시트 추가하고 이름바꾸기 코드 ----------------------------------------..

엑셀에 한글을 쓰고 싶을때가 있다. 한글을 셀에 기입하는 방법은 간단하다. *한글쓰기 코드 -------------------------------------------------------------------------------------------------------------------- Sub 한글쓰기() Range("A1:C2").Value = "한글쓰기" End Sub -------------------------------------------------------------------------------------------------------------------- 위의 코드를 돌리면 그냥 한글이 적힌다. 코드는 칸단하다. A1부터 C2까지 쓰는 코드다. 끝

만약 날짜를 년 월 일로 분리하고 싶다거나, 전체 주소의 동, 아파트, 라인, 호 등으로 분리하고 싶을 때 유용한 방법이다. 코드는 아래와 같다. ---------------------------------------------------------------------------------------------------------------- Sub 데이터분리하기() Cells(3, 3).Value = Mid(Cells(3, 2), 1, 5) '앞 5개 Cells(3, 4).Value = Mid(Cells(3, 2), 6, 5) '중간 5개 Cells(3, 5).Value = Mid(Cells(3, 2), 11, 5) '뒤 5개 End Sub --------------------------------..

지난번에 단축키로 행과 열을 추가하는 방법을 정리했다. 이번엔 VBA 활용해서 셀추가, 지우는 방법을 알아보자. 열,행 추가 ( 줄로 추가하는 방법) 하는 방법을 알아보자. 내가 사용하는 거니께 셀단위보다는 줄로 추가하는 방법을 적어본다. *행추가 코드 ------------------------------------------------------------------------------------------------------ Sub 행_추가하기() Rows(6).Insert End Sub ------------------------------------------------------------------------------------------------------ 코드는 단순히 6행을 추가..

조건부 서식을 사용하면 색칠할 수 있다. 과연 조건부 서식의 셀 인덱스 값을 가져올 수 있을까? 확인해보자. 우선 확인을 위해 셀의 색값을 가져오는 방법을 알아보자. 셀 색을 칠할때와 마찬가지로 색의 값을 가져오는 방식은 2가지가 있다. 1. 셀 인덱스 가져오기 2. 셀 RGB값 가져오기 우선 인덱스 부터 가져와 보자. *셀의 색 인덱스 가져오기 --------------------------------------------------------------------------------------------------------- Sub 색칠하기_RGB컬러() Cells(2, 2).Interior.ColorIndex = "1" MsgBox (Cells(2, 2).Interior.ColorIndex) E..

엑셀에 조건부 서식을 사용하는 이유는 변경 사항을 색으로 잘보기 위함이다. 조건부 서식을 하나하나 다 해주기는 데이터가 많으면 시간도 소모되고 필요없는일이된다. VBA를 이용해 색칠하는 방법을 이용해 변경점을 쉽게 파악할 수 있도록 해보자. 색칠하는 방법은 두 가지이다. 1. COLOR INDEX(미리정의된) 이용하는 방법 2. RGB색의 숫자를 조절하는 방법 우선 COLOR INDEX를 활용하여 색칠하는 방법을 알아보자. *아래는 COLOR INDEX 참고 *빨간색으로 인덱스 이용 셀 칠하기 ----------------------------------------------------------------------------------------------------------------- Sub 색..

지우는 방법 정리 셀만 지우고 싶을때 내용만 지우고 싶을때 아예 모두 지우고 싶을때 *코드* ------------------------------------------------------------------------------------------------------- Sub 셀내용지우기() Cells(2, 2).Clear '다 지우기 Cells(3, 2).ClearContents '내용 지우기 Cells(4, 2).ClearFormats '서식 지우기 End Sub ------------------------------------------------------------------------------------------------------- B열 내용에 맞게 지워보자 = > 코드 실행하자