Como imprimir folhas específicas com base nos valores de determinadas células no Excel?
Já alguma vez tentou imprimir folhas específicas com base no valor de uma célula? Neste artigo, apresento-lhe alguns exemplos práticos para resolver este desafio. Se lhe interessa saber mais, continue a ler!
Imprimir folha com base numa célula com VBA
Imprimir folha com base na célula adjacente com VBA
Imprimir folha com base numa célula com VBA
Suponha que tem duas folhas e pretende imprimir a Folha1, a Folha2 ou ambas, consoante o valor da célula A1 da Folha1. Siga os passos abaixo:
Neste caso, introduza 1 para imprimir a primeira folha, 2 para imprimir a segunda folha ou 3 para imprimir ambas as folhas.
1. Introduza 1, 2 ou 3 conforme necessário na célula A1 da primeira folha e prima Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código abaixo no script do Módulo. 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. Prima a tecla F5 para imprimir diretamente a(s) folha(s).
Imprimir folha com base na célula adjacente com VBA
Se tiver várias folhas num livro e pretender imprimir uma ou várias folhas com base nos valores das células desse livro, pode proceder da seguinte forma:
1. Crie uma nova folha com o nome Folha de Controlo no livro que está a utilizar e liste todos os nomes das folhas na coluna A (inclua ou exclua a folha de controlo conforme necessário). Veja a imagem:
2. Escreva «print» na célula junto ao nome da folha se quiser imprimi-la. Veja a imagem abaixo.
3. Prima as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications e clique em Inserir > Módulo. Veja a imagem:
4. Cole o código abaixo no Módulo e prima a tecla F5 para executar o código.
VBA: Imprimir 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) impressa(s) imediatamente e, em simultâneo, uma nova Folha de Controlo substituirá a anterior.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos