Função personalizada retorna números ignorandos textos
Saberexcel - Funções Personalizadas

Essa função Retorna_Numeros, tem por finalidade retornar números
contidos em uma determinada célula, ignorando o texto existente.
Uso da função na Folha de Planilha:

'=Retorna_Numeros(A1)

Function Retorna_Numeros(Cell As Range) As Long
Dim LenStr As Long
For LenStr = 1 To Len(Cell)
Select Case Asc(Mid(Cell, LenStr, 1))
Case 48 To 57
Retorna_Numeros = Retorna_Numeros & Mid(Cell, LenStr, 1)
End Select
Next
End Function

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel







Compre com seguança produtos de informatica nas lojas submarino

Função personalizada retorna texto ignorandos numero
Saberexcel - Funções Personalizadas

Essa função RetornaTexto, tem por finalidade retornar textos
contidos em uma determinada célula, ignorando o texto existente.
Uso da função na Folha de Planilha:

'=Retorna_Textos(A1)

Function RetornaTexto(Cell As Range) As String
Dim LenStr As Long
For LenStr = 1 To Len(Cell)
Select Case Asc(Mid(Cell, LenStr, 1))
Case 65 To 90
RetornaTexto = RetornaTexto & Mid(Cell, LenStr, 1)
Case 97 To 122
RetornaTexto = RetornaTexto & Mid(Cell, LenStr, 1)
End Select
Next
End Function

Aprenda tudo sobre o aplicativo Microsoft Excel VBA com SaberExcel



Baixe o exemplo de planiha ms excel da Função RetornaTexto()




Compre com seguança produtos de informatica nas lojas submarino

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 2010-12-07 07:26:08)

Função Personalizada retorna verdadeiro ou falso se a cor for vermelho
Saberexcel - Funções Personalizadas

retorna [VERDADEIRO] se o interior da célula for vermelho
retorna [FALSO] se o interior da célula não for vermelho
Função: =iVermelho(C2)

Function iVermelho(cell As Range) As Boolean
If cell.Interior.ColorIndex = 3 Then iVermelho = True
End Function

Aqui está uma função que pode ser usada de várias cores
use a função na folha de planilha
Funçao: =vCores(K6;K7) (neste caso use a cor e valor tem que correponder) isto é:

'1-) interior da célula (Vermelho)
'2-) numero na célula(3)

'(Use o índice das cores InteriorColor)

Function vCores(cell As Range, InteriorCores As Byte) As Boolean
If cell.Interior.ColorIndex = InteriorCores Then vCores = True
End Function

Lojas submarino a maior livraria do pais, compre com segurnaça e garantia

Função personalizada retorna números ignorandos textos
Saberexcel - Funções Personalizadas

Essa função Retorna_Numeros, tem por finalidade retornar números
contidos em uma determinada célula, ignorando o texto existente.
Uso da função na Folha de Planilha:

'=Retorna_Numeros(A1)

Function Retorna_Numeros(Cell As Range) As Long
Dim LenStr As Long
For LenStr = 1 To Len(Cell)
Select Case Asc(Mid(Cell, LenStr, 1))
Case 48 To 57
Retorna_Numeros = Retorna_Numeros & Mid(Cell, LenStr, 1)
End Select
Next
End Function

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel


Baixe o exemplo de planiha ms excel da Função Retorna_Numeros()
Excel formulas fp retorna somente numeros ignorando textos (23.58 kB 2010-12-07 08:55:31)




Compre com seguança produtos de informatica nas lojas submarino