Kako se odpre okno s sporočilom, če je vrednost celice v Excelu enaka "X"?
Pojavno okno s sporočilom zelo pomaga pri iskanju določene vsebine v določenem obsegu. Na primer, v območju A50: C1 najdete vrednost celice, ki je enaka 7, in potrebujete pojavno okno s sporočilom, ki vam pove, ali vrednost celice obstaja ali ne. Naslednji dve metodi vam lahko pomagata.
Pojavi se okno s sporočilom, če je vrednost celice enaka "X" s kodo VBA
Če je vrednost celice enaka "X", lahko preprosto odprete okno s sporočilom Kutools za Excel
Pojavi se okno s sporočilom, če je vrednost celice enaka "X" s kodo VBA
Naslednja koda VBA lahko pomaga ustvariti pojavno okno s sporočilom, če določena vrednost obstaja v določenem obsegu. Naredite naslednje.
1. Na delovnem listu morate preveriti vrednosti v določenem obsegu, z desno miškino tipko kliknite ime zavihka v vrstici z zavihki lista in nato kliknite Ogled kode v meniju z desnim klikom. Oglejte si posnetek zaslona:
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo VBA v okno Code.
Koda VBA: pojavno okno s sporočilom, če je vrednost celice enaka "X"
Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("A1:C7"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = "50" Then
MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
Exit Sub
End If
Next
End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("A1:C7"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = "50" Then
MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
Exit Sub
End If
Next
End If
End Sub3. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije okno in se vrnite na delovni list.
Od zdaj naprej, ko se vrednosti celic spremenijo v območju A1: C7 in je vrednost celice enaka "50", se prikaže okno s sporočilom, kot je prikazano spodaj.
Poleg tega lahko samo izberete obseg, da se prikaže okno za sporočilo, če vrednost celice obstaja.
Opombe:
Pojavi se okno s sporočilom, če je vrednost celice enaka "X" s Kutools za Excel
O Izberite Specific Cells uporabnost Kutools za Excel vam lahko pomaga tudi pri reševanju te težave. Naredite naslednje.
Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.
1. Izberite obseg, ki ga želite najti, če obstaja vrednost celice, in kliknite Kutools > Izberite > Izberite Specific Cells.
2. V Ljubljani Izberite Specific Cells v pogovornem oknu izberite Celica možnost v Vrsta izbire , nato izberite enako v prvem Posebna vrsta spustnega seznama in vnesite vrednost celice v naslednje besedilno polje in na koncu kliknite OK gumb.
Če vrednost celice obstaja v določenem obsegu, se prikaže naslednje okno s sporočilom, kliknite OK gumb, bo izbrana celica.
V nasprotnem primeru se prikaže okno za sporočila, kot je prikazano spodaj.
Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
Če je vrednost celice enaka "X", lahko preprosto odprete okno s sporočilom Kutools za Excel
Sorodni članki:
- Kako izbrisati celo vrstico, če celica vsebuje nič v Excelu?
- Kako šteti celice z določenim besedilom v izboru v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- 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!
