İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Cell dəyərinin Excel-də dəyişirsə mesaj qutusunu necə açmaq olar?

Bəzən müəyyən bir iş yerindəki dəyişikliklər barədə özünüzü xatırlatmalısınız. Beləliklə, bir pop up mesaj qutusu, hüceyrənin dəyəri müəyyən bir sıra dəyişdikdə sizə bir xeyir verəcəkdir. Bu məqalədə VBA metodu ilə əldə edə bilərsiniz.

Cell dəyəri VBA kodu ilə bir sıra dəyişirsə mesaj qutusunu açın


arrow mavi sağ bubble Cell dəyəri VBA kodu ilə bir sıra dəyişirsə mesaj qutusunu açın


Aşağıdakı VBA kodu, müəyyən bir iş səhifəsinin müəyyən bir aralığında hüceyrə dəyəri dəyişirsə mesaj qutusunu açar. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic penceresini açmaq üçün sol çubuğunda sacın adını (belirtilen aralık mövcuddur) cüt tıklatın Kodu sonra pəncərəyə aşağıdakı VBA kodunu kopyalayıb yapışdırın.

VBA kodu: hücum dəyəri bir sıra dəyişirsə mesaj qutusu açılır

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

Qeyd: A1: E19 kodu sizə lazım olan aralığa dəyişə bilərsiniz.

3. Basın Dayandırmaq + Q düymələri eyni zamanda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

İndi A1 aralığında hüceyrə dəyərləri dəyişdirildikdə: E19 dəyişdi, mesaj qutusu avtomatik olaraq açılır. Ekran görüntüsünə baxın:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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??