Excel'de belirtilen bir çalışma sayfası etkinleştirildiğinde veya devre dışı bırakıldığında bir mesaj kutusunun açılması nasıl sağlanır?
Excel'de bir çalışma sayfasını etkinleştirdiğinizde, sizi çalışma sayfası ayrıntıları konusunda uyarması için bir mesaj kutusu görüntülenmesini isteyebilirsiniz. Aşağıdaki yöntemi deneyin.
Belirtilen bir çalışma sayfası etkinleştirildiğinde VBA kodu ile mesaj kutusunun açılması
Belirtilen bir çalışma sayfası etkinleştirildiğinde VBA kodu ile mesaj kutusunun açılması
Aşağıdaki VBA kodu, belirtilen çalışma sayfası etkinleştirildiğinde bir mesaj kutusunun açılmasını sağlar.
1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Proje bölmesindeki ThisWorkbook öğesine çift tıklayarak ThisWorkbook (Kod) penceresini açın. Ardından aşağıdaki VBA kodunu kod penceresine kopyalayıp yapıştırın.
VBA kodu: Belirtilen bir çalışma sayfası etkinleştirildiğinde mesaj kutusunun açılması
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If Sh.Name = "Sheet1" Then
MsgBox "Please remember to fill in the daily sale", vbInformation, "Kutools for Excel"
End If
End Sub
Not: Kodda lütfen "Sheet1" ifadesini kendi belirttiğiniz sayfa adıyla değiştirin. Ayrıca, "Lütfen günlük satışları doldurmayı unutmayın" mesajını ihtiyacınız olan içerikle güncelleyin.
3. Alt+Q tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini kapatın.
Bu çalışma sayfası bundan sonra etkinleştirildiğinde veya açıldığında, aşağıdaki ekran görüntüsünde gösterildiği gibi her zaman bir mesaj kutusu açılacaktır.
İlgili makaleler:
- Excel'de belirli bir süre geçtikten sonra otomatik olarak kapanan bir mesaj kutusu zamanlayıcısı nasıl oluşturulur?
- Excel'de belirli bir hücreye tıklandığında bir mesaj kutusunun açılması nasıl sağlanır?
- Excel'deki mesaj kutusundan metni nasıl kopyalayabilirim?
- Excel'de hücre aralığını veya hücre değerlerini görüntülemek için bir mesaj kutusu nasıl açılır?
- Excel'de bir aralıkta yer alan hücrelerden herhangi birinin değeri değiştiğinde otomatik olarak bir mesaj kutusu açılması nasıl sağlanır?
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