İ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 Exceldə "X" e bərabər olması halında mesaj qutusunu necə açmaq olar?

Mesaj qutusunu açma, müəyyən bir məzmunda müəyyən məzmun taparkən çox kömək edir. Məsələn, 50-a bir sıra A1-da C7-a bərabər olan hüceyrə dəyərini tapırsınız və hücum dəyərinin olmadığını və ya olmadığını bildirmək üçün bir mesaj qutusuna ehtiyacınız var. Aşağıdakı iki üsul sizə kömək edə bilər.

Mobil dəyər VBA kodu ilə "X" e bərabərdirsə mesaj qutusunu açın

Cell dəyərinin Excel üçün Kutools ilə "X" bərabər olduqda, mesaj qutusunu asanlıqla açın


Mobil dəyər Excel-də "X" e bərabərdirsə mesaj qutusunu açın

Basın Kutools > seçmək > Xüsusi Hüceyrələri seçin. Bu Excel üçün Kutools's Xüsusi Hüceyrələri seçin kommunal asanlıqla Excel-də müəyyən bir dəyəri olan və ya bir mesaj qutusuna daxil olan və ya hüceyrəni seçə kömək edir. Aşağıdakı ekran görüntüsünə baxın:

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 30 gün ərzində heç bir məhdudiyyətsiz cəhd edin. Daha çox oxu İndi yükləyin

cell dəyəri 7 isə doc mesaj qutusuna


Mobil dəyər VBA kodu ilə "X" e bərabərdirsə mesaj qutusunu açın


Aşağıdakı VBA kodu, müəyyən dəyərdə müəyyən bir zaman mövcud olduqda bir pop up mesaj qutusu yaratmaq üçün kömək edə bilər. Xahiş edirik bunu edin.

1. İş yerində göstərilən aralığdakı dəyərləri yoxlamaq lazımdır, hesabat sekmesinde sekme adını sağ basın və sonra da basın Kodları baxın sağ tıklayarak menyudan. Ekran görüntüsünə baxın:

cell dəyəri 1 isə doc mesaj qutusuna

2. İçində Proqramlar üçün Microsoft Visual Basic Pəncərə, Kod qutusuna aşağıdakı VBA kodunu kopyalayıb yapışdırın.

VBA kodu: hüceyrənin dəyəri "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. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə və iş səhifəsinə geri qayıdın.

İndi, cell dəyərləri A1: C7 aralığında dəyişdirildikdə və "50" hüceyrə dəyəri bərabərdirsə, göstərilən ekran görüntüsünün altından bir mesaj qutusu alacaqsınız.

Bununla yanaşı, hüceyrənin dəyəri olduqda mesaj qutusunu açmaq üçündür.

cell dəyəri 1 isə doc mesaj qutusuna

Qeydlər:

1. Hüceyrənin dəyəri meyarlara cavab vermirsə, mesaj qutusu açılmayacaq.

2. Yuxarıda göstərilən kodda, mobil istinad və dəyərinizi ehtiyacınıza dəyişə bilərsiniz.

3. Çox nəticələr olduqda yalnız bir eşleşen mobil istinad göstərə bilər.


Cell dəyəri "X" Excel üçün Kutools ilə bərabər olduqda mesaj qutusunu açın

The Xüsusi Hüceyrələri seçin faydası Excel üçün Kutools bu problemi həll etməyə də kömək edə bilər. Xahiş edirik bunu edin.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. Mobil dəyər mövcud olub-olmadığını tapmaq istədiyiniz aralığı seçin, sonra basın Kutools > seçmək > Xüsusi Hüceyrələri seçin. Ekran görüntüsünə baxın:

2. İçində Xüsusi Hüceyrələri seçin dialoq qutusunu seçin Cell seçimi Seçim növü bölümünü seçin, sonra seçin bərabər birincisi Xüsusi tip açılan siyahısı və növbəti mətn qutusuna hücum dəyərini yazın və nəhayət basın OK düyməsini basın.

cell dəyəri 1 isə doc mesaj qutusuna

Hüceyrənin dəyəri göstərilən üçündürsə, aşağıdakı mesajı əldə edəcəksiniz OK düyməsini seçə bilərsiniz.

cell dəyəri 1 isə doc mesaj qutusuna

Əks halda mesaj qutusunu aşağıda göstərilən ekran görünüşü kimi alacaqsınız.

cell dəyəri 1 isə doc mesaj qutusuna


Cell dəyərinin Excel üçün Kutools ilə "X" bərabər olduqda, mesaj qutusunu asanlıqla açın

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin!


Related articles:



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.
    AWhite · 11 months ago
    Is there a way to update for 2 values in the same range? ex "50" or "100" ?
    • To post as a guest, your comment is unpublished.
      AWhite · 11 months ago
      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?
  • To post as a guest, your comment is unpublished.
    Tango · 1 years ago
    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
    • To post as a guest, your comment is unpublished.
      Linda · 1 years ago
      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!
      • To post as a guest, your comment is unpublished.
        cassidy joram · 1 years ago
        please need your help give me your email address Linda mine is mineralsuganda256@gmail.com
        • To post as a guest, your comment is unpublished.
          crystal · 9 months ago
          Hi,
          Sorry for replying so late. Please contact me at zxm@addin99.com.