ក្នុងចំណោមឧបករណ៍ Microsoft Excel ស្តង់ដារ មានវិធីខុសៗគ្នាជាច្រើនដើម្បីរំលេចភាពស្ទួនដោយពណ៌។ មធ្យោបាយងាយស្រួលបំផុត និងលឿនបំផុតគឺការធ្វើទ្រង់ទ្រាយតាមលក្ខខណ្ឌ។ ដើម្បីធ្វើដូចនេះគ្រាន់តែជ្រើសរើសជួរក្រឡាមួយហើយជ្រើសរើសនៅលើផ្ទាំង ទំព័រដើម — ទម្រង់តាមលក្ខខណ្ឌ — ច្បាប់ជ្រើសរើសក្រឡា — ស្ទួនតម្លៃ (ទំព័រដើម — ទម្រង់តាមលក្ខខណ្ឌ — បន្លិចច្បាប់ក្រឡា — តម្លៃស្ទួន):
ទោះយ៉ាងណាក៏ដោយ ក្នុងករណីនេះ ពណ៌បំពេញនៃក្រឡាទាំងអស់នឹងដូចគ្នា ពោលគឺវាគ្រាន់តែជាសញ្ញាថាធាតុមានស្ទួននៅកន្លែងផ្សេងក្នុងជួរ ប៉ុន្តែគ្មានអ្វីជួយស្វែងរកពួកវាទេ។ អ្នកអាចជួសជុលស្ថានភាពដោយប្រើម៉ាក្រូតូចមួយដែលនឹងបំពេញគូនីមួយៗ (ឬច្រើន) នៃការស្ទួនម្តងហើយម្តងទៀតជាមួយនឹងពណ៌ផ្ទាល់ខ្លួនរបស់វា៖
កាន់តែច្បាស់ហើយមែនទេ? ជាការពិតណាស់ជាមួយនឹងចំនួនកោសិកាដដែលៗជាច្រើនវានឹងពិបាកក្នុងការបែងចែករវាងស្រមោលប៉ុន្តែជាមួយនឹងចំនួនស្ទួនតិចតួចវិធីសាស្ត្រនេះនឹងដំណើរការយ៉ាងល្អឥតខ្ចោះ។
ដើម្បីប្រើម៉ាក្រូនេះ សូមចុចផ្លូវកាត់ក្តារចុច ជំនួស (Alt) + F11 ឬប៊ូតុង Visual Basic ផ្ទាំង អ្នកអភិវឌ្ឍន៍បញ្ចូលម៉ូឌុលទទេថ្មីតាមរយៈម៉ឺនុយ បញ្ចូល - ម៉ូឌុល ហើយចម្លងកូដរបស់ម៉ាក្រូនេះនៅទីនោះ៖
Sub DuplicatesColoring() Dim Dupes() 'ប្រកាសអារេមួយដើម្បីរក្សាទុកស្ទួន ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'លុបការបំពេញ ប្រសិនបើ i = 3 សម្រាប់ក្រឡានីមួយៗក្នុង Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'ប្រសិនបើក្រឡាមាននៅក្នុងអារេនៃការស្ទួនរួចហើយ សូមបំពេញ 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 ប្រសិនបើបញ្ចប់ ប្រសិនបើក្រឡាបន្ទាប់ បញ្ចប់ Sub
ឥឡូវនេះ អ្នកអាចជ្រើសរើសជួរណាមួយដែលមានទិន្នន័យនៅលើសន្លឹក ហើយដំណើរការម៉ាក្រូរបស់យើងដោយប្រើផ្លូវកាត់ក្តារចុច ជំនួស (Alt) + F8 ឬតាមរយៈប៊ូតុង ម៉ាក្រូ (ម៉ាក្រូ) ផ្ទាំង អ្នកអភិវឌ្ឍ (អ្នកអភិវឌ្ឍន៍).
- បន្លិចការស្ទួនជាមួយពណ៌
- តើម៉ាក្រូជាអ្វី កន្លែងដែលត្រូវបញ្ចូលកូដម៉ាក្រូក្នុង Visual Basic របៀបដំណើរការពួកវា
- របៀបរាប់ចំនួននៃតម្លៃតែមួយគត់នៅក្នុងជួរក្រឡាដែលបានផ្តល់ឱ្យ