Fórmula do Aplicativo Microsoft Excel, retorna o endereço da primeira célula usada na coluna(A)

Fórmula usada......: {=CÉL("address";ÍNDICE(A1:A100;CORRESP(VERDADEIRO;A1:A100<>"";0)))}
Retorno..............: Endereço da primeira célula usada na coluna(A) Ex: $A$7


Concatenando dados para uma mensagem na célula:
Mensagem .....: " O endereço da primeira célula usada na coluna(A) é : [$A$7] e o valor é: [ 234 ] "

Fórmula usada para concatenação de dados:
=" O endereço da primeira célula usada na coluna(A) é : "&"["&F12&"] e o valor é: [ "&INDIRETO(F12)& " ]"




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Função personalizada verifica se valores são iguais
Saberexcel - Exemplo de Função personalizada

Funçao iVerifica, verifica se os valores da Célula(B1) e Célula(A1) são íguais
Função retorna valores: VERDADEIRO ou FALSO
Equivalente a Função do Excel SUBSTITUIR()

Function iVerifica(cel1 As Range, cel2 As Range) As Boolean
If Application.WorksheetFunction.Substitute(cel1, cel2, "") <> cel1 Then iVerifica = True
End Function

ou

Function iVerifica2(cel1 As Range, cel2 As Range) As Boolean
iVerifica2 = cel1 Like "*" & cel2 & "*"
End Function


Célula(A1)= 234
Celula(B1) = 456

FALSO - retornará (FALSO) se os valores forem diferentes
VERDADEIRO - retornará (VERDADEIRO) se os valores forem iguais

Função Personalizada
E6 = iVerifica(B1;A2)

Função Personalizada
E8 = iVerifica2(B1;A2)

Função do Excel
E10 = SUBSTITUIR(A1;B1;"")<>A1

A Função personalizada iVerifica(B1,A2) e iVerifica2(B1,A2)
é equivalente à Função SUBSTITUIR() do Excel

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel






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

Última atualização em Dom, 25 de Julho de 2010 19:30

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

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)