Ana içeriğe atla

Hücre, Excel'de belirli bir değerden büyük veya küçükse ileti kutusu nasıl açılır?

Bir hücre başka bir hücreden büyük veya küçükse, Excel'de uyarı vermek için bir mesaj kutusu açmam gerekir. Excel'de bu sorunu nasıl çözebilirim? Bu yazıda, bununla başa çıkmak için bazı kodlardan bahsedeceğim.

Bir sütundaki hücre değeri başka bir hücreden büyük veya küçükse, bir mesaj kutusu açılır

Bir hücredeki hücre değeri başka bir hücreden daha büyük veya daha küçükse, bir mesaj kutusu aç


Bir sütundaki hücre değeri başka bir hücreden büyük veya küçükse, bir mesaj kutusu açılır

Diyelim ki A100 hücresinde belirli bir sayı 1 var, şimdi, D sütununa girilen sayı A100 hücresinde 1'den büyük olduğunda, kullanıcıya hatırlatmak için bir mesaj kutusu açılmalıdır.

Burada, aşağıdaki VBA kodu bitirmenize yardımcı olabilir, lütfen aşağıdaki adımları izleyin:

1. Kullanmak istediğiniz çalışma sayfasına gidin.

2. Sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünden, açılır pencerede Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu boş Modül penceresine kopyalayıp yapıştırın, ekran görüntüsüne bakın:

VBA kodu: bir sütundaki hücre değeri bir hücreden büyük veya küçükse bir mesaj kutusu açar

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

not: Yukarıdaki kodda, Sheet1 kullanmak istediğiniz çalışma sayfanızdır; A1 karşılaştırmak istediğiniz hücre değeridir; D: D A1 hücresiyle karşılaştırmak istediğiniz sütundur.

3. Ardından, kod penceresini kaydedin ve kapatın, bundan sonra, D sütununa 100'den büyük bir sayı girerseniz, bir mesaj kutusu açılacaktır, ekran görüntüsüne bakın:


Bir hücredeki hücre değeri başka bir hücreden daha büyük veya daha küçükse, bir mesaj kutusu aç

Bir hücre değeri başka bir hücreden daha büyük veya daha küçük olduğunda bir mesaj kutusunun açılmasını istiyorsanız, lütfen aşağıdaki kodu uygulayın:

1. Kullanmak istediğiniz çalışma sayfasına gidin.

2. Sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünden, açılır pencerede Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu boş Modül penceresine kopyalayıp yapıştırın, ekran görüntüsüne bakın:

VBA kodu: hücre değeri bir hücreden büyük veya küçükse bir mesaj kutusu açar

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

not: Yukarıdaki kodda, A1 ve D1 karşılaştırmak istediğiniz iki hücredir.

3. Ardından, kod penceresini kaydedin ve kapatın, A1 hücresindeki değerden daha düşük bir değer girerken, aşağıda gösterilen ekran görüntüsü gibi bir mesaj kutusu açılır:


Daha göreceli açılır mesaj kutusu makaleleri:

  • Bir Excel Dosyasını Açarken Açılır Mesaj Kutusu Oluştur
  • Belirli bir durumda, belirli bir çalışma kitabını açtığınızda ilk önce ne yapmanız gerektiğini size hatırlatması için her zaman bir ileti kutusu açılmasını isteyebilirsiniz; bu, günlük işinizde en önemli şeyi yapmayı hatırlamanıza yardımcı olabilir. Ve bu yazıda, bir Excel dosyasını açarken bir açılır mesaj kutusunun nasıl oluşturulacağından bahsedeceğim.
  • Excel'de Bir Makroyu Çalıştırmadan Önce Evet Hayır Mesaj Kutusu Oluşturun
  • Excel'de, F5 tuşuna basarak veya Microsoft Visual Basic for Applications penceresindeki Çalıştır düğmesini tıklayarak bir makroyu doğrudan tetikleyebilirsiniz. Ancak bazen, kullanıcıya makroyu çalıştırmak isteyip istemediğini soracak bir mesaj kutusu oluşturmak isteyebilirsiniz. Evetse, kodu çalıştırmaya devam edin, hayır ise kodu çalıştırmayı bırakın. Bu makalede, Excel'de bir makro çalıştırmadan önce bir evet hayır mesaj kutusunun nasıl oluşturulacağından bahsedeceğim.
  • Belirli Bir Süreden Sonra Mesaj Kutusunu Otomatik Olarak Kapatmak İçin Bir Mesaj Kutusu Zamanlayıcısı Oluşturun
  • Excel çalışma kitabını kullanırken sorunları çözmek için sık sık VBA komut dosyasını kullanabilirsiniz. Ve komut dosyası çalışırken açılan mesaj kutuları olacaktır. Bazı durumlarda, belirli mesaj kutularının manuel olarak kapatmak yerine belirli bir süre sonra otomatik olarak kapatılmasını istersiniz. Bu makalede, Excel'de belirli bir süre sonra mesaj kutusunu otomatik olarak kapatmak için bir mesaj kutusu zamanlayıcısı oluşturma yöntemini göstereceğiz.

  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...
kte sekmesi 201905
  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
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