Ana içeriğe atla

Excel'de belirli bir hücreye tıklandığında mesaj kutusu nasıl açılır?

Bu makale, Excel'de belirli bir hücreye tıkladığınızda ileti kutusunu açmanın yöntemini göstermeyi amaçlamaktadır.

VBA kodu ile belirli bir hücreye tıklandığında mesaj kutusu açılır


ok mavi sağ balon VBA kodu ile belirli bir hücreye tıklandığında mesaj kutusu açılır

Çalışma sayfasındaki belirli bir hücreye tıkladığınızda bir mesaj kutusu açmak için lütfen aşağıdaki işlemleri yapın.

1. Tıkladığınızda mesaj kutusunu görüntülemeniz gereken belirli hücre ile çalışma sayfasını açmak için Shift tuşunu kullanın. Sayfa sekmesine sağ tıklayın ve seçin Kodu Görüntüle sağ tıklama menüsünden.

2. içinde Uygulamalar için Microsoft Visual Basic penceresinde aşağıdaki VBA kodunu kopyalayıp Kod penceresine yapıştırın.

VBA kodu: Belirli bir hücreye tıklandığında mesaj kutusunu aç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
        MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub

notlar:

1). Kodda, "A1: B10", bu aralıktaki herhangi bir hücreye tıklandığında mesaj kutusunun açılacağı anlamına gelir.

2). "Hücre seçtiniz" ve "Lütfen verileri girin" mesaj kutusunun görüntülenen içeriğidir.

Lütfen ihtiyaç duyduğunuzda değiştirin.

3. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.

Şu andan itibaren, A1: B10 aralığındaki herhangi bir hücreye tıkladığınızda, aşağıda gösterilen ekran görüntüsü gibi bir mesaj kutusu alacaksınız.


ok mavi sağ balonİlgili Makaleler:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • 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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can I enter more ranges? thank you very much
This comment was minimized by the moderator on the site
Hi,
Please apply the below code. Hope I can help. thank you for your comment.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xStrRg As String
xStrRg = "A1:B10,D1:F10" 'Add multiple ranges here and separate with comma
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then _
MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub
This comment was minimized by the moderator on the site
typo select vs selected in code. also maybe switch to vbNewLine rather than crlf
This comment was minimized by the moderator on the site
I have multiple cells I would like a pop up box for. Can you use this code for multiple boxes?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations