Como imprimir certas páginas ou planilhas com base no valor da célula no Excel?
Você já tentou imprimir determinada página ou planilha com base em um valor de célula no Excel? E como conseguir isso? Os métodos neste artigo podem ajudá-lo a resolvê-lo em detalhes.
Imprimir determinada página com base no valor da célula com código VBA
Imprimir determinada planilha com base no valor da célula com código VBA
Imprimir determinada página com base no valor da célula com código VBA
Por exemplo, você deseja que uma determinada página, como a página 1 da planilha atual, seja impressa automaticamente ao inserir o número da página 1 na célula A1 da planilha atual. Você pode fazer o seguinte para alcançá-lo.
1. Selecione a célula que contém o número da página que você deseja imprimir com base e pressione outro e F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela. Então clique inserção > Módulo.
2. Então o Microsoft Visual Basic para Aplicações janela for exibida, copie e cole o seguinte código VBA no Code janela.
Código VBA: Imprimir página com base no valor da célula
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 Sub3. Pressione F5 chave para executar o código. No surgimento Kutools for Excel caixa de diálogo, clique no botão Sim botão para imprimir determinada página ou clique no botão Não para sair da caixa de diálogo se não quiser imprimir. Veja a imagem:
Em seguida, a janela de visualização de determinada página da planilha atual abre, por favor clique no Impressão botão para iniciar a impressão.
Imprimir determinada página com base no valor da célula com código VBA
Supondo que você queira imprimir a planilha ativa quando o valor na célula B2 desta planilha for igual ao número 1001. Você pode conseguir isso com o seguinte código VBA. Faça o seguinte.
1. Clique com o botão direito no Aba Folha que você deseja imprimir com base no valor da célula e clique em Ver código no menu do botão direito.
2. Então o Microsoft Visual Basic para Aplicações janela for exibida, copie e cole o seguinte código VBA na janela de código.
Código VBA: Imprimir planilha com base no valor da célula
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
Note: Você pode alterar a célula e o valor da célula no código conforme necessário.
3. Pressione outro + Q para fechar o Microsoft Visual Basic para Aplicações janela.
Ao inserir o número 1001 na célula B2, um Kutools for Excel caixa de diálogo aparece, por favor clique no Sim botão para iniciar a impressão. Ou clique no Não botão para sair da caixa de diálogo diretamente sem imprimir. Veja a imagem:
Artigos relacionados:
- Como criar uma área de impressão dinâmica no Excel?
- Como imprimir apenas a última página de uma planilha no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
