Excel'de bir koşul sağlandığında nasıl ses çalınır?
Excel’de hücreleri ihtiyacınıza göre biçimlendirmek ve vurgulamak için Koşullu Biçimlendirme özelliğini kullanabilirsiniz; ancak bazen belirli bir koşul sağlandığında bir ses çalmasını da isteyebilirsiniz. Örneğin, A1 hücresindeki değer 300’den büyük olduğunda bir uyarı sesi duymak istiyorum. Ne yazık ki Excel bu özelliği doğrudan desteklemez; bu makalede böyle bir görevi gerçekleştirmek için bazı VBA kodlarını tanıtacağım.
VBA kodu ile hücre değerine göre varsayılan sistem bip sesini çalma
VBA kodu ile hücre değerine göre özel bir ses çalma
VBA kodu ile bir Sütunu belirtin içinde hücre değeri değiştiğinde ses çalma
VBA kodu ile hücre değerine göre varsayılan sistem bip sesini çalma
Belirli bir koşul sağlandığında varsayılan sistem bip sesini çalmanız için size kullanışlı bir kod sunuyoruz. Lütfen aşağıdaki adımları izleyin:
1. ALT + F11 tuşlarına basılı tutun; böylece Microsoft Visual Basic for Applications penceresi açılır.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Bir hücre değerine göre varsayılan sistem bip sesini çalma:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. Ardından bu kod penceresini Kaydet ve Kapat, çalışma sayfasına dönün ve şu formülü girin: ses çalmasını istediğiniz hücrenin yanındaki boş bir hücreye =IF(A1>,300,BeepMe(),"") yazın ve ardından Enter tuşuna basın; formül hücresinde hiçbir şey görüntülenmeyecektir. Ekran görüntüsüne bakın:
4. Artık A1 hücresine girilen değer 300'den büyük olduğunda, varsayılan sistem bip sesi çalacaktır.
VBA kodu ile hücre değerine göre özel bir ses çalma
Varsayılan sistem bip sesi yerine farklı bir ses çalmak istiyorsanız, işte tam da size yardımcı olacak bir VBA kodu daha!
1ALT + F11 tuşlarına basılı tutun; böylece Microsoft Visual Basic for Applications penceresi açılır.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Bir hücre değerine göre belirli bir ses çalma:
#If Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
3. Ardından bu kod penceresini Kaydet ve Kapat, çalışma sayfasına dönün ve şu formülü girin: =IF(A1>,300,SoundMe(),"") — ses çalmasını istediğiniz hücrenin yanındaki boş bir hücreye yazın ve ardından Enter tuşuna basın. Formül hücresinde hiçbir şey görüntülenmeyecektir. Ekran görüntüsüne bakın:
4. Bundan sonra A1 hücresine 300'den büyük bir değer girildiğinde, belirli bir ses anında çalınacak.
Notlar: Yukarıdaki kodda ses dosyasını (wav), kendi ihtiyacınıza göre c:\windows\media\ konumundan değiştirebilirsiniz. Ekran görüntüsüne bakın:
VBA kodu ile bir Sütunu belirtin içinde hücre değeri değiştiğinde ses çalma
Bir sütunu belirtin; hücre değeri değiştiğinde ses çalmasını istiyorsanız aşağıdaki VBA kodunu kullanabilirsiniz.
1. Değer değiştiğinde ses çalmasını istediğiniz sütunun bulunduğu sayfa sekmesine sağ tıklayın, ardından bağlam menüsünden Kodu Görüntüle seçeneğini seçin ve açılan Microsoft Visual Basic for Applications penceresinde aşağıdaki kodu boş Modül kısmına kopyalayıp yapıştırın:
VBA kodu: Bir sütunda hücre değeri değiştiğinde ses çalma:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
If Intersect(Target, Columns(3)) Is Nothing Then
Exit Sub
Else
For Each xCell In Columns(3)
On Error Resume Next
If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
Beep
Exit For
End If
Next
End If
End If
End Sub
Not: Yukarıdaki kodda, 3 sayısı, değer değiştiğinde ses çalmasını istediğiniz sütunun numarasıdır; bu, betikteki Sütunlar(3) ifadesine karşılık gelir.
2. Ardından bu kod penceresini kaydedip kapatın; artık üçüncü sütundaki bir hücre değeri değiştiğinde varsayılan sistem bip sesi çalacaktı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