Come visualizzare un messaggio di avviso quando una cella è maggiore o minore di un valore specifico in Excel?

Se una cella è maggiore o minore di un’altra, come faccio a visualizzare un messaggio di avviso in Excel? In questo articolo ti mostrerò alcuni codici efficaci per gestire questa situazione.

Visualizza una finestra di messaggio se il valore di una cella in una colonna è maggiore o minore di un’altra cella

Visualizza una finestra di messaggio se il valore di una cella è maggiore o minore di un’altra cella

---

Visualizza una finestra di messaggio se il valore di una cella in una colonna è maggiore o minore di un’altra cella

Supponiamo che la cella A1 contenga il numero specifico 100. Ogni volta che nella colonna D viene inserito un valore superiore a 100 (ovvero al valore presente in A1), deve apparire una finestra di messaggio per avvisare l’utente.

Il seguente codice VBA ti permetterà di ottenere questo risultato. Segui questi passaggi:

1. Vai al foglio di lavoro che desideri utilizzare.

2. Fai clic con il tasto destro sulla scheda del foglio e seleziona Visualizza codice dal menu contestuale. Nella finestra di Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice nella finestra del modulo vuota, come mostrato nello screenshot:

Codice VBA: visualizza una finestra di messaggio se il valore di una cella in una colonna è maggiore o minore di un’altra cella

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

Nota: nel codice sopra riportato, Foglio1 è il foglio di lavoro che desideri utilizzare; A1 è il valore della cella con cui effettuare il confronto; D:D è la colonna da confrontare con la cella A1.

3. Quindi, salva e chiudi la finestra del codice. Da questo momento, ogni volta che inserirai nella colonna D un numero maggiore di 100, verrà visualizzata una finestra di messaggio, come mostrato nello screenshot:

---

---

Visualizza una finestra di messaggio se il valore di una cella è maggiore o minore di un’altra cella

Se desideri che venga visualizzata una finestra di messaggio quando il valore di una cella è maggiore o minore di un’altra cella, applica il seguente codice:

1. Vai al foglio di lavoro che desideri utilizzare.

2. Fai clic con il tasto destro sulla scheda del foglio e seleziona Visualizza codicedal menu contestuale. Nella finestra di Microsoft Visual Basic for Applicationsvisualizzata, copia e incolla il seguente codice nella finestra del modulo vuota, come mostrato nello screenshot:

Codice VBA: visualizza una finestra di messaggio se il valore di una cella è maggiore o minore di un’altra cella

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Nota: nel codice riportato sopra, A1 e D1 sono le due celle da confrontare.

3. Salva e chiudi la finestra del codice. Quando inserirai un valore inferiore a quello presente nella cella A1, verrà visualizzata una finestra di messaggio come mostrato nello screenshot seguente:

---

Altri articoli correlati sulle finestre di messaggio popup: