Tag Archives: VBA

Selenium, Tecnologia, VBA

(Português) SeleniumBasic – Erro de automação

Tuesday October 27th, 2020 Tomás Vásquez Leave a comment

Sorry, this entry is only available in Português.

VBA

VBA – ComboBox com duas colunas (ou mais do que isso)

Monday April 22nd, 2019 Tomás Vásquez Leave a comment

Oh yeah! O ComboBox é muito mais versátil do que se pensa e neste vídeo, tento mostrar um pouco disso.

#VBA
#ComboBox

Código utilizado:

Private Sub CommandButton1_Click()
'MsgBox ComboBox1.List(ComboBox1.ListIndex, 1)
MsgBox ComboBox1.Value
End Sub
 
Private Sub UserForm_Initialize()
Dim Estados(1 To 5, 1 To 2) As String
 
'       L  C
Estados(1, 1) = "AC"
Estados(2, 1) = "BA"
Estados(3, 1) = "RJ"
Estados(4, 1) = "SP"
Estados(5, 1) = "SC"
 
'       L  C
Estados(1, 2) = "Acre"
Estados(2, 2) = "Bahia"
Estados(3, 2) = "Rio de Janeiro"
Estados(4, 2) = "São Paulo"
Estados(5, 2) = "Santa Catarina"
 
ComboBox1.List = Estados
End Sub

Acesse também

BLOG ► https://www.tomasvasquez.com.br/blog/
FÓRUM ► https://www.tomasvasquez.com.br/forum/
CURSO ONLINE DE C# ► https://www.tomasvasquez.com.br/cursocsharp

Aqui também!

FACEBOOK ► https://www.facebook.com/tomasvaquezsites
TWITTER ► https://twitter.com/tomamais
GOOGLE+ ► https://plus.google.com/+TomasvasquezBr/

Roteiro, apresentação, edição, etc, etc ► eu mesmo 🙂

VBA

VBA – Transferir dados do Excel para o Word

Monday April 22nd, 2019 Tomás Vásquez Leave a comment

Mais uma inspirada no fórum. Com vocês, Excel e Word trabalhando juntos! Algo assim…

#VBA
#Excel
#Word

O código utilizado:

Function EscreverNoWord()
    Dim objWord 'o aplicativo Microsoft Word
    Dim objDoc 'o documento do word em si (doc ou docx)
    Dim objSelection 'o cursor de operações
    Dim text As String
 
    Set objWord = CreateObject("Word.Application") ' coloca o word na memória
    Set objDoc = objWord.Documents.Add ' Word, crie um novo documento em branco
 
    objWord.Visible = True ' Word, mostre sua cara
 
    Set objSelection = objWord.Selection 'me dê a referência do cursor do mouse
 
    For Each cell In Range("A1:A6")
        text = text &amp; cell.Value &amp; Chr(13)
    Next cell
 
    objSelection.TypeText (text) 'Digitar texto
End Function