IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Excel
  New Posts New Posts RSS Feed - Modifica stringa testo maiuscole minuscole
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

Modifica stringa testo maiuscole minuscole

 Post Reply Post Reply
Author
Message
davide78ex View Drop Down
Veterano
Veterano


Joined: 23/Mar/2008
Location: Italy
Status: Offline
Points: 1933
Post Options Post Options   Thanks (0) Thanks(0)   Quote davide78ex Quote  Post ReplyReply Direct Link To This Post Topic: Modifica stringa testo maiuscole minuscole
    Posted: 13/Dic/2018 at 22:26
Salve, con le funzioni Ucase e Lcase possibile tramite VBA cambiare le lettere di una stringa da maiuscole a minuscole e viceversa ecc. ma queste due funzioni si applicano indistintamente a tutte le lettere cio si pu cambiare 
"questo un esempio" in "QUESTO E' UN ESEMPIO" , ma possibile passare da
"hO SBAGLIATO a scrivere" in "Ho sbagliato A SCRIVERE?
Saluti

ci f, sbaia!
Back to Top
Sponsored Links


Back to Top
Marius44 View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 02/Gen/2017
Location: Catania
Status: Offline
Points: 475
Post Options Post Options   Thanks (0) Thanks(0)   Quote Marius44 Quote  Post ReplyReply Direct Link To This Post Posted: 13/Dic/2018 at 22:35
Ciao
Penso si possa fare utilizzando, sempre in VBA, la funzione Instr scandagliando lettera per lettera cambiandola maiuscola in minuscola o viceversa.

Questo dovrebbe andar bene in teoria, ma non ci provo neppure a mettere in atto quanto detto.
Ciao,
Mario
Back to Top
davide78ex View Drop Down
Veterano
Veterano


Joined: 23/Mar/2008
Location: Italy
Status: Offline
Points: 1933
Post Options Post Options   Thanks (0) Thanks(0)   Quote davide78ex Quote  Post ReplyReply Direct Link To This Post Posted: 17/Dic/2018 at 20:52
Bene grazie, almeno so che non una soluzione a portata di mano, prover a capire meglio, ciao
ci f, sbaia!
Back to Top
Marius44 View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 02/Gen/2017
Location: Catania
Status: Offline
Points: 475
Post Options Post Options   Thanks (0) Thanks(0)   Quote Marius44 Quote  Post ReplyReply Direct Link To This Post Posted: 17/Dic/2018 at 21:14
Ciao
In modo banalissimo si pu fare con questa macro (la frase in A1)
Option Explicit

Sub Cambia()
Dim frase As String, parola() As String, frs As String
Dim i As Long, j As Long, a As Integer
frase = Cells(1, 1).Value
parola = Split(frase)
For i = 0 To UBound(parola)
  For j = 1 To Len(parola(i))
    a = Asc(Mid(parola(i), j, 1))
    If a >= 65 And a <= 90 Then
      frs = frs & Chr(a + 32)
    Else
      frs = frs & Chr(a - 32)
    End If
  Next j
  frs = frs & " "
Next i
Cells(2, 1) = frs
End Sub

 

Ciao,
Mario


Edited by Marius44 - 17/Dic/2018 at 21:15
Back to Top
davide78ex View Drop Down
Veterano
Veterano


Joined: 23/Mar/2008
Location: Italy
Status: Offline
Points: 1933
Post Options Post Options   Thanks (0) Thanks(0)   Quote davide78ex Quote  Post ReplyReply Direct Link To This Post Posted: 18/Dic/2018 at 22:05
Beh grazie! sar anche un sistema banalissimo ma funziona!
Considerando quanto avevi scritto sono contento che ci hai ripensato!
Grazie di nuovo!
ci f, sbaia!
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,078 seconds.