MacroFacili: Colonne in maiuscolo

Un esempio di come sia possibile utilizzre l'evento Change dell'oggetto Worksheet per compiere delle azioni sulle celle modificate, in questo caso per convertirle in maiuscolo.

Due cose particolari in questo tipo di macro con gli eventi sulle celle:

il parametro Target deve essere considerato come un range e non come singola cella, quindi useremo un ciclo come for Each per analizzare tutte le celle;
deve essere testato se la cella contiene una formula per evitare di convertire il valore della cella e perdere la formula, sarebbe come fare un copia-incolla solo valori;

Private Sub Worksheet_Change(ByVal Target As Range)
  'indica su quali colonne avrà effetto il cambiamento
  Colonne = "C,D,E"

  For Each Cella In Target
    'solo per le celle che non contengono formule
    If Not (Cella.HasFormula) Then
      'trova la colonna dall'indirizzo
      Indirizzo = Cella.Address
      Colonna = Mid(Indirizzo, 2, InStr(2, Indirizzo, "$") - 2)
      'se è compreso nelle colonne impostate
      If (InStr(Colonne, Colonna) > 0) Then
        'azione sul contenuto
        Cella.Value = UCase(Cella.Value)
      End If
    End If
  Next
End Sub

L'esempio completo é scaricabile da questo link: Es458.xlsm (a questo link le info per attivare le macro se risultano bloccate)

Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.

Per dubbi o domande potete scriverci a domande@macrofacili.it, sulla nostra pagina FB MacroFacili.it o sul gruppo FB Excel, macro e formule.