Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 07/02/2011 |
Modificado em: | 07/02/2011 |
Tamanho: | Vazio |
Downloads: | 497 |
Saberexel - o site das macros
Saberexcel - site das Macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando evento Worksheet_BeforeRightClick, que ocorre quando clicar na coluna B, no intervalo de células Range(B2:B10) com o botão direito do mouse, insere uma formatação de cores na célula clicadas, como também retira a formatação inserida se clicado uma segunda vez.
Espero que o exemplo possa ajudá-los em alguma coisa, Fiquem com Deus, Expedito Marcondes.
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")
If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 4, xlNone, 4)
Next c
End Sub
Aprenda tudo sobre o lAplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Adicionado em: | 06/02/2011 |
Modificado em: | 06/02/2011 |
Tamanho: | Vazio |
Downloads: | 448 |
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando evento Worksheet_BeforeRightClick, que ocorre quando clicar na coluna B, no intervalo de células Range(B2:B10) com o botão direito do mouse, insere uma formatação de cores na célula clicadas, como também retira a formatação inserida se clicado uma segunda vez.
Espero que o exemplo possa ajudá-los em alguma coisa, Fiquem com Deus, Expedito Marcondes.
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("B2:B10")
If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 4, xlNone, 4)
Next c
End Sub
Aprenda tudo sobre o lAplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
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: | 12/01/2011 |
Modificado em: | 12/01/2011 |
Tamanho: | Vazio |
Downloads: | 627 |
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
Adicionado em: | 21/12/2010 |
Modificado em: | 21/12/2010 |
Tamanho: | Vazio |
Downloads: | 673 |
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
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