Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel vba texto derroulante exemplo objeto webBowse

Excel vba texto derroulante exemplo objeto webBowse

E-mail Imprimir PDF


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)

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

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3981
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23487
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37216
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460045
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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