EXCELer

podemos fazê-lo da seguinte maneira:

• Criamos a TextBox:

O resultado será o esperado:





E o resultado será:




O Código da macro:

Sub TboxValueInCell()
    Dim ws1 As Worksheet
    Dim rng As Range
    Dim tb As TextBox
    Dim newtext

    Set ws1 = Sheets("Sheet1")
    Set rng = ws1.Range("C8")
    Set tb = ws1.TextBoxes("Text01")
    
    newtext = tb.Text
    rng = newtext

End Sub

Se pretendermos copiar o conteúdo de determinadas células contidas numa linha para outra Sheet e para células diferentes, como no exemplo:



O resultado:



Podemos utilizar a chamada OffSet Property.

Nota1: Para copiar o conteúdo da linha pretendida da Sheet1 para a Sheet2, faz-se um duplo clic na célula da coluna A cuja linha queremos copiar
Nota2: Para colocar o Código VBA, clicar no tabulador da Sheet1 com o botão direito do rato e escolher View Code

O Código:

'---------------------------------------------------------------------------------------
' Procedure : Worksheet_BeforeDoubleClick
' DateTime  : 18-10-2006 15:25
' Author    : JRod
' Purpose   : Copiar conteúdo de células da Sheet1 para células diferentes da Sheet2
'---------------------------------------------------------------------------------------
'
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Set rng1 = ActiveCell
    Set rng2 = rng1.Offset(0, 1)
    Set rng3 = rng1.Offset(0, 2)
    Set rng4 = rng1.Offset(0, 3)

    rng1.Copy Destination:=Worksheets("Sheet2").Range("D4:E4")
    rng2.Copy Destination:=Worksheets("Sheet2").Range("G4:H4")
    rng3.Copy Destination:=Worksheets("Sheet2").Range("C4")
    rng4.Copy Destination:=Worksheets("Sheet2").Range("C7:D7")

    Range("A1").Select
    
End Sub

Tópicos relacionados

 OffSet Property
 CurrentRegion Property
 
 

Vejamos o seguinte exemplo:






Então, o que poderemos fazer, será:



ou seja, clica-se no quadrado da intersecção entre a coluna A e a linha1.

Depois, clica-se no ícone "Format Painter". O resultado será a marcação de toda a worksheet:






O resultado será, então, o desejado:

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

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)

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

Consideremos o seguinte sistema de equações: x + y =8 e x - y = 2

Assim, na 2ª equação, teriamos: x= y+2. Então, na 1ª equação teríamos com a substituição de x: y + 2 + y = 8 ou seja: 2y = 6 ou seja: y = 6/2 ou seja: y = 3

Então, na 2ª equação teríamos com a substituição de y pelo seu resultado: x - 3 = 2 ou seja: x = 5

Como resolver este problema no Excel?

Com a ajuda do Add-in SOLVER, é possível. Vejamos o exemplo:

Nota - definiu-se C2 como x e C3 como y (Insert|Name|Define)
            B2 é igual a 8, ou seja: x + y
            B3 é igual a 2, ou seja: x - y








O resultado: