Views

...

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.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

Mostrando postagens com marcador tip. Mostrar todas as postagens
Mostrando postagens com marcador tip. Mostrar todas as postagens

Excel Tips - 1º Exemplo de 5 Coisas Legais para se fazer com o Data Explorer - Example 1 from 5 Cool Things You Can Do With Data Explorer

Inline image 7


Caros, que tal aprendermos mais um exemplo de utilização do Add-in Data Explorer.

Este add-in serve para o Excel 2010 e o Excel 2013 e pode ser baixado aqui.

O Data Explorer abrirá uma nova opção no Menu e através dela poderemos importar e transformar uma ampla variedade de dados de fontes distintas. Além das fontes de dados padrão como o Microsoft Access, SQL Server e Arquivos de Texto.

O Data Explorer permitirá a importação de fontes tais como o Active Directory, Azure, OData e Hadoop.

Através deste post veremos mais um exemplo de com usar o Data Explorer.

1º Exemplo - O Básico

Depois de instalar o add-in, você verá uma nova aba Data Explorer.

No grupo Obter Dados Externos, à esquerda, você vê muitas opções para escolher. Neste primeiro exemplo básico, eu vou escolher a partir da Web e digite o site que estou interessado em




Após alguns giros, uma consulta ativa a janela, mostrando as tabelas disponíveis encontradas no site.



Podemos então, clicar em uma delas para ver com o que os dados se parecem.






Podemos limpar a tabela de dados dentro da própria janela da consulta.



Na imagem abaixo, clico no botão direito do mouse na coluna e opto por usar a primeira linha como cabeçalho da coluna.



Em seguida clico novamente no botão direito do mouse na coluna Trend e opto por escondê-la.

Observe a barra de fórmulas acima dos resultados. Esta barra de fórmulas contém a sintaxe necessária para executarmos os passos que selecionamos. 

Os 'Steps' pull-out permitem revermos ou removermos cada ação que aplicamos à consulta. Também podemos atualizar as fórmulas à mão usando o paper ícone.




Depois de confirmar as alterações, o MS Excel trará os dados para a planilha. Neste exemplo, apliquei uma formatação condicional para deixá-lo com uma boa aparência. Como pode imaginar, poderá pressionar o botão direito do mouse sobre a tabela, atualizando os dados a qualquer momento.





Tags: VBA, Data, Tip, Excel, Add-in, Data Explorer, Active Directory, Azure, OData, Hadoop, 




Tags: , , , , , , , , ,

VBA Excel - Atualize todas as suas Tabelas Dinâmicas - Refresh all Pivots on Open

Inline image 1

Atualize todas as suas Tabelas Dinâmicas assim que abrir a planilha.


Sub AllWorkbookPivots()

Dim pt As pivotTable
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets


For Each pt In ws.PivotTables

pt.RefreshTable

Next pt


Next ws





Tags: Excel, Tip, Pivot Table, Tabela Dinâmica, workbook, Worksheet,
Tags: , , , , ,

VBA - Retirando os acentos de Planilhas, Textos, Apresentações, bases de dados, etc...



Retirar os acentos de Planilhas, Textos, Apresentações, Bases de Dados, etc....eventualmente também é necessário, seguem códigos úteis para serem colados no seu Editor VBA:

Function removeAcentos (ByVal texto As String) As String    
    Dim vPos As Byte
    
    Const vComAcento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
    Const vSemAcento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
    
    For i = 1 To Len(texto)
        vPos = InStr(1, vComAcento, Mid(texto, i, 1))
        If vPos > 0 Then
           Mid(texto, i, 1) = Mid(vSemAcento, vPos, 1)
        End If
    Next
    removeAcentos = texto
End Function

Private Sub Command1_Click()
   'exemplo de como chamar
   Text1 = removeAcentos(Text1)
End Sub

Outra opção:
Sub Substituir()
    Cells.Replace What:="é", Replacement:="e", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    Cells.Replace What:="É", Replacement:="E", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    Cells.Replace What:="á", Replacement:="a", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    Cells.Replace What:="Á", Replacement:="A", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Uma ampliação do código em:
Public Function DLTiraAcentos(ByVal strOriginal As String)
'By JPaulo @ 2009
    Dim strToReturn As String
    strToReturn = ""
    
    Dim i As Integer
    For i = 1 To Len(strOriginal)
        strToReturn = strToReturn & DLTiraAcentos_GetCorrectChar(Mid$(strOriginal, i, 1))
    Next i
    
    DLTiraAcentos = strToReturn
End Function

Public Function DLTiraAcentos_GetCorrectChar(ByVal strChar As String) As String
    Dim LetrasComAcentos As String
    Dim LetrasSemAcentos As String

    LetrasComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
    LetrasSemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"

    Dim i As Integer

    For i = 1 To Len(LetrasComAcentos)
        If strChar = Mid$(LetrasComAcentos, i, 1) Then
            DLTiraAcentos_GetCorrectChar = Mid$(LetrasSemAcentos, i, 1)
            Exit Function
        End If
    Next
    
    DLTiraAcentos_GetCorrectChar = strChar
End Function

A criatividade é uma dádiva:
Function Sem_Acento(Acento)
'Desclara variável
Dim tmp$
tmp = Trim(Acento)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Sem_Acento = Sem_Acento & x
Next
End Function '

Tags: VBA, dica, trick, tip, acento, diacrítico, retirar
Tags: , , , , , ,
Assinar: Postagens (Atom)

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine