VBA ដើម្បីពិនិត្យមើលថាតើ String មាន String ផ្សេងទៀតនៅក្នុង Excel (6 Methods)

Hugh West

16-10-2023 ម៉ាក្រូ & Excel VBA
  • ចែករំលែកនេះ។
Hugh West

ការអនុវត្ត VBA គឺជាវិធីសាស្ត្រដ៏មានប្រសិទ្ធភាព លឿនបំផុត និងសុវត្ថិភាពបំផុត ដើម្បីដំណើរការប្រតិបត្តិការណាមួយនៅក្នុង Excel។ នៅក្នុងអត្ថបទនេះ យើងនឹងបង្ហាញអ្នកពីរបៀបពិនិត្យមើលថាតើខ្សែអក្សរមួយមានខ្សែអក្សរផ្សេងទៀតនៅក្នុង Excel ដោយប្រើ VBA ។

ទាញយកគំរូការអនុវត្ត

អ្នក អាចទាញយកគំរូការអនុវត្ត Excel ដោយឥតគិតថ្លៃពីទីនេះ។

VBA ដើម្បីពិនិត្យមើលថាតើខ្សែអក្សរមាន Value.xlsm

6 Methods នៅក្នុង VBA ដើម្បីពិនិត្យមើលថាតើ String មាន String មួយផ្សេងទៀតនៅក្នុង Excel

ខាងក្រោមនៅក្នុងផ្នែកនេះ អ្នកនឹងឃើញវិធីសាស្រ្តដ៏មានប្រសិទ្ធភាពចំនួន 6 អំពីរបៀបអនុវត្ត VBA ដើម្បីពិនិត្យមើលថាតើ string មាន string ផ្សេងទៀតឬអត់ .

1. VBA ដើម្បីពិនិត្យមើលថាតើខ្សែអក្សរមានខ្សែអក្សររង

ខាងក្រោមជាឧទាហរណ៍នៃ អនុគមន៍ InStr ដើម្បីរកមើលថាតើខ្សែអក្សរមានខ្សែអក្សររងនៅក្នុង Excel ដែរឬទេ។

ជំហាន៖

  • ចុច Alt + F11 នៅលើក្តារចុចរបស់អ្នក ឬចូលទៅកាន់ផ្ទាំង អ្នកអភិវឌ្ឍន៍ -> Visual Basic ដើម្បីបើក Visual Basic Editor ។

  • នៅក្នុងបង្អួចកូដលេចឡើង ពីរបារម៉ឺនុយ ចុច បញ្ចូល -> ម៉ូឌុល ។

  • នៅក្នុងបង្អួចកូដ សូមចម្លងកូដខាងក្រោម ហើយបិទភ្ជាប់វា។ 
8094

របស់អ្នក ឥឡូវនេះលេខកូដរួចរាល់សម្រាប់ដំណើរការហើយ។

  • រត់ ម៉ាក្រូ។

ប្រសិនបើ ខ្សែអក្សររបស់អ្នកមានខ្សែអក្សររង នោះអ្នកនឹងរកឃើញការផ្គូផ្គង បើមិនដូច្នោះទេ វានឹងត្រឡប់រកមិនឃើញការផ្គូផ្គងទេ។

ក្នុងឧទាហរណ៍របស់យើង យើងចង់ដឹងថាតើយើងខ្សែអក្សរចម្បង “ ភាពយន្ត៖ Iron Man, Batman, Superman, Spiderman, Thor ” មានពាក្យ “ Hulk ” ឬអត់។ ដោយសារវាមិនមាន យើងទទួលបានលទ្ធផល ភាពយន្តរកមិនឃើញ ។

2. VBA ដើម្បីពិនិត្យមើលថាតើខ្សែអក្សរមានលេខ

អ្នកអាចស្វែងរកថាតើខ្សែអក្សរមានលេខឬអត់ដោយប្រើកូដ VBA ។

សូមមើលឧទាហរណ៍ខាងក្រោមដែលយើង នឹងរកឃើញខ្សែអក្សរណាដែលមានលេខជាមួយឈ្មោះភាពយន្ត។

ជំហានដើម្បីពិនិត្យមើលថាតើខ្សែអក្សរមានលេខជាមួយ VBA ត្រូវបានផ្តល់ឱ្យខាងក្រោម។

ជំហាន៖

  • ដូចមុនដែរ បើក Visual Basic Editor ពីផ្ទាំង Developer ហើយ Insert a ម៉ូឌុល នៅក្នុងបង្អួចកូដ។
  • នៅក្នុងបង្អួចកូដ សូមចម្លងកូដខាងក្រោម ហើយបិទភ្ជាប់វា។ 
8988
  • នេះមិនមែនទេ។ ដំណើរការរងសម្រាប់កម្មវិធី VBA ដើម្បីដំណើរការ វាកំពុងបង្កើត មុខងារកំណត់ដោយអ្នកប្រើប្រាស់ (UDF) ដែលយើងនឹងហៅក្នុងសន្លឹកកិច្ចការរបស់យើងដើម្បីប្រតិបត្តិកិច្ចការ។ ដូច្នេះ បន្ទាប់ពីសរសេរកូដហើយ ជំនួសឱ្យការចុចប៊ូតុង រត់ សូមចុចលើប៊ូតុង រក្សាទុក ពីរបារម៉ឺនុយ ដើម្បីរក្សាទុកឯកសារម៉ាក្រូ។
  • ឥឡូវត្រឡប់ទៅវិញ ទៅកាន់សន្លឹកកិច្ចការដែលចាប់អារម្មណ៍ ហើយសរសេរមុខងារកំណត់ដោយអ្នកប្រើប្រាស់ដែលអ្នកទើបតែបង្កើតនៅក្នុងកូដ VBA ( លេខស្វែងរក នៅក្នុងជួរទីមួយនៃកូដ) និងនៅខាងក្នុងតង្កៀបនៃអនុគមន៍ បញ្ចូលលេខយោងក្រឡានៃក្រឡានៃខ្សែអក្សរដែលមានលេខនាំមុខ (ឧ. ក្រឡាB5 )។
  • ចុច Enter ។

អ្នកនឹងទទួលបានតម្លៃប៊ូលីន ( TRUE ឬ False ) ប្រសិនបើខ្សែអក្សរក្នុងក្រឡាមានលេខ នោះអ្នកនឹងទទួលបាន TRUE បើមិនដូច្នេះទេ FALSE ។

  • អូសក្រឡាចុះក្រោមដោយ Fill Handle ដើម្បីអនុវត្តរូបមន្តទៅក្រឡាដែលនៅសល់ ដើម្បីពិនិត្យមើលថាតើខ្សែអក្សរណាមានលេខ និងមួយណាដែលមិនមាន។

៣. VBA ដើម្បីស្រង់លេខចេញពី String

នៅក្នុងផ្នែកខាងលើ យើងរៀនពីរបៀបពិនិត្យមើលថាតើខ្សែអក្សរមានលេខឬអត់។ ហើយនៅក្នុងផ្នែកនេះ យើងនឹងរៀនពីរបៀបដើម្បីស្រង់លេខទាំងនោះ ហើយដាក់វានៅក្នុងក្រឡាមួយផ្សេងទៀតជាមួយនឹងឧទាហរណ៍ដែលបានផ្តល់ឱ្យខាងក្រោម។

ជំហានដើម្បីពិនិត្យមើលថាតើខ្សែអក្សរមានលេខ និងស្រង់ពួកវា ជាមួយ VBA ត្រូវបានផ្តល់ឱ្យខាងក្រោម។

ជំហាន៖

  • បើក កម្មវិធីនិពន្ធ Visual Basic ពី អ្នកអភិវឌ្ឍន៍ ផ្ទាំង និង បញ្ចូល មួយ ទម្រង់អ្នកប្រើប្រាស់ លើកនេះពីផ្ទាំង បញ្ចូលក្នុងបង្អួចកូដ។
  • ពី ប្រអប់ឧបករណ៍ ដែលបានលេចចេញមក អូស ហើយទម្លាក់ CommandButton នៅក្នុង UserForm ។

  • ចុចពីរដង នៅលើ ប៊ូតុង ចម្លងកូដខាងក្រោម ហើយបិទភ្ជាប់វា។ 
5974
  • រត់ កូដនោះ ហើយវានឹងនាំអ្នកទៅកាន់សន្លឹកកិច្ចការដែលចាប់អារម្មណ៍។
  • ចុចលើប៊ូតុងពាក្យបញ្ជា ហើយអ្នកនឹងទទួលបានលេខដែលបានស្រង់ចេញពីខ្សែអក្សរ។

4. VBA ដើម្បីពិនិត្យមើលថាតើខ្សែអក្សរមានលិខិតជាក់លាក់

វិធីសាស្ត្រនេះជិតដល់ហើយ។ស្រដៀង​នឹង​វិធី​ពិនិត្យ​អក្សរ​រង​ក្នុង​ខ្សែអក្សរ។

ខាងក្រោម​នេះ​ជា​អនុគមន៍ InStr ដើម្បី​រក​មើល​ថា​តើ​ខ្សែអក្សរ​មាន​អក្សរ​ជាក់លាក់​ក្នុង Excel ដែរ​ឬ​អត់។

ជំហាន :

  • ដូចមុនដែរ បើក Visual Basic Editor ពីផ្ទាំង Developer ហើយ Insert a ម៉ូឌុល នៅក្នុងបង្អួចកូដ។
  • នៅក្នុងបង្អួចកូដ សូមចម្លងកូដខាងក្រោម ហើយបិទភ្ជាប់វា។ 
6672

ឥឡូវនេះ លេខកូដរបស់អ្នករួចរាល់ដើម្បីដំណើរការហើយ។

  • ដំណើរការ កម្មវិធី។ ប្រសិនបើ ខ្សែអក្សររបស់អ្នកមានអក្សរ នោះអ្នកនឹងរកឃើញការផ្គូផ្គង បើមិនដូច្នេះទេ វានឹងត្រឡប់មកវិញមិនបានរកឃើញការផ្គូផ្គងទេ។

ក្នុងឧទាហរណ៍របស់យើង យើងចង់ដឹងថាតើខ្សែអក្សរចម្បងរបស់យើង “ ភាពយន្ត៖ Iron Man, Batman, Superman, Spiderman, Thor ” មានអក្សរ “ Z ” ឬអត់។ ដោយសារវាមិនមាន យើងទទួលបានលទ្ធផល Letter not found ។

5. VBA ដើម្បីពិនិត្យមើលថាតើជួរនៃខ្សែអក្សរមានខ្សែអក្សរផ្សេងទៀត

យើងបានរៀនពីរបៀបពិនិត្យមើលថាតើខ្សែអក្សរដែលបានផ្តល់ឱ្យមានខ្សែអក្សរផ្សេងទៀតឬអត់។ ប៉ុន្តែនៅក្នុងផ្នែកនេះ យើងនឹងរៀនពីរបៀបពិនិត្យមើលថាតើជួរនៃខ្សែអក្សរមាន substring ឬអត់ជាមួយនឹងសំណុំទិន្នន័យខាងក្រោមជាឧទាហរណ៍។

ជំហាន៖

  • បើក Visual Basic Editor ពីផ្ទាំង Developer ហើយ Insert a Module នៅក្នុងបង្អួចកូដ .
  • នៅក្នុងបង្អួចកូដ សូមចម្លងកូដខាងក្រោម ហើយបិទភ្ជាប់វា។ 
9385

លេខកូដរបស់អ្នកឥឡូវនេះរួចរាល់ដើម្បីរត់។

  • រត់ កូដ។

ប្រសិនបើអ្នក ជួរនៃ ខ្សែអក្សរមានខ្សែអក្សររង បន្ទាប់មកអ្នកនឹងទទួលបានការផ្គូផ្គងដែលបានរកឃើញ បើមិនដូច្នេះទេ វានឹងត្រឡប់មិនបានរកឃើញការផ្គូផ្គងទេ។

6. VBA ដើម្បីស្រង់ខ្សែអក្សរចេញពី String

នៅក្នុងផ្នែកនេះ យើងនឹងឃើញពីរបៀបពិនិត្យមើលថាតើខ្សែអក្សរមាន substrings ជាក់លាក់ឬអត់ ហើយស្រង់វាចេញពីក្រឡាផ្សេងទៀត។

យើងនឹងទាញយកព័ត៌មាននៃ ឈ្មោះដែលចាប់ផ្តើមដោយ “ Chris ” ពីសំណុំទិន្នន័យខាងក្រោម។

ជំហាន :

  • បើក Visual Basic Editor ពីផ្ទាំង Developer ហើយ Insert a Module នៅក្នុងបង្អួចកូដ។
  • នៅក្នុងបង្អួចកូដ សូមចម្លងកូដខាងក្រោម ហើយបិទភ្ជាប់វា។ 
9056

ឥឡូវនេះលេខកូដរបស់អ្នករួចរាល់ដើម្បីដំណើរការហើយ។

    <11 ដំណើរការ លេខកូដ។

មានតែឈ្មោះដែលចាប់ផ្តើមដោយ “ Chris ” នឹង ត្រូវបានរក្សាទុកក្នុងក្រឡាដែលបានកំណត់ជាមុន។

ប្រកាសមុន។ ផ្លូវកាត់ក្តារចុចដើម្បីបង្កកផ្ទាំងនៅក្នុង Excel (ផ្លូវកាត់ 3)
ប្រកាសបន្ទាប់ របៀបបន្ថែម 6 ខែទៅកាលបរិច្ឆេទក្នុង Excel (2 វិធីងាយៗ)

Hugh West គឺជាគ្រូបណ្តុះបណ្តាល Excel ដែលមានបទពិសោធន៍ខ្ពស់ និងជាអ្នកវិភាគដែលមានបទពិសោធន៍ជាង 10 ឆ្នាំនៅក្នុងឧស្សាហកម្មនេះ។ លោកបានបញ្ចប់ថ្នាក់បរិញ្ញាបត្រផ្នែកគណនេយ្យ និងហិរញ្ញវត្ថុ និងបរិញ្ញាបត្រជាន់ខ្ពស់ផ្នែកគ្រប់គ្រងពាណិជ្ជកម្ម។ Hugh មានចំណង់ចំណូលចិត្តក្នុងការបង្រៀន ហើយបានបង្កើតវិធីសាស្រ្តបង្រៀនពិសេសមួយ ដែលងាយស្រួលធ្វើតាម និងយល់។ ចំណេះដឹងជំនាញ Excel របស់គាត់បានជួយសិស្សានុសិស្ស និងអ្នកជំនាញរាប់ពាន់នាក់នៅទូទាំងពិភពលោកបង្កើនជំនាញ និងពូកែក្នុងអាជីពរបស់ពួកគេ។ តាមរយៈប្លុករបស់គាត់ លោក Hugh ចែករំលែកចំណេះដឹងរបស់គាត់ជាមួយពិភពលោក ដោយផ្តល់ជូននូវការបង្រៀន Excel ដោយឥតគិតថ្លៃ និងការបណ្តុះបណ្តាលតាមអ៊ីនធឺណិត ដើម្បីជួយបុគ្គល និងអាជីវកម្មឈានដល់សក្តានុពលពេញលេញរបស់ពួកគេ។