Excel - formulas excel

 
Vista:

formulas excel

Publicado por Jose luis (1 intervención) el 25/10/2007 19:48:34
Alguien me puede decir como en una funcion, ó formula de excel puede distinguir mayusculas de minusculas:
Ejemplo: CONTAR SI, QUEIRO QUE ME DISTINGA MAYUSCULAS DE MUINISCULAS

GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:formulas excel

Publicado por Fernando (231 intervenciones) el 25/10/2007 22:21:43
Te dejo este procedimiento para que ejecutes, cuenta cuantas celdas en mayúscula hay en una columna, solo debes seleccionar la primera celda de la columna que deseas realizar el conteo y te devuelve el valor.

Las minusculas las puedes obtener por diferencia o agregandole programación al siguiente procedimiento.

**************************************************************************************

Public Sub Cuenta()
Dim mItexto As String, ContMay As Integer, Celda As String
mItexto = ActiveCell.Text
Celda = ActiveCell.Address
Do
mItexto = ActiveCell.Text
If mItexto = UCase(ActiveCell.Text) Then
ContMay = ContMay + 1
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = Empty
Range(Celda).Select
MsgBox "Hay " & ContMay & " celdas que contienen texto en mayúscula.", vbInformation, "CONTADOR"
End Sub

**************************************************************************************

Saludos,
Fernando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:formulas excel

Publicado por Fernando (231 intervenciones) el 25/10/2007 22:30:10
Mejor ocupa este procedimiento, entrega un contador para mayúsculas y otro para munúsculas.

*****************************************************************************************

Public Sub Cuenta()
Dim mItexto As String, ContMay As Integer, ContLow As Integer, Celda As String
mItexto = ActiveCell.Text
Celda = ActiveCell.Address
Do
mItexto = ActiveCell.Text
If mItexto = UCase(ActiveCell.Text) Then
ContMay = ContMay + 1
ActiveCell.Offset(1, 0).Select
ElseIf mItexto = LCase(ActiveCell.Text) Then
ContLow = ContLow + 1
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = Empty
Range(Celda).Select
MsgBox "Hay " & ContMay & " celdas que contienen texto en mayúscula y " & _
Chr(13) & ContLow & " celdas que contienen texto en minúsculas.", vbInformation, "CONTADOR"
End Sub

*****************************************************************************************

Saludos,
Fernando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:formulas excel

Publicado por JuanC (792 intervenciones) el 25/10/2007 22:37:21
José, no sé bien qué querés hacer; quizá usando la función IGUAL y alguna otra pueda resolverse sin macros...

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar