quinta-feira, 18 de agosto de 2011

ABRINDO INTERNET

Exemplo de um MFC (Microsoft Foundation Classes) com mais de 3 condições.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
    For Each Cel In Target
        'Adaptar o/os trechos. 
        If Not Intersect(Cel, Range("B1:B30,D1:D30")) Is Nothing Then
            Select Case Cel.Value
            Case 5 To 10: Cel.Interior.Color = vbRed
            Case 11 To 20: Cel.Interior.Color = vbGreen
            Case 21 To 30: Cel.Interior.Color = vbBlue
            Case 31 To 50: Cel.Interior.Color = vbYellow
            Case Else: Cel.Interior.ColorIndex = xlNone
            End Select
        End If
    Next Cel
End Sub

Claro que é possível fazer outras ações.

Esta macro abre o IE na página so seu site preferido.
É só mudar o endereço para o site que vc quer abrir.

Sub Abrir_pagina_IE()
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
With ie
.navigate "http://www.google.com.br/"
.Visible = True
End With
End Sub


Abrindo o Módulo do VBA direto do Excel.
Sub Modulo()
SendKeys "%{F11}"
End Sub

Abrindo programas aparti do Excel
Veja uma forma muito fácil de abrir arquivos direto do Excel.
Sub abri_Arquivos()
Application.ActivateMicrosoftApp Index:=1
End Sub
Cole este código em um módulo e execute a macro , verá que abrirá a calculadora , mude de 1 para 2 e verá que outro programa abrirá.
Faça o teste indo até o numero 7.

Abrir a pasta onde a planilha esta Alojada
Esta macro a a pasta onde a planilha esta salva.
Sub ExplorePath()
    Shell Environ("windir") & "\Explorer.exe " & ActiveWorkbook.Path, vbMaximizedFocus
End Sub



Nenhum comentário:

Postar um comentário

FIQUE BEM INFORMADO

Leia mais: Hoje é dia de que? Datas comemorativas • A arte da vida. Apon HP. Literatura para pensar e sentir http://www.aponarte.com.br/p/hoje-e-dia-de-que-e-amanha_09.html

Imprimindo

PESQUISA

Related Posts Plugin for WordPress, Blogger...