In questo articolo, utilizzeremo l’evento di modifica dei fogli di lavoro per visualizzare un messaggio di avviso quando il totale della colonna supera il valore totale.

I dati grezzi consistono nella composizione del sale di un medicinale. Comprende il nome del sale e pesa per 10 grammi.

ArrowRaw

Il totale di tutti gli ingredienti del sale è pari a 10 grammi. Quando modifichiamo il peso del sale di etano da 0,75 a 1, verrà visualizzato un messaggio di avviso.

ArrowOutput

Spiegazione logica

In questo articolo, abbiamo utilizzato l’evento di modifica del foglio di lavoro per generare un messaggio di avviso. L’evento di modifica controlla il totale della 2 ^ nd ^ colonna, che non deve superare 10.

Spiegazione del codice

Se Target.Column = 2 Then Il codice precedente viene utilizzato per limitare l’attivazione dell’evento di modifica solo quando viene modificato il valore nella 2 ^ nd ^ colonna.

WorksheetFunction.Sum (Columns (2))

Il codice sopra viene utilizzato per ottenere la somma di tutti i valori nella colonna 2.

Segui sotto per il codice

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'Checking whether value is changed in second column

If Target.Column = 2 Then



'Checking whether sum of values in second column is greater than 10

If WorksheetFunction.Sum(Columns(2)) > 10 Then

MsgBox "Caution, Total has exceeded 10g"

End If

End If

End Sub

Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.

Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]