Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

30 de junho de 2013

VBA Excel - Escondendo as Abas muito bem - Choose from Hidden or Very Hidden

Inline image 2


Às vezes escolhemos o modo Hidden ou muito oculto (Com este recurso as abas do Excel ficam muito escondidas e não podem ser reexibida pelo usuário ou através da opção Reexibir. Somente através de você ou usando o Editor do Visual Basic.

Sub HideActiveSheet()
 Dim myChoice as String

 If ActiveWorkbook Is Nothing Then Exit Sub

 myChoice = MsgBox("Do you want the active sheet to be Very Hidden ? ", vbQuestion + vbYesNoCancel)

 Select Case myChoice

 Case vbYes
  ActiveSheet.Visible = xlSheetVeryHidden

 Case vbNo
  ActiveSheet.Visible = xlSheetHidden

 Case vbCancel
  Exit Sub

 End Select

End Sub



Tags: VBA, Excel, worksheet, hide, oculto



VBA Excel - Mostre todas as abas escondidas - Show All Worksheets

Sub ShowAllWorkSheets()
 Dim ws As Worksheet

 If ActiveWorkbook Is Nothing Then Exit Sub

 For Each ws In ActiveWorkbook.Worksheets
  ws.Visible = xlSheetVisible
 Next ws

End Sub

Tags: VBA, Excel, worksheet, visible



Tips - Teclas de Atalho - SHIFT

Shift + F1 que é isto?
Shift + F2 Insert Comment
Caixa de diálogo Shift + F3 Inserir Função
Shift + F4 Localizar novamente
Shift + F5 caixa de diálogo Localizar
Shift + F6 painel anterior
Shift + F8 Adicionar à Seleção
Shift + F9 Calcular Planilha
Shift + F10 menu do botão direito
Shift + F11 Nova Planilha
Shift + F12 Guardar
Shift + Barra de espaço Select Row

Tags: Teclas, atalho, Tipo, key, SHIFT, 



Tips - Teclas de Atalho - CTRL

Ctrl + F3 Definir caixa de diálogo Nome
Ctrl + F4 Fechar livro
Ctrl + F5 janela de restauração
Ctrl + F6 Próxima livro
Ctrl + F7 mover a janela
Ctrl + F8 Janela Resize
Ctrl + F9 Minimizar Janela
Ctrl + F10 Restauração livro
Ctrl + F11 New Folha Macro
Ctrl + F12 caixa de diálogo Abrir
Ctrl + A Selecionar tudo
Ctrl + B fonte em negrito
Ctrl + C Copiar Seleção
Ctrl + D Preencha Down (arraste para selecionar)
Ctrl + F Localizar caixa de diálogo
Ctrl + G Ir à caixa de diálogo
Ctrl + H Replace (caixa de diálogo Localizar)
Ctrl + I Itálico Font
Ctrl + K caixa de diálogo Inserir Hyperlink
Ctrl + N Nova pasta de trabalho
Ctrl caixa de diálogo Abrir + O
Ctrl + P Imprimir
Ctrl + R Preencha direita (arraste para selecionar)
Ctrl + S Salvar
Ctrl + U Sublinhado Font
Ctrl + V Paste
Ctrl + W Fechar livro
Ctrl + X Cut Seleção
Ctrl + Y Do Again
Ctrl + Z Desfazer
Ctrl + caixa de diálogo Format Cells 1
Ctrl + 2 fonte em negrito
Ctrl + 3 Italic
Ctrl + 4 Sublinhado Font
Ctrl + 5 Tachado Font
Ctrl + 8 exibir símbolos de Contorno
9 ocultar linhas Ctrl +
0 ocultar colunas Ctrl +
Ctrl + - caixa de diálogo Excluir
Ctrl + [dependentes diretos
Ctrl +] todos os dependentes
Ctrl +; Data atual
Ctrl +: Hora
Ctrl + Home Início da Planilha
Ctrl + End celular final
Ctrl + Page Up planilha anterior
Ctrl + Page Down Próxima Planilha
Ctrl + Tab Próxima Janela

Pressione Ctrl enquanto AutoFormas desenho para expandir para o exterior (bom para colocar círculos em locais precisos)

Ctrl + Barra de espaço Select Column

Incrementos Ctrl + roda do mouse Zoom / Menos zoom de 15%
Ctrl + Enter entrada simultânea em um intervalo de células

Ctrl + Setas vai ajudá-lo a mover-se para o próximo valor, fim da seleção ou no final de planilha rapidamente. Utilize estas teclas com Shift para selecionar uma faixa rapidamente.

Tags: Teclas, atalho, Tipo, key, CTRL, 



Tips - Teclas de Atalho - ALT

Alt + F4 Fechar programa (Excel)
Alt + F6 Alternar entre o Editor do Visual Basic / livro
Caixa de diálogo Alt + F8 Macros
Alt + F11 Abra o Editor de Visual Basic
Alt + D Menu Dados
Alt + E Menu Editar
Alt + F Menu Arquivo
Alt + I Menu Inserir
Alt + H Menu Ajuda
Alt + O menu Formatar
Alt + T Menu Ferramentas
Alt + W Menu Janela
Caixa de diálogo Estilo Alt + '
9 Reexibir linhas (Thanks Peter) Alt +
0 Reexibir Colunas (Thanks Peter) Alt +
Alt + Page Up Vá para a esquerda uma tela
Alt + Page Down Vá para a direita uma tela
Alt + Tab próximo programa

Tags: Teclas, atalho, Tipo, key, ALT, 



VBA Excel - Trabalhando com Cabeçalho e Rodapé - Work with Header and Footer Properties Using Excel.PagesAndPage

Inline image 2


Este exemplo mostra como usar o cabeçalho e rodapé propriedades do objeto Pages no Microsoft Excel.

Em uma nova planilha, copie todo o código do módulo da pasta Sheet1. 

Coloque o cursor no procedimento WorkWithPages e pressione F8 para iniciar a depuração.

Organize as janelas do VBA e Excel lado a lado para que possa ver os resultados da execução do código.

Sub WorkWithPages() 
    ' Fill random data: 
    Range("A1", "R100").Formula = "=RANDBETWEEN(1, 100)" 
    
    Dim pgs As Pages 
    Set pgs = PageSetup.Pages 
    
    PageSetup.DifferentFirstPageHeaderFooter = True 
    
    ' Look in the Immediate window for this output: 
    Debug.Print "The current sheet can be printed on " & _ 
     pgs.Count & " page(s)." 
     
    Dim pg As Page 
    Set pg = pgs(1) 
    pg.CenterHeader.Text = "This is the first page's header" 
    
    Set pg = pgs(2) 
    pg.CenterFooter.Text = "This is the second page's footer" 
       
    Set pg = pgs(pgs.Count) 
    pg.CenterFooter.Text = "This is the last page's center footer." 
    pg.LeftHeader.Text = "This is the last page's header" 
    
    ' Note that Excel supports only distinct headers/footers 
    ' for the first page, so headers and footers on the second 
    ' and other pages are combined--the last value set overwrites 
    ' the header/footer. 
    
    ' See the values in the Immediate window. 
    ' Note that the code disregards errors that occur--attempting 
    ' to retrieve a header/footer setting that doesn't exist raises an error: 
    On Error Resume Next 
    Debug.Print "First page (CenterHeader) : " & pgs(1).CenterHeader.Text 
    Debug.Print "Second page (CenterHeader): " & pgs(2).CenterHeader.Text 
    Debug.Print "Second page (CenterFooter): " & pgs(2).CenterFooter.Text 
    Debug.Print "Third page (CenterFooter) : " & pgs(3).CenterFooter.Text 
    Debug.Print "Last page (LeftHeader)    : " & pgs(pgs.Count).LeftHeader.Text 
    Debug.Print "Last page (CenterFooter)  : " & pgs(pgs.Count).CenterFooter.Text 
    
    ' In conclusion, use the Page class to retrieve information about headers 
    ' and footers for specific pages. Use the PageSetup object to set the headers 
    ' and footers, as it's clearer to set them there. 
End Sub




eBooks VBA na AMAZOM.com.br

Vitrine