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
|