Kako se odpre okno s sporočilom, če je celica večja ali manjša od določene vrednosti v Excelu?
Če je celica večja ali manjša od druge celice, moram v Excelu prikazati okno s sporočilom. Kako rešiti to težavo v Excelu? V tem članku bom govoril o nekaterih kodeksih za reševanje tega vprašanja.
Pojavi se okno s sporočilom, če je vrednost celice v stolpcu večja ali manjša od druge celice
Pojavi se okno s sporočilom, če je vrednost celice v celici večja ali manjša od druge celice
Pojavi se okno s sporočilom, če je vrednost celice v stolpcu večja ali manjša od druge celice
Recimo, da imam določeno številko 100 v celici A1, zdaj, ko je številka, vnesena v stolpec D, večja od 100 v celici A1, bi se moralo pojaviti okno s sporočilom, ki bi uporabnika opomnilo.
Tu vam lahko spodnjo kodo VBA pomagate dokončati, naredite naslednje:
1. Pojdite na delovni list, ki ga želite uporabiti.
2. Z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz kontekstnega menija v izpuščenem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno okno modula, glejte posnetek zaslona:
Koda VBA: prikaže se okno s sporočilom, če je vrednost celice v stolpcu večja ali manjša od celice
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
Opombe: V zgornji kodi, Sheet1 je vaš delovni list, ki ga želite uporabiti; A1 je vrednost celice, s katero želite primerjati; D: D je stolpec, ki ga želite primerjati s celico A1.
 |
 |
 |
3. Nato shranite in zaprite okno s kodo, odslej se bo pojavilo sporočilo, če v stolpec D vnesete številko, ki je večja od 100, glejte posnetek zaslona:
Pojavi se okno s sporočilom, če je vrednost celice v celici večja ali manjša od druge celice
Če želite, da se prikaže sporočilo, ko je vrednost celice večja ali manjša od druge celice, uporabite spodnjo kodo:
1. Pojdite na delovni list, ki ga želite uporabiti.
2. Z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz kontekstnega menija v izpuščenem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno okno modula, glejte posnetek zaslona:
Koda VBA: prikaže se okno s sporočilom, če je vrednost celice večja ali manjša od celice
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
Opombe: V zgornji kodi, A1 in D1 sta dve celici, s katerimi se želite primerjati.
3. Nato shranite in zaprite okno kode. Ko vnesete vrednost, ki je manjša od vrednosti v celici A1, se prikaže sporočilo, kot je prikazano spodaj:
Bolj relativni članki s pojavnimi okni:
- Ustvari pojavno okno s sporočilom pri odpiranju Excelove datoteke
- V nekaterih primerih boste morda želeli, da se vedno odpre okno s sporočilom, ki vas bo opozorilo, kaj morate najprej storiti, ko odprete določen delovni zvezek. To vam lahko pomaga, da se spomnite najpomembnejšega dela pri vsakodnevnem delu. In v tem članku bom govoril o tem, kako ustvariti pojavno okno s sporočilom pri odpiranju datoteke Excel.
- Pojavno okno s sporočilom, če se vrednost celice spremeni v obsegu v Excelu
- Včasih se morate na določenem delovnem listu spomniti na spremembe znotraj obsega. Pojavno okno s sporočilom vam bo torej naredilo uslugo, če se je vrednost celice spremenila v določenem obsegu. To lahko dosežete z metodo VBA v tem članku.
- Pojavno okno s sporočilom ob kliku na določeno celico v Excelu
- Cilj tega članka je prikazati način pojavnega okna s sporočilom, ko kliknete določeno celico v Excelu.
- Pred zagonom makra v Excelu ustvarite polje z sporočilom Yes No
- V Excelu lahko makro neposredno sprožite s pritiskom na tipko F5 ali v oknu Microsoft Visual Basic for Applications kliknete gumb Zaženi. Včasih pa boste morda želeli ustvariti sporočilo, ki bo uporabnika vprašalo, ali želi zagnati makro. Če je odgovor da, nadaljujte z izvajanjem kode, če ne, nehajte z izvajanjem kode. V tem članku bom govoril o tem, kako pred zagonom makra v Excelu ustvariti sporočilo z da ne.
- Ustvarite časovnik za sporočila, da samodejno zaprete polje za sporočila po določenem času
- Skript VBA lahko pogosto uporabljate za reševanje težav med uporabo Excelove delovne zvezke. Med izvajanjem skripta se bodo pojavila okna s sporočili. V nekaterih primerih bi želeli, da se nekatera sporočila samodejno zaprejo po določenem času, namesto da bi jih zaprli ročno. V tem članku vam bomo prikazali način ustvarjanja časovnika za sporočilno polje za samodejno zapiranje polja za sporočila po določenem času v Excelu.
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
