Note: The other languages of the website are Google-translated. Back to English

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 yn hawdd os yw gwerth y gell yn cyfateb 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 naid os yw gwerth celloedd yn hafal i “X” gyda Kutools ar gyfer Excel

Mae 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 yn hawdd os yw gwerth y gell yn cyfateb i “X” gyda Kutools ar gyfer Excel


Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r sgript hon yn gweithio'n iawn pan roddwyd y gell i mewn â llaw. Ond pan fyddaf yn ceisio copïo'r llinell gyfan o'r llinell arall a'i gludo i'r llinell newydd, bydd y ffenestr naid yn dal i ddod i fyny nid oedd hyd yn oed y gell ar y llinell newydd yn cynnwys y gair allweddol. Unrhyw ffordd i gael gwared ohono? Os gwelwch yn dda cyngor. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl TANGO, Diolch am eich sylw! Rydym wedi diweddaru'r sgript VBA i gael gwared ar y broblem a grybwyllwyd gennych uchod. Gobeithio y gall y cod newydd hwyluso'ch gwaith. Os oes gennych unrhyw broblem, mae croeso i chi gysylltu â ni! Diolch eto am eich sylw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os gwelwch yn dda angen eich help rhowch eich cyfeiriad e-bost Linda mwynglawdd yw mineralsuganda256@gmail.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Sori am ateb mor hwyr. Cysylltwch â mi yn zxm@addin99.com.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i ddiweddaru ar gyfer 2 werth yn yr un ystod? cyn "50" neu "100" ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais hefyd ddyblygu'r cod hwn, a newid i ystod wahanol lle mae fy nata yn cael ei ailadrodd, ond mae'n ymddangos mai dim ond unwaith y gellir defnyddio'r swyddogaeth "Taflen Waith - Newid". Ydy hyn yn wir?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i ddiweddaru ar gyfer 2 werth yn yr un ystod? cyn "50" neu "100" ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rajesh,
Gall y cod isod eich helpu i ddatrys y broblem, rhowch gynnig arni. Diolch!

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

'Diweddariad: 2020/8/21

Dim xCell Fel Ystod, RG Fel Ystod

Ar Ail-ddechrau Gwall Nesaf

Gosod Rg = Application.Intersect(Targed, Ystod ("A1: C7"))

Os Nad Ydy RG Yn Dim Yna

Ar gyfer Pob xCell Yn Rg

Os xCell.Value = "50" Neu xCell.Value = "100" Yna

MsgBox "gweste wedi'i roi i mewn i'r gell" & xCell.Address, vbInformation, "Kutools for Excel"

Is Allanfa

Gorffennwch Os

Digwyddiadau

Gorffennwch Os

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal, Mae'r ddau gyflwr yn gweithio. Diolch yn fawr DiolchRajesh
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir