공돌이공돌이

엑셀에 조건부 서식을 사용하는 이유는 변경 사항을 색으로 잘보기 위함이다. 조건부 서식을 하나하나 다 해주기는 데이터가 많으면 시간도 소모되고 필요없는일이된다. 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열 내용에 맞게 지워보자 = > 코드 실행하자

엑셀 VBA 시작하기에 앞서 단축버튼을 만들면 편리하게 사용할 수 있음. 단축 버튼 까먹을지도 모르니 정리해 놓자. 여기가서 옵션 클릭하자. 이렇게 나온다. 명령 선택 눌러서 개발도구 탭을 누른다. VISUAL BASIC EDITOR 오른쪽으로 추가 버튼을 눌러 이동시켜 준다. 단축키 생성 끝 *추가 사항 - 버튼 옆에 컨트롤 삽입 버튼이 있다. (매크로 버튼 만드는 단축 버튼이다) - 다음 글에 정리해야지 이제 모듈을 만들면 되는데 삽입 - 모듈 누르면 된다.

vba 반복문을 써보자 for 문은 기본적이거니 꼭 필요하다 다만 for 문은 엑셀의 데이터 가 많아지면 많아질수록 컴퓨터 부하가 많이 먹는다 학생때 컴퓨터 배울때 계산량을 줄이기위해 왜 노력해야했는지 깨닫는 순간이다. ---------------------------------------------------------------------------------------------------- Sub for문() For d = 2 To 5 Cells(d, 5).Value = d Next End Sub​ ---------------------------------------------------------------------------------------------------- 위의 코드를 확인하면..

엑셀vba 복사 붙여넣기 코드는 아래와 같다. ​ Sub 복사() Sheets("Sheet1").Range(Cells(4, 1), Cells(4, 8)).Copy Sheets("Sheet1").Cells(3, 2) End Sub ​​ 코드 테스트를 해보자 우선 아래와 같이 테스트 파일을 만들자 코드를 실행하자 결과는 아래와 같다. 된다. 색을 넣어도 된다. 복사 니까 서식복사 포함인가 보다. 다른 시트에 복사가 되는지 테스트 해보자 코드는 위의 코드에서 sheet만 바꿔보자 Sub 복사() Sheets("Sheet1").Range(Cells(4, 1), Cells(4, 8)).Copy Sheets("Sheet2").Cells(3, 2) End Sub 결과는 아래와 같다. 된다. 단, sheet2는 만들어..

VBA를 돌리면서 계산 결과를 셀에 기록하지 않고 확인하고 싶을때 메세지 팝업창을 띄울 수 있다. Sub 메세지창띄우기() RoDs = 4 + 1 MsgBox (RoDs) End Sub 위의 실행 결과는 아래와 같다.

엑셀을 이용해 자동으로 새로운 파일에 저장하는 방법은 아래와 같다. Sub 파일만들기() F_name = "s" ': 파일명 Workbooks.Add ' : 엑셀 파일만든다. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & F_name & ".xlsx" ' :지금 VBA 돌리는 엑셀 파일의 위치에다가 저장한다. ​ End Sub​ 매크로 연습 엑셀 파일을 켜고 위의 코드를 실행했고 저장된 결과는 아래와 같다. 매크로 연습 엑셀 파일과 같은 폴더에 S 의 이름으로 저장되었다.

FOR문 돌릴때 전체 셀을 다돌기에는 시간이 아깝다. 데이터가 많으면 더욱더 컴퓨팅 시간을 줄여야 한다. 그러므로 마지막 셀위치를 알아내서 FOR문에 넣으면 좋겠다는 생각이 든다. 코드는 아래와 같다. ​ Sub 마지막셀찾기() last = Cells(Rows.Count, 1).End(xlUp).Row ': 1열의 값이 들어있는 마지막 셀을 찾는다. MsgBox (last) ':마지막 위치를 확인한다. For d = 1 To last Cells(d, 2).Value = "Copy" ':옆에 행에다가 copy를 기록한다. Next End Sub​ 코드 테스트를 해보자 테스트에 앞서 마지막셀을 찾기 위해 숫자를 아래와 같이 채운다. 그 다음 위의 코드를 실행한다. 마지막 값이 21임을 확인했다. 확인을 누르..