Excel'de belirli bir süre sonra otomatik olarak kapanan bir mesaj kutusu zamanlayıcısı nasıl oluşturulur?
Excel çalışma kitabı kullanırken sorun çözmek için sıklıkla VBA betiklerine başvurursunuz. Bu betikler çalıştırılırken ekrana bazı mesaj kutuları gelebilir. Belirli senaryolarda, bu mesaj kutularından bazılarının manuel olarak kapatılması yerine, belirlenen bir süre sonrasında otomatik olarak kapanmasını tercih edebilirsiniz. Bu makalede, Excel’de belirli bir süre sonra kendiliğinden kapanan bir mesaj kutusu oluşturmak için nasıl bir zamanlayıcı kurulacağını adım adım göstereceğiz.
Belirli bir süre sonra mesaj kutusunu otomatik olarak kapatmak için bir zamanlayıcı oluşturun
Belirli bir süre sonra mesaj kutusunu otomatik olarak kapatmak için bir zamanlayıcı oluşturun
Size bir mesaj kutusu zamanlayıcısı oluşturmanıza yardımcı olmak için burada bir VBA betiği şablonu sunuluyor.
Hücre değerine göre satırları taşıyan bir VBA betiğini çalıştırdığınızı varsayalım. Taşıma işlemi tamamlandıktan sonra, işlemin başarılı olduğunu bildiren ve 4 saniye sonra otomatik olarak kapanan (aşağıdaki ekran görüntüsünde gösterildiği gibi) bir mesaj kutusunun açılmasını sağlayalım. Aşağıdaki adımları uygulayın.
1. Microsoft Visual Basic for Applications penceresini açın, Ekle > Modül seçeneğine tıklayın ve ardından hücre değerine göre satır taşımak için kullanmak istediğiniz VBA kodunu ekleyin.
2. Aşağıdaki VBA kodunu 1 kopyalayın ve çalıştırmak istediğiniz kodun önüne ekleyin. Aşağıdaki ekran görüntüsüne göz atın:
VBA kodu 1:
Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal xHwnd As LongPtr, _
ByVal xText As String, _
ByVal xCaption As String, _
ByVal xMsgBoxStyle As VbMsgBoxStyle, _
ByVal xwlange As Long, _
ByVal xTimeOut As Long) _
As Long
3. Aşağıdaki VBA kodunu iki kez kopyalayın ve çalıştırmak istediğiniz kodun "End Sub" satırının hemen önüne yerleştirin.
VBA kodu 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Not: Mesaj kutusunun içeriğini ve iletişim kutusunun ekranda kalma süresini ihtiyaçlarınıza göre özelleştirebilirsiniz.
4. İşlemi gerçekleştirmek için kodu çalıştırdıktan sonra, bir mesaj kutusu belirecek ve belirli bir süre (bu örnekte 4 saniye) sonra otomatik olarak kapanacaktır.
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.
İlgili makaleler:
- Excel'de belirli bir hücreye tıklandığında mesaj kutusunun açılması nasıl sağlanır?
- Excel'de mesaj kutusundaki metni nasıl kopyalayabilirim?
- Excel'de belirtilen bir çalışma sayfası etkinleştirildiğinde veya açıldığında mesaj kutusunun nasıl açılacağını öğrenin?
- Excel'de hücre aralığını veya hücre değerlerini görüntülemek için mesaj kutusunu nasıl açarsınız?
- Excel'de bir aralık içindeki hücre değeri değiştiğinde mesaj kutusunun 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