Problema da Risolvere: Creare una macro VBA che filtra automaticamente un elenco di dati in un foglio di lavoro basandosi su un valore specificato dall’utente.

Codice Commentato:

vbaCopy codeSub FiltraDati()
    ' Questa macro filtra un elenco di dati in base a un criterio specificato dall'utente.

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Dati") ' Imposta il foglio di lavoro contenente i dati

    Dim colonnaFiltro As String
    colonnaFiltro = "B" ' Imposta la colonna da filtrare (ad esempio, B)

    Dim criterio As String
    criterio = InputBox("Inserisci il criterio di filtro:", "Filtro Dati") ' Chiede all'utente il criterio di filtro

    ' Applica il filtro
    With ws
        .AutoFilterMode = False ' Disattiva eventuali filtri esistenti
        .Range("A1:C100").AutoFilter Field:=2, Criteria1:=criterio ' Modifica il range e il campo in base ai tuoi dati
    End With
End Sub

Istruzioni:

  1. Assicurati di avere un foglio di lavoro chiamato “Dati” con alcuni dati in esso. Ad esempio, potresti avere una tabella con intestazioni in A1:C1 e dati nelle righe sottostanti.
  2. Segui i passaggi 2-5 dell’esempio di livello 1 per inserire e eseguire questa macro.
  3. Quando esegui la macro, ti verrà chiesto di inserire un criterio di filtro. Inserisci il valore desiderato.
  4. I dati nel foglio “Dati” verranno filtrati in base al criterio inserito.

Questo esempio introduce concetti più avanzati come l’interazione con l’utente tramite InputBox, la manipolazione di filtri in un range di celle, e la gestione dinamica di questi filtri basandosi sull’input dell’utente. È adatto per chi ha già una certa familiarità con le basi di VBA.

Leave A Comment

Recommended Posts

Il Bitcoin è uno schema Ponzi?

In questo articolo, esaminiamo come funziona il Bitcoin, lo paragoniamo a quello che si sa degli schemi Ponzi e proviamo a rispondere a questa domanda.

Sei Libri Essenziali per Amanti della Fisica

Oggi, vi porto in un viaggio attraverso sei opere che non solo spiegano la fisica, ma la rendono vivace e affascinante. Questi libri non sono soltanto testi, ma finestre aperte sulle meraviglie dell’universo, scritti da alcune delle più brillanti menti del nostro tempo.