यदि एक्सेल में कोई शर्त पूरी हो तो ध्वनि कैसे बजाएं?
एक्सेल में, हम आपकी आवश्यकतानुसार शर्तों को पूरा करने के लिए कोशिकाओं को प्रारूपित करने और हाइलाइट करने के लिए सशर्त स्वरूपण लागू कर सकते हैं, लेकिन, कभी-कभी, यदि कोई शर्त पूरी हो जाती है, तो आप ध्वनि बजाना चाह सकते हैं। उदाहरण के लिए, यदि A1 में सेल मान 300 से अधिक है, तो मैं चाहता हूँ कि एक ध्वनि बजाई जाए। एक्सेल इस सुविधा का समर्थन नहीं करता है, इस लेख में, मैं इस कार्य को हल करने के लिए कुछ वीबीए कोड पेश करूंगा।
वीबीए कोड के साथ सेल वैल्यू के आधार पर एक डिफ़ॉल्ट सिस्टम बीप ध्वनि चलाएं
वीबीए कोड के साथ सेल वैल्यू के आधार पर एक कस्टम ध्वनि चलाएं
यदि वीबीए कोड के साथ किसी विशिष्ट कॉलम में सेल मान बदलता है तो ध्वनि बजाएं
वीबीए कोड के साथ सेल वैल्यू के आधार पर एक डिफ़ॉल्ट सिस्टम बीप ध्वनि चलाएं
एक विशिष्ट शर्त पूरी होने पर डिफ़ॉल्ट सिस्टम बीप ध्वनि चलाने के लिए यहां एक आसान कोड है, कृपया इसे इस प्रकार करें:
1. नीचे पकड़ो ALT + F11 चाबियाँ, फिर यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सेल मान के आधार पर एक डिफ़ॉल्ट सिस्टम बीप ध्वनि चलाएं:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. फिर इस कोड विंडो को सहेजें और बंद करें, वर्कशीट पर वापस जाएं और यह सूत्र दर्ज करें: =IF(A1>300,BeepMe(),"") सेल के बगल में एक खाली सेल में वह मान होता है जिसके आधार पर आप ध्वनि बजाना चाहते हैं, और फिर दबाएँ दर्ज कुंजी, सूत्र कक्ष में कुछ भी प्रदर्शित नहीं होगा, स्क्रीनशॉट देखें:
4. और अब, यदि सेल A1 में दर्ज किया गया मान 300 से अधिक है, तो एक डिफ़ॉल्ट सिस्टम बीप ध्वनि बजायी जाएगी।
वीबीए कोड के साथ सेल वैल्यू के आधार पर एक कस्टम ध्वनि चलाएं
यदि आप डिफ़ॉल्ट सिस्टम बीप ध्वनि के अलावा कोई अन्य ध्वनि बजाना चाहते हैं, तो यहां भी एक VBA कोड आपके लिए उपयोगी हो सकता है।
1. दबाए रखें ALT + F11 चाबियाँ, फिर यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सेल मान के आधार पर एक विशिष्ट ध्वनि चलाएं:
#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. अब से, यदि सेल A300 में 1 से अधिक मान दर्ज किया जाता है, तो एक विशिष्ट ध्वनि तुरंत बजाई जाएगी।
नोट्स: उपरोक्त कोड में, आप साउंड वेव फ़ाइल को अपनी आवश्यकता के अनुसार बदल सकते हैं सी:\विंडोज़\मीडिया\ दस्तावेज पथ। स्क्रीनशॉट देखें:
यदि वीबीए कोड के साथ किसी विशिष्ट कॉलम में सेल मान बदलता है तो ध्वनि बजाएं
यदि आप किसी विशिष्ट कॉलम में सेल मान बदलने पर ध्वनि बजाना चाहते हैं, तो आप निम्नलिखित VBA कोड लागू कर सकते हैं।
1. उस शीट टैब पर राइट क्लिक करें जिसे आप किसी कॉलम में मान बदलने पर ध्वनि बजाना चाहते हैं, फिर चुनें कोड देखें संदर्भ मेनू से, और खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्न कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: यदि किसी कॉलम में सेल मान बदलता है तो ध्वनि बजाएं:
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
नोट: उपरोक्त कोड में, संख्या 3 स्क्रिप्ट में कॉलम(3) वह कॉलम नंबर है जिसे आप इस कॉलम में मान बदलने पर ध्वनि बजाना चाहते हैं।
2. और फिर इस कोड विंडो को सहेजें और बंद करें, अब, यदि तीसरे कॉलम में सेल मान बदलता है, तो एक डिफ़ॉल्ट सिस्टम बीप ध्वनि बजायी जाएगी।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
