Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
회원가입  \/ 
x

or

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

Excel의 셀 값을 기반으로 특정 페이지 또는 워크 시트를 인쇄 해 본 적이 있습니까? 그리고 그것을 달성하는 방법? 이 기사의 방법은 세부적으로 해결하는 데 도움이 될 수 있습니다.

VBA 코드로 셀 값을 기반으로 특정 페이지 인쇄
VBA 코드로 셀 값을 기반으로 특정 워크 시트 인쇄


VBA 코드로 셀 값을 기반으로 특정 페이지 인쇄


예를 들어 현재 워크 시트의 A1 셀에 페이지 번호 1을 입력 할 때 현재 워크 시트의 1 페이지와 같은 특정 페이지가 자동으로 인쇄되도록 할 수 있습니다. 그것을 달성하기 위해 다음과 같이 할 수 있습니다.

1. 인쇄 할 페이지 번호가 포함 된 셀을 선택한 다음 다른F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창문. 그런 다음 끼워 넣다 > 모듈.

2. 그런 다음 응용 프로그램 용 Microsoft Visual Basic 창이 나타나면 다음 VBA 코드를 복사하여 붙여 넣으십시오. 암호 창.

VBA 코드 : 셀 값을 기준으로 페이지 인쇄

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. 프레스 F5 코드를 실행하는 키입니다. 팝업에서 Excel 용 Kutools 대화 상자에서 가능 버튼을 눌러 특정 페이지를 인쇄하거나 아니 인쇄를 원하지 않는 경우 버튼을 눌러 대화 상자를 종료합니다. 스크린 샷보기 :

그러면 현재 워크 시트의 특정 페이지의 미리보기 창이 열립니다. 인쇄 버튼을 눌러 인쇄를 시작합니다.


VBA 코드로 셀 값을 기반으로 특정 페이지 인쇄

이 시트의 B2 셀에있는 값이 1001과 같을 때 활성 워크 시트를 인쇄한다고 가정합니다. 다음 VBA 코드를 사용하여 수행 할 수 있습니다. 다음과 같이하십시오.

1. 마우스 오른쪽 버튼으로 시트 탭 셀 값을 기준으로 인쇄하려는 다음을 클릭합니다. 코드보기 오른쪽 클릭 메뉴에서.

2. 그런 다음 응용 프로그램 용 Microsoft Visual Basic 창이 나타나면 다음 VBA 코드를 복사하여 코드 창에 붙여 넣으십시오.

VBA 코드 : 셀 값을 기반으로 워크 시트 인쇄

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

주의 사항: 필요에 따라 코드에서 셀 및 셀 값을 변경할 수 있습니다.

3. 프레스 다른 + Q 닫기 응용 프로그램 용 Microsoft Visual Basic 창.

B1001 셀에 숫자 2을 입력하면 Excel 용 Kutools 대화 상자가 나타나면 가능 버튼을 눌러 인쇄를 시작합니다. 또는 아니 버튼을 눌러 인쇄하지 않고 직접 대화 상자를 종료합니다. 스크린 샷보기 :

팁 : 현재 워크 시트에서 1, 6, 9 페이지와 같은 비 연속 페이지를 직접 인쇄하거나 모든 짝수 또는 홀수 페이지 만 인쇄하려는 경우 지정된 페이지 인쇄 유틸리티 pf Excel 용 Kutools 아래 스크린 샷과 같이. 당신은 갈 수 있습니다 30 일 이내에 제한없이 소프트웨어 무료 다운로드.


관련 기사:


최고의 사무 생산성 도구

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

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

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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50 % 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ryan · 1 years ago
    This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ryan,
      If you want to print consecutive pages such as 1-5 in a worksheet based on a cell value, please specify a cell such as A1 as Text formatting, type 1-5 into it, keep this cell selecting, and then run the below VBA code.

      Sub Print_Pages()
      Dim xPage As String
      Dim xYesorNo As Integer
      Dim xI As String
      Dim xPArr() As String
      Dim xIS, xIE, xF, xNum As Integer
      xPage = ActiveCell.Value
      xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
      If xYesorNo = vbYes Then
      xPArr() = Split(xPage, "-")
      If UBound(xPArr) = 0 Then
      If IsEmpty(xPage) And IsNumeric(xPage) Then
      MsgBox "Please specify a cell and enter a page in cell"
      Exit Sub
      End If
      xNum = Int(xPage)
      ActiveSheet.PrintOut from:=xNum, To:=xNum, preview:=True
      ElseIf UBound(xPArr) = 1 Then
      On Error GoTo Err01
      xIS = Int(xPArr(0))
      xIE = Int(xPArr(1))
      If xIS < xIE Then
      For xF = xIS To xIE
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      Else
      For xF = xIE To xIS
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      End If
      Else
      MsgBox "Please enter the valid data", vbOKOnly, "Kutools for Excel"
      Exit Sub
      End If
      Else
      Exit Sub
      End If
      Exit Sub
      Err01:
      MsgBox "Please enter the correct page scope", vbOKOnly, "Kutools for Excel"
      End Sub
      • To post as a guest, your comment is unpublished.
        Manny · 6 months ago
        Thank you. I have the same issue I want to print pages based on cell value. Lets say variable changes i.e page 1-5 and then some time 2-6. So I have a field which will calculate and will put that in text format as suggested.But for some reason it doesnt work for me. It doesnt prints any pages.
        Can you please advise