Excel में सेल फ़्लैश को लाल कैसे करें?
सामान्य तौर पर, हम अलग-अलग पृष्ठभूमि वाली कोशिकाओं को दूसरों से अलग बनाने के लिए हाइलाइट करते हैं, लेकिन यहां, इस लेख में, मैं एक वीबीए कोड पेश करता हूं जो विशिष्ट कोशिकाओं को लाल पृष्ठभूमि के साथ एक्सेल में उत्कृष्ट बना सकता है।
वीबीए के साथ सेल फ्लैश को लाल बनाएं
वीबीए के साथ सेल फ्लैश को लाल बनाएं
उपयोगकर्ताओं का ध्यान आकर्षित करने के लिए कोशिकाओं को पलक झपकाने के लिए, यहां एक VBA कोड है।
1. उस शीट को सक्षम करें जिसे आप सेल फ़्लैश करना चाहते हैं, और दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नीचे VBA कोड चिपकाएँ मॉड्यूल लिखी हुई कहानी। स्क्रीनशॉट देखें:
वीबीए: सेल फ्लैश को लाल बनाएं
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3। दबाएँ F5 कुंजी, और ए एक्सेल के लिए कुटूल उन कक्षों का चयन करने के लिए संवाद पॉप आउट होता है जिन्हें आप फ़्लैश बनाना चाहते हैं, स्क्रीनशॉट देखें:
4। क्लिक करें OK. अब चयनित सेल को लाल पृष्ठभूमि के साथ फ़्लैश किया गया है।
सुझाव:
(1) वीबीए कोड में, आप पृष्ठभूमि का रंग बदल सकते हैं (xरंग = 3), पलक झपकने की गति (xस्पीड = 0.6) और कई बार पलकें झपकाना (xCount=20 तक करें) जैसा तुम चाहो।
(2) यह वीबीए कोड रिक्त चयन में फ़्लैश पृष्ठभूमि नहीं जोड़ेगा।
(3) रिक्त समय समाप्त होने के बाद यह फ़्लैश पृष्ठभूमि स्वचालित रूप से हटा दी जाएगी।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!