|
 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esses macros do Aplicativo Microsoft excel VBA, insere um texto derroulante com auxilio de Objeto WebBrowse,
com cores de fundo e fonte predeterminadas, há uma folha de planilha no exemplo abaixo, que traz o números das cores
HexaDecimais "#FFFF00"(Amarelo), com 256 para você praticar e observar os resultados.
Também fiz o que nossa colaboradora nos pediu uma autonumeração sequencial em (linhas e também Colunas)
no macro inseri uma condição if que verifica se o valor da célula é para ou impar e inser uma formatação condicional nas
cores da fonte para impares e pares. Espero que o exemplo possa ajuda-la. (Resposta para Arlete) - BH.
Fique com Deus,
Expedito Marcondes
Sub sbx_WebBrowse()
Const vTexto = "Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções"
Const vSite = "http://www.microsoftexcel.com.br/"
Dim xTexto As String
FonteCor = "#FFFF00"
FonteCor1 = "#FFFFFF"
With UserForm1
Saber1.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#666600' scroll='no'><font color= " & FonteCor & _
" size='5' face='Arial'>" & _
"<marquee>" & vTexto & "</marquee></font></body></html>"
Saber1.WebBrowser2.Navigate _
"about:<html><body BGCOLOR ='#003300' scroll='no'><font color= " & FonteCor1 & _
" size='4' face='Arial'>" & _
"<marquee>" & vSite & "</marquee></font></body></html>"
End With
Application.StatusBar = ""
End Sub
Sub sbx_autonumeracao_linha()
Dim vLin, vCol, tNum As Long
tNum = 1
For vLin = 11 To 22
For vCol = 2 To 9
Cells(vLin, vCol).Value = tNum
tNum = tNum + 1
If Cells(vLin, vCol).Value Mod 2 = 0 Then
Cells(vLin, vCol).Font.ColorIndex = 3
Else
Cells(vLin, vCol).Font.ColorIndex = 10
End If
Next vCol
Next vLin
End Sub
'Auto_Numeração sequencial em Colunas
Sub sbx_autonumeracao_coluna()
Dim vLin, vCol, tNum As Long
tNum = 1
[b11:i22].Font.ColorIndex = 1
For vCol = 2 To 9
For vLin = 11 To 22
Cells(vLin, vCol).Value = tNum
tNum = tNum + 1
If Cells(vLin, vCol).Value Mod 2 = 0 Then
Cells(vLin, vCol).Font.ColorIndex = 3
Else
Cells(vLin, vCol).Font.ColorIndex = 10
End If
Next vLin
Next vCol
End Sub
Sub sbx_limpar_teste()
[b11:i22].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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
|