1 Ανοίξτε το έργο σας Excel . 2
Κάντε κλικ στο " Μακροεντολές " στη γραμμή εργαλείων και , στη συνέχεια, "Προβολή μακροεντολών. "
Η
3
Επιλέξτε μια μακροεντολή που εργάζεστε και κάντε κλικ στο κουμπί "Επεξεργασία" για να το ανοίξετε σε VBA .
Η
4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα , αντικαθιστώντας το " PATH " με τη θέση του αρχείου ήχου που θέλετε να παίξετε από το έγγραφο :
Λειτουργία Public Declare sndPlaySound Lib " Winmm.dll " _Alias " sndPlaySoundA " ( ByVal lpszSoundName As String , _ByVal uFlags Όπως Long ) Όπως Long
Sub PlayWavFile ( WavFileName As String , Περιμένετε Όπως Boolean ) Αν Dir ( WavFileName ) = " " τότε Έξοδος Sub «όχι αρχείο σε playIf Περιμένετε Στη συνέχεια, « παίζουν ήχο πριν από την εκτέλεση οποιασδήποτε περισσότερα codesndPlaySound WavFileName , την αναπαραγωγή ήχου 0Else », ενώ κώδικα είναι runningsndPlaySound WavFileName , 1End IfEnd Sub
Sub TestPlayWavFile ( ) PlayWavFile " PATH " , FalseMsgBox " Αυτό είναι ορατό , ενώ ο ήχος παίζει ... " PlayWavFile " PATH " , TrueMsgBox " Αυτό είναι ορατό μετά ο ήχος τελειώσει το παιχνίδι ... " End Sub
5
Πατήστε το πλήκτρο" Ctrl " + " S " για να αποθηκεύσετε το αρχείο σας .
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα