एक्सेल शीट में कुछ नंबरों को कलर करने के लिए बटन

मुद्दा

मैं बटन पर संख्या के बराबर एक बटन रंग बनाने के लिए एक रास्ता खोज रहा हूं ... उदाहरण के रूप में, मान लें कि मेरे पास 1 से 10 तक बटन की एक पंक्ति है, और एक ही शीट कोशिकाओं में संख्याओं के साथ बिना किसी क्रम के 1 से 10। मैं अब जल्दी से सभी 3 और 7 के रंग से पहचानना चाहता हूं। "सिंपल: क्लिक बटन 3, एक्शन: सभी कोशिकाओं को नंबर 3 के साथ रंग दें और इसे ऐसे ही रहने दें जब तक कि मैं फिर से बटन नहीं दबाता ...

उपाय

मैं इन निर्देशों का एक और समाधान प्रिंट करूंगा और (बशर्ते यह आपको सूट करे)

एक नया एक्सेल फाइल खोलें

अब vb एडिटर में इस मैक्रो को कॉपी करें

 उप परीक्षण () डिम x अस इंटेगर, cfind () अस रेंज, जे अस इंटेगर, के अस इंटेगर, स्ट्रिंग स्तम्भों ("ए: ए") को जोड़ें। आंतरिक .ColorIndex = xlNone x "रेंज (" एफ 1 ") मान। j = WorksheetFunction.CountIf (Columns ("A: A"), x) यदि j = 0 तो MsgBox "कॉलम में ऐसा कोई मान उपलब्ध नहीं है" Exit Sub End यदि ReDim cfind (1 से j के लिए) k = 1 से j के लिए सेट करें cfind (k) = कॉलम ("A: A")। Cells.Find (क्या: = x, lookat: = xlWhole) cfind (k) .Interior.ColorIndex = 3 add = cfind (k) .Address Do Cfind सेट करें। (k) = कॉलम ("A: A")। Cells.FindNext (cfind (k)) यदि cfind (k) कुछ भी नहीं है तो Exit Do if cfind (k)। जोड़ें। Add = तो बाहर निकलें Dfind (k)। पूर्वकाल में जोड़ें। .ColorIndex = 3 लूप अगला k अंत उप

मेनू-टूलबार-फ़ॉर्म देखें पर क्लिक करें

फॉर्म टूलबार की सूची में एक स्पिनर कहा जाता है

इसे क्लिक करें और एक स्पिनर बटन खींचें

बटन पर राइट क्लिक करें और "प्रारूप नियंत्रण" पर क्लिक करें

उस विंडो में नियंत्रण चुनें (शीर्ष पंक्ति में अंतिम आइटम)

टाइप 1 के खिलाफ "न्यूनतम मूल्य"

टाइप 10 "अधिकतम मूल्य" के खिलाफ

"वृद्धिशील परिवर्तन" 1 होगा

सेल लिंक $ F $ 1 होगा

ओके पर क्लिक करें

फिर से स्पिनर बटन पर क्लिक करें और "असाइन मैक्रो" पर क्लिक करें "परीक्षण" नाम आएगा। ए 1 से ए 20 के बीच कुछ पूर्णांकों को टाइप करने के लिए ए और 10 (कुछ दो बार या तीन बार दोहराए जाने वाले, कुछ नंबर गायब) का परीक्षण करने के लिए ए को हाइलाइट करने के लिए कॉलम ए में हैं पर क्लिक करें। या स्पिनर बटन में नीचे की ओर तीर। एफ 1 में मूल्य देखें। यदि F1 है तो 1 कुछ नहीं होगा यदि आप नीचे की ओर तीर पर क्लिक करते हैं तो यदि F1 10 ऊपर की ओर है तो तीर कुछ भी नहीं देगा अन्यथा नीचे या ऊपर की ओर तीर पर क्लिक करें, F1 में देखते रहें और उन संख्याओं को देखें (जिनका मान F1 मान है) A को लाल रंग से चिह्नित किया जाएगा। क्या यह आपके काम आएगा। आप योजना को संशोधित कर सकते हैं