Ciao. Ho un file excel contenente dati vari, alcuni scritti in maiuscolo e altri in minuscolo. Esiste una scorciatoia x fare in modo che tutto diventi o maiuscolo o minuscolo ?
Grazie e ciao
Moderatori: Anthony47, Flash30005
Sub smaiusc()
For Each cell In ActiveSheet.UsedRange
'If IsText("AA") Then BB = "Pio"
If Val(cell.Value) <> 0 Then GoTo Skip
cell.Value = Application.WorksheetFunction.Proper(cell.Value)
Skip:
Next
End Sub
funziona a meraviglia
Sub smaiusc()
For Each Cell In ActiveSheet.UsedRange
If Application.WorksheetFunction.IsText(Cell.Value) Then
Cell.Value = Application.WorksheetFunction.Proper(Cell.Value) '<<<Minuscolo
End If
Next
End Sub
cell.Value = LCase(cell.Value) '<<<minuscolo
cell.Value = UCase(cell.Value) '<<<MAIUSCOLO
Sub smaiusc()
For Each Cell In ActiveSheet.UsedRange
If (Application.WorksheetFunction.IsNonText(Cell.Value) + Cell.HasFormula) Then GoTo Skippa
Cell.Value = Application.WorksheetFunction.Proper(Cell.Value) '<<<Minuscolo
Skippa:
Next
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 29 ospiti