"엑셀 매크로"의 두 판 사이의 차이
DB CAFE
| 44번째 줄: | 44번째 줄: | ||
=== 열 너비와 행 높이 다른 시트에 적용하기 === | === 열 너비와 행 높이 다른 시트에 적용하기 === | ||
https://ttend.tistory.com/599?category=580297 | https://ttend.tistory.com/599?category=580297 | ||
| + | |||
| + | === 모든 시트에 적용 하기 === | ||
| + | <source lang=vba> | ||
| + | Sub 시트마다_바로가기_컬럼추가() | ||
| + | |||
| + | Dim Count1 As Integer | ||
| + | Dim i As Integer | ||
| + | |||
| + | 'Set Count1 equal to the number of worksheets in the active workbook. | ||
| + | |||
| + | Count1 = ActiveWorkbook.Worksheets.Count | ||
| + | |||
| + | For i = 1 To Count1 | ||
| + | |||
| + | Worksheets(i).Activate | ||
| + | ' 적용할 액션을 기술 | ||
| + | Application.Goto Reference:="R5C11" | ||
| + | Range(Selection, Selection.End(xlDown)).Select | ||
| + | Range(Selection, Selection.End(xlToRight)).Select | ||
| + | Selection.FillDown | ||
| + | |||
| + | |||
| + | Next i | ||
| + | End Sub | ||
| + | </souurce> | ||
=== 각 시트를 별도 파일로 저장하기 === | === 각 시트를 별도 파일로 저장하기 === | ||
2020년 7월 22일 (수) 00:45 판
thumb_up 추천메뉴 바로가기
- DBA { Oracle DBA 명령어 > DBA 초급 과정 > DBA 고급 과정 }
- 튜닝 { 오라클 튜닝 목록 }
- 모델링 { 데이터 모델링 가이드 }
목차
- 1 엑셀 함수 목록
- 2 엑셀 함수응용
- 3 엑셀 기능 사전
- 4 엑셀 VBA 함수
- 5 초보자용 VBA 사용 방법
- 6 그림(사진) 쉽게 삽입하는 매크로 VBA
- 7 버튼(단추) 양식에 매크로 연결하기
- 8 매크로 보안 경고 없애기 - 신뢰할 수 있는 폴더 추가
- 9 매크로로 복사된 워크시트를 제일 뒤쪽으로 보내기
- 10 매크로 - 시트 자동으로 복사하기
- 11 스핀버튼으로 양식 입력 자동화
- 12 개발도구 추가하기(엑셀 2007, 엑셀 2010)
- 13 워크시트 이름 셀 텍스트로 가져오기
- 14 워크시트 이름을 셀 내용으로 자동으로 바꾸기
- 15 열 너비와 행 높이 다른 시트에 적용하기
- 16 모든 시트에 적용 하기
- 17 각 시트를 별도 파일로 저장하기
- 18 열 데이터에 따라 각각의 시트로 분리하기
- 19 병합한 셀 해제하고 셀 내용 채우기
- 20 같은 내용일 때 셀 병합하기
- 21 셀 안의 영어와 한글, 숫자 분리 추출하는 매크로 VBA
- 22 VBE 코드 창 글꼴 및 글자 크기 변경하기
- 23 색상표
- 24 텍스트 중 일부 글자만 색깔 바꾸기
- 25 시트 복사 매크로에 버튼 삭제하는 매크로 추가
- 26 각 시트를 PDF로 저장
2 엑셀 함수응용[편집]
3 엑셀 기능 사전[편집]
https://www.oppadu.com/%ec%97%91%ec%85%80-%ec%9c%84%ed%82%a4-%ea%b8%b0%eb%8a%a5-%ec%82%ac%ec%a0%84/
5 초보자용 VBA 사용 방법[편집]
6 그림(사진) 쉽게 삽입하는 매크로 VBA[편집]
7 버튼(단추) 양식에 매크로 연결하기[편집]
8 매크로 보안 경고 없애기 - 신뢰할 수 있는 폴더 추가[편집]
9 매크로로 복사된 워크시트를 제일 뒤쪽으로 보내기[편집]
10 매크로 - 시트 자동으로 복사하기[편집]
11 스핀버튼으로 양식 입력 자동화[편집]
12 개발도구 추가하기(엑셀 2007, 엑셀 2010)[편집]
13 워크시트 이름 셀 텍스트로 가져오기[편집]
14 워크시트 이름을 셀 내용으로 자동으로 바꾸기[편집]
15 열 너비와 행 높이 다른 시트에 적용하기[편집]
16 모든 시트에 적용 하기[편집]
<source lang=vba> Sub 시트마다_바로가기_컬럼추가()
Dim Count1 As Integer Dim i As Integer
'Set Count1 equal to the number of worksheets in the active workbook.
Count1 = ActiveWorkbook.Worksheets.Count
For i = 1 To Count1
Worksheets(i).Activate
' 적용할 액션을 기술
Application.Goto Reference:="R5C11"
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FillDown
Next i
End Sub </souurce>