Alarmlı Saat Ekleme Kodu

26 Aralık 2020 26 Aralık 2020 732

Alarmlı Saat Ekleme Kodu isimli içerikteki kod, Excel üzerinden alarm ekleme yapabilecek hazır bir makro kodu içerir.

Sub Alarm()
  Dim beepat As String
  beepat = InputBox("Alarm Ekle", "hh:mm:ss " & _
    Format(Now, "mm:hh"), "17:00")
  If beepat = "" Then
    MsgBox "Vazgeçildi"
    Exit Sub
  End If
  Application.OnTime TimeValue(beepat), "BeepMe"
End Sub

Sub CountDownTimer()
  Dim beepat As String
  beepat = InputBox("Count down Timer hh:mm:ss  i.e. 10:00", _
    "Şu anda saat " & Format(Now, "hh:mm:ss"), "3:00")
  If beepat = "" Then
    MsgBox "Vazgeçildi"
    Exit Sub
  End If
  Application.OnTime (Now + TimeValue(beepat)), "BeepMe"
End Sub

Sub beepme()
  Beep
  Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beepme2"
End Sub

Sub beepme2()
  Beep
  Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beepme3"
End Sub

Sub beepme3()
  Beep
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Boş bir Modules içerisine ekleyerek, üstteki kodları kolayca test edebilirsiniz.

50 Farklı Hazır Makro (VBA) Kodu
Hücrenin Rengini Değiştirme
Excel Menüsüne Ekleme Yapma Kodu
Yorumları Yazdırma
Sayılara Yeni Bir Sayı Ekleme
Çoklu Bulma ve Karşısındaki Değeri Listeleme
Sayıları Rastgele Karıştırmak
Veri Giriş Formunu Etkinleştirme
A Sütunundaki Verileri C Sütununda Sıralama
Checkbox ile Exceli Kapatıp Açmak
Sayıyı Çift ya da Çiftin Katı Yapma
Bir Dizeden Sayısal Veriler Elde Etme
Boş Hücreleri Vurgulama
Bir Çalışma Kitabında Kaç Sayfa Var
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Bir Aralığa Alfabenin Harflerini Ekleme
Son Dolu Satırın Bir Altına Yazdırma
Bir Değeri Renklendirme
Satır Yüksekliklerini Otomatik Ayarlama
UserForm Açılırken Efekt Ekleme
Excel Hücrelerini Çözme
UserForm Resize Özelliği Eklemek
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Otomatik Sıra Numarası Ekleme
Otomatik Olarak Tarih ve Zaman Ekleme
Yorumları İçeren Hücreleri Renklendirme
Salt Okunur Excel Dosyasını Kontrol Etme
Hoş Geldiniz Mesajı Ekleme
Excel Makro ile Hücreye Veri Yazma
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Sağ Tık ile Açılan Menüye Ekleme Yapma
Makrolar ile Klasör Oluşturma
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Aç Penceresini Açan Makro
Sütunlardaki Farkı Renklendirme
Google Üzerinde Arama Yapma
Txt Dosyası Oluşturma
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
Seçili Aralığı PDF Olarak Kaydetme
Excel Alarm Kurma
Makro ile Git Penceresini Açma
Tüm Boş Çalışma Sayfalarını Silme
Açılışta Üç Kere Şifre Hakkı Vermek
Disk Sürücü Kapasitesini Gösterme
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Makro ile Dosya Açma
Metni Tersten Yazdırma

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...