Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SBL Excel VBA objeto dictionary scripting retorna dados

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Este Macro usando objeto e metodo Dictionary.Scripting retorna dados para a folha de planilhas,
adiciona uma lista em uma chave (Keys) e retorna os dados atraves 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 = "O endereço de e-mail address está sendo protegido de spambots. Você precisa ativar o JavaScript enabled para vê-lo."
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.




 u - Assine nosso site: Procedimentos de Aquisição dos produtos Didáticos SaberExcel

 Baixe o exemplo de planilha contendo os macros acima:
  icon SBL Excel VBA objeto dictionary scripting retorna dados (47.98 kB)

Você está aqui: Home Excel VBA - Dicas Livre Excel VBA - Dicas Livre Excel VBA - Loops SBL Excel VBA objeto dictionary scripting retorna dados