Como imprimir uma planilha específica com base nos valores das células no Excel?

Você já tentou imprimir algumas planilhas específicas com base no valor de uma célula? Neste artigo, falarei sobre alguns exemplos sobre este assunto, se você estiver interessado neste problema, por favor, continue.

Imprimir folha com base em uma célula com VBA

Imprimir folha com base na célula adjacente com VBA

---

Imprimir folha com base em uma célula com VBA

Supondo que haja duas folhas, você deseja imprimir a Folha1 ou Folha2 ou ambas as folhas com base na Célula A1 da Folha1. Faça o seguinte:

Neste caso, digite 1 indica para imprimir a primeira folha, digite 2 para imprimir a segunda folha e 3 para imprimir as duas folhas.

1. Insira 1, 2 ou 3 conforme necessário para A1 na primeira folha e pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela. Veja a imagem:

2. Clique inserção > Módulo, e cole o código abaixo no Módulo roteiro. Veja a imagem:

VBA: Imprimir folha com base no valor da célula

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

3. Pressione F5 tecla para imprimir diretamente a (s) folha (s).

---

Imprimir folha com base na célula adjacente com VBA

Se você tiver várias planilhas em uma pasta de trabalho e quiser imprimir uma ou várias planilhas com base nos valores das células desta pasta de trabalho, você pode fazer o seguinte:

1. Crie uma nova planilha chamada Folha de Controle na pasta de trabalho que você usa e liste todos os nomes de planilhas na coluna A (inclua ou exclua a planilha de controle conforme necessário). Veja a imagem:

2. Tipo "impressão”Na célula adjacente ao lado do nome da folha se quiser imprimi-la. Veja a imagem mostrada.

3. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela e clique inserção > Módulo. Veja a captura de tela:

4. Cole o código abaixo no Módulo e pressione F5 chave para executar o código.

VBA: impressão com base na célula adjacente

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

 

Após executar o código, a (s) folha (s) serão impressas agora e, ao mesmo tempo, uma nova Folha de Controle substituirá a antiga.

Gorjeta.Se você tem Kutools for Excel'S Criar lista de nomes de planilhas utilitário, você pode criar rapidamente uma lista de todos os nomes de planilhas em uma nova planilha com um link clicável. É função completa, sem limitação, em

dias, faça o download e tenha um teste gratuito agora.