Mostrar el mensaje si la columna total supera con VBA en Microsoft Excel
En este artículo, utilizaremos el evento de cambio de las hojas de trabajo para mostrar un mensaje de advertencia cuando el total de la columna exceda el valor total.
Los datos brutos consisten en la composición de sal de un medicamento. Se compone del nombre de la sal y su peso por 10 gramos.
El total de todos los ingredientes de la sal es igual a 10 gramos. Cuando cambiamos el peso de la sal de etano de 0,75 a 1, aparecerá un mensaje de advertencia.
Explicación lógica
En este artículo, hemos utilizado el evento de cambio de la hoja de trabajo para generar un mensaje de advertencia. El evento de cambio comprueba el total de la 2 ^ nd ^ columna, que no debe exceder de 10.
Explicación del código
Si Target.Column = 2 Then El código anterior se usa para restringir el evento de cambio para que se active solo cuando se cambia el valor en la segunda columna.
WorksheetFunction.Sum (Columns (2))
El código anterior se usa para obtener la suma de todos los valores en la columna 2.
Siga a continuación el código
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
Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]