Excel vba texto derroulante exemplo objeto webBowse

Seg, 15 de Abril de 2013 19:02 Escola Saberexcel
Imprimir


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 insere 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.


 

 

  Baixe o exemplo de planilha contendo os macros Acima
icon Excel vba texto derroulante exemplo objeto webBowse (65.89 KB)

Tags:
Última atualização em Seg, 15 de Abril de 2013 19:46