Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Vitrine

Excel VBA - Lista de Constantes e Respectivos Valores - List of Excel Charting Constants and Enumerations for VBA

Excel VBA - Lista de Constantes e Respectivos Valores - List of Excel Charting Constants and Enumerations for VBA


Deixe seus comentários, compartilhe este artigo!


⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪

Excel VBA - Posicionando o Gráfico na Planilha - Adding New Chart for Selected Data using ChartObjects.Add Method

Excel VBA - Posicionando o Gráfico na Planilha - Adding New Chart for Selected Data using ChartObjects.Add Method


O ChartObjects.Add é o melhor método, pois é muito fácil posicionar os objetos gráficos alterando as configurações.

Sub ExAddingNewChartforSelectedData_ChartObjects_Add_Method()
With ActiveSheet.ChartObjects.Add(Left:=300, Width:=300, Top:=10, Height:=300)
.Chart.SetSourceData Source:=Sheets("Temp").Range("C5:D7")
End With
End Sub
Deixe seus comentários, compartilhe este artigo!


⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪

Excel VBA - Adicionando um Novo Gráfico numa Planilha existente - Adding New Chart for Selected Data using Charts.Add Method : In Existing Sheet

Excel VBA - Adicionando um Novo Gráfico numa Planilha existente - Adding New Chart for Selected Data using Charts.Add Method : In Existing Sheet

Podemos usar o método Charts.Add para fixar o gráfico numa planilha existente. Podemos até mesmo especificar a posição e o local onde será mostrado, criaando o novo gráfico na planilha específica.

Sub ExAddingNewChartforSelectedData_Charts_Add_Method_InSheet()
Range("C5:D7").SelectActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

Charts.Add

Deixe seus comentários, compartilhe este artigo!


⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪

Excel VBA - Inserindo um Gráfico usando o Método Shapes - Adding New Chart for Selected Data using Shapes.AddChart Method

Excel VBA - Inserindo um Gráfico usando o Método Shapes - Adding New Chart for Selected Data using Shapes.AddChart Method



Neste exemplo observaremos um forma de inserirmos um gráfico no Excel com VBA através do Método Shapes.AddChart a partir da nossa seleção de alguns dados.
Este código criará um gráfico básico em uma planilha existente:

Sub
ExAddingNewChartforSelectedData_Shapes_AddChart_Method()

ActiveSheet.Shapes.AddChart.Select
Range("F5:I7").Select
End Sub

Deixe seus comentários, compartilhe este artigo!


⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪

Excel VBA - Criando um Gráfico a partir da Seleção de Dados - Adding New Chart for Selected Data using Charts.Add Method : Creating Chart Sheet

Excel VBA - Criando um Gráfico a partir da Seleção de Dados - Adding New Chart for Selected Data using Charts.Add Method : Creating Chart Sheet



O seguinte método de Exemplos de VBA de gráfico do Excel adicionará novo gráfico na nova planilha por padrão. Você pode especificar um local para incorporado em uma determinada planilha.

'Here is the other method to add charts using Chart Object. It will add a new chart for the selected data as new chart sheet.

Sub ExAddingNewChartforSelectedData_Charts_Add_Method_SheetChart()
Range("C5:D7").SelectCharts.Add
End Sub
Deixe seus comentários, compartilhe este artigo!


⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪

Excel VBA Basic - Fechando a Planilha - Close a Workbook using VBA

Excel VBA Basic - Fechando a Planilha - Close a Workbook using VBA



Simplesmente fechar uma planilha pode resolver um problema e nos livrar de uma dor de cabeça. Que tal programar suas planilhas para serem fechadas 20 ou 30 minutos após estarem abertas sem qualquer edição nela?

Option Explicit 
Sub macro1()
ActiveWorkbook.Close False
End Sub


Também poderá implementar o código abaixo quando for a partir de outro aplicação MS Office:

Dim xlApp As Object
    Set xlApp = GetObject(, "excel.application")
   
    xlApp.Quit

   set XlApp = nothing ' Fecha a aplicação MS Excel.

Let Application.DisplayAlerts = FalseLet Activeworkbook.close ([VBYes])Let Application.DisplayAlerts = True

' Fecha o Workbook e salva as mudanças efetuadas.


Deixe seus comentários, compartilhe este artigo!


⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM  • TUMBLR   GOOGLE+   LINKEDIN   PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪

Principais Tendências de Análises de Dados em 2017

Principais Tendências de Análises de Dados em 2017

Principais Tendências de Análises de Dados em 2017

Há muito interessante em matérias que falam sobre a análise de dados e sua tendência. O investimento em Business Intelligence e Análises foi extremamente elevada e continua a crescer a um ritmo rápido. É possível que 2017 seja um dos anos mais emocionantes, onde o mercado de Análises moldarão uma série de eventos relacionados aos negócios e além disso. Convido-o a ler sobre aquelas, que acredito, serão as principais tendências de investimento em 2017.



Como sempre, estas são apenas previsões, e o futuro sobre eles mostrará se são mesmo realistas. Independentemente dos exatos resultados dessa especulação para o mercado de Análises em 2017, este ano certamente será um momento interessante para o cenário de negócios, e vamos precisar esperar para ver o impacto das Análises em moldar nossa indústria.



Série Big Data


Business de Big Data



Soluções de Big Data




Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

Acessando o AD - Active Directory - com o Excel

Acessando o AD - Active Directory - com o Excel


A exibição do Active Directory no Excel pode ajudar os muito a sua manutenção de várias maneiras. Gerenciar o Active Directory no Excel pode economizar muito o tempo dos administradores de rede.


O que é o Active Directory?

O Active Directory ( AD ) é um Banco de Dados que armazena, entre outras coisas, contas de usuário para uma rede Microsoft, também conhecido como um domínio. O Excel pode trabalhar com AD usando LDAP (Lightweight Directory Access Protocol) que é um protocolo para comunicação com o AD.


Como o Active Directory é importante?

Os administradores de rede podem usar esse aplicativo para baixar dados do AD e criar:


  • Diretórios de telefone
  • Listagens do Departamento
  • Folhetos de roteamento (cartões de simpatia, abordagens RH, etc)
  • E mais.


Os administradores de rede podem usar esse aplicativo para atualizar os números de telefone do usuário ou o departamento / empresa atribuído.
  
Desenvolvedores VBA podem usar esse aplicativo como um guia para trabalhar com o Active Directory.


CASE

Ao instalar recentemente um novo sistema telefônico. Suas extensões foram alteradas. Os números de discagem direta foram mudados. Foi necessárias atualizar o AD. No entanto, o uso do aplicativo Active Directory da Microsoft, embora ótimo para alterações de um usuário, não lida bem com atualizações em massa. Então usei este aplicativo para facilitar esse trabalho.

Ao mesmo tempo, os usuários precisavam de uma lista de diretórios regularmente atualizada. A função de exibição deste aplicativo fornece a lista de diretórios mais atualizada possível sem sobrecarregar o pessoal, matar árvores ou adicionar ao aterro sanitário.


Envie seus comentários e sugestões e compartilhe este artigo!
brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

Dicionário de Dados em VBA - documentação de sintaxe completa

Dicionário de Dados em VBA - documentação de sintaxe completa



Dicionário de Dados são coleções aprimoradas. Gosto de usá-los em qualquer lugar onde tenha uma coleção, exceto quando uso uma coleção de Classes. Infelizmente, eu não encontrei uma única fonte que documenta o objeto inteiro. Então, para minha própria documentação,  decidi utilizar isso. Ao final do artigo veja a lista de fontes usadas neste artigo.

Vantagens dos objetos do dicionário sobre as coleções

  • A propriedade CompareMode especifica a sensibilidade a maiúsculas e minúsculas para Chaves.
  • Um método para determinar se um objeto existe no Dicionário.
  • Um método para extrair todas as chaves numa matriz.
  • Um método para extrair todos os itens numa matriz.
  • Um método para alterar um valor Chave.
  • Um método para remover todos os itens do Dicionário.
  • As chaves do dicionário não estão limitadas ao tipo de dados String.

Observação: uma diferença importante entre o objeto de coleção e o objeto de dicionário é o comportamento da propriedade de item. Se usar a propriedade Item para fazer referência a uma chave inexistente em uma coleção, receberá um erro. Se usar a propriedade Item para fazer referência a uma chave inexistente em um dicionário, essa chave será adicionada ao dicionário. Use o método Exists para determinar se uma chave está ou não presente em um dicionário.

Sintaxe

Crie um objeto de dicionário em qualquer versão do XL
Isso usa um exemplo de ligação tardia que eu prefiro para simplificar a implantação para outros PCs.
Dim dicMyDictionary as Object
Set dicMyDictionary = CreateObject("Scripting.Dictionary")
Definir a sensibilidade das teclas
dicMyDictionary.CompareMode = vbBinaryCompare 'Case Sensitive
dicMyDictionary.CompareMode = vbTextCompare 'Case Insensitive
Adicionar Item
dicMyDictionary.Add ItemKey, myItem
Adicionar ou alterar item
Isso às vezes é chamado de "Silent Add" método. Se uma chave não existir, ela será adicionada.
dicMyDictionary(ItemKey) = myItem
-or-
Set dicMyDictionary(ItemKey) = myObject
Determinar se existe um item
Se você não quiser o recurso "Silent Add", use isso antes de tentar alterar itens.
If dicMyDictionary.Exists(ItemKey) Then ...
Obter Número de Itens
Debug.Print = dicMyDictionary.Count
Obter um item por chave
MyItem = dicMyDictionary(ItemKey)
- or -
Set MyObject = dicMyDictionary(ItemKey)
Obter um item por número
Nota! Os itens do dicionário começam por 0
MyItem = dicMyDictionary.Items()(ItemNumber)
- or -
Set MyObject = dicMyDictionary.Items()(ItemNumber)
Obter uma chave por número
MyKey = dicMyDictionary.Keys()(ItemNumber)
Carregar todos os itens em uma matriz
Dim vArray as Variant
vArray = dicMyDictionary.Items()
Carregar todas as chaves em uma matriz
Dim vArray as Variant
vArray = dicMyDictionary.Keys()
Remover um item
dicMyDictionary.Remove(ItemKey)
Remover todos os itens
dicMyDictionary.RemoveAll


Usos

Eliminar duplicatas
Os dicionários são perfeitos para criar listas exclusivas usando sua função "adicionar silenciosamente".

Função GetDistinct ( ByVal oTarget como Range ) como Variant
     Dim vArray como Variant
     Dim dicMyDictionary como objeto
     Dim v como variante
     Definir dicMyDictionary = CreateObject ("Scripting.Dictionary")
     VArray = oTarget
     Para Cada v em vArray
     DicMyDictionary (v) = v
     Próximo
     GetDistinct = dicMyDictionary.Items ()
Função final



Pesquisa de tabela de código
Se pretendemos fazer referência a uma tabela repetidamente e "aleatoriamente" (em oposição a "sequencialmente"), colocar a tabela em um dicionário é fácil e rápido, bem como fácil e rápido de usar.
Função Pública Tbl2Dic ( ByVal oTarget As Range ) As Object
Dim dicMyDictionary As Object
Dim lRow As Long
Dim lCols As Long
Definir dicMyDictionary = CreateObject ("Scripting.Dictionary")
LCols = oTarget.Columns.Count - 1
Para lRow = 1 Para oTarget.Rows.Count
Com oTarget.Cells (lRow, 1)
Definir dicMyDictionary (.Value) = .Offset (0, 1) .Resize (1, lCols)
Terminar com
Próximo
Definir Tbl2Dic = dicMyDictionary

Função final 
Exemplos:
' Obter a coluna 2 da tabela de 2 colunas denominada "Estados" onde coluna 1 = "VA"
Dim dicStates como objeto
Definir dicStates = Tbl2Dic ([Estados])
     Debug.print dicStates ("VA")
' Obter a coluna 3 a partir da tabela de 3 colunas denominada "Estados" onde a coluna 1 = "VA"   
Dim dicStates como objeto
     Definir dicStates = Tbl2Dic ([Estados])
     Debug.print dicStates ("VA") (1,2)



Classe Container
Eu uso dicionários para armazenar objetos de classe na memória porque os dicionários podem conter qualquer coisa.



Public dicWorksheets as Object
Sub InitMyClass ()
Dim MyWorksheet      A s clsWorksheet
Dim oWks como planilha
Se dicWorksheets não é nada então _
   Definir dicWorksheets = CreateObject ("Scripting.Dictionary")
Para cada oWks neste ThisWorkbook.Worksheets
Set MyWorksheet = Novo clsWorksheet
     Definir MyWorksheet.Worksheet = oWks
     Definir dicWorksheets (oWks.Name) = MyWorksheet
Próximo
Função final

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...