Adicionado em: | 27/07/2011 |
Modificado em: | 27/07/2011 |
Tamanho: | Vazio |
Downloads: | 0 |
Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
Esses procedimento e macros do Aplicativo Microsoft Excel VBA, com auxlio do Evento SelectionChange, colore as linha(s) e Coluna(s) da célula ativa,
também inserí com finaldidade didática um loop contador que insere as cores e numeros correpondentes na planilha auxiliar.
Espero que o exemplo lhes sejam útil. Fiquem com Deus. Expedito Marcondes
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static vCelulaAtiva As Range
If Not vCelulaAtiva Is Nothing Then
vCelulaAtiva.EntireRow.Interior.ColorIndex = xlColorIndexNone
vCelulaAtiva.EntireColumn.Interior.ColorIndex = xlColorIndexNone
Target.Value = ""
End If
Target.EntireRow.Interior.ColorIndex = 36
Target.EntireRow.Font.ColorIndex = 10
Target.EntireColumn.Interior.ColorIndex = 4
Target.Value = "Saberexcel_VBA_Treinamentos®"
Set vCelulaAtiva = Target
End Sub
Sub cores_numeros_vb()
[A2].Select
For i = 1 To 56
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value = i
ActiveCell.Offset(1, 0).Select
Next i
[d1].Select
End Sub
Sub limpar_celulas_teste()
Saber2.[A2:B100].Clear
Saber1.Cells.ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 23/12/2010 |
Modificado em: | 23/12/2010 |
Tamanho: | Vazio |
Downloads: | 506 |
Saberexcel - o site das Macros
Essas funções do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem na folha de planilha na celula ativa a letra da coluna correspondente, isto é, onde a função foi inserida. Para facilitar o teste inserí umas macros auxliares para facilitar no teste.
Espero que isso possam ajudá-los em alguma coisa. Fiquem com Deus. E_Marcondes
Option Explicit
Function Coluna_Letra$(Optional ByVal vColuna%)
Dim Target As Range
Set Target = Application.Caller
If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna)
Coluna_Letra$ = Target.Address(True, False)
Coluna_Letra$ = Left(Coluna_Letra, InStr(1, Coluna_Letra, "$") - 1)
End Function
Function MostraColuna$(Optional ByVal vColuna%)
Dim Target As Range
Set Target = Application.Caller
If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna)
MostraColuna = Target.Address(True, False)
MostraColuna = Left(MostraColuna, InStr(1, MostraColuna, "$") - 1)
End Function
'macros abaixo são para auxiliar no teste do usuario desenvolvedor
Sub Inserindo_Funcoes_teste()
[C1].Value = "Observe, macro desloca 1 linha acima, portanto se inserir na linha 1 gera erro"
ActiveCell.Offset(-1, 0).Value = "Inserindo funções para teste na célula Ativa"
ActiveCell.FormulaR1C1 = "=MostraColuna()"
ActiveCell.Offset(0, 1).FormulaR1C1 = "'=MostraColuna()"
ActiveCell.Offset(2, 1).Select
ActiveCell.FormulaR1C1 = "=Coluna_Letra()"
ActiveCell.Offset(0, 1).FormulaR1C1 = "'=Coluna_Letra()"
ActiveCell.Offset(1, 0).Select
Range("G20").Select
End Sub
Sub limpar()
Cells.ClearContents
End Sub
Sub visualizar_macro()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macros no módulo VBE", vbYesNo + vbInformation, "Saberexcel - site das macros")
If resposta = vbYes Then
Application.Goto reference:="Coluna_Letra"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub
Sub oc()
'observe que aqui eu usei o nome da folha de código da folha de planilha (se mudar o nome da planilha nao gera erro - Saber1)
Saber1.Shapes("sb").Visible = False
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Adicionado em: | 05/03/2011 |
Modificado em: | 05/03/2011 |
Tamanho: | Vazio |
Downloads: | 548 |
Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) , copia as medidas das colunas determinadas na folha de planilha(Plan2)
para a planilha planilha(Plan1).
Sub copiar_medida_colunas_para_outra_plan()
Dim X As Byte
Dim Y As Long
Dim Z As Integer
Application.ScreenUpdating = 0
For X = 1 To 12 'planilhas
For Y = 1 To 20 'para 20 linhas
For Z = 1 To 20 'para 20 colunas
Plan1.Range("A" & Y).RowHeight = Plan2.Range("A" & Y).RowHeight
Plan1.Columns(Z).ColumnWidth = Plan2.Columns(Z).ColumnWidth
Next Z
Next Y
Next X
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: | 23/11/2010 |
Modificado em: | 23/11/2010 |
Tamanho: | Vazio |
Downloads: | 560 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, retorna a quantidade de colunas usadas, a próxima coluna em branco, endereço da célula da última coluna usada, e endereço da célula da proxima coluna em branco.
Por exemplo, se voce quiser repetir o exemplo observe na imagem abaixo as linha(1) usada a´te a coluna D
por exemplo se voce seguir o exemplo da imagem acima, terá esse retorno na msgbox.
(MSGBOX) - Colunas - quantidade usadas [ 4 ]
(MSGBOX) - Proxima coluna em branco [5 ]
(MSGBOX) - Endereço celula ultima coluna usada [$D$1 ]
(MSGBOX) - Endereço celula da proxima coluna em branco [$E$1]
Sub Colunas_range_usada_e_nao_usadas_Linha1()
'quantidade de coluna em usada
MsgBox "Colunas - quantidade usadas [ " & _
Range("IV1").End(xlToLeft).Column & " ]", vbCritical, "Quantidade de coluna em usada Lin1"
'proxima coluna em branco
MsgBox "Proxima coluna em branco Lin[1] [ " & _
Range("IV1").End(xlToLeft).Column & " ]", vbInformation, "Proxima coluna em branco Lin1"
'endereço da ultima coluna usada
MsgBox "Endereço da ultima coluna usada Lin1 [" & _
Range("IV1").End(xlToLeft).AddressLocal & " ]", vbExclamation, "Endereço da ultima coluna usada Lin1"
'endereço da proxima coluna em branco
MsgBox "Endereço da proxima coluna em branco Lin1 [" & _
Range("IV1").End(xlToLeft).Offset(0, 1).AddressLocal & " ]", vbExclamation, "Endereço da proxima coluna em branco Lin1"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - Saberexcel
Adicionado em: | 23/11/2010 |
Modificado em: | 23/11/2010 |
Tamanho: | Vazio |
Downloads: | 567 |
Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA deleta linha contendo a letra '[x]' na coluna(A), observe que usamos a Instrução Set para referenciarmos a determinada range na folha de planilha neste caso, 'Setamos' a range("A1:A13") como rng, que seria um abreviatura para Range.
mas se tiver alguma dúvida no final da página há um link para baixar o exemplo de planilha com a macro. Espero tê-los ajudado. E_Marcondes.
Sub Deletar_linha_contendo_x()
Dim rng As Range, i As Integer
'Instrução Set decidir qual a variavel para a range(A1:A13) neste caso "rng"
Set rng = Range("A1:A13")
'Loop para contará as linhas existente
'na variavel o que você desejar avaliar.
For i = rng.Rows.Count To 1 Step -1
'Se a célula representada pela var "i" na variavel contiver um "x", eliminará a linha inteira
If rng.Cells(i).Value = "x" Then rng.Cells(i).EntireRow.Delete
Next
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel
Baixe o exemplo de planilha contendo a macro acima
Publicidade
Compre com segurança, garantia e preços baixos nas lojas SubMarino
promoção de computadores e 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