Excel 5 ve 95'te, bir ses dosyası kullanarak bir hücreye not eklemek mümkündür.
Bu sesli not, hücre notlarının düzenlenmesi için iletişim kutusu açılarak çalınabilir.
Aşağıdaki makro, sizin için bir hücreye iliştirilmiş sesli notayı da çalabilir:
Sub PlaySoundNotesInExcel95(CellAddress As String) ' sadece Excel 5 ve 95 için Application Not Application.CanPlaySounds Then Exit Sub On Error Resume Next ' eğer ses notu yoksa Range(CellAddress).SoundNote.Play On Error GoTo 0 End Sub
Excel 97 veya sonraki sürümleri artık sesli notların kullanımını desteklememektedir.
Aşağıdaki makrolarla aynı efekti elde etmek için bir geçici çözüm oluşturmak mümkündür:
Public Bildiri Fonksiyonu sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile(WavFileName As String, Wait As Boolean) If Dir(WavFile ExName) = "" Alt ' Oynatılacak dosya yok If Wait O zaman ' daha fazla kod çalıştırmadan önce ses çal sndPlaySound WavFileName, 0 Else ' kod çalışırken ses çal sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97(CellAddress As String) ' sesli notları çalmak için geçici çözüm Excel 97 veya sonraki sürümlerde SoundFileName As String SoundFileName = "" On Error Resume Next ' hücrede bir not yoksa SoundFileName = Range(CellAddress).Comment.Text On Error 0 GoTo GoTo SoundFileName = "" ise bir hata oluşur Exit Sub ' hücre notası yok InStr(1, SoundFileName, Chr(10)) > 0 ise ' not bir satır sonu içeriyor ' dosya adı olarak ilk satırı kullanın SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr) (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
Sesli not nasıl oluşturulur:
Bir hücreye sağ tıklayarak bir hücre yorumu ekleyin ve Yorum Ekle… 'yi seçin.
İlk cümlede çalınacak ses dosyasının tam dosya adını ve yolunu hücre yorumuna girin,
Örneğin. C:\Klasöradı\Sesdosyasıadı.wav.
Ses dosyası adına ek olarak yazılı bir mesaj eklemek isterseniz, dosya adından sonra ENTER tuşuna basın.
yorumda yeni bir cümle oluşturmak için. İstediğiniz metni yeni cümleye ekleyin.
PlaySoundNotesInExcel97 makrosu eventmacro Worksheet_SelectionChange() tarafından etkinleştirilebilir,
bu, kullanıcı sesli notla hücreyi her etkinleştirdiğinde sesli notun çalmasını sağlar.
