Excel - VBA - Bir hatırlatıcı oluşturma
Excel, genellikle verileri yönetmek, farklı veri türlerinden raporlar ve çizelgeler oluşturmak için tercih edilen araçtır. Ancak bunlardan biri, bir hatırlatma oluşturmak gibi başka ilginç şeyler yapmak için Excel'i de kullanabilir. Bu VBA çerçevesi kullanılarak yapılabilir. Bir hatırlatıcı oluşturmak için, yerleşik işlevlerden bazılarını kullanan özel bir VBA kodu yazılmalıdır. Bununla birlikte, kodun ilk önce manuel olarak çalıştırılması gerekir ve çalışma kitabı açık olduğu sürece sonraki yinelemelerde çalışmaya devam eder. Kullanıcı kodu manuel olarak çalıştırmak istemiyorsa, workbook_open adlı özel bir yordam tanımlaması gerekir. 
Konu
Bir Excel çalışma sayfasındaki tarih ve saate göre otomatik olarak bir Hatırlatıcı mesaj kutusu almak istiyorum.
Bu VBA'da yapılabilir mi?
Çözüm
--- A -------------- B -------- C -------------------- D 1- Tarih ------- Zaman ------ Görev --------------------- Hatırlatmak 2- 13/3/2010 - 11:10 ---- Temiz Oda -------------- X 3-13.03.2010 - 11:10 ---- Temiz Araba ------------ ----- X
X: bunun aktif bir hatırlatıcı olduğunu gösterir. Bu hatırlatıcıyı devre dışı bırakmak için x işaretini kaldırın
VBE'de (ALT + F11) ve proje gezgini penceresinde, "ThisWorkbook" üzerine çift tıklayın. Aşağıdaki kodu yapıştırın.
Özel Const hatırlatma Tamsayı Olarak = 1 Özel hatırlatmaSonraki Olarak Varyantı Genel Alt remindMe () currentTime = Time nextMin = CDate (Biçim (Zaman + 1 / (24 * 60), "ss: d")) "= Aralık (" A1 ") .CurrentRegion.Rows.Count Burow için = 2 Myrows içinse (Hücreler (thisrow, "D") = "X") Sonra thistime = CDate (CDate (Burow, "A")) + Hücreler (thisrow, "B ")) Eğer ((thistime> = Şimdi) Ve (thistime <= Şimdi + 1 * hatırlatma / (24 * 60))) Öyleyse görev = task & vbCrLf & Cells (thisrow, " C ") &" at "& Format (Hücreler (bu ", " B "), " ss: d "") Sonunda Sonlandırılıyorsa Sonlandır (Sonrasında "(görev" ") Sonra MsgBox görevi hatırlatıcısıAdıcı = Şimdi + TimeSerial (0, hatırlatıcısı, 0) Application.OnTime hatırlatıcısıAdı, " hatırlatMe ",, Gerçek Son Sub Ayrıca birkaç şeyi anlamanız gerekir:
- Kodun ilk kez manuel olarak başlatılması gerekir. Bundan sonra, kitabı kapatana kadar, kitapta tanımladığınız zamanlamayı kontrol etmeye devam eder.
- Kitabı kapattıktan ve yeniden başlattıktan sonra, kodu bir kez daha başlatmanız gerekir.
- Kodu başlatmak için, Makro'ya gitmeniz gerekecek ve orada menü çubuğunda bir koşu butonu bulacaksınız.
- Kodu manuel olarak çalıştırmak istemiyorsanız ve kitabı her başlattığınızda kodun kendi başına çalıştırılmasını istiyorsanız, Workbook_Open () adlı bir yordam tanımlamanız gerekir.
- Yine, kodu elle çalıştırmak istiyorsanız, daha önce yaptığınız gibi yapın ve kitap açıldığında kendi başına çalışmasını istiyorsanız, bir tane daha eklemeniz gerekir (eski kodu ). Kod şöyle olurdu:
Özel Alt Çalışma Kitabı_Açık () Çağrı hatırlatma
Not
Forumdaki bu ipucu için rizvisa1 'e teşekkür ederiz.