Visualizações

Tente

...

Pesquisar

Carregando...

Se gostou deste conteúdo, deixe sua colaboração!

2016 Magic Quadrant for Business Intelligence e Analytics Platforms Report - Overview

2016 Magic Quadrant for Business Intelligence e Analytics Platforms Report - Overview



































Fonte: Gartner (Fevereiro de 2016)

Obtenha uma visão global do segmento de Business Intelligence e Analytics Platforms Report que tem apresentado uma expansão contínua de crescimento de 5,8% desde 2014, conforme estimativa do Gartner para a taxa de crescimento anual composta para o setor Enterprise Software Markets, Worldwide, 2012-2019, 3Q15 Update.


2016 Magic Quadrant for Business Intelligence e Analytics Platforms Report

brazilsalesforceeffectiveness@gmail.com






✔ Brazil SFE®
Author´s Profile

 Google+

 Author´s Professional Profile

 Pinterest

 Author´s Tweets

Respeito - Uma breve consideração



Respeito - Uma breve consideração



A maior prova de que respeitamos alguém, sua obra ou o seu trabalho é nossa citação respeitosa, mesmo que em desacordo.

Sentir-nos respeitados envolve ter um texto, música, livro, ou afirmações reconhecidas. 


LEIA O ARTIGO ORIGINAL





VBA Intermediário - Função Converte um Range numa String - Range to String - Function ConRngInStr

VBA Intermediário - Função Converte um Range numa String - Range to String - Function ConRngInStr


O que segue abaixo é uma função que permite converter o intervalo contido num Range numa String para apresentação dentro de uma célula.


Function ConRngInStr 
(tgtRange As Range, Separator As String) As String
    '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
    '        Date: 20/07/2016 - 09:15
    ' Application: Field Force Dashboard Analysis®
    '     Purpose: Função Converte um Range numa String - Range to String
    
If tgtRange Is Nothing Then Exit Function
 
Dim nCells As Range

For Each nCells In tgtRange.Cells
    Let ConRngInStr = ConRngInStr & Separator & nCells
Next nCells
 
Let ConRngInStr = Right(ConRngInStr, Len(ConRngInStr) - 1)
End Function


Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.










VBA Intermediário - Função que converte um Range numa String separada por [Enter] - Convert my Range Array to Single Cell String

VBA Intermediário - Função que converte um Range numa String separada por [Enter] - VBA - Convert my Range Array to Single Cell String


Vez ou outra precisaremos converter os conteúdos em um Range, dentro de uma célula. A função abaixo além de fazer isso, propicia que o intervalo entre os conteúdos do Range sejam separados por um [Enter], permitindo a apresentação dentro da célula sem perder o aspecto de coluna. Claro que essa característica poderá ser mudada para: Vírgula, barra, hífen, etc...


Function ConvertRngInStr (MyRange As Range)
    '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
    '        Date: 20/07/2016 - 09:05
    ' Application: Field Force Dashboard Analysis®
    '     Purpose: Função que converte um Range numa String separada por [Enter] - Convert my Range Array to Single Cell String.
    
    Dim nFrase As String
Dim r As Range
     
    For Each r In MyRange
        Let nFrase = nFrase & r.Value & vbCrLf
    Next r
    
    Let ConvertRngInStr = nFrase
End Function




Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.










VBA Intermediário - Função Converte um Range num Array - Range to Array - Function ConRngArray

VBA Intermediário - Função Converte um Range num Array - Range to Array  - Function ConRngArray


O que segue abaixo é o exemplo de uma função que permite converter o intervalo contido num Range num Array.


Function ConRngArray (ByVal nRng As Range) As String()
        '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
    '        Date: 20/07/2016 - 07:03
    ' Application: Field Force Dashboard Analysis®
    '     Purpose: Função Converte um Range num Array - Range to Array

Dim nVector01 As Variant
Dim nVector02() As String
Dim i As Long

Let nVector01 = nRng.Value

ReDim nVector02(1 To UBound(nVector01))

For i = 1 To UBound(nVector01)
    Let nVector02(i) = nVector01(i, 1)
Next

Let ConRngArray = nVector02()
End Function n


Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.










SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory

SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory






Talvez precise importar as fotos de um cadastro de funcionários | clientes | fornecedores, ou criar um catálogo, album de fotos, etc... E deseje manter todas as fotos dentro de um arquivo MS Access.


Isso é recomendável? Não!


É possível? Sim!


Crie uma tabela com a seguinte especificação dentro do seu banco de dados MS Access.





Em seguida crie um módulo como o nome de mdl_Importando_Imagens.


Em seguida cole o código abaixo nele:

Sub ImportPhotosFromDirectory()
        '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardes@gmail.com
    '        Date: 17/05/2016 - 15:14
    ' Application: Field Force Dashboard Analysis® - © A&A - In Any Place 2016, Inc. Todos os direitos reservados.
    '     Company: © A&A - In Any Place 2016, Inc. Todos os direitos reservados.
    '     Purpose: Import Photos from Directory.
    ' C:\Users\Photos

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim oFS As New FileSystemObject
    
    Dim oFolder As Folder
    Dim oFile As File
    Dim nPath As String

    Let nPath = "C:\Users\Photos"
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_Photos")

    Set oFolder = oFS.GetFolder(nPath)

    With rs

        For Each oFile In oFolder.Files
            Debug.Print oFile.Name
            
            .AddNew
                        
            Let !PhotoName = oFile.Name
            Let !Photo = oFile
            
            .Update

        Next oFile

    End With
End Sub


Ahhh, não se esqueça de manter a seguinte referência em seu projeto MS Access:




A&A - In Any Place

Série: Sua Empresa é Campeã no Bem Estar - A&A - In Any Place



A&A - In Any Place nasceu por volta de 2005 como uma consultoria de desenvolvimento de software. Ao passo que um dos seus fundadores, André Bernardes, foi envolvendo-se em diversos projetos simultâneos, passando por diversas empresas a A&A foi transformando num misto de consultoria e empresa de um só homem. Apesar de não sê-lo, uma vez que A&A representa a inicial dos nomes de dois associados da empresa, Ana e André.

Um dos focos da empresa era estender suporte a criação de aplicações desenvolvidas com o portfólio MS Office da Microsoft, o que se mostrou muito rentável, uma vez que a plataforma de instalação deste era imensa e os profissionais que utilizam as clássicas soluções MS ExcelMS WordMS AccessMS PowerPointMS Outlook além de outras tecnologias deixadas para trás pela Microsoft, fossem escassos e seus produtos poucos explorados pelos usuários.


Com o passar dos anos cada uma dos produtos da suíte Office tornaram-se verdadeiras plataformas de desenvolvimento VBA - Visual Basic for Application - devido ao recurso de automação intrinsecamente existente e comum a todos os produtos da suíte.


Seu co-fundador André Bernardes trilhou essa vertente do mercado por muitos anos, uma vez haver uma enorme carência por desenvolvedores profissionais disponíveis e um amplo mercado carente de desenvolvedores.


Os horários sempre foram flexíveis, e todos os que estiveram envolvidos, inclusive alguns contratados temporários puderam trabalhar na A&A, e ao mesmo tempo continuar em suas empresas ou projetos pessoais.


A empresa passou a oferecer cursos in companypessoais e online. Além disso, Blogs com inúmeras dicas e centenas de artigos foram implementados, os quais ainda continuam ativos com grande audiência e contribuições.





Mais empresas:
Unilever
Random House
Linkedin
Google - Alphabet Inc
Facebook
Deloitte
AOL - The Huffington Post
Amazon
Adidas
A&A - In Any Place
Inspiração: HufftPost Brasil

DONUT PROJECT 2015 - Extraindo e-Mails - Extracting An Email Address From Text

DONUT PROJECT 2015 - Extraindo e-Mails - Extracting An Email Address From Text





Muito útil para o envio automatizado de e-mails a partir de uma planilha sem higienização apropriada.

Function ExtractEmailAddress (s As String) As String      Dim AtSignLocation As Long      Dim i As Long      Dim TempStr As String      Const CharList As String = "[A-Za-z0-9._-]"            'Get location of the @      AtSignLocation = InStr(s, "@")      If AtSignLocation = 0 Then          ExtractEmailAddress = "" 'not found      Else          TempStr = ""          'Get 1st half of email address          For i = AtSignLocation - 1 To 1 Step -1              If Mid(s, i, 1) Like CharList Then                  TempStr = Mid(s, i, 1) & TempStr              Else                  Exit For              End If          Next i          If TempStr = "" Then Exit Function          'get 2nd half          TempStr = TempStr & "@"          For i = AtSignLocation + 1 To Len(s)              If Mid(s, i, 1) Like CharList Then                  TempStr = TempStr & Mid(s, i, 1)              Else                  Exit For              End If          Next i      End If      'Remove trailing period if it exists      If Right(TempStr, 1) = "." Then TempStr = _         Left(TempStr, Len(TempStr) - 1)      ExtractEmailAddress = TempStr  End Function

Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.










DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres

DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres


A função abaixo é totalmente específica pois permite retornar qualquer conteúdo que estiver delimitado pelos caracteres que informarmos.

Public Function ExtraiDelimitedFor(str As String,nOpen as string,nClose as string,) As String
    Dim openPos As Integer
    Dim closePos As Integer
    Dim midBit As String

    Let openPos = InStr(str, nOpen)
    Let closePos = InStr(str, nClose)
    Let midBit = Left(str, openPos - 1) & Right(str, openPos)
    Let ExtraiTudoEntreParenteses = midBit
End Function


Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.

DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses

DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses


A função abaixo é muito útil por permitir retornar apenas o conteúdo que estiver entre parênteses.


Public Function ExtraiOValorEntreParenteses (str As String) As String
'Author: André Luiz Bernardes - andredinizbernardes@gmail.com
' Date: 06.04.15 - 10:00
' Descrição: Retorna somente o conteúdo de uma frase que estiver entre parênteses.
    Dim openPos As Integer
    Dim closePos As Integer
    Dim midBit As String


    Let openPos = InStr(str, "(")
    Let closePos = InStr(str, ")")
    Let midBit = Mid(str, openPos + 1, closePos - openPos - 1)
    Let ExtraiOValorEntreParenteses = midBit
End Function

Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.