Skip to main content

Conas bosca teachtaireachta a pop suas más ionann luach cille agus “X” in Excel?

Údar: Siluvia Athraithe Deiridh: 2020-07-09

Cabhraíonn go leor le bosca teachtaireachta a phiocadh suas agus ábhar áirithe a aimsiú i raon sonraithe. Mar shampla, tá luach cille á fháil agat arb ionann é agus 50 i raon A1: C7, agus teastaíonn bosca teachtaireachta uait chun a insint duit an bhfuil luach na cille ann nó nach bhfuil. Is féidir leis an dá mhodh seo a leanas cabhrú leat.

Bosca teachtaireachta aníos más ionann luach cille agus “X” agus cód VBA
Bosca teachtaireachta a phiocadh suas go héasca más ionann luach cille agus “X” agus Kutools le haghaidh Excel


Bosca teachtaireachta aníos más ionann luach cille agus “X” agus cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú le bosca teachtaireachta aníos a chruthú nuair a bhíonn an luach áirithe i raon sonraithe. Déan mar a leanas le do thoil.

1. Sa bhileog oibre ní mór duit luachanna i raon sonraithe a sheiceáil, cliceáil ar dheis ar ainm an chluaisín sa bharra cluaisín bileog, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis. Féach an pictiúr:

bosca teachtaireachta doc más luach cille 1 é

2. Sa Microsoft Visual Basic d’Fheidhmchláir an cód VBA seo a leanas a fhuinneog, a chóipeáil agus a ghreamú isteach i bhfuinneog an Chóid.

Cód VBA: bosca teachtaireachta más ionann luach cille agus “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. Brúigh Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog agus téigh ar ais chuig an mbileog oibre.

As seo amach, nuair a athraítear luachanna cille i raon A1: C7 agus go bhfuil luach cille cothrom le “50”, gheobhaidh tú bosca teachtaireachta mar a thaispeántar thíos an scáileán.

Thairis sin, is féidir leat an raon a roghnú chun an bosca teachtaireachta a phiocadh suas má tá luach na cille ann.

bosca teachtaireachta doc más luach cille 1 é

nótaí:

1. Mura gcomhlíonann luach na cille na critéir, ní bheidh an bosca teachtaireachta aníos.
2. Sa chód thuas, is féidir leat tagairt agus luach na cille a athrú go do riachtanas.
3. Ní féidir leis ach tagairt cille meaitseála amháin a thaispeáint nuair a bhíonn ilthorthaí ann.

Bosca teachtaireachta aníos más ionann luach cille agus “X” agus Kutools le haghaidh Excel

An Roghnaigh Cealla Sonracha fóntais de Kutools le haghaidh Excel is féidir leis cabhrú leat an fhadhb seo a réiteach freisin. Déan mar a leanas le do thoil.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Roghnaigh an raon is mian leat a fháil má tá luach cille ann, ansin cliceáil Kutools > Roghnaigh > Roghnaigh Cealla Sonracha

2. Sa Roghnaigh Cealla Sonracha bosca dialóige, roghnaigh an Cell rogha sa Cineál roghnúcháin alt, ansin roghnaigh Cothrom sa chéad uair Cineál sonrach liosta anuas agus clóscríobh an luach cille sa chéad bhosca téacs eile, agus cliceáil ar deireadh ar an OK cnaipe.

bosca teachtaireachta doc más luach cille 1 é

Má tá luach na cille i raon sonraithe, gheobhaidh tú an bosca teachtaireachta seo a leanas, cliceáil ar an OK cnaipe, roghnófar an cill.

bosca teachtaireachta doc más luach cille 1 é

Seachas sin, gheobhaidh tú an bosca teachtaireachta mar atá thíos an pictiúr a thaispeántar.

bosca teachtaireachta doc más luach cille 1 é

  Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Bosca teachtaireachta a phiocadh suas go héasca más ionann luach cille agus “X” agus Kutools le haghaidh Excel


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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