About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2006-09-28
Se pretendermos inserir uma imagem numa folha de cálculo e dentro de uma "Image box control", como no exemplo:








podemos utilizar um pouco de Código:

Option Explicit


Private Sub CommandButton1_Click()

    Dim myPictName As Variant
    Dim Image1 As Image

    myPictName = Application.GetOpenFilename _
                    (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
    If myPictName = False Then
        Exit Sub
    End If


   Me.Image1.Picture = LoadPicture(myPictName)

End Sub


2006-09-25

Se numa tabela de nomes pretendermos filtrar um determinado nome (ex: António), o qual pode ser nome próprio, nome do meio ou apelido, podemos utilizar um pouco de VBA:












O Código:

Private Sub CommandButton1_Click()
Dim myName

    Range("A1:A700").Select
    myName = InputBox(Prompt:="Digite o nome para filtro ou carregue em OK para remover filtro", Title:="Filtra por nome")

    If myName = "" Then
        Selection.AutoFilter
        Range("A1").Select
    Else
        Selection.AutoFilter Field:=1, Criteria1:="*" & myName & "*", Operator:=xlAnd
        Range("A1").Select
    End If

End Sub


NOTA: O asterisco funciona como um "multi character wild card".

  • Tópicos relacionados


  •  WildCards (1) (Microsoft Support Center)

     WildCards (2) (digdb.com)

     Filtros (1) (por Debra Dalgleish)

     Filtro (2) (Joseph Rubin's Exceltip.com)

    2006-09-12

    2006-09-09
    Se pretendermos utilizar um ficheiro texto (ex: teste.txt) como um ficheiro com conteúdo numérico sequenciador para uma célula de uma worksheet (ex: A1), então, podemos criar o ficheiro, digitar 0 (zero) e salvá-lo no directório escolhido. Depois, um pouco de VBA adicionado a um Command Button, faz o resto.





    O Código:

    Private Sub CommandButton1_Click()
        Dim strTemp As String

        On Error GoTo CommandButton1_Click_Error

        Open "F:\Gabinete\teste.txt" For Input As #1

        Line Input #1, strTemp
        Range("A1").Value = strTemp + 1
        Close #1

        Open "F:\Gabinete\teste.txt" For Output As #1

        strTemp = Range("A1").Value
        Print #1, strTemp
        Close #1

        On Error GoTo 0
        Exit Sub

    CommandButton1_Click_Error:

        MsgBox "Erro " & Err.Number & " (" & Err.Description & ") no procedimento CommandButton1_Click"
    End Sub


  • Tópicos relacionados:


  •  Open Statement