Cum să pop-up caseta de mesaj dacă celula mai mare sau mai mică decât o anumită valoare în Excel?
Dacă o celulă este mai mare sau mai mică decât o altă celulă, trebuie să afișez o casetă de mesaj pentru a alerta în Excel. Cum se rezolvă această problemă în Excel? În acest articol, voi vorbi despre câteva coduri pentru tratarea acestuia.
Pop-up o casetă de mesaj dacă valoarea celulei dintr-o coloană este mai mare sau mai mică decât o altă celulă
Presupunând că am un număr specific 100 în celula A1, acum, când numărul introdus în coloana D este mai mare de 100 în celula A1, ar trebui să apară o casetă de mesaj pentru a reaminti utilizatorului.
Aici, codul VBA de mai jos vă poate ajuta să îl finalizați, vă rugăm să parcurgeți pașii următori:
1. Accesați foaia de lucru pe care doriți să o utilizați.
2. Faceți clic dreapta pe fila foaie și selectați Afișați codul din meniul contextual, în fereastra pop-out Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în fereastra goală a modulului, vedeți captura de ecran:
Cod VBA: pop-up o casetă de mesaj dacă valoarea celulei dintr-o coloană este mai mare sau mai mică decât o celulă
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
notițe: În codul de mai sus, Sheet1 este foaia dvs. de lucru pe care doriți să o utilizați; A1 este valoarea celulei cu care doriți să comparați; D: D este coloana pe care doriți să o comparați cu celula A1.
3. Apoi, salvați și închideți fereastra de cod, de acum înainte, va apărea o casetă de mesaj dacă introduceți un număr în coloana D care este mai mare de 100, consultați captura de ecran:
Pop-up o casetă de mesaj dacă valoarea celulei într-o celulă este mai mare sau mai mică decât o altă celulă
Dacă doriți să apară o casetă de mesaj atunci când o valoare a celulei este mai mare sau mai mică decât o altă celulă, vă rugăm să aplicați codul de mai jos:
1. Accesați foaia de lucru pe care doriți să o utilizați.
2. Faceți clic dreapta pe fila foaie și selectați Afișați codul din meniul contextual, în fereastra pop-out Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în fereastra goală a modulului, vedeți captura de ecran:
Cod VBA: pop-up o casetă de mesaj dacă valoarea celulei este mai mare sau mai mică decât o celulă
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
notițe: În codul de mai sus, A1 și D1 sunt cele două celule cu care doriți să comparați.
3. Apoi, salvați și închideți fereastra de cod, atunci când introduceți o valoare care este mai mică decât valoarea din celula A1, va apărea o casetă de mesaj așa cum este prezentat mai jos:
Mai multe articole relative în caseta de mesaj pop-up relativă:
- Creați casetă de mesaje pop-up când deschideți un fișier Excel
- În anumite cazuri, este posibil să doriți ca o casetă de mesaj să apară mereu pentru a vă reaminti ce trebuie să faceți mai întâi când deschideți un registru de lucru specific, acest lucru vă poate ajuta să vă amintiți să faceți cel mai important lucru în munca dvs. de zi cu zi. Și acest articol, voi vorbi despre cum să creați o casetă de mesaje pop-up când deschideți un fișier Excel.
- Casetă de mesaje pop-up dacă valoarea celulei se modifică într-un interval din Excel
- Uneori trebuie să vă reamintiți modificările dintr-un interval dintr-o anumită foaie de lucru. Deci, o casetă de mesaje pop-up vă va face o favoare dacă valoarea celulei sa schimbat într-un anumit interval. Puteți realiza acest lucru cu o metodă VBA în acest articol.
- Caseta de mesaje pop-up când faceți clic pe o anumită celulă din Excel
- Acest articol își propune să vă arate metoda de afișare a casetei de mesaj atunci când faceți clic pe o anumită celulă din Excel.
- Creați o casetă de mesaje Da Nu înainte de a rula o macro în Excel
- În Excel, puteți declanșa direct o macro apăsând tasta F5 sau făcând clic pe butonul Executare din fereastra Microsoft Visual Basic pentru aplicații. Dar, uneori, poate doriți să creați o casetă de mesaje care să întrebe utilizatorul dacă dorește să ruleze macro-ul. Dacă da, continuați să rulați codul, dacă nu, nu mai rulați codul. În acest articol, voi vorbi despre cum să creați o casetă de mesaj nu, înainte de a rula o macro în Excel.
- Creați un cronometru casetă de mesaje pentru a închide automat caseta de mesaje după o anumită perioadă de timp
- Puteți utiliza scriptul VBA frecvent pentru a rezolva probleme în timp ce utilizați registrul de lucru Excel. Și vor apărea casete de mesaje în timpul rulării scriptului. În unele cazuri, doriți ca unele casete de mesaje specificate să fie închise automat după un anumit timp, mai degrabă decât să le închideți manual. În acest articol, vă vom arăta metoda de creare a unui temporizator de casetă de mesaje pentru a închide automat caseta de mesaje după un anumit timp în Excel.
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane și păstrarea datelor; Conținut de celule divizate; Combinați rânduri duplicate și sumă / medie... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Formule favorite și inserare rapidă, Gama, Diagrame și Imagini; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Gruparea tabelului pivot după numărul săptămânii, ziua săptămânii și multe altele ... Afișați celulele deblocate, blocate prin diferite culori; Evidențiați celulele care au formulă / nume...
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!