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

Publicidade
Compre com segurança, garantia e ótimos preços

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

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



 

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

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