Πώς να παίξετε έναν ήχο εάν πληρούται μια συνθήκη στο Excel;
Στο Excel, μπορούμε να εφαρμόσουμε τη μορφοποίηση υπό όρους στη μορφοποίηση και να επισημάνουμε τα κελιά για να ικανοποιήσουμε την κατάσταση όπως χρειάζεστε, αλλά, μερικές φορές, μπορεί να θέλετε να αναπαράγετε έναν ήχο εάν πληρούται μια συνθήκη. Για παράδειγμα, εάν η τιμή κελιού στο A1 είναι μεγαλύτερη από 300, θέλω να παίζεται ένας ήχος. Το Excel δεν υποστηρίζει αυτήν τη δυνατότητα, αυτό το άρθρο, θα εισαγάγω μερικούς κωδικούς VBA για την επίλυση αυτής της εργασίας.
Αναπαραγωγή ενός προεπιλεγμένου ήχου μπιπ συστήματος με βάση την τιμή κελιού με τον κωδικό VBA
Αναπαραγωγή ενός προσαρμοσμένου ήχου με βάση την τιμή κελιού με τον κωδικό VBA
Αναπαραγωγή ήχου εάν η τιμή του κελιού αλλάξει σε μια συγκεκριμένη στήλη με τον κώδικα VBA
Αναπαραγωγή ενός προεπιλεγμένου ήχου μπιπ συστήματος με βάση την τιμή κελιού με τον κωδικό VBA
Εδώ είναι ένας εύχρηστος κώδικας για να αναπαράγετε έναν προεπιλεγμένο ήχο μπιπ συστήματος όταν πληρούται μια συγκεκριμένη συνθήκη, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 και μετά ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Αναπαραγωγή ενός προεπιλεγμένου ήχου μπιπ συστήματος βάσει μιας τιμής κελιού:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο: = IF (A1> 300, BeepMe (), "") σε ένα κενό κελί δίπλα στο κελί περιέχει την τιμή στην οποία θέλετε να αναπαράγετε έναν ήχο και, στη συνέχεια, πατήστε εισάγετε κλειδί, τίποτα δεν θα εμφανίζεται στο κελί τύπου, δείτε το στιγμιότυπο οθόνης:
4. Και τώρα, εάν η τιμή που έχει εισαχθεί στο κελί A1 είναι μεγαλύτερη από 300, θα αναπαραχθεί ένας προεπιλεγμένος ήχος μπιπ συστήματος.
Αναπαραγωγή ενός προσαρμοσμένου ήχου με βάση την τιμή κελιού με τον κωδικό VBA
Εάν θέλετε να αναπαράγετε κάποιον άλλο ήχο εκτός από τον προεπιλεγμένο ήχο μπιπ συστήματος, εδώ επίσης ένας κωδικός VBA μπορεί να σας βοηθήσει.
1. Κρατήστε πατημένο το ALT + F11 και μετά ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Αναπαραγωγή συγκεκριμένου ήχου με βάση την τιμή κελιού:
#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. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο: = IF (A1> 300, SoundMe (), "")σε ένα κενό κελί δίπλα στο κελί περιέχει την τιμή στην οποία θέλετε να αναπαράγετε έναν ήχο και, στη συνέχεια, πατήστε εισάγετε κλειδί, τίποτα δεν θα εμφανίζεται στο κελί τύπου, δείτε το στιγμιότυπο οθόνης:
4. Από τώρα και στο εξής, εάν μια τιμή μεγαλύτερη από 300 εισάγεται στο κελί A1, θα αναπαραχθεί ένας συγκεκριμένος ήχος ταυτόχρονα.
Notes: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το αρχείο ήχου wav ανάλογα με τις ανάγκες σας c: \ windows \ πολυμέσα \ διαδρομή αρχείου. Δείτε το στιγμιότυπο οθόνης:
Αναπαραγωγή ήχου εάν η τιμή του κελιού αλλάξει σε μια συγκεκριμένη στήλη με τον κώδικα VBA
Εάν θέλετε να ακούσετε έναν ήχο εάν η τιμή του κελιού αλλάξει σε μια συγκεκριμένη στήλη, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA.
1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να αναπαράγετε έναν ήχο όταν αλλάζει η τιμή σε μια στήλη και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος και στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:
Κωδικός VBA: Αναπαραγωγή ήχου εάν η τιμή του κελιού αλλάξει σε μια στήλη:
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
Note: Στον παραπάνω κωδικό, ο αριθμός 3 στο σενάριο Στήλες (3) είναι ο αριθμός στήλης που θέλετε να αναπαράγετε ήχο όταν αλλάζει η τιμή σε αυτήν τη στήλη.
2. Και, στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, τώρα, εάν αλλάξει μια τιμή κελιού στην τρίτη στήλη, θα αναπαραχθεί ένας προεπιλεγμένος ήχος μπιπ συστήματος.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
