Skip i'r prif gynnwys

Sut i popio blwch negeseuon os yw cell yn fwy neu'n llai na gwerth penodol yn Excel?

Os yw cell yn fwy neu'n llai na chell arall, mae angen i mi popio blwch neges i rybuddio yn Excel. Sut i ddatrys y broblem hon yn Excel? Yr erthygl hon, byddaf yn siarad am rai codau ar gyfer delio ag ef.

Codwch flwch neges os yw gwerth celloedd mewn colofn yn fwy neu'n llai na chell arall

Codwch flwch neges os yw gwerth cell mewn cell yn fwy neu'n llai na chell arall


Codwch flwch neges os yw gwerth celloedd mewn colofn yn fwy neu'n llai na chell arall

Gan dybio, mae gen i rif penodol 100 yng nghell A1, nawr, pan fydd y nifer a gofnodir yng ngholofn D yn fwy na 100 yng nghell A1, dylid rhoi blwch neges allan i atgoffa'r defnyddiwr.

Yma, gall y cod VBA isod eich helpu i'w orffen, gwnewch y camau canlynol:

1. Ewch i'r daflen waith rydych chi am ei defnyddio.

2. De-gliciwch y tab dalen, a dewis Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i mewn i ffenestr y Modiwl gwag, gweler y screenshot:

Cod VBA: popiwch flwch neges os yw gwerth celloedd mewn colofn yn fwy neu'n llai na chell

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

Nodyn: Yn y cod uchod, Sheet1 yw eich taflen waith rydych chi am ei defnyddio; A1 yw'r gwerth cell rydych chi am gymharu ag ef; D: D. yw'r golofn rydych chi am ei chymharu â chell A1.

3. Yna, arbed a chau ffenestr y cod, o hyn ymlaen, bydd blwch neges yn cael ei popio allan os byddwch chi'n nodi rhif yng ngholofn D sy'n fwy na 100, gweler y screenshot:


Codwch flwch neges os yw gwerth cell mewn cell yn fwy neu'n llai na chell arall

Os ydych chi eisiau i flwch neges gael ei popio allan pan fydd gwerth cell yn fwy neu'n llai na chell arall, cymhwyswch y cod isod:

1. Ewch i'r daflen waith rydych chi am ei defnyddio.

2. De-gliciwch y tab dalen, a dewis Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i mewn i ffenestr y Modiwl gwag, gweler y screenshot:

Cod VBA: popiwch flwch neges os yw gwerth y gell yn fwy neu'n llai na chell

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

Nodyn: Yn y cod uchod, A1 ac D1 yw'r ddwy gell rydych chi am gymharu â nhw.

3. Yna, arbedwch a chau ffenestr y cod, wrth nodi gwerth sy'n llai na'r gwerth yng nghell A1, bydd blwch neges yn cael ei popio i fyny fel isod y llun a ddangosir:


Erthyglau blwch negeseuon mwy cymharol:

  • Creu Blwch Negeseuon Pop Up Wrth Agor Ffeil Excel
  • Mewn achos penodol, efallai y byddwch am gael blwch negeseuon bob amser naidlen i'ch atgoffa beth sydd angen i chi ei wneud gyntaf pan fyddwch chi'n agor llyfr gwaith penodol, gall hyn eich helpu i gofio gwneud y peth pwysicaf yn eich gwaith bob dydd. Ac yn yr erthygl hon, byddaf yn siarad am sut i greu blwch negeseuon naidlen wrth agor ffeil Excel.
  • Creu Blwch Neges Ydw Nac ydw Cyn Rhedeg Macro Yn Excel
  • Yn Excel, gallwch sbarduno macro yn uniongyrchol trwy wasgu'r allwedd F5 neu glicio ar y botwm Run yn ffenestr Microsoft Visual Basic for Applications. Ond, weithiau, efallai yr hoffech chi greu blwch neges a fydd yn gofyn i'r defnyddiwr a ydyn nhw am redeg y macro. Os oes, yna parhewch i redeg y cod, os na, rhowch y gorau i redeg y cod. Yr erthygl hon, byddaf yn siarad am sut i greu blwch neges ie na cyn rhedeg macro yn Excel.
  • Creu Amserydd Blwch Negeseuon i Gau'r Auto Y Blwch Negeseuon Ar Ôl Amser Penodol
  • Gallwch ddefnyddio sgript VBA yn aml i ddatrys problemau wrth ddefnyddio llyfr gwaith Excel. A bydd blychau negeseuon yn ymddangos yn ystod y sgript. Mewn rhai achosion, hoffech i rai blychau neges penodedig gael eu cau'n awtomatig ar ôl amser penodol yn hytrach na'u cau â llaw. Yn yr erthygl hon, byddwn yn dangos dull i chi o greu amserydd blwch neges i gau'r blwch negeseuon yn awtomatig ar ôl amser penodol yn Excel.

  • 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 a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... 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 ...
  • Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • 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...
  • Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
tab kte 201905
  • 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
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations