Excel'de bir koşul karşılanırsa ses nasıl çalınır?
Excel'de Koşullu Biçimlendirmeyi, ihtiyaç duyduğunuz koşulu karşılaması için hücreleri biçimlendirmek ve vurgulamak için uygulayabiliriz, ancak bazen, bir koşul karşılanırsa bir ses çalmak isteyebilirsiniz. Örneğin, A1'deki hücre değeri 300'den büyükse, bir sesin çalınmasını istiyorum. Excel bu özelliği desteklemiyor, bu yazıda bu görevi çözmek için bazı VBA kodlarını tanıtacağım.
VBA kodu ile hücre değerine göre varsayılan bir sistem bip sesi çalın
VBA kodu ile hücre değerine göre özel bir ses çalın
VBA kodu ile belirli bir sütunda hücre değeri değişirse bir ses çalın
VBA kodu ile hücre değerine göre varsayılan bir sistem bip sesi çalın
Belirli bir koşul karşılandığında varsayılan bir sistem bip sesini çalmanız için kullanışlı bir kod, lütfen şu şekilde yapın:
1. basılı tutun ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Bir hücre değerine göre varsayılan bir sistem bip sesi çalın:
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 şu formülü girin: = EĞER (A1> 300, BeepMe (), "") Hücrenin yanındaki boş bir hücreye, bir sesi temel alarak çalmak istediğiniz değeri içerir ve ardından Keşfet anahtar, formül hücresinde hiçbir şey görüntülenmeyecek, ekran görüntüsüne bakın:
4. Ve şimdi, A1 hücresine girilen değer 300'den büyükse, varsayılan bir sistem bip sesi çalınacaktır.
VBA kodu ile hücre değerine göre özel bir ses çalın
Varsayılan sistem bip sesinden başka bir ses çalmak istiyorsanız, burada bir VBA kodu da size bir iyilik yapabilir.
1. Basılı tutun ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.
2. Tıkla Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Bir hücre değerine göre belirli bir ses çalın:
#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 dönün ve şu formülü girin: = EĞER (A1> 300, SoundMe (), "")Hücrenin yanındaki boş bir hücreye, bir sesi temel alarak çalmak istediğiniz değeri içerir ve ardından Keşfet anahtar, formül hücresinde hiçbir şey görüntülenmeyecek, ekran görüntüsüne bakın:
4. Şu andan itibaren A300 hücresine 1'den büyük bir değer girilirse, aynı anda belirli bir ses çalınacaktır.
notlar: Yukarıdaki kodda, ses wav dosyasını ihtiyacınıza göre değiştirebilirsiniz. c: \ windows \ media \ dosya yolu. Ekran görüntüsüne bakın:
VBA kodu ile belirli bir sütunda hücre değeri değişirse bir ses çalın
Belirli bir sütunda hücre değeri değişirse bir ses çalmak istiyorsanız, aşağıdaki VBA kodunu uygulayabilirsiniz.
1. Bir sütundaki değer değiştiğinde ses çalmasını istediğiniz sayfa sekmesini sağ tıklayın, ardından Kodu Görüntüle bağlam menüsünden ve açılan Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki kodu boş Modüle kopyalayıp yapıştırın:
VBA kodu: Bir sütundaki hücre değeri değişirse bir ses çalın:
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 numara 3 senaryoda Sütunlar (3) bu sütundaki değer değiştiğinde ses çalmasını istediğiniz sütun numarasıdır.
2. Ve sonra bu kod penceresini kaydedin ve kapatın, şimdi üçüncü sütundaki bir hücre değeri değişirse, varsayılan bir sistem bip sesi çalınacaktır.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!