Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako pokažite polje za sporočila, če se vrednost celice spremeni v razponu v Excelu?

Včasih se morate spomniti na spremembe znotraj razpona na določenem delovnem listu. Torej, pop-up sporočilo polje vam uslugo, če je vrednost celice spremenila v določenem obsegu. To lahko dosežete z metodo VBA v tem članku.

Če se vrednost celice spremeni v območju s kodo VBA, se prikaže polje za sporočila


puščica modra desno mehurček Če se vrednost celice spremeni v območju s kodo VBA, se prikaže polje za sporočila


Naslednja VBA koda bo prikazala polje za sporočila, če se vrednost celice spremeni v določenem obsegu določenega delovnega lista. Prosimo, naredite na naslednji način.

1. Pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite ime lista (določen obseg obstaja v) v levi vrstici, da odprete Koda okno, nato pa kopirajte in prilepite spodnjo kodo VBA v okno.

VBA koda: pojavno okno z obvestili, če se vrednost celice spremeni v območju

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Range("A1:E19"), Target) Is Nothing) Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

Opombe: lahko spremenite določeni obseg A1: E19 v kodi do obsega, ki ga potrebujete.

3. Pritisnite druga + Q hkrati zaprete tipke Microsoft Visual Basic za aplikacije okno.

Za zdaj, ko se vrednosti celic v območju A1: E19 spremenijo, se bo samodejno pojavilo polje za sporočila. Prikaz slike:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ioannis Palierakis · 1 years ago
    Hi everyone & thanks for help!!!!

    How could I modify the VBA and say that if the Range B1:B50 is less than or equal to Range A1:B50 then MsgBox......?????
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Do you mean the total sum of range b1:b50?
  • To post as a guest, your comment is unpublished.
    igp · 1 years ago
    Hi everyone & thanks for the VBA.

    I was just wondering how to modify the VBA in case that I want the MsgBox only if for example the cell value B1 is <= than A1


    Thanks for your assistance!!!
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Please try below VBA code:

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo ExitSub
      Dim One As Long
      Dim Two As Long
      One = Range("A1").Value
      Two = Range("B1").Value
      If Not (Application.Intersect(Range("A1:B1"), Target) Is Nothing) Then
      If (One > Two) Then
      MsgBox "Range(""A1"") > Range(""B1"")", vbInformation, "Kutools for Excel"
      End If
      End If
      ExitSub:
      End Sub
  • To post as a guest, your comment is unpublished.
    Naveen Ruppa · 1 years ago
    Considering the above example.(VBA code: pop up message box if cell value changes within a range)

    when the value of D14 has changed we get a pop up, in the similar way how to get the ID of that (column A of the same row (A14)).
    Thanks in advance, any response is appreciable.
  • To post as a guest, your comment is unpublished.
    Naveen · 1 years ago
    considering the above output there is a question.
    we got a pop message when the D14 has changed, in the similar can way can we get the ID (data of the same row of the column A) in the pop up message??