Pergunte aqui
1

Macro para ocultar/exibir planilha

perguntadas 2018-11-15 00:48:28 +0100

imagem do gravatar de Seiki2000

updated 2019-03-01 18:09:25 +0100

Pessoal estou precisando de uma macro para ocultar e exibir planilha. Alguém poderia me ajudar?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

1

respondidas 2018-11-15 02:15:18 +0100

updated 2018-11-16 20:14:14 +0100

Coletânea de Macros sobre Planilhas:

'================================================|
    Sub PlanilhaAtivaOcultar
    'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
    Dim oPlan As Object
    oPlan = ThisComponent.getCurrentController.getActiveSheet()
    oPlan.isVisible = False
    End Sub

.

'================================================|
    Sub PlanilhaOcultar
    'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
    Dim oPlan As Object
    oPlan = ThisComponent.getSheets.getByName("Planilha1")    'Nome da Planilha
    oPlan.isVisible = False
    End Sub

.

 '================================================|
   Sub PlanilhaOcultarMostrar 
    'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
    Dim oPlan As Object
    oPlan = ThisComponent.getSheets.getByName("Planilha1")    'Nome da Planilha
    oPlan.isVisible = Not oPlan.isVisible
    End Sub

.

'================================================|
    Sub PlanilhaMostrar
    'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
    Dim oPlan As Object
    oPlan = ThisComponent.getSheets.getByName("Planilha1")    'Nome da Planilha
    oPlan.isVisible = True
    End Sub

.

    '================================================|   
     Sub PlanilhaOcultarTodasExetoAtiva
     'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
        Dim oPlanAtiva As Object
        Dim oPlans As Object
        Dim co1 As Long
        oPlanAtiva = ThisComponent.getCurrentController.getActiveSheet()
        oPlans = ThisComponent.getSheets()
            For co1 = 0 To oPlans.getCount() - 1
            If oPlans.getByIndex(co1).getName <> oPlanAtiva.getName() Then
            oPlans.getByIndex(co1).isVisible = False
            End If
            Next
        End Sub

.

'================================================|
Sub PlanilhaExcluir
'================================================|
thisComponent.getSheets.RemoveByName("Planilha5")   'Nome da Planilha
end Sub

.

'================================================|
Sub PlanilhaNova
'================================================|
thisComponent.getSheets.InsertnewByName( "Planilha1", 0)   'Nome da Planilha, Posição
end Sub

.

 '================================================|
Sub PlanilhaRenomear
'by: Macros para o OpenOffice.org - Calc (Tarcízio da Rocha)
 '================================================|
Dim oDoc as Object
Dim oSheet as Object
oSheet = thisComponent.sheets ("Nome Atual") 'Nome daPlanilha Atual
oSheet.name = "Nome Novo"   'Nome da Planilha Nova
End Sub

.

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit
'================================================|
Sub PlanilhasOrdenarPelosNomes()
' Código para ordenação das planilhas de um arquivo
' de trabalho com base nos seus nomes.
'================================================|
Dim k           As Integer
Dim i           As Integer
Dim Tipo        As Integer
Dim Mensagem    As String
'Exibir caixa de mensagem para que o usuário possa selecionar o tipo de ordenação desejada
Mensagem = "Pressione Sim para ordenação crescente" & vbLf & _
"e Não para ordenação decrescente"
Tipo = MsgBox(Mensagem, vbYesNo + vbApplicationModal, _
"Ordenar planilhas")
Select Case Tipo
Case vbYes
    'Opção de ordenação crescente
    For k = 1 To ThisWorkbook.Sheets.Count
        For i = 1 To ThisWorkbook.Sheets.Count - 1
            If Sheets(i).Name > Sheets(i + 1).Name Then
            Sheets(i + 1).Move Before:=Sheets(i)
            End If
        Next i
    Next k
Case vbNo
'Opção de ordenação decrescente
    For k = 1 To ThisWorkbook.Sheets.Count
        For i = 1 To ThisWorkbook.Sheets.Count - 1
            If Sheets(i).Name < Sheets(i + 1).Name Then
            Sheets(i + 1).Move Before:=Sheets(i)
            End If
        Next i
    Next k
End Select
End Sub

.

'================================================|
Sub PlanilhaMover
'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
Dim oPlan As Object
    oPlan = ThisComponent.getSheets()
    oPlan.moveByName( "Planilha3", 0 )    'Planilha a Mover , Posição
End Sub

.

'================================================|
Sub PlanilhaMoverFinal
'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
Dim oPlan As Object
    oPlan = ThisComponent.getSheets()
    oPlan.moveByName( "Planilha1", oPlan.getCount() )     'Planilha a Mover para o Final
End Sub

.

'================================================|
Sub PlanilhaCopiar
'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
Dim oPlan As Object
    oPlan = ThisComponent.getSheets()
    oPlan.copyByName( "Planilha2", "Planilha2_Nova", 0 )    ‘PlanilhaCopiar, PlanilhaNovaCopiada, Posição
End Sub

.

'================================================|
Sub PlanilhaCopiarFinal
'by Aprendiendo OOo Basic - Mauricio Baeza Servín
'================================================|
Dim oPlan As Object
    oPlan = ThisComponent.getSheets()
    oPlan.copyByName( "Planilha3", "Planilha3_Nova", oPlan ...
(mais)
editar assinalar como ofensivo Excluir Link mais
0

respondidas 2018-11-20 21:13:56 +0100

imagem do gravatar de Seiki2000

Nossa, Gilberto ! Muito obrigado era tudo que eu estava precisando.

editar assinalar como ofensivo Excluir Link mais

Comentários

Ok, é bom saber que foi útil.

imagem do gravatar de SchiavinattoSchiavinatto ( 2018-11-20 21:50:00 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-11-15 00:48:28 +0100

Lidas: 125 vezes

Última atualização: Nov 20 '18