Hvordan dukker op meddelelsesboks, hvis celle er større eller mindre end en bestemt værdi i Excel?

Hvis en celle er større eller mindre end en anden celle, skal jeg åbne en meddelelsesboks for at advare i Excel. Hvordan løses dette problem i Excel? Denne artikel vil jeg tale om nogle koder til håndtering af det.

Pop op et meddelelsesfelt, hvis celleværdien i en kolonne er større eller mindre end en anden celle

Pop et meddelelsesfelt op, hvis celleværdien i en celle er større eller mindre end en anden celle

Pop op et meddelelsesfelt, hvis celleværdien i en kolonne er større eller mindre end en anden celle

Antag, jeg har et specifikt nummer 100 i celle A1, nu når antallet indtastet i kolonne D er større end 100 i celle A1, skal der vises en meddelelsesboks for at minde brugeren.

Her kan nedenstående VBA-kode hjælpe dig med at afslutte den. Benyt følgende trin:

1. Gå til det regneark, du vil bruge.

2. Højreklik på arkfanen, og vælg Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modulvindue, se skærmbillede:

VBA-kode: pop op et meddelelsesfelt, hvis celleværdien i en kolonne er større eller mindre end en celle

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

Bemærk: I ovenstående kode, Sheet1 er dit regneark, som du vil bruge A1 er den celleværdi, du vil sammenligne med; D: D er den kolonne, du vil sammenligne med celle A1.

3. Gem derefter og luk kodevinduet, fra nu af vises en meddelelsesboks, hvis du indtaster et tal i kolonne D, der er større end 100, se skærmbillede:

Pop et meddelelsesfelt op, hvis celleværdien i en celle er større eller mindre end en anden celle

Hvis du vil have vist et meddelelsesfelt, når en celleværdi er større eller mindre end en anden celle, skal du anvende nedenstående kode:

1. Gå til det regneark, du vil bruge.

2. Højreklik på arkfanen, og vælg Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modulvindue, se skærmbillede:

VBA-kode: pop op et meddelelsesfelt, hvis celleværdien er større eller mindre end en celle

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

Bemærk: I ovenstående kode, A1 , D1 er de to celler, som du vil sammenligne med.

3. Gem derefter og luk kodevinduet, når du indtaster en værdi, der er mindre end værdien i celle A1, vises en meddelelsesboks som vist nedenstående skærmbillede:

Flere relative pop op-meddelelsesboks artikler:

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner og opbevaring af data; Split celler indhold; Kombiner duplikatrækker og sum / gennemsnit... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Foretrukne og hurtigt indsætte formler, Områder, diagrammer og billeder; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Pivottabelgruppering efter ugenummer, ugedag og mere ... Vis ulåste, låste celler ved forskellige farver; Fremhæv celler, der har formel / navn...

Læs mere ... Alle funktioner 30-dages gratis prøveperiode... Køb... 

---

Office-fanen - bringer fanebladet til Office og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Alle funktioner 30-dages gratis prøveperiode... Køb...