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çõ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çao personalizada retorna a fórmula em determinada célula
Saberexcel - Dicas de Funções Personalizada

Essas funções retornam a Fórmula usada em determinada célula
a segunda retorna a função local, isto é na lingua pt_BR

Esta função retorna a célula usada em uma determinada célula
porém o código Cell.Formula, retorna a fórmula na língua inglesa.

Function Retorna_Formula(Cell As Range) As String
Retorna_Formula = Cell.Formula
End Function

Esta função retorna a célula usada em uma determinada célula
porém o código Cell.FormulaLocal, retorna a fórmula na pt_BR

Function Retorna_Formula_Local(Cell As Range) As String
Retorna_Formula_Local = Cell.FormulaLocal
End Function

Lojas Submarino - compras pela internet com segurança e garantia.

Saberexcel - o site das macros
excel planilhas funçao personalizada do aplicativo microsoft excel retorna o número da cor do interior de determinada célula na folha de planilha excel
Saberexcel - Funções personalizada exemplos do ms excel

Function Retorna_cor(cell As Range) As Long
Retorna_cor = cell.Interior.ColorIndex
End Function


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Lojas Submarino - compras pela internet com seguranç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







Compre com seguança produtos de informatica nas lojas submarino