Skip to main content

Excel'de bir koşul karşılandığında nasıl ses çalınır?

Author: Xiaoyang Last Modified: 2025-06-10

Excel'de, ihtiyacınız olan koşulu karşılamak için Koşullu Biçimlendirme'yi uygulayabilir ve hücreleri biçimlendirebilir ve vurgulayabiliriz. Ancak bazen, bir koşul karşılandığında ses çalmak isteyebilirsiniz. Örneğin, A1 hücresindeki değer 300'den büyükse, bir sesin çalmasını istiyorum. Excel bu özelliği desteklemiyor; bu makalede, bu görevi çözmek için size bazı VBA kodları tanıtacağım.

VBA kodu ile hücre değerine göre varsayılan sistem bip sesi çalma

VBA kodu ile hücre değerine göre özel bir ses çalma

VBA kodu ile belirli bir sütunda hücre değeri değiştiğinde ses çalma


VBA kodu ile hücre değerine göre varsayılan sistem bip sesi çalma

İşte size belirli bir koşul karşılandığında varsayılan sistem bip sesini çalan kullanışlı bir kod. Lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basın, ardından Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Hücre değerine göre varsayılan sistem bip sesi çalma:

Function BeepMe() As String
    Beep
    BeepMe = ""
End Function

3. Ardından bu kod penceresini kaydedip kapatın, çalışma sayfasına geri dönün ve bu formülü girin: =EĞER(A1>300;BeepMe();"") ses çalmak istediğiniz değeri içeren hücrenin yanındaki boş bir hücreye yazın ve Enter tuşuna basın, formül hücresinde hiçbir şey görüntülenmeyecektir, ekran görüntüsüne bakın:

a screenshot showing how to play default system beep sound when a cell value matches a certain condition

4. Ve şimdi, A1 hücresine girilen değer 300'den büyükse, varsayılan sistem bip sesi çalınacaktır.


VBA kodu ile hücre değerine göre özel bir ses çalma

Varsayılan sistem bip sesinden farklı bir ses çalmak istiyorsanız, işte size yardımcı olabilecek bir VBA kodu daha var.

1. ALT + F11 tuşlarına basın, ardından Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: 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 kaydedip kapatın, çalışma sayfasına geri dönün ve bu formülü girin: =EĞER(A1>300;SoundMe();"") ses çalmak istediğiniz değeri içeren hücrenin yanındaki boş bir hücreye yazın ve Enter tuşuna basın, formül hücresinde hiçbir şey görüntülenmeyecektir, ekran görüntüsüne bakın:

a screenshot showing how to play a custom sound when a cell value matches a certain condition

4. Şimdi itibaren, A1 hücresine 300'den büyük bir değer girilirse, belirli bir ses hemen çalınacaktır.

Notlar: Yukarıdaki kodda, c:\windows\media\ dosya yolundan ihtiyacınıza göre ses wav dosyasını değiştirebilirsiniz. Ekran görüntüsüne bakın:

a screenshot of selecting a sound


VBA kodu ile belirli bir sütunda hücre değeri değiştiğinde ses çalma

Belirli bir sütunda hücre değeri değiştiğinde ses çalmak istiyorsanız, aşağıdaki VBA kodunu uygulayabilirsiniz.

1. Bir sütunda değer değiştiğinde ses çalmak istediğiniz sayfa sekmesine sağ tıklayın, ardından bağlam menüsünden Kodu Görüntüle'yi seçin ve açılan Microsoft Visual Basic for applications penceresinde aşağıdaki kodu boş Modül'e 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

a screenshot of using a VBA code

Not: Yukarıdaki kodda, Columns(3) betiğindeki 3 sayısı, bu sütunda değer değiştiğinde ses çalmak istediğiniz sütun numarasıdır.

2. Ve sonra bu kod penceresini kaydedip kapatın, şimdi üçüncü sütunda bir hücre değeri değişirse, varsayılan sistem bip sesi çalınacaktır.


En İyi Ofis Verimlilik Araçları

🤖 Kutools AI Asistanı: Veri analizinde devrim yaratın: Akıllı Yürütme   |  Kod Oluştur  |  Özel Formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur  |  Geliştirilmiş İşlevleri Çağır
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya İşaretle   |  Boş Satırları Sil   |  Sütunları veya Hücreleri Verileri Kaybetmeden Birleştir   |   Formül Olmadan Yuvarla ...
Süper ARA: Çok Kriterli Düşeyara    Çoklu Değer Düşeyara  |   Çoklu sayfa araması   |   Bulanık Eşleme ....
Gelişmiş Açılır Liste: Hızlıca Açılır Liste Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekle  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştır ...
Öne Çıkan Özellikler: Izgara Odaklama   |  Tasarım Görünümü   |   Gelişmiş formül çubuğu    Çalışma Kitabı & Çalışma Sayfası Yöneticisi   |  Otomatik Metin Kütüphanesi (Auto Text)   |  Tarih Seçici   |  Veri Birleştir   |  Hücreleri Şifrele/Şifre Çöz    Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtrele...) ...
En İyi15 Araç Seti12 Metin Aracı (Metin Ekle, Belirli Karakterleri Sil, ...)   |   50+ Grafik Türü (Gantt Grafiği, ...)   |   40+ Pratik Formül (Doğum tarihine dayanarak yaş hesapla, ...)   |   19 Ekleme Aracı (QR Kodu Ekle, Yoldan Resim Ekle, ...)   |   12 Dönüşüm Aracı (Kelimeye Dönüştür, Para Birimi Dönüştürme, ...)   |   7 Birleştir & Böl Aracı (Gelişmiş Satırları Birleştir, Hücreleri Böl, ...)   |   ... ve daha fazlası

Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar.  En çok ihtiyacınız olan özelliği almak için buraya tıklayın...


Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır

  • Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
  • Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
  • Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!