ការបំពេញទម្រង់ជាមួយទិន្នន័យពីតារាង

ការបង្កើតបញ្ហា

យើងមានមូលដ្ឋានទិន្នន័យ (បញ្ជីតារាង - ហៅវាតាមអ្វីដែលអ្នកចង់បាន) ជាមួយនឹងព័ត៌មានស្តីពីការទូទាត់នៅលើសន្លឹកមួយ។ ទិន្នន័យ:

កិច្ចការ។៖ បោះពុម្ពចេញវិក្កយបត្រសាច់ប្រាក់ (ការទូទាត់ វិក្កយបត្រ…) យ៉ាងឆាប់រហ័សសម្រាប់ធាតុដែលចង់បានដែលបានជ្រើសរើសពីបញ្ជីនេះ។ ទៅ!

ជំហានទី 1. បង្កើតទម្រង់មួយ។

នៅលើសន្លឹកមួយទៀតនៃសៀវភៅ (សូមហៅសន្លឹកនេះ។ សំណុំបែបបទ) បង្កើតទម្រង់ទទេ។ អ្នកអាចធ្វើវាដោយខ្លួនឯង អ្នកអាចប្រើទម្រង់ដែលត្រៀមរួចជាស្រេច យកឧទាហរណ៍ពីគេហទំព័ររបស់ទស្សនាវដ្ដី Chief Accountant ឬគេហទំព័រ Microsoft។ ខ្ញុំទទួលបានអ្វីមួយដូចនេះ៖

នៅក្នុងក្រឡាទទេ (គណនី, ចំនួនទឹកប្រាក់, ទទួលបានពី ល) នឹងទទួលបានទិន្នន័យពីតារាងទូទាត់ពីសន្លឹកមួយទៀត - បន្តិចទៀតយើងនឹងដោះស្រាយជាមួយនេះ។

ជំហានទី 2: ការរៀបចំតារាងបង់ប្រាក់

មុននឹងយកទិន្នន័យពីតារាងសម្រាប់ទម្រង់របស់យើង តារាងត្រូវតែធ្វើទំនើបកម្មបន្តិច។ ពោលគឺបញ្ចូលជួរឈរទទេមួយទៅខាងឆ្វេងនៃតារាង។ យើងនឹងប្រើដើម្បីបញ្ចូលស្លាកមួយ (អនុញ្ញាតឱ្យវាជាអក្សរអង់គ្លេស "x") ទល់មុខបន្ទាត់ដែលយើងចង់បន្ថែមទិន្នន័យទៅទម្រង់:

ជំហានទី 3. ការភ្ជាប់តារាង និងទម្រង់

សម្រាប់ការទំនាក់ទំនងយើងប្រើមុខងារ VPR(VLOOKUP) - អ្នកអាចអានបន្ថែមអំពីវានៅទីនេះ។ ក្នុងករណីរបស់យើង ដើម្បីបញ្ចូលលេខនៃការទូទាត់ដែលសម្គាល់ “x” ពីសន្លឹកទិន្នន័យទៅក្នុងក្រឡា F9 នៅលើទម្រង់ អ្នកត្រូវតែបញ្ចូលរូបមន្តខាងក្រោមក្នុងក្រឡា F9៖

=VLOOKUP(“x”,ទិន្នន័យ!A2:G16)

=VLOOKUP(“x”;ទិន្នន័យ!B2:G16;2;0)

ទាំងនោះ។ បកប្រែទៅជា "អាចយល់បាន" មុខងារគួរតែរកឃើញនៅក្នុងជួរ A2: G16 នៅលើសន្លឹកទិន្នន័យ បន្ទាត់ចាប់ផ្តើមដោយតួអក្សរ “x” ហើយផ្តល់ឱ្យយើងនូវមាតិកានៃជួរទីពីរនៃបន្ទាត់នេះ ពោលគឺលេខបង់ប្រាក់។

ក្រឡាផ្សេងទៀតទាំងអស់នៅលើទម្រង់ត្រូវបានបំពេញតាមរបៀបដូចគ្នា - មានតែការផ្លាស់ប្តូរលេខជួរនៅក្នុងរូបមន្តប៉ុណ្ណោះ។

ដើម្បីបង្ហាញចំនួនជាពាក្យ ខ្ញុំបានប្រើមុខងារ ម្ចាស់ ពីកម្មវិធីបន្ថែម PLEX ។

លទ្ធផលគួរតែមានដូចខាងក្រោម៖

ជំហាន 4. ដូច្នេះមិនមាន "x" ពីរ ...

ប្រសិនបើអ្នកប្រើបញ្ចូល “x” ទល់នឹងបន្ទាត់ច្រើន មុខងារ VLOOKUP នឹងយកតែតម្លៃដំបូងដែលវារកបាន។ ដើម្បីជៀសវាងភាពមិនច្បាស់លាស់បែបនេះ ចុចខាងស្តាំលើផ្ទាំងសន្លឹក ទិន្នន័យ ហើយ​បន្ទាប់​មក ប្រភពអត្ថបទ (ប្រភព​កូដ). នៅក្នុងបង្អួចកម្មវិធីនិពន្ធ Visual Basic ដែលបង្ហាញ សូមចម្លងកូដខាងក្រោម៖

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str ជា String ប្រសិនបើ Target.Count > 1 បន្ទាប់មកចេញ Sub if Target.Column = 1 បន្ទាប់មក str = Target.Value Application.EnableEvents = False r = Cells(Rows.Count , 2).End(xlUp).Row Range("A2:A" & r).ClearContents Target.Value = str End ប្រសិនបើ Application.EnableEvents = True End Sub  

ម៉ាក្រូនេះរារាំងអ្នកប្រើប្រាស់មិនឱ្យបញ្ចូល "x" ច្រើនជាងមួយនៅក្នុងជួរទីមួយ។

អញ្ចឹងហើយ! រីករាយ!

• ការប្រើប្រាស់មុខងារ VLOOKUP ដើម្បីជំនួសតម្លៃ
• កំណែប្រសើរឡើងនៃមុខងារ VLOOKUP
• ចំនួនជាពាក្យ (មុខងារ Propis) ពីកម្មវិធីបន្ថែម PLEX