Trasforma in "tutto maiuscolo"

Anonimo
2017-01-24T09:42:48+00:00

Salve,

vorrei sapere se è possibile evidenziando un'intera colonna, e toccando qualche tasto, è possibile fare in modo che quello che è già scritto, si possa farlo diventare tutto maiuscolo.

Mi spiego meglio:

Ho un File Excel già scritto su più colonne e oltre mille righe, ma mi piacerebbe che una colonna quello che vi è scritto attualmente, fosse scritto tutto in maiuscolo, c'è la possibilità che evidenziando l'intera colonna, possa far diventare tutto maiuscolo, senza dover riscrivere tutto quanto?

.....visto che è un documento a cui sto lavorando dall'inizio dell'anno?

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2017-01-24T10:56:01+00:00

Ciao Cristina,

vorrei sapere se è possibile evidenziando un'intera colonna, e toccando qualche tasto, è possibile fare in modo che quello che è già scritto, si possa farlo diventare tutto maiuscolo.

Mi spiego meglio:

Ho un File Excel già scritto su più colonne e oltre mille righe, ma mi piacerebbe che una colonna quello che vi è scritto attualmente, fosse scritto tutto in maiuscolo, c'è la possibilità che evidenziando l'intera colonna, possa far diventare tutto maiuscolo, senza dover riscrivere tutto quanto?

.....visto che è un documento a cui sto lavorando dall'inizio dell'anno?

  • Alt+F11 per aprire l'editor di VBA
  • Alt+IMper inserire un nuovo modulo di codice
  • Nel nuovo modulo vuoto, incolla il seguente codice:

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

Option Explicit

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

Public Sub Tester()

    Dim SH As Worksheet

    Dim Rng As Range, rCell As Range

    Set SH = ActiveSheet

    On Error Resume Next

    Set Rng = ActiveCell.EntireColumn.SpecialCells(xlCellTypeConstants)

    On Error GoTo XIT

    Application.ScreenUpdating = False

    For Each rCell In Rng.Cells

        With rCell

            .Value = StrConv(.Value, vbUpperCase)

        End With

    Next rCell

XIT:

    Application.ScreenUpdating = True

End Sub

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

  • Alt+Q per chiudere l'editor di VBA e tornare a Excel
  • Salva il file con l’estensione xlsm
  • Alt+F8 per aprire  la finestra di gestione delle macro
  • Seleziona Tester | Esegui

Potresti scaricare il mio file di prova Cristina20170124.xlsm a:

https://www.dropbox.com/s/r0xe50byn3an7li/Cristina20170124.xlsm?dl=0

Se preferiresti una soluzione non-VBA, prova quanto segue:

  • Inserisce  una colonna di appoggio
  • Nella prima riga della colonna di appoggio, immetti la formula:

= MAIUSC (A1)(dove la colonna A è la colonna di interesse)

  • Copia la formula verso il basso quanto necessario
  • Copia la colonna di appoggio
  • Seleziona la colonna A
  • Incolla Speciale | Valori
  • Cancella la colonna di appoggio

===

Regards,

Norman

La risposta è stata utile?

2 persone hanno trovato utile questa risposta.
0 commenti Nessun commento

3 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2017-01-24T12:36:53+00:00

    Salve Norman,

    risposta contrassegnata!

    Di nuovo grazie per l'aiuto!! Fortunatamente esistono persone che aiutano chi, come me, capisce poco di PC...

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2017-01-24T12:30:05+00:00

    Ciao Cristina,

    Grazie mille Norman!

    Ho usato la soluzione più semplice (la seconda che hai citato!) ed è andato tutto a buon fine!!

    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

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2017-01-24T12:28:26+00:00

    Grazie mille Norman!

    Ho usato la soluzione più semplice (la seconda che hai citato!) ed è andato tutto a buon fine!!

    La risposta è stata utile?

    0 commenti Nessun commento