공돌이공돌이

엑셀 vba 할때 보면 다른 사람,팀? 과 공유해야할때가 있다. 사용할 줄 모르는 사람은 비쥬얼 베이직 에디터 들어가서 모듈을 실행하기 어렵다. 그래서 vba 코드를 작성하고 버튼에 물려놓으면 다른 사람이 받아서 버튼만 누르면 작동 시킬 수 있다. 이때 버튼만드는 것이 컨트롤 삽입이다. 컨트롤 삽입을 사용해 보자. 저 화면에서 단추 맨위 맨왼쪽 네모칸 단추가 보인다. 단추 누르고 상자를 그리듯이 만들면 아래와 같이 버튼이 생긴다. 이제 저 버튼에 vba 코드를 물릴거다. 물리려면 코드를 작성 해야겠지? ------------------------------------------------------------------------------------------------------------------..

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

지난번에 마지막 셀 찾기를 너무 내가 썼던거만 올려서 다른거 쓸데 헷갈린다. 좀 더 정리해 놓자. *코드* --------------------------------------------------------------------------------------------------------------- Sub 마지막셀찾기() last1 = Cells(Rows.Count, 1).End(xlUp).Row ': 2열의 값이 들어있는 마지막 셀을 찾는다. last2 = Cells(1, 1).End(xlDown).Row ': 2열의 값이 들어있는 첫번째 셀을 찾는다. last3 = Cells(3, Columns.Count).End(xlLeft).Column ': 3행의 값이 들어있는 마지막 셀을 찾는다. la..

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임을 확인했다. 확인을 누르..