Excel formulas fp decompoe celulas horizontal com separador

Ter, 07 de Dezembro de 2010 06:20 Expedito Marcondes
Imprimir


Funções personalizadas decompoe dados e separam com determinado caracter
 
Saberexcel - Dicas Funções personalizadas

Essa Função Separa() decompoe os dados de determinada range
na horizontal sem separador de string
uso da funçao: =Separa(E9:E21)

Function
Separa(c As Range) As String
Dim a As Range
For Each a In c
Separa = Separa & a.Value
Next
End Function

'-----------------------------------------------------'
Essa Função Separa1(), decompoe os dados de determinada range
na horizontal com separador de string por caracter
uso da funçao: =Separa1(E9:E21)

Function
Separa1(c As Range, Optional s As String = "") As String
Dim a As Range
For Each a In c
Separa1 = Separa1 & s & a.Value
Next
Separa1 = Mid(Separa1, 2)
End Function

'-----------------------------------------------------'
Essa Função Separa2(), decompoe os dados de determinada range
na horizontal com separador de string por caracter

Function Separa2(TargetCells As Range, Optional Separador As Variant) As String
' Mid(Separa2, Len(Separador) + 1)
Dim Str As Range
If IsMissing(Separador) Then
For Each Str In TargetCells
Separa2 = Separa2 & Str.Value
Next
Else
For Each Str In TargetCells
Separa2 = Separa2 & Separador & Str.Value
Next
Separa2 = Mid(Separa2, Len(Separador) + 1)
End If
End Function


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel



Baixe o exemplo de planilha ms excel vba com as funções acima
Excel formulas fp decompoe celulas horizontal com separador (21 kB)



Tags:
Última atualização em Dom, 04 de Setembro de 2011 10:36