צווישן די נאָרמאַל מיקראָסאָפט עקססעל מכשירים, עס זענען פילע פאַרשידענע וועגן צו הויכפּונקט דופּליקאַטן מיט קאָלירן. די יזיאַסט און פאַסטאַסט וועג איז מיט קאַנדישאַנאַל פאָרמאַטטינג. צו טאָן דאָס, נאָר סעלעקטירן אַ קייט פון סעלז און סעלעקטירן דעם קוויטל היים - קאַנדישאַנאַל פאָרמאַטטינג - צעל סעלעקציע כּללים - דופּליקאַט וואַלועס (היים - קאַנדישאַנאַל פאָרמאַטטינג - הויכפּונקט סעלז כּללים - דופּליקאַט וואַלועס):
אָבער, אין דעם פאַל, די פילונג קאָליר פון אַלע סעלז וועט זיין די זעלבע, ד"ה עס סימפּלי סיגנאַלז אַז דער עלעמענט האט דופּליקאַטן ערגעץ אַנדערש אין די קייט, אָבער טוט גאָרנישט צו געפֿינען זיי. איר קענען פאַרריכטן די סיטואַציע מיט אַ קליין מאַקראָו וואָס וועט פּלאָמבירן יעדער פּאָר (אָדער מער) פון ריפּיטיד דופּליקאַטן מיט זיין אייגענע קאָליר:
אַזוי פיל קלירער, רעכט? פון קורס, מיט אַ גרויס נומער פון ריפּיטינג סעלז, עס וועט זיין שווער צו ויסטיילן צווישן שיידז, אָבער מיט אַ לעפיערעך קליין נומער פון דופּליקאַטן, דעם אופֿן וועט אַרבעטן בישליימעס.
צו נוצן דעם מאַקראָו, דריקן די קלאַוויאַטור דורכוועג אַלט + פקסנומקס אָדער קנעפּל וויסואַל באַסיק קוויטל דעוועלאָפּער, אַרייַנלייגן אַ נייַ ליידיק מאָדולע דורך די מעניו אַרייַנלייגן - מאָדולע און נאָכמאַכן די קאָד פון דעם מאַקראָו דאָרט:
Sub DuplicatesColoring() Dim Dupes() 'דערקלערן אַ מענגע צו קראָם דופּליקאַטן ReDim Dupes (1 צו Selection.Cells.Count, 1 צו 2) Selection.Interior.ColorIndex = -4142 'נעם אַוועק די פילונג אויב איך = 3 פֿאַר יעדער צעל אין סעלעקציע אויב WorksheetFunction.CountIf(סעלעקציע, צעל.וואַלוע) > 1 דעמאָלט פֿאַר ק = לבאָונד (דופּעס) צו UBound (דופּעס) 'אויב דער צעל איז שוין אין די מענגע פון דופּליקאַטן, פּלאָמבירן אויב דופּעס (ק, 1) = צעל דעמאָלט צעל.ינטיאָר. קאָלאָרינדעקס = דופּעס (ק, 2) ווייַטער ק 'אויב דער צעל כּולל אַ דופּליקאַט, אָבער נישט נאָך אין די מענגע, לייגן עס צו די מענגע און פּלאָמבירן עס אויב cell.Interior.ColorIndex = -4142 דעמאָלט cell.Interior.ColorIndex = i דופּעס (איך, קסנומקס) = צעל.וואַלוע דופּעס (איך, קסנומקס) = וו = איך + קסנומקס סוף אויב סוף אויב ווייַטער צעל סוף סוב
איצט איר קענען אויסקלייַבן קיין קייט מיט דאַטן אויף דעם בלאַט און לויפן אונדזער מאַקראָו מיט די קלאַוויאַטור דורכוועג אַלט + פקסנומקס אָדער דורך דעם קנעפּל מאַקראָס (מאַקראָס) קוויטל דעוועלאָפּער (דעוועלאָפּער).
- הויכפּונקט דופּליקאַטן מיט קאָלירן
- וואָס זענען מאַקראָס, ווו צו אַרייַנלייגן מאַקראָו קאָד אין וויסואַל באַסיק, ווי צו לויפן זיי
- ווי צו ציילן די נומער פון יינציק וואַלועס אין אַ געגעבן קייט פון סעלז