Excel Alarm Kurma
Excel Alarm Kurma isimli kodu kullanarak, bir Excel dosyası açık oldunda istediğiniz şekilde alarm işleminin ortaya çıkmasını sağlayabilirsiniz.
XD Destek İsteSub Alarm()
Dim beepat As String
bippp = InputBox("Uyanma", "hh:mm:ss " & _
Format(Now, "mm:hh"), "07:45")
If bippp = "" Then
MsgBox "İptal Edildi"
Exit Sub
End If
Application.OnTime TimeValue(bippp), "Bibiiipppp"
End Sub
Gerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- 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.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Etiketler
Daha önce yorum yapılmamış!
YARARLI KISAYOLLAR | |
---|---|
Koyu Yazdırma / Alternatif | Ctrl 2 |
Otomatik Toplama | Ctrl M |
VB Penceresini Açmak | Alt F11 |
Yapıştır Kısayolu | Ctrl V |
Tablo Olarak Biçimlendirme | Ctrl L |
Excel hücrelerinizde, ok tuşlarının dışında;
- Enter tuşu ile alt hücreye,
- Shift + Enter tuşları ile üst hücreye
- Tab ile sağ hücreye,
- Shift + Tab tuşları ile sol hücreye