Lara awọn irinṣẹ Microsoft Excel boṣewa, ọpọlọpọ awọn ọna oriṣiriṣi lo wa lati ṣe afihan awọn ẹda-iwe pẹlu awọ. Ọna to rọọrun ati iyara julọ jẹ pẹlu akoonu akoonu. Lati ṣe eyi, kan yan iwọn awọn sẹẹli ki o yan lori taabu Ile - Kika ni àídájú - Awọn ofin yiyan sẹẹli - Awọn iye pidánpidán (Ile - Iṣagbekalẹ ni àídájú - Ṣe afihan Awọn ofin Awọn sẹẹli - Awọn iye pidánpidán):
Bibẹẹkọ, ninu ọran yii, awọ kikun ti gbogbo awọn sẹẹli yoo jẹ kanna, ie o kan awọn ifihan agbara pe eroja ni awọn ẹda-iwe ni ibomiiran ni sakani, ṣugbọn ko ṣe nkankan lati ṣe iranlọwọ lati wa wọn. O le ṣatunṣe ipo naa pẹlu macro kekere kan ti yoo kun bata kọọkan (tabi diẹ sii) ti awọn ẹda-ẹda ti o tun ṣe pẹlu awọ tirẹ:
Ki Elo clearer, ọtun? Nitoribẹẹ, pẹlu nọmba nla ti awọn sẹẹli atunwi, yoo nira lati ṣe iyatọ laarin awọn ojiji, ṣugbọn pẹlu nọmba kekere ti awọn ẹda-iwe, ọna yii yoo ṣiṣẹ ni pipe.
Lati lo Makiro yii, tẹ ọna abuja keyboard F11 giga + tabi bọtini visual Ipilẹ taabu developer, fi titun kan sofo module nipasẹ awọn akojọ Fi sii - Module ati daakọ koodu Makiro yii nibẹ:
Sub DuplicatesColoring() Dim Dupes()'Kede ohun orun lati fi awọn ẹda-iwe ReDim Dupes pamọ(1 Lati Selection.Cells.Count, 1 Si 2) Selection.Interior.ColorIndex = -4142 'Yọ kikun kuro ti i = 3 Fun alagbeka kọọkan Ninu Yiyan Ti WorksheetFunction.CountIf(Aṣayan, cell.Iye)> 1 Lẹhinna Fun k = LBound(Dupes) Si UBound(Dupes) 'ti sẹẹli ba ti wa ni akojọpọ awọn ẹda-iwe, fọwọsi If Dupes(k, 1) = cell Lẹhinna cell.Inu. ColorIndex = Dupes(k, 2) Nigbamii ti o ba jẹ pe sẹẹli naa ni ẹda-ẹda kan, ṣugbọn ko tii si ninu titobi, fi kun si orun naa ki o si kun If cell.Interior.ColorIndex = -4142 Lẹhinna cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Iye Dupes(i, 2) = ii = i + 1 Ipari Ti o ba ti Ipari Ti cell Next Ipari Sub
Bayi o le yan eyikeyi ibiti o wa pẹlu data lori dì ati ṣiṣe macro wa nipa lilo ọna abuja keyboard F8 giga + tabi nipasẹ bọtini Makiro (Macros) taabu developer (Olùgbéejáde).
- Ṣe afihan awọn ẹda-ẹda pẹlu awọ
- Kini macros, nibo ni lati fi koodu Makiro sii ni Visual Basic, bi o ṣe le ṣiṣe wọn
- Bii o ṣe le ka nọmba awọn iye alailẹgbẹ ni sakani ti awọn sẹẹli ti a fun