Excel VBA Planilha objeto Adicionar Scripting retorna dados Dictionay vba

Excel VBA Planilha objeto Adicionar Scripting retorna dados

Planilha Excel VBA cursor 21 insere bordas deslocando

Planilha Excel VBA objeto Dictionary Scripting retorna dados

Planilha Excel VBA objeto Dictionary Scripting retorna
dados

Este Macro usando objeto e método Dictionary.Scripting retorna dados para a folha de planilhas, adiciona uma lista em uma chave Keys e retorna os dados através de uma instrução for Next.
‘//============’

Sub sbx_dictionary_scripting_retona_dados()
Dim a, d, i ‘Criar as variaveis as Variant
Dim wLin, x As Long

Set d = CreateObject(“Scripting.Dictionary”)
x = Cells(Rows.Count, “b”).End(xlUp).Row + 1 ‘localizar ultima linha
Range(Cells(2, “b”), Cells(x, “d”)).ClearContents ‘limpar area para teste
wLin = 2 ‘variavel para incrementar a coluna B

d.Add “a”, “Saberexcel” ‘adicionar nomes a classe chave (d).
d.Add “b”, “Videos Aulas – Programação MS Excel VBA”
d.Add “c”, “Curso Completo MS Excel VBA”
d.Add “d”, “Coleção 15.000 Macros, MS Excel VBA”
d.Add “e”, “141 Planilhas Instruções Loops MS Excel VBA”
d.Add “f”, “341 Planilhas WorkSheetFunctions(VBA)”
d.Add “g”, “Como Fazer Programação MS Excel VBA_1”
d.Add “h”, “Como Fazer Programação MS Excel VBA_2”
d.Add “j”, “Como Fazer Programação MS Excel VBA_3”
d.Add “k”, “Como Fazer Programação MS Excel VBA_4”
d.Add “l”, “Apostilas e Ebooks MS Excel VBA”
d.Add “m”, “Planilhas Inteligentes MS Excel VBA”

a = d.keys ‘Obtendo os elementos
‘ordenando as classes
For n = 1 To UBound(a)
For m = n + 1 To UBound(a)
If a(m) < a(n) Then
vTemp = a(m)
a(m) = a(n)
a(n) = vTemp
End If
Next m
Next n
‘Instrução For Next para contar a classe e retorná-la para coluna(A)
For i = 1 To d.Count – 1 ‘efetuar a interação na tabela
MsgBox (d(a(i))) & vbCrLf & “Seja um Assinante Escola Saberexcel VBA Estudos®”, vbInformation, “Escola Saberexcel VBA Estudos®” ‘mostrar cada elemento
Cells(wLin, “b”) = (d(a(i))) ‘retornar para folha de planilha
Cells(wLin, “d”) = “Assinantes”
wLin = wLin + 1 ‘incrementar a wLin para sequencia de interação
Next
Cells(wLin + 1, “b”).Value = “http://www.saberexcel.com.br”
Cells(wLin + 2, “b”).Value = “[email protected]”
End Sub
‘//============’
Sub sbx_limpar_teste()
x = Cells(Rows.Count, “b”).End(xlUp).Row + 1
Range(Cells(2, “b”), Cells(x, “d”)).ClearContents
End Sub
‘//============’
Sub sbx_ver()
Saber1.Shapes(“sbxa1”).Visible = True
End Sub

Sub sbx_oct()
Saber1.Shapes(“sbxa1”).Visible = False
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.