Excel'de bir hücrenin değeri belirli bir aralıkta değiştiğinde nasıl mesaj kutusu görüntülenir?
Bazen, belirli bir çalışma sayfasındaki bir aralıktaki değişiklikleri hatırlamanız gerekebilir. Böyle durumlarda, ilgili aralıktaki hücre değerleri değiştiğinde size uyarı veren bir mesaj kutusu işinize yarar. Bu makalede, bunu bir VBA yöntemiyle nasıl gerçekleştirebileceğinizi öğreneceksiniz.
VBA kodu ile bir aralıkta hücre değeri değiştiğinde mesaj kutusunu açma
VBA kodu ile bir aralıkta hücre değeri değiştiğinde mesaj kutusunu açma
Aşağıdaki VBA kodu, belirli bir çalışma sayfasındaki "Sınırlı" aralığında yer alan bir hücrenin değeri değiştiğinde bir mesaj kutusu görüntüler. Lütfen aşağıdaki adımları uygulayın.
1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, sol çubukta (içinde Sınırlı aralık bulunan) sayfa adına çift tıklayarak ilgili Kod penceresini açın ve aşağıdaki VBA kodunu pencereye kopyalayıp yapıştırın.
VBA kodu: bir aralıkta hücre değeri değiştiğinde mesaj kutusu çıkarma
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 SubNot: Kodda belirtilen sınırlı aralık olan A1:E19’u, ihtiyacınız olan aralıkla değiştirebilirsiniz.
3. Alt+Q tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini kapatın.
Şimdi itibarıyla, A1:E19 aralığındaki hücre değerleri değiştiğinde otomatik olarak bir mesaj kutusu açılacaktır. Ekran görüntüsüne göz atın:
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar