macro per maiuscole/minuscole

Question

Ciao a tutti!

ho bisogno di aiuto per creare una macro che riconosca le celle scritte in maiuscolo e minuscolo,

mi spiego: ho una colonna dove ci sono scritte delle cose, alcune sono tutte maiuscole, altre minuscole e altre un po' e un po'. A prescindere da quello che c'è scritto io avrei bisogno che nella colonna a fianco la macro mi segnalasse le tre casistiche, tipo MAIUSCOLO, minuscolo ed Entrambi.

è possibile?

grazie

Marco

Answer 1

Ciao Marco,

ho bisogno di aiuto per creare una macro che riconosca le celle scritte in maiuscolo e minuscolo,

mi spiego: ho una colonna dove ci sono scritte delle cose, alcune sono tutte maiuscole, altre minuscole e altre un po' e un po'. A prescindere da quello che c'è scritto io avrei bisogno che nella colonna a fianco la macro mi segnalasse le tre casistiche, tipo MAIUSCOLO, minuscolo ed Entrambi.

In un modulo standard, prova la segente UDF (funzione utente):

'--------->>

Public Function MaiscMinusc(r)

    If Not Application.WorksheetFunction.IsText(r) Then

        MaiscMinusc = CVErr(xlErrNA)

        Exit Function

    End If

    Select Case r

    Case StrConv(r, vbUpperCase)

        MaiscMinusc = "Maiusculo"

    Case StrConv(r, vbLowerCase)

        MaiscMinusc = "Minuscolo"

    Case Else

        MaiscMinusc = "Entrambi"

    End Select

End Function

'<<=========

Questa funzione potrebbe essere utilizzata come una funzione nativa di Excel:

Si potrebbe anche utilizzare la funzione con VBA; ad esempio:

'=========>>

Public Sub Tester()

    Dim Rng As Range

    Dim Res As Variant

    Const sCaseUpper As String = "Maiusculo"

    Set Rng = ActiveSheet.Range("C1")

    Res = MaiscMinusc(Rng.Value)

    If Res = sCaseUpper Then

        ' \  Fai qualcosa , ad esempio:

        Call MsgBox( _

             Prompt:=sCaseUpper, _

             Buttons:=vbInformation, _

             Title:="REPORT")

    End If

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Ciao Marco,

Fantastico Grazie!

problema risolto

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Per chiudere questo thread, vorrei chiederti gentilmente di contrassegnare la mia risposta come Risposta preferita. In questo modo, tu aiuterai anche coloro che potessero cercare soluzioni ai problemi simili negli archivi della Community.

   

===

Regards,

Norman

Answer 3

Fantastico Grazie!

problema risolto