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

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.





brazilsalesforceeffectiveness@gmail.com


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

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.




brazilsalesforceeffectiveness@gmail.com


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

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.



brazilsalesforceeffectiveness@gmail.com


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

LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine