Saberexcel - O Site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, ocultam as planilhas que forem selecionadas na aba
Sub Ocultar_planilhas_selecionadas()
On Error GoTo Sair
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar as planilhas selecionadas ? ", vbQuestion + vbYesNo, "Saberexcel - site das macros")
If Not vPergunta = vbYes Then Exit Sub
ActiveWindow.SelectedSheets.Visible = False
Exit Sub
Sair: MsgBox Err.Description
End Sub

'Esta macro do Aplicativo Microsoft Excel VBA, mostram todas as planilhas, auxliando no teste
Sub mostrar_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Select
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel

Baixe o exemplo de planilha das macros acima

Macro do Aplicativo Microsoft Excel VBA, oculta a folha de planilha ativa no modo xlSheetVeyHidden e ou xlSheetHidden, de acordo com a opção de escolha do usuário, veja que foi usado a estrutura Select Case.

Sub Ocultar_planilha_ativa()
On Error Resume Next
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar a planilha ativa Very Hidden? ", vbQuestion + vbYesNoCancel, "Saberexel - site das macros")

Select Case vPergunta
Case vbYes
ActiveSheet.Visible = xlSheetVeryHidden
Case vbNo
ActiveSheet.Visible = xlSheetHidden
Case vbCancel
Exit Sub
End Select

End Sub

Macro auxliar que usamos para fazermos o teste.
Sub mostrando_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Visible = True
End Sub



Aprenda Microsoft Excel VBA com qualidade Saberexcel

Saberexcel - site das macros
Essa macro cria uma planilha chamada [Saberexcel_Contas]
se caso a planilha já existir, emite uma mensagem se voce deseja preservar ou deletar
a antiga planilha, se sim, deletará a planilha antiga e inserirá nova planilha, se não,
preservará a planilha antiga, selecionando-a.

Sub Criando_nova_planilha_verifica_existencia()
Dim vPlanilha As Worksheet, vResposta As Variant
On Error GoTo Erro_Plans

'criando uma nova planilha chamada Saberexcel_contas
Set vPlanilha = Worksheets.Add
With vPlanilha
.Name = "Saberexcel_Contas"
.Cells(1.1).Select
.Activate
End With
Exit Sub

Erro_Plans:

'Esse erro ocorrerá se planilha a ser criada for duplicada, isto é se existir
If Err.Number = 1004 Then
'emite uma mensagem se a planilha a ser criada já existir no livro
vResposta = MsgBox("Já existe no livro uma planiha chamada 'Saberexcel_Contas' , " & _
"clique em 'Ok' para continuar a criação de uma nova planilha e deletar a planilha existente, " & _
"ou clique 'Cancelar' para ir para a planilha antiga.", _
vbOKCancel, "Planilha Duplicada - Saberexcel - Excel VBA Estudos®")

If vResposta = vbOK Then
'deletando a planilha antiga
Application.DisplayAlerts = False 'para nao emitir aquela mensagem do windows "Deseja....."
Worksheets("Saberexcel_Contas").Delete
Application.DisplayAlerts = True

'renomeando e ativando a nova planilha
With vPlanilha
.Name = "Saberexcel_Contas"
.Cells(1.1).Select
.Activate
End With
Else
'cancela a operação, deletando a nova planilha
Application.DisplayAlerts = Fal
vPlanilha.Delete
Application.DisplayAlerts = True
'ativando a planilha existente(antiga)
Worksheets("Saberexcel_Contas").Activate
End If
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

   Baixe o exemplo de planilha contendo a macro acima

Saberexcel - o site das macros

Este exemplo de planilha contendo o Evento Worksheet_SelectionChange do Aplicativo Microsoft Excel VBA, percorre a janela do livro. Observem que a seleção ficará sempre no canto superior da tela na posição (A1), e a seleção está no canto superior esquerdo da janela.

Ocorre quando a seleção é alterada em uma planilha.

Worksheet_SelectionChange
Private Sub (ByVal Target Como Excel.Range)

Poderá selecionar uma celula para que essa seja rolada para alto da página no canto esquerdo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
.ScrollRow = Target.Row
.ScrollColumn = Target.Column
End With
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA (Visual Basic Application), esta usando o Evento Worksheet_BeforeRightClick, que acontece quando clica com o botão direito do Mouse.

Quando Clicar com o Botão direito do Mouse, vai colorir em verde os ítem que estão na coluna(B), ao clicar novamente retira a formatação nos dados digitados e afeta toda a região, isto é , Range(B3:B100), e assim vai alternando de cores, verde e retirando formatação.
Observe que inserí no procedimento uma linha de código [ Range(c, c.Offset(0, 2)).Interior.ColorIndex = xlNone ] que afetará também a fonte quando o usário clicar com botão direito do mouse também na Coluna(B) na célula onde se encontra algum dado.
Baixe o exemplo de planilha no final da página. Fiquem com Deus. Desejo-lhes todo bem.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True

For Each c In Range("B3:B100")

If c = Target Then
If c.Interior.ColorIndex = 4 Then
Range(c, c.Offset(0, 2)).Interior.ColorIndex = xlNone 'retira a formatação se houver.
Range(c, c.Offset(0, 2)).Font.ColorIndex = 45 'vai inserir esta cor quando clicar botao direito mouse em alguma celula colB

Else
Range(c, c.Offset(0, 2)).Interior.ColorIndex = 4 - Propriedade offset(desloc) >>> Offset(Linha, Coluna))
Range(c, c.Offset(0, 2)).Font.ColorIndex = 11
End If

End If

Next c
End Sub



Aprenda tudo sobre o Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel