Агуулга

Стандарт Microsoft Excel хэрэгслүүдийн дунд давхардсан материалыг өнгөөр ​​тодруулах олон янзын арга байдаг. Хамгийн хялбар бөгөөд хурдан арга бол нөхцөлт форматлах явдал юм. Үүнийг хийхийн тулд нүднүүдийн мужийг сонгоод таб дээрээс сонгоно уу Нүүр хуудас — Нөхцөлт форматлах — Нүд сонгох дүрэм — Давхардсан утгууд (Нүүр хуудас - Нөхцөлт формат - Нүднүүдийг тодруулах дүрэм - Давхардсан утгууд):

Давхардсан давхар гэрэлтүүлэг

Гэсэн хэдий ч, энэ тохиолдолд бүх нүднүүдийн дүүргэх өнгө ижил байх болно, өөрөөр хэлбэл энэ нь тухайн элемент нь муж дахь өөр газар давхардсан байгааг илтгэх боловч тэдгээрийг олоход тус болохгүй. Та нөхцөл байдлыг жижиг макро ашиглан засах боломжтой бөгөөд энэ нь давтагдсан давхардлын хос бүрийг (эсвэл түүнээс дээш) өөрийн өнгөөр ​​дүүргэх болно.

Давхардсан давхар гэрэлтүүлэг

Илүү ойлгомжтой, тийм үү? Мэдээжийн хэрэг, олон тооны давтагдах эсүүдтэй бол сүүдрийг ялгахад хэцүү байх болно, гэхдээ харьцангуй цөөн тооны давхардсан тохиолдолд энэ арга төгс ажиллах болно.

Энэ макро ашиглахын тулд гарын товчлолыг дарна уу Alt + F11 эсвэл товчлуур Visual Basic таб Developer, цэсээр дамжуулан шинэ хоосон модулийг оруулна уу Оруулах - Модуль мөн энэ макроны кодыг тэнд хуулна:

Sub DuplicatesColoring() Dim Dupes() 'Давхардсан тоонуудыг хадгалах массив зарлах ReDim Dupes(1 To Selection.Cells.Count, 1 to 2) Selection.Interior.ColorIndex = -4142 'Хэрэв нүд бүрийн хувьд i = 3 бол дүүргэлтийг арилгана уу. Сонголт Хэрэв WorksheetFunction.CountIf(Selection, cell.Value) > 1 Дараа нь For k = LBound(Dupes) To UBound(Dupes) 'хэрэв нүд аль хэдийн давхардсан массивт байгаа бол If Dupes(k, 1) = нүдийг бөглөнө үү. Дараа нь үүр.Интерьер. ColorIndex = Dupes(k, 2) Next k 'хэрэв нүдэнд давхардсан боловч массивт хараахан ороогүй байгаа бол массив руу нэмээд бөглөнө үү If cell.Interior.ColorIndex = -4142 Дараа нь cell.Interior.ColorIndex = i Хувилбарууд(i, 1 ) = нүд. Утга Хувилбарууд(i, 2) = ii = i + 1 Төгсгөл бол дараагийн нүд Төгсгөлийн дэд  

Одоо та хуудсан дээрх өгөгдөл бүхий дурын мужийг сонгож, гарын товчлолыг ашиглан манай макро ажиллуулж болно Alt + F8 эсвэл товчлуураар дамжуулан Макроны (Макро) таб Developer (Хөгжүүлэгч).

  • Хуулбаруудыг өнгөөр ​​тодруул
  • Макро гэж юу вэ, Visual Basic программын макро кодыг хаана оруулах, хэрхэн ажиллуулах вэ
  • Өгөгдсөн нүднүүдийн өвөрмөц утгын тоог хэрхэн тоолох вэ

хариу үлдээх