Şarta Göre Müzik Çaldırma

Bu dosya, bir hücredeki değere bağlı olarak Excel içinden ses çaldırmayı gösteren makro destekli bir örnektir. A1 hücresindeki değer 5'ten büyük olduğunda Windows'un Tada.wav ses dosyası çalınır. Sesli uyarı gerektiren takip, stok ve hedef kontrolü gibi çalışmalara uyarlanabilir.

Dosyanın içeriği​

• Sayfa1: Kullanılan tek sayfadır. A1 hücresinde 6 değeri bulunur ve makronun kontrol ettiği hücre budur. Sayfada formül yoktur.
• Module1: İki makro prosedürünü barındıran VBA modülüdür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• Autpen: Dosya açıldığında kendiliğinden çalışır. Sayfa1 için OnCalculate olayını PlayIt makrosuna bağlar. Böylece sayfada her hesaplama yapıldığında PlayIt çağrılır.
• PlayIt: A1 hücresinin değerinin 5'ten büyük olup olmadığını denetler. Koşul sağlanırsa ExecuteExcel4Macro ile Excel 4.0 makro komutu SOUND.PLAY çalıştırılır ve C:\Windows\Media\Tada.wav dosyası çalınır.

Kodda dosya silme veya dışarıya bağlantı kuran bir işlem yoktur; makro yalnızca yerel bir ses dosyasını çalar. Ses dosyası yolu, bilgisayarda bu dosyanın bulunmasına bağlıdır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de A1 hücresine 5'ten büyük bir sayı yazın. Sayfa yeniden hesaplandığında ses çalınır.
3. A1 değeri 5 veya daha küçükse ses çalınmaz.
4. Eşik değeri değiştirmek için Alt+F11 ile VBA düzenleyicisini açın, Module1 içindeki PlayIt prosedüründe 5 değerini düzenleyin.
5. Farklı bir ses için aynı prosedürdeki ses dosyası yolunu değiştirin.

Not: A1'e doğrudan değer yazıldığında Excel'in yeniden hesaplama yapmadığı durumlarda tetikleme olmayabilir; A1 bir formül sonucuysa veya sayfada formül değiştiğinde olay çalışır.