ໃນບັນດາເຄື່ອງມື Microsoft Excel ມາດຕະຖານ, ມີຫຼາຍວິທີທີ່ແຕກຕ່າງກັນເພື່ອເນັ້ນໃຫ້ເຫັນການຊ້ໍາກັນທີ່ມີສີ. ວິທີທີ່ງ່າຍທີ່ສຸດແລະໄວທີ່ສຸດແມ່ນຮູບແບບທີ່ມີເງື່ອນໄຂ. ເພື່ອເຮັດສິ່ງນີ້, ພຽງແຕ່ເລືອກຂອບເຂດຂອງຈຸລັງແລະເລືອກໃນແຖບ ຫນ້າທໍາອິດ — ການຈັດຮູບແບບເງື່ອນໄຂ — ກົດລະບຽບການຄັດເລືອກຫ້ອງ — ຄຸນຄ່າທີ່ຊ້ໍາກັນ (ຫນ້າທໍາອິດ — ການຈັດຮູບແບບເງື່ອນໄຂ — ເນັ້ນໃຫ້ເຫັນກົດລະບຽບເຊລ — ມູນຄ່າທີ່ຊ້ໍາກັນ):
ຢ່າງໃດກໍຕາມ, ໃນກໍລະນີນີ້, ສີຕື່ມຂໍ້ມູນຂອງຈຸລັງທັງຫມົດຈະຄືກັນ, ຫມາຍຄວາມວ່າມັນພຽງແຕ່ເປັນສັນຍານວ່າອົງປະກອບມີການຊໍ້າຊ້ອນຢູ່ບ່ອນອື່ນໃນໄລຍະ, ແຕ່ບໍ່ມີຫຍັງທີ່ຈະຊ່ວຍຊອກຫາໃຫ້ເຂົາເຈົ້າ. ທ່ານສາມາດແກ້ໄຂສະຖານະການດ້ວຍມະຫາພາກຂະຫນາດນ້ອຍທີ່ຈະຕື່ມຂໍ້ມູນໃສ່ແຕ່ລະຄູ່ (ຫຼືຫຼາຍກວ່ານັ້ນ) ຊ້ໍາກັນດ້ວຍສີຂອງຕົນເອງ:
ຫຼາຍຈະແຈ້ງກວ່າ, ແມ່ນບໍ? ແນ່ນອນ, ດ້ວຍຈໍານວນຈຸລັງທີ່ຊ້ໍາກັນຫຼາຍ, ມັນຈະຍາກທີ່ຈະຈໍາແນກລະຫວ່າງບ່ອນທີ່ມີຮົ່ມ, ແຕ່ດ້ວຍຈໍານວນທີ່ຊ້ໍາກັນ, ວິທີການນີ້ຈະເຮັດວຽກຢ່າງສົມບູນ.
ເພື່ອໃຊ້ macro ນີ້, ໃຫ້ກົດແປ້ນພິມລັດ Alt + F11 ຫຼືປຸ່ມ Visual Basic ແຖບ ການພັດທະນາ, ໃສ່ໂມດູນເປົ່າໃຫມ່ຜ່ານເມນູ ໃສ່ - ໂມດູນ ແລະສຳເນົາລະຫັດຂອງມະຫາພາກນີ້ຢູ່ທີ່ນັ້ນ:
Sub DuplicatesColoring() Dim Dupes() 'ປະກາດ array ເພື່ອເກັບຊໍ້າກັນ ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'ເອົາການຕື່ມອອກ ຖ້າ i = 3 ສໍາລັບແຕ່ລະເຊລ In Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'ຖ້າຕາລາງຢູ່ໃນ array ຂອງຊໍ້າກັນ, ຕື່ມຂໍ້ມູນໃສ່ If Dupes(k, 1) = cell ຫຼັງຈາກນັ້ນ cell.Interior. ColorIndex = Dupes(k, 2) ຖັດໄປ k 'ຖ້າເຊລມີຊໍ້າກັນ, ແຕ່ຍັງບໍ່ທັນຢູ່ໃນອາເຣ, ໃຫ້ຕື່ມໃສ່ໃນອາເຣແລ້ວຕື່ມ ຖ້າ cell.Interior.ColorIndex = -4142 ຫຼັງຈາກນັ້ນ cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End ຖ້າ End ຖ້າຕາລາງຕໍ່ໄປ End Sub
ຕອນນີ້ທ່ານສາມາດເລືອກຊ່ວງໃດກໍໄດ້ທີ່ມີຂໍ້ມູນຢູ່ໃນແຜ່ນງານ ແລະແລ່ນມາໂຄຣຂອງພວກເຮົາໂດຍໃຊ້ປຸ່ມລັດແປ້ນພິມ Alt + F8 ຫຼືຜ່ານປຸ່ມ ມາໂຄຣ (ມາໂຄຣ) ແຖບ ການພັດທະນາ (ຜູ້ພັດທະນາ).
- ເນັ້ນການຊໍ້າກັນດ້ວຍສີ
- ແມໂຄແມ່ນຫຍັງ, ບ່ອນທີ່ຈະໃສ່ລະຫັດມະຫາພາກໃນ Visual Basic, ວິທີການດໍາເນີນການພວກມັນ
- ວິທີການນັບຈໍານວນຄ່າທີ່ບໍ່ຊ້ໍາກັນໃນຂອບເຂດທີ່ກໍານົດຂອງຈຸລັງ