Puoi usare a Controllo ModRif in Excel VBA per ottenere un intervallo da un utente. Il Modulo utente creeremo colori il valore minimo di gamma memorizzato nel controllo ModRif.
Per creare questo modulo utente, eseguire i seguenti passaggi.
1. Aprire l'editor di Visual Basic. Se l'Esplora progetti non è visibile, fare clic su Visualizza, Esplora progetti.
2. Fare clic su Inserisci, Modulo utente. Se la Casella degli strumenti non viene visualizzata automaticamente, fare clic su Visualizza, Casella degli strumenti. Lo schermo dovrebbe essere impostato come di seguito.
3. Aggiungere l'etichetta, il controllo ModRif ei pulsanti di comando. Una volta che questo è stato completato, il risultato dovrebbe essere coerente con l'immagine del modulo utente mostrato in precedenza. Ad esempio, creare un controllo ModRif facendo clic su ModificaRif dalla Casella degli strumenti. Successivamente, puoi trascinare un controllo ModRif sul form utente.
Nota: se la casella degli strumenti non dispone di un controllo ModRif, impostare un riferimento al controllo ModRif. Fare clic su Strumenti, Riferimenti e selezionare Controllo modifica rif.
4. È possibile modificare i nomi e le didascalie dei controlli. I nomi vengono utilizzati nel codice VBA di Excel. Le didascalie sono quelle che appaiono sullo schermo. È buona norma cambiare i nomi dei controlli, ma non è necessario qui perché in questo esempio abbiamo solo pochi controlli. Per modificare la didascalia dei pulsanti Userform, etichetta e comando, fare clic su Visualizza, Finestra Proprietà e fare clic su ciascun controllo.
5. Per mostrare il form utente, posiziona un pulsante di comando sul foglio di lavoro e aggiungi la seguente riga di codice:
Sub CommandButton1_Click privato ()
UserForm1.Show
Fine sottotitolo
Ora creeremo il Sub UserForm_Initialize. Quando si utilizza il metodo Show per il form utente, questo sottotitolo verrà eseguito automaticamente.
6. Aprire l'editor di Visual Basic.
7. In Esplora progetti, fare clic con il pulsante destro del mouse su UserForm1 e quindi fare clic su Visualizza codice.
8. Scegliere Modulo utente dall'elenco a discesa a sinistra. Scegli Inizializza dall'elenco a discesa a destra.
9. Aggiungi le seguenti righe di codice:
Private Sub UserForm_Initialize()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selezione.Indirizzo
Fine sottotitolo
Spiegazione: la prima riga di codice cambia il colore del carattere di tutte le celle sul foglio1 in nero. La seconda riga di codice ottiene l'indirizzo della selezione corrente e lo visualizza nel controllo ModRif.
Ora abbiamo creato la prima parte dell'Userform. Sebbene sembri già pulito, non accadrà ancora nulla quando faremo clic sui pulsanti di comando sul form utente.
10. Nell'Esplora progetti, fare doppio clic su UserForm1.
11. Fare doppio clic sul pulsante Vai.
12. Aggiungi le seguenti righe di codice:
Sub CommandButton1_Click privato ()
Dim addr As String, rng, cell As Range, minimo As Double
addr = ModRif1.Valore
Imposta rng = Intervallo (addr)
minimo = WorksheetFunction.Min(rng)
Per ogni cella In rng
Se cell.Value = minimo Allora cell.Font.Color = vbRed
Cella successiva
Fine sottotitolo
Spiegazione: per prima cosa, otteniamo l'indirizzo dal controllo RefEdit e lo memorizziamo nella variabile String addr. Successivamente, impostiamo rng sull'intervallo specificato nel controllo RefEdit. Successivamente, usiamo la funzione del foglio di lavoro Min per trovare il valore minimo nell'intervallo. Infine, coloriamo il/i valore/i minimo/i usando un ciclo.
13. Fare doppio clic sul pulsante Annulla.
14. Aggiungi la seguente riga di codice:
Sottocomando privato CommandButton2_Click()
Scaricami
Fine sottotitolo
Spiegazione: questa riga di codice chiude il modulo utente quando si fa clic sul pulsante Annulla.
15. Testare il form utente.
Risultato:
