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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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