Vai al contenuto principale

Come visualizzare una finestra di messaggio se il valore della cella è uguale a "X" in Excel?

Autore: Silvia Ultima modifica: 2020-07-09

L'apertura di una finestra di messaggio aiuta molto durante la ricerca di determinati contenuti nell'intervallo specificato. Ad esempio, stai trovando il valore della cella che è uguale a 50 in un intervallo A1: C7 e hai bisogno di una finestra di messaggio che si apre per dirti se il valore della cella esiste o meno. I seguenti due metodi possono aiutarti.

Finestra di messaggio pop-up se il valore della cella è uguale a "X" con codice VBA
Visualizza facilmente la finestra di messaggio se il valore della cella è uguale a "X" con Kutools per Excel


Finestra di messaggio pop-up se il valore della cella è uguale a "X" con codice VBA

Il seguente codice VBA può aiutare a creare una finestra di messaggio pop-up quando il determinato valore esiste nell'intervallo specificato. Si prega di fare quanto segue.

1. Nel foglio di lavoro è necessario controllare i valori nell'intervallo specificato, fare clic con il pulsante destro del mouse sul nome della scheda nella barra delle schede del foglio, quindi fare clic su Visualizza codice dal menu di scelta rapida. Vedi screenshot:

casella di messaggio doc se il valore della cella 1

2. Nel Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice VBA nella finestra del codice.

Codice VBA: finestra di messaggio pop-up se il valore della cella è uguale a "X"

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. Stampa altro + Q contemporaneamente i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra e torna al foglio di lavoro.

D'ora in poi, quando i valori delle celle vengono modificati nell'intervallo A1: C7 e il valore della cella è uguale a "50", verrà visualizzata una finestra di messaggio come mostrato nell'immagine sottostante.

Inoltre, puoi semplicemente selezionare l'intervallo per far apparire la finestra del messaggio se il valore della cella esiste.

casella di messaggio doc se il valore della cella 1

Note:

1. Se il valore della cella non soddisfa i criteri, la finestra di messaggio non verrà visualizzata.
2. Nel codice sopra, è possibile modificare il riferimento e il valore della cella in base alle proprie necessità.
3. Può visualizzare solo un riferimento di cella corrispondente quando sono presenti più risultati.

Finestra di messaggio pop-up se il valore della cella è uguale a "X" con Kutools per Excel

Il Seleziona celle specifiche utilità di Kutools for Excel può anche aiutarti a risolvere questo problema. Si prega di fare quanto segue.

Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.

1. Selezionare l'intervallo in cui si desidera trovare se il valore della cella esiste, quindi fare clic su Kutools > Seleziona > Seleziona celle specifiche

2. Nel Seleziona celle specifiche finestra di dialogo, selezionare il Cella opzione nel Tipo di selezione sezione, quindi selezionare Equivale nel primo Tipo specifico elenco a discesa e digitare il valore della cella nella casella di testo successiva, quindi fare clic su OK pulsante.

casella di messaggio doc se il valore della cella 1

Se il valore della cella esiste nell'intervallo specificato, verrà visualizzata la seguente finestra di messaggio, fare clic su OK pulsante, la cella verrà selezionata.

casella di messaggio doc se il valore della cella 1

Altrimenti, riceverai la finestra di messaggio come mostrato nell'immagine sottostante.

casella di messaggio doc se il valore della cella 1

  Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.


Visualizza facilmente la finestra di messaggio se il valore della cella è uguale a "X" con Kutools per Excel


Articoli correlati:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
Hi Rajesh,
The below code can help you solve the problem, please have a try. Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)

'Update: 2020/8/21

Dim xCell As Range, Rg As Range

On Error Resume Next

Set Rg = Application.Intersect(Target, Range("A1:C7"))

If Not Rg Is Nothing Then

For Each xCell In Rg

If xCell.Value = "50" Or xCell.Value = "100" Then

MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"

Exit Sub

End If

Next

End If

End Sub
This comment was minimized by the moderator on the site
Hi Crystal, Both conditions are working . Thank you so much ThanksRajesh
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
I also tried duplicating this code, and changing to a different range where my data is repeated, but it appears the "Worksheet - Change" function can only be used once. Is this true?
This comment was minimized by the moderator on the site
This script works fine when the cell was enter manually. But when I try to copy the whole line from the other line and paste it to the new line, the pop up window will still come up even the cell on the new line didn't contain the key word. Any way to get rid of it? Please advice. Thanks
This comment was minimized by the moderator on the site
Dear TANGO, Thank you for your comment! We have updated the VBA script to get rid of the problem you mentioned above. Hope the new code can ease your work. If you have any problem, please do hesitate to contact us! Thanks again for your comment!
This comment was minimized by the moderator on the site
please need your help give me your email address Linda mine is
This comment was minimized by the moderator on the site
Hi,
Sorry for replying so late. Please contact me at .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations