Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 1087 |
Saberexcel - o site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que ao ser acionada oculta e ou mostra a folha de planilha chamada de [Teste], o interessante para quem não sabe, é que atribuimos o valor texto de uma determinada célula ao botão, que alterna o caption (cabeçalho) ao executar a macro abaixo, isto é se a folha de planilha esta ou não visível, é um truquezinho bom que auxilia as vezes em pequenos trabalhos. Caso ainda não conheça observe a imagem abaixo que poderá auxiliá-lo, como também baixar a planilha exemplo no final da página. Espero que isso possa ajudá-los, Fiquem com Deus, E_Marcondes.
Sub Visualizar_ocultar_folha_teste()
Dim Sb As Boolean
Dim Nome_da_folha As String
Nome_da_folha = "Teste"
'Status da Planilha Teste (visível)
Sb = Sheets(Nome_da_folha).Visible
'visualização on off
Sheets(Nome_da_folha).Visible = Not Sb
'alterar o texto do botão para acompanhar o status da folha de planilha "Teste"
If Sb = True Then Range("D1") = "Ver Folha de Planilha [Teste]" Else _
Range("D1") = "Esconder Folha de Planilha [Teste]"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Adicionado em: | 05/04/2011 |
Modificado em: | 05/04/2011 |
Tamanho: | Vazio |
Downloads: | 1158 |
O Site de quem precisa aprender Microsoft Excel VBA(Visual Basic Application)
Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), cria planilhas com datas especifica do mês desejado,
por exemplo: 04/2012 (Nomes será atribuido a cada folha de planilha)
Plan - dom 01-04-2012
Plan - seg 02-04-2012
Plan - ter 03-04-2012
Plan - qua 04-04-2012
Plan - qui 05-04-2012
Plan - sex 06-04-2012
Plan - sáb 07-04-2012
Plan - dom 08-04-2012
Plan - seg 09-04-2012 ... até fim do Mês,..
CONHEÇA OS MÓDULOS COMO FAZER - PROGRAMAÇÃO MICROSOFT EXCEL VBA - SABEREXCEL
Essas datas são escolhidas em duas caixas de combinação(Combobox) (Mes) e (Ano).
Após a crriação das folhas de planilhas com nome dos dias do mês e semana como acima, cria uma relação para links na Planiha principal, como também links de retorno para planiha principal em todas as folhas de planilha. Espero que o exemplo possa lhe ser útil.
Fique com Deus, Expedito Marcondes
EM UM MÓDULO COMUM INSERIR OS SEGUINTES CÓDIGOS.
Sub sb_abrir_form()
frmSaber.Show
End Sub
Sub CriarPlanilhaDiaMes(m, a)
Dim vData As Date
Dim x As Variant
On Error GoTo sberror
For vData = DateSerial(a, m, 1) To DateSerial(a, m + 1, 0)
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(vData, "ddd dd-mm-yyyy")
Inserir_voltar
ActiveSheet.Tab.ColorIndex = NumSemana(vData)
Next vData
Hiperlinks
Exit Sub
sberror: If MsgBox("Deseja deletar as planihas", vbYesNo, "Saberexcel - site das macros") = vbYes Then
Deleta_Planilhas_Exceto_Desejada
Else
MsgBox ("Planilhas do mês [ ") & frmSaber.ComboBox1.Value & " ] serão preservadas!", vbinfomation, "Saberexcel - site das macros"
Exit Sub
End If
End Sub
Function NumSemana(sbData As Date) As Integer
NumSemana = Format(sbData, "ww", vbMonday, vbFirstFourDays)
If NumSemana > 52 Then
If Format(sbData + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then NumSemana = 1
End If
End Function
Sub Hiperlinks()
Sheets(1).Select
Range("B5").Select
Range(ActiveCell, [C65000].End(xlUp)).ClearContents
For i = 2 To Sheets.Count
vPlan = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
vPlan & "'" & "!A1", ScreenTip:="Planilha Saberexcel - [ " & vPlan & " ]", TextToDisplay:="Plan - " & Sheets(i).Name 'TextToDisplay:=vPlan
ActiveCell.Offset(1, 0).Select
Next i
'TextToDisplay:="Link " & Sheets(i).Name
End Sub
'Esta Macro deleta todas as planilhas e preserva a atual.
Sub Deleta_Planilhas_Exceto_Desejada()
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "Principal" Then
Nm.Delete
End If
Next
[B1:B37].ClearContents
End Sub
'Esta macro insere os links de volta em todas as folhas de planihas criadas
Sub Inserir_voltar()
[H5].Select
[H5].Value = "Planilha Principal"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Principal!H5", ScreenTip:="Planilha Saberexcel", TextToDisplay:="Planilha Principal"
End Sub
NO MÓDULO DE CÓDIGO DO USERFORM
Private Sub cmbCriar_Click()
CriarPlanilhaDiaMes Me.ComboBox1, Me.ComboBox2
Saber1.Select
End Sub
Private Sub ComboBox1_Change()
Frame1.Caption = "Mes..: [ " & ComboBox1.Value & " ] Ano..: [ " & ComboBox2.Value & " ]"
End Sub
Private Sub ComboBox2_Change()
Frame1.Caption = "Mes..: [ " & ComboBox1.Value & " ] Ano..: [ " & ComboBox2.Value & " ]"
End Sub
Private Sub Fechar_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
For m = 1 To 12
Me.ComboBox1.AddItem m
Next m
Me.ComboBox1 = Month(Date)
For a = 2007 To 2013
Me.ComboBox2.AddItem a
Next a
Me.ComboBox2 = Year(Date)
Frame1.Caption = "Mes..: [ " & ComboBox1.Value & " ] Ano..: [ " & ComboBox2.Value & " ]"
End Sub
Aprenda tudo sobre planihas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 01/11/2012 |
Modificado em: | 01/11/2012 |
Tamanho: | Vazio |
Downloads: | 1306 |
'//==========' shapes = autoformas
Sub visualizando_dois_shapes()
Saber1.Shapes("hb").Visible = True
Saber1.Shapes("des").Visible = True
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 1773 |
Macro do Aplicativo Microsoft Excel VBA, contém renomeia a folha de planilha ativa, se a célula (D1) estiver preeenchida,
será inserido o nome relativo ao valor da célula(D1), senão será preenchido com o nome "Nova Planilha Saberexcel"
Sub Nomeando_planilha_ativa()
On Error Resume Next
If Range("D10").Value = "" Then
ActiveSheet.Name = "Nova Planilha Saberexcel"
MsgBox "Nome [" & ActiveSheet.Name & " ] porque a célula D10 está vazia", _
vbInformation, "Saberexcel - o site das macros"
Exit Sub
Else
ActiveSheet.Name = Range("D10").Value
MsgBox "Planilha nomeada como [ " & Range("D10") & " ] valor da célula[D10]", _
vbInformation, "Saberexcel - o site das macros"
End If
End Sub
Aprenda Aplicativo Microsoft Excel VBA com SaberExcel
Adicionado em: | 27/02/2011 |
Modificado em: | 27/02/2011 |
Tamanho: | Vazio |
Downloads: | 1861 |
Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um menu contextual,(menu suspenso) ao clicar com o botão direito do mouse em determinada planilha, neste caso inserí o exemplo com o evento na folha de planilha 'Pagamento'. Quando clicar com o botão direito do mouse abrirá o Menu Contextual para navegação pelas folhas de planilhas do livro. bem simples, bem legal. Observem que inserí também no Evento Auto_Open, que mostrará o Menu antes de abrir o Livro. Espero que o exemplo possa lhe útil. Fique com Deus, E_Marcondes
Sub Menu_CONTEXTUAL()
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
End Sub
Sub plan_pagamento()
Saber2.Select
End Sub
Esse exemplo ligado ao Evento Open do Obejto Livro(WorkBook) já direcionará para planilha 'Pagamento' e abrirá o menu contextual
Private Sub Workbook_Open()
Saber2.Select
Menu_CONTEXTUAL
End Sub
Esse procedimento ocorre ao clicar duas vezes no botão direito do mouse esta ligado ao Objeto Worksheet
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Menu_CONTEXTUAL
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA