Excel'de bir koşul karşılandığında nasıl ses çalınır?
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:
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:
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:
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
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 for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin