एड ने इस हफ्ते का एक्सेल सवाल पूछा।
मुझे एक सरल एक्सेल मैक्रो की आवश्यकता है जो खोजेगी - कहती है - कॉलम C और लाल कोशिकाओं को हाइलाइट करें जिसमें आज की तारीख (वर्तमान तिथि) है और स्तंभ में किसी भी अन्य सेल को पीला करें जो कि आज की तारीख से भविष्य में 15 दिन है?
Excel 97 या Excel 2000 के उपयोगकर्ता नए सशर्त स्वरूपण विकल्प का लाभ उठा सकते हैं। आइए कवर करें कि मैक्रो के बिना मैन्युअल रूप से ऐसा कैसे करें।
- सेल C1 में ले जाएँ।
- मेनू से, प्रारूप, सशर्त प्रारूप चुनें
- संवाद के बाईं ओर, "फ़ॉर्मूला है" पढ़ने के लिए ड्रॉप डाउन बदलें
- संवाद बॉक्स के दाईं ओर, दर्ज करें:
=INT(C1)=TODAY()
- प्रारूप पर क्लिक करें, पैटर्न पर क्लिक करें, लाल चुनें। ओके पर क्लिक करें
- जोड़ें पर क्लिक करें …
- संवाद के बाईं ओर, "फ़ॉर्मूला है" पढ़ने के लिए ड्रॉप डाउन बदलें
- संवाद बॉक्स के दाईं ओर, दर्ज करें:
=AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16) - प्रारूप पर क्लिक करें, पैटर्न पर क्लिक करें, पीला चुनें। ओके पर क्लिक करें।
- सेल C1 में इस सशर्त प्रारूप को निर्दिष्ट करने के लिए ठीक क्लिक करें।
यदि प्रारूप सही ढंग से दर्ज किया गया है, तो सेल C1 लाल में बदल जाएगा यदि इसमें आज की तारीख शामिल है और यदि अगले 15 सप्ताह में तारीख है तो पीले करने के लिए। प्रारूप में कार्य () फ़ंक्शन यह सुनिश्चित करेगा कि यदि हम किसी अन्य दिन कार्यपुस्तिका को खोलते हैं, तो यह उस विशेष दिन के लिए लाल कोशिकाओं को उजागर करेगा।
अब आप सेल C1 को कॉपी कर सकते हैं, कॉलम C के सभी डेटा को हाइलाइट कर सकते हैं और कॉलम C के प्रत्येक सेल में उस प्रारूप को लागू करने के लिए Edit> Paste Special> Formats> OK कर सकते हैं।
निम्नलिखित मैक्रो सशर्त प्रारूप को निर्दिष्ट करेगा:
Sub Macro2() Range("C1").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=INT(C1)=TODAY()" Selection.FormatConditions(1).Interior.ColorIndex = 3 Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=AND(INT(C1)>TODAY(),(INT(C1)-TODAY())<16)" Selection.FormatConditions(2).Interior.ColorIndex = 6 Selection.Copy FinalRow = Range("C15000").End(xlUp).Row Range("C2:C" & FinalRow).Select Selection.PasteSpecial Paste:=xlPasteFormats End SubExcel 95 उपयोगकर्ताओं के लिए, आपके पास सशर्त स्वरूपण नहीं है, लेकिन इस तरह मैक्रो का उपयोग कर सकते हैं:
Sub Macro95() ThisDate = Date FinalRow = Range("C15000").End(xlUp).Row For x = 1 To FinalRow ThisCell = Int(Range("C" & x).Value) If ThisCell = ThisDate Then Range("C" & x).Interior.ColorIndex = 3 Else DaysFromNow = ThisCell - ThisDate If DaysFromNow> 0 And DaysFromNow < 16 Then Range("C" & x).Interior.ColorIndex = 6 End If End If Next x End Subसशर्त प्रारूप फ़ंक्शन का सूत्र विशेषता बहुत शक्तिशाली है और आपको उन कोशिकाओं को उजागर करने देगा जो विभिन्न मानदंडों को फिट करते हैं।
