የተባዙ ድርብ ማብራት

ከመደበኛው የማይክሮሶፍት ኤክሴል መሳሪያዎች መካከል ብዜቶችን ከቀለም ጋር ለማጉላት ብዙ የተለያዩ መንገዶች አሉ። በጣም ቀላሉ እና ፈጣኑ መንገድ ሁኔታዊ ቅርጸት ነው። ይህንን ለማድረግ የሕዋሶችን ክልል ብቻ ይምረጡ እና በትሩ ላይ ይምረጡ ቤት - ሁኔታዊ ቅርጸት - የሕዋስ ምርጫ ህጎች - የተባዙ እሴቶች (ቤት - ሁኔታዊ ቅርጸት - የሕዋስ ደንቦችን አድምቅ - የተባዙ እሴቶች):

ነገር ግን፣ በዚህ ሁኔታ፣ የሁሉም ህዋሶች ሙሌት ቀለም አንድ አይነት ይሆናል፣ ማለትም በቀላሉ ኤለመንት በክልል ውስጥ ሌላ ቦታ ብዜቶች እንዳሉት ይጠቁማል፣ ነገር ግን እነርሱን ለማግኘት የሚረዳ ምንም ነገር አያደርግም። እያንዳንዱን ጥንድ (ወይም ከዚያ በላይ) ተደጋጋሚ ብዜቶችን በራሱ ቀለም በሚሞላ በትንሽ ማክሮ ሁኔታውን ማስተካከል ይችላሉ-

በጣም ግልጽ ፣ ትክክል? እርግጥ ነው, ብዙ ቁጥር ያላቸው ተደጋጋሚ ህዋሶች, ጥላዎችን ለመለየት አስቸጋሪ ይሆናል, ነገር ግን በአንጻራዊ ሁኔታ አነስተኛ ቁጥር ያላቸው ብዜቶች, ይህ ዘዴ በትክክል ይሰራል.

ይህን ማክሮ ለመጠቀም የቁልፍ ሰሌዳ አቋራጩን ይጫኑ Alt + F11 ወይም አዝራር ቪዥዋል ቤዚክ ትር ገንቢ, በምናሌው በኩል አዲስ ባዶ ሞጁል አስገባ አስገባ - ሞጁል እና የዚህን ማክሮ ኮድ እዚያ ይቅዱ፡-

ንዑስ የተባዙ ቀለም () Dim Dupes()' የተባዙትን ReDim Dupes ለማከማቸት ድርድር ያውጁ(1 ወደ Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'ሙላቱን አስወግድ i = 3 ለእያንዳንዱ ሴል ኢን ውስጥ ከሆነ Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 ከዚያም ለ k = LBound(Dupes) To UBound(Dupes) 'ሕዋሱ አስቀድሞ የተባዙ ድርድር ውስጥ ካለ፣ If Dupes(k, 1) = cell ይሙሉ። ከዚያም ሕዋስ.ውስጥ. ColorIndex = Dupes(k, 2) በመቀጠል k 'ሕዋሱ የተባዛ ከያዘ ነገር ግን በድርድር ውስጥ ገና ከሌለ ወደ ድርድር ጨምረው ሴል ከሆነ ይሙሉት.Interior.ColorIndex = -4142 ከዚያም cell.Interior.ColorIndex = i Dupes(i, 1) = cell.የዋጋ ዱፕስ(i, 2) = ii = i + 1 መጨረሻ ከሆነ የሚቀጥለው ሕዋስ መጨረሻ ንዑስ ከሆነ  

አሁን ማንኛውንም ክልል በሉሁ ላይ ካለው መረጃ ጋር መምረጥ እና የቁልፍ ሰሌዳ አቋራጭን በመጠቀም ማክሮችንን ማሄድ ይችላሉ። Alt + F8 ወይም በአዝራሩ በኩል ማክሮስ (ማክሮስ) ትር ገንቢ (ገንቢ).

• ብዜቶችን በቀለም ያደምቁ
• ማክሮዎች ምንድን ናቸው፣ በ Visual Basic ውስጥ የማክሮ ኮድ የት እንደሚያስገባ፣ እንዴት እንደሚሮጡ
• በተወሰነ የሕዋስ ክልል ውስጥ የልዩ እሴቶችን ብዛት እንዴት መቁጠር እንደሚቻል