Στο Excel 5 και 95 είναι δυνατό να επισυνάψετε σημειώσεις σε ένα κελί χρησιμοποιώντας ένα αρχείο ήχου.
Αυτή η ηχητική σημείωση μπορεί να αναπαραχθεί ανοίγοντας το παράθυρο διαλόγου για επεξεργασία σημειώσεων κελιού.
Η παρακάτω μακροεντολή μπορεί επίσης να αναπαράγει την ηχητική νότα που είναι προσαρτημένη σε ένα κελί για εσάς:
Sub PlaySoundNotesInExcel95 (CellAddress As String) 'μόνο για Excel 5 και 95 Εάν δεν είναι εφαρμογή. CanPlaySounds Στη συνέχεια εξέλθετε από το Sub On Error Resume Next' σε περίπτωση που δεν υπάρχει εύρος ηχητικών σημειώσεων (CellAddress). SoundNote.Play On Error GoTo 0 End Sub
Το Excel 97 ή νεότερη έκδοση δεν υποστηρίζει πλέον τη χρήση ηχητικών σημειώσεων.
Με τις μακροεντολές παρακάτω μπορείτε να δημιουργήσετε μια λύση για να επιτύχετε το ίδιο αποτέλεσμα:
Public Declare Function 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 (WavFileNit) = " Sub "no file to play If Wait Then" αναπαραγωγή ήχου πριν από την εκτέλεση περισσότερων κωδικών στο Excel 97 ή νεότερη έκδοση Dim SoundFileName As String SoundFileName = "" Σε σφάλμα Συνέχιση επόμενου "προκύπτει σφάλμα εάν το κελί δεν έχει σημείωση SoundFileName = Range (CellAddress). Comment.Text On Error GoTo 0 If SoundFileName =" "Τότε Έξοδος από το Sub 'no note note If InStr (1, SoundFileName, Chr (10))> 0 Στη συνέχεια' the note περιέχει ένα line-break 'χρησιμοποιήστε την πρώτη γραμμή ως όνομα αρχείου SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) Τέλος αν PlayFileWav SoundFileName, False End Sub
Πώς να δημιουργήσετε μια ηχητική σημείωση:
Εισαγάγετε ένα σχόλιο κελιού κάνοντας δεξί κλικ σε ένα κελί και επιλέξτε Εισαγωγή σχολίου….
Συμπληρώστε το πλήρες όνομα αρχείου και τη διαδρομή προς το αρχείο ήχου που θα αναπαραχθεί στην πρώτη πρόταση στο σχόλιο κελιού,
π.χ. C: \ Όνομα φακέλου \ Soundfilename.wav.
Εάν θέλετε να προσθέσετε ένα γραπτό μήνυμα εκτός από το όνομα αρχείου ήχου, πατήστε το πλήκτρο ENTER μετά το όνομα του αρχείου
για να δημιουργήσετε μια νέα πρόταση στο σχόλιο. Προσθέστε το κείμενο που θέλετε στη νέα πρόταση.
Η μακροεντολή PlaySoundNotesInExcel97 μπορεί να ενεργοποιηθεί από το eventmacro Worksheet_SelectionChange (),
Αυτό θα κάνει την ηχητική σημείωση να παίζει κάθε φορά που ο χρήστης ενεργοποιεί το κελί με την ηχητική σημείωση.
