Skip i'r prif gynnwys

Sut i popio blwch negeseuon os yw gwerth celloedd yn hafal i “X” yn Excel?

Mae popio blwch negeseuon yn helpu llawer wrth ddod o hyd i gynnwys penodol mewn ystod benodol. Er enghraifft, rydych chi'n dod o hyd i werth celloedd sy'n hafal i 50 mewn ystod A1: C7, ac mae angen blwch neges arnoch i ddweud wrthych a yw gwerth y gell yn bodoli ai peidio. Gall y ddau ddull canlynol eich helpu chi.

Blwch neges naid os yw gwerth y gell yn cyfateb i “X” â chod VBA
Blwch neges pop i fyny yn hawdd os yw gwerth cell yn hafal i “X” gyda Kutools ar gyfer Excel


Blwch neges naid os yw gwerth y gell yn cyfateb i “X” â chod VBA

Gall y cod VBA canlynol helpu i greu blwch neges naidlen pan fydd y gwerth penodol yn bodoli mewn ystod benodol. Gwnewch fel a ganlyn.

1. Yn y daflen waith mae angen i chi wirio gwerthoedd mewn ystod benodol, cliciwch ar dde enw'r tab yn y bar tab dalen, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde. Gweler y screenshot:

blwch neges doc os yw gwerth cell 1

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA canlynol i mewn i ffenestr y Cod.

Cod VBA: blwch neges naidlen os yw gwerth y gell yn hafal i “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 Sub

3. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr ac ewch yn ôl i'r daflen waith.

O hyn ymlaen, pan fydd gwerthoedd celloedd yn cael eu newid yn ystod A1: C7 a bod gwerth celloedd yn hafal i “50”, fe gewch flwch neges fel y dangosir isod y screenshot.

Ar ben hynny, gallwch ddewis yr ystod i popio'r blwch negeseuon os oes gwerth y gell yn bodoli.

blwch neges doc os yw gwerth cell 1

Nodiadau:

1. Os nad yw gwerth y gell yn cwrdd â'r meini prawf, ni fydd y blwch negeseuon yn ymddangos.
2. Yn y cod uchod, gallwch newid cyfeirnod a gwerth y gell i'ch angen.
3. Dim ond pan fydd canlyniadau lluosog y gall arddangos un cyfeirnod cell sy'n cyfateb.

Blwch neges pop i fyny os yw gwerth cell yn hafal i “X” gyda Kutools ar gyfer Excel

Mae adroddiadau Dewiswch Gelloedd Penodol cyfleustodau Kutools ar gyfer Excel gall hefyd eich helpu chi i ddatrys y broblem hon. Gwnewch fel a ganlyn.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch yr ystod rydych chi am ddarganfod a yw gwerth celloedd yn bodoli, yna cliciwch Kutools > dewiswch > Dewiswch Gelloedd Penodol

2. Yn y Dewiswch Gelloedd Penodol blwch deialog, dewiswch y Cell opsiwn yn y Math o ddewis adran, yna dewiswch Equals yn y cyntaf Math penodol rhestr ostwng a theipiwch werth y gell yn y blwch testun nesaf, ac yn olaf cliciwch ar y OK botwm.

blwch neges doc os yw gwerth cell 1

Os yw gwerth y gell yn bodoli mewn ystod benodol, fe gewch y blwch negeseuon canlynol, cliciwch ar y OK botwm, bydd y gell yn cael ei dewis.

blwch neges doc os yw gwerth cell 1

Fel arall, fe gewch y blwch negeseuon fel y dangosir isod.

blwch neges doc os yw gwerth cell 1

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Blwch neges pop i fyny yn hawdd os yw gwerth cell yn hafal i “X” gyda Kutools ar gyfer Excel


Erthyglau cysylltiedig:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
Hi Rajesh,
The below code can help you solve the problem, please have a try. Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)

'Update: 2020/8/21

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" Or xCell.Value = "100" Then

MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"

Exit Sub

End If

Next

End If

End Sub
This comment was minimized by the moderator on the site
Hi Crystal, Both conditions are working . Thank you so much ThanksRajesh
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
I also tried duplicating this code, and changing to a different range where my data is repeated, but it appears the "Worksheet - Change" function can only be used once. Is this true?
This comment was minimized by the moderator on the site
This script works fine when the cell was enter manually. But when I try to copy the whole line from the other line and paste it to the new line, the pop up window will still come up even the cell on the new line didn't contain the key word. Any way to get rid of it? Please advice. Thanks
This comment was minimized by the moderator on the site
Dear TANGO, Thank you for your comment! We have updated the VBA script to get rid of the problem you mentioned above. Hope the new code can ease your work. If you have any problem, please do hesitate to contact us! Thanks again for your comment!
This comment was minimized by the moderator on the site
please need your help give me your email address Linda mine is
This comment was minimized by the moderator on the site
Hi,
Sorry for replying so late. Please contact me at .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations