Note: The other languages of the website are Google-translated. Back to English

Excel에서 셀 값을 기반으로 특정 시트를 인쇄하는 방법은 무엇입니까?

셀 값을 기반으로 특정 시트를 인쇄 해 본 적이 있습니까? 이 기사에서는이 문제에 대한 몇 가지 예에 대해 이야기 할 것입니다.이 문제에 관심이 있으시면 계속 진행하십시오.

VBA를 사용하여 셀을 기반으로 시트 인쇄

VBA로 인접한 셀을 기반으로 시트 인쇄


VBA를 사용하여 셀을 기반으로 시트 인쇄

두 장의 시트가 있다고 가정하면 Sheet1의 Cell A2을 기반으로 Sheet1 또는 Sheet1 또는 두 시트를 모두 인쇄하려고합니다. 다음과 같이하십시오 :

이 경우 1을 입력하면 첫 번째 시트를 인쇄하고 2를 입력하여 두 번째 시트를 인쇄하고 3을 입력하면 두 시트를 모두 인쇄합니다.

1. 첫 번째 시트에 A1에 필요한대로 2, 3 또는 1을 입력하고 Alt + F11 여는 열쇠 응용 프로그램 용 Microsoft Visual Basic 창문. 스크린 샷보기 :
셀 단위 문서 인쇄 시트 1

2. 클릭 끼워 넣다 > 모듈, 코드 아래에 붙여 넣으십시오. 모듈 스크립트. 스크린 샷보기 :

VBA : 셀 값을 기준으로 시트 인쇄

Sub PrintStuff()
'UpdayebyExtendoffice20180811
    Dim xRgVal As Variant
    Dim xSheets As Sheets
    Set xSheets = ActiveWorkbook.Worksheets
    xRgVal = xSheets(1).Range("A1").Value
    If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
        Select Case xRgVal
            Case 1
                xSheets(1).PrintOut
            Case 2
                xSheets(2).PrintOut
            Case 3
                xSheets(1).PrintOut
                xSheets(2).PrintOut
            Case Else
                MsgBox "Enter1,2 or 3 into A1(1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
                Exit Sub
            End Select
    Else
        Exit Sub
    End If
End Sub

셀 단위 문서 인쇄 시트 2

3. 프레스 F5 키를 눌러 시트를 직접 인쇄합니다.


VBA로 인접한 셀을 기반으로 시트 인쇄

통합 문서에 여러 시트가 있고이 통합 문서의 셀 값을 기반으로 하나 또는 여러 시트를 인쇄하려는 경우 다음과 같이 할 수 있습니다.

1. 이름이 지정된 새 시트를 만듭니다. 제어 시트 사용하는 통합 문서에서 A 열에 모든 시트 이름을 나열합니다 (필요에 따라 제어 시트를 포함하거나 제외). 스크린 샷보기 :
셀 단위 문서 인쇄 시트 3

2. 유형 "인쇄”를 인쇄하려면 시트 이름 옆에있는 인접한 셀에 입력하십시오. 표시된 스크린 샷을 참조하십시오.
셀 단위 문서 인쇄 시트 4

3. 프레스 Alt + F11 활성화하는 키 응용 프로그램 용 Microsoft Visual Basic 창을 클릭 한 다음 끼워 넣다 > 모듈. 스크린 샷보기 :
셀 단위 문서 인쇄 시트 5

4. 아래 코드를 모듈에 붙여넣고 F5 코드를 실행하는 키입니다.

VBA : 인접 셀을 기준으로 인쇄

Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
    Dim i As Integer
    Dim xCSheetRow As Integer
    Dim xSName As String
    Dim xCSheet As Variant
    Dim xRgVal As String
    On Error Resume Next
    xSName = "Control Sheet"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xCSheet = ActiveWorkbook.Worksheets(xSName)
    xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
    For i = 2 To xCSheetRow
        xRgVal = xCSheet.Range("B" & i).Value
        If xRgVal = "Print" Or xRgVal = "print" Then
            If xCSheet.Range("A" & i).Value <> "" Then
                ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
            End If
        End If
    Next
    xCSheet.Delete
    ActiveWorkbook.Worksheets.Add
    ActiveSheet.Name = "Control Sheet"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Sheet Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Print?"
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
    Next
    Cells.Columns.AutoFit
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 셀 단위 문서 인쇄 시트 6

코드를 실행하면 시트가 바로 인쇄되고 동시에 새 컨트롤 시트가 이전 시트를 대체합니다.

팁.당신이 있으면 Excel 용 Kutools시트 이름 목록 만들기 유틸리티를 사용하면 클릭 가능한 링크를 통해 새 시트의 모든 시트 이름 목록을 빠르게 만들 수 있습니다.

Excel 용 Kutools, 이상과 300 편리한 기능으로 작업이 더 쉬워집니다. 
일, 지금 다운로드하여 무료 평가판을 받으십시오.


셀 단위 문서 인쇄 시트 7

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (0)
아직 평가가 없습니다. 가장 먼저 평가하세요!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호