팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

Excel의 셀 값을 기반으로 특정 페이지 또는 워크 시트를 인쇄하는 방법?

Excel의 셀 값을 기반으로 특정 페이지 나 워크 시트를 인쇄하려고 시도한 적이 있습니까? 그리고 그것을 성취하는 방법? 이 기사의 방법을 통해 세부적인 방법으로 문제를 해결할 수 있습니다.

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

VBA 코드로 셀 값을 기준으로 특정 워크 시트 인쇄

Office 탭 Office에서 탭 편집 및 찾아보기를 사용하고 훨씬 쉽게 작업 할 수 있습니다 ...
Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.
  • 무엇이든 재사용하십시오 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용하십시오.
  • 20 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트 일부 추출 또는 제거; 숫자와 통화를 영어 단어로 변환 ...
  • 병합 도구: 여러 통합 문서 및 시트를 하나로 통합합니다. 데이터 손실없이 여러 셀 / 행 / 열 병합 중복 행 및 합계 병합 ...
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할; 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 하나의 열에서 여러 열로 ...
  • 건너 뛰기 붙여 넣기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 메일 링리스트 생성 셀의 가치로 이메일 보내기...
  • 수퍼 필터 : 고급 필터 구성표를 작성하고 모든 시트에 적용하십시오. 종류 주별, 일별, 빈도 등으로; FILTER 굵게, 수식, 주석으로 ...
  • 300 이상의 강력한 기능; Office 2007-2019 및 365와 호환됩니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다.

화살표 오른쪽 파란색 거품 VBA 코드로 셀 값을 기반으로 특정 페이지 인쇄


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

1. 인쇄 할 페이지 번호가 들어있는 셀을 선택한 다음 Alt 키와 F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니 다. 그런 다음 끼워 넣다 > 모듈.

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 아래 스크린 샷을 참조하십시오. 너는 갈 수있어. 60 일 동안 아무런 제한없이 소프트웨어를 무료로 다운로드하십시오..


화살표 오른쪽 파란색 거품관련 기사:


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

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

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 4 months 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 · 3 months 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