728x90
| 엑셀 결과 파일 다운로드 |
| Sub 시트이름불러오기() Dim Sn Dim Sx As Integer Dim SnTotal As Integer Set Sn = Sheets("종합") SnTotal = Worksheets.Count With Sn .Range("C3:C20").ClearContents For Sx = 3 To SnTotal .Cells(Sx, 3) = Sheets(Sx).Name Next Sx End With End Sub |
728x90
'■ Excel > ㅡExcel VBA Code' 카테고리의 다른 글
| 엑셀 VBA 항목에 따른 셀 배경색 적용 VBA (0) | 2020.04.05 |
|---|---|
| 엑셀 VBA 여러 시트의 내용을 합치기 (0) | 2020.04.04 |
| 엑셀 VBA 특정 셀 내용이 바뀌면 출력 미리 보기 실행 (0) | 2020.04.01 |
| 엑셀 VBA n일씩 날짜 추가 감소 버튼 매크로 (0) | 2020.03.29 |
| 엑셀 VBA msgbox 저절로 닫히는 코드 (0) | 2020.02.07 |