Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 06/02/2011 |
Modificado em: | 06/02/2011 |
Tamanho: | Vazio |
Downloads: | 796 |
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
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 813 |
Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, pergunta se voce deseja ou não inserir uma planilha personalizada com o nome formatado com data e hora atual
Sub Adicionar_planilha_com_dia_hora()
Dim Resposta As VbMsgBoxResult
Dim sht As Worksheet
Resposta = MsgBox("Deseja inserir nova planilha com o nome da data e hora atual?" _
, vbQuestion + vbYesNoCancel)
If Resposta = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-dd-mmm-yyyy_hhmmss")
ElseIf Resposta = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Planilha inserida com sucessso!! [ " & ActiveSheet.Name & "]", vbInformation, "http://www.saberexcel.com"
End Sub
Adicionado em: | 15/02/2011 |
Modificado em: | 15/02/2011 |
Tamanho: | Vazio |
Downloads: | 842 |
Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, impedem o usuário de deletar determinadas planilhas, enviando mensagem de proibição de deleção de Folha de Planilha. A macro abaixo Modificar_deletar_planilha(), tem por finalidade inserir um botão de menu à barra principal do aplicativo, no caso de estar usando Excel 2007 ou Excel 2010, na aba suplementos. (menus personalizados fica nesta Aba 'Suplementos')
Sub Modificar_deletar_planilha()
Dim sb As CommandBarControl
For Each sb In Application.CommandBars.FindControls(ID:=847)
sb.OnAction = "Deleta_Planilha"
Next sb
End Sub
Sub Deleta_Planilha()
If ActiveSheet.Index = 1 Then
MsgBox "Voce não pode deletar esta planilha!", vbc + vbOKOnly + vbExclamation, "INFORMAÇÃO AO USUÁRIO - Saberexcel.com"
Else
Select Case MsgBox("Atenção voce vai deletar essa planilha !", vbc + vbYesNo + vbExclamation, "INFORMAÇÃO AO USUÁRIO - Saberexcel.com")
Case vbYes
ActiveSheet.Delete
Case vbOK
Exit Sub
End Select
End If
Exit Sub
End Sub
Sub Reabilitar_deletar_Planilha()
Dim sb As CommandBarControl
For Each sb In Application.CommandBars.FindControls(ID:=847)
sb.OnAction = ""
Next sb
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, praticando com os produtos didáticos SaberExcel
Publicidade:
Compre com segurança, qualidade, garantia e melhores preços nas lojas subMarino
Adicionado em: | 24/03/2011 |
Modificado em: | 24/03/2011 |
Tamanho: | Vazio |
Downloads: | 865 |
Saberexcel - site das macros
Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um nome à folha de planilha(Plan2), com auxílio de uma entrada de dados inputbox, e a segunda macro renomeia a folha de planilha baseados em fórmulas existente na célula(F12), que a função Aleatório() do aplicativo Excel gerará na célula(F2). O macro abaixo contém a linha de código SendKeys que aciona a tecla (F9) que automaticamente gerará um novo nome aleatorio para a folha de planilha.
Sub Renomeando_planilha_plan2()
Dim vNome As String
[A2:c1000].ClearContents
vNome = InputBox("Digite o nome para nova Planilha?")
If vNome <> "" Then
'Sheets.Add Type:=xlWorksheet
Saber2.Name = vNome
End If
End Sub
vamos fazer um Teste, usar partes do mesmo macro acima, construindo outro macro que faz a mesma coisa, porém com algumas pequenas modificações, renomeia uma folha de planilha com nomes aleatórios gerado pela fórmula na célula(F12), que contém a função Aleatório().
Espero que o exemplo lhe seja útil. Fique com Deus. E_Marcondes
Sub Renomear_com_nomes_Aleatorios()
Dim sbx As String
Application.SendKeys "+{F9}" 'muda o valor aleatorio da célula f12
sbx = [F12].Value
'sbx = InputBox("Digite o nome para nova Planilha?")
If sbx <> "" Then
'Sheets.Add Type:=xlWorksheet
Saber2.Name = sbx
End If
[c2:c1000].ClearContents
[A65000].End(xlUp).Offset(1, 0).Value = sbx 'localiza ultima linha e insere valor gerado cel(F12)
[A65000].End(xlUp).Offset(0, 2).Value = "Planilha Atual"
[A65000].End(xlUp).Offset(0, 2).Font.ColorIndex = 3
End Sub
Sub Limpar_teste()
[A2:c6000].ClearContents
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 870 |
SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, adiciona doze planilhas referente aos meses do ano, e deleta todas as folhas de planilhas preservando somente a folha de planilha desejada, mas na macro abaixo há uma explicação para preservar mais de uma folha de planilha na deleção. leia abaixo.
Sub adiciona_Meses()
Dim Meses As Variant
Meses = Array("minha", "Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")
ActiveWorkbook.Sheets.Add , , 12
For i = 1 To 12
Sheets(i).Name = Meses(i)
Next i
Sheets("Plan1").Select ' quando acaba seleciona a plan1
End Sub
Essa macro é muito útil também em outras aplicações, pois ela deleta todas as planilhas e preserva a folha de planilha desejada.
por exemplo se voce necessitar que seja preservada mais de uma planilha deverá mudar a linha de código abaixo para:
If (Plan.Name <> "Plan1" And Plan.Name <> "Janeiro") Then
Neste caso, se aumentar as planilhas a serem preservadas, tem que retirar a Folha de Planilha "Janeiro" do Array (Meses) na macro acima veja lá.
porque senão, toda a vez que inserir, a macro vai inserir uma a mais, com um determinado número, porque a folha de planilha já existe, nao foi deletada.
Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
Plan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
'...........................................................................'
Sub Macro3()
Sheets(Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", _
"Agosto", "Setembro", "Outubro", "Novembro", "Plan1")).Select
Sheets("Janeiro").Activate
Range("J27").Select
Sheets("Plan1").Select
Range("G18").Select
End Sub
Sub Recado_p_Núbia()
Range("D17").Value = "Núbia, esta vendo o ""porque?"" da Coleção 15.000 Macros"
Range("D18").Value = "é somente o código sem ter necessidade da planilha modelo"
Range("D20").Value = "já a planilha toda com o código fica mais pesado"
Range("D21").Value = "ficaria inviável, pois a coleção de macros esta em programa apropriado"
Range("D23").Value = "Fique com Deus, Esforce-se!"
Range("D24").Value = "Se precisar de alguma coisa, Comunique comigo"
Range("D25").Value = "Expedito de Paula Marcondes... Excel VBA."
Range("D26").Select
End Sub
Sub Limpar_Recados()
Range("D17") = "" ' duas aspas sem nada significa (que não tem nada) em branco
Range("D18") = ""
Range("D20") = ""
Range("D21") = ""
Range("D23") = ""
Range("D24") = ""
Range("D25") = ""
Range("D26") = ""
End Sub
'Com este código acessa o módulo modulo vai para
Sub ver_código()
SendKeys ("%{F11}")
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel
Publicidade
Compre com segurança, garantia e ótimos preços nas lojas SubMarino,
tudo que voce precisar poderá encontrar nas lojas submarino, livros, notebooks...
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