ការបង្រៀនបង្ហាញពីរបៀបដែលអ្នកអាចតម្រៀបសន្លឹកកិច្ចការ Excel យ៉ាងរហ័សតាមលំដាប់អក្ខរក្រម ដោយប្រើកូដ VBA និងឧបករណ៍គ្រប់គ្រងសៀវភៅការងារ។

Microsoft Excel ផ្តល់នូវវិធីងាយស្រួល និងរហ័សមួយចំនួនក្នុងការរៀបចំ ជួរ​ឈរ ឬ​ជួរ​ដេក​តាម​លំដាប់​អក្ខរក្រម។ ប៉ុន្តែមានវិធីសាស្រ្តតែមួយគត់ដើម្បីរៀបចំសន្លឹកកិច្ចការក្នុង Excel ឡើងវិញ - អូសពួកវាទៅទីតាំងដែលចង់បាននៅលើរបារផ្ទាំងសន្លឹក។ នៅពេលនិយាយអំពីផ្ទាំងអក្សរក្រមនៅក្នុងសៀវភៅការងារដ៏ធំ វាអាចជាវិធីដ៏វែងឆ្ងាយ និងខុសឆ្គង។ កំពុងរកមើលជម្រើសដែលសន្សំសំចៃពេលវេលាមែនទេ? មានតែពីរប៉ុណ្ណោះ៖ កូដ VBA ឬឧបករណ៍ភាគីទីបី។

របៀបកំណត់អក្សរក្រមផ្ទាំងនៅក្នុង Excel ជាមួយ VBA

ខាងក្រោមអ្នកនឹងឃើញឧទាហរណ៍កូដ VBA ចំនួនបីដើម្បីតម្រៀប Excel សន្លឹកឡើងចុះ ចុះក្រោម និងក្នុងទិសដៅណាមួយដោយផ្អែកលើជម្រើសរបស់អ្នកប្រើ។

ដោយបង្ហាញថាអ្នកមានបទពិសោធន៍ខ្លះជាមួយ VBA យើងនឹងគូសបញ្ជាក់តែជំហានជាមូលដ្ឋានដើម្បីបន្ថែមម៉ាក្រូទៅសន្លឹកកិច្ចការរបស់អ្នក៖

1. នៅក្នុងសៀវភៅការងារ Excel របស់អ្នក សូមចុច Alt + F11 ដើម្បីបើក Visual Basic Editor។
2. នៅលើបន្ទះខាងឆ្វេង ចុចខាងស្តាំ ThisWorkbook ហើយបន្ទាប់មកចុច Insert > ម៉ូឌុល ។
3. បិទភ្ជាប់កូដ VBA នៅក្នុងបង្អួចកូដ។
4. ចុច F5 ដើម្បីដំណើរការម៉ាក្រូ។

សម្រាប់ ការណែនាំជាជំហាន ៗ លម្អិត សូមមើល របៀបបញ្ចូល និងដំណើរការកូដ VBA ក្នុង Excel។

គន្លឹះ។ ប្រសិនបើអ្នកចង់រក្សាទុកម៉ាក្រូសម្រាប់ការប្រើប្រាស់បន្ថែមទៀត ត្រូវប្រាកដថារក្សាទុកឯកសាររបស់អ្នកជាសៀវភៅការងារដែលបើកដំណើរការម៉ាក្រូ Excel (.xlsm)។

ជាជម្រើស អ្នកអាចទាញយកគំរូសៀវភៅការងារ Alphabetize Excel Tabs របស់យើង បើកមាតិកាប្រសិនបើត្រូវបានសួរ និងដំណើរការម៉ាក្រូដែលចង់បានដោយផ្ទាល់ពីទីនោះ។ សៀវភៅការងារមានម៉ាក្រូដូចខាងក្រោម៖

• TabsAscending - តម្រៀបសន្លឹកតាមអក្ខរក្រមពី A ដល់ Z។
• TabsDescending - រៀបចំសន្លឹកក្នុង លំដាប់បញ្ច្រាសពី Z ទៅ A។
• AlphabetizeTabs - តម្រៀបផ្ទាំងសន្លឹកក្នុងទិសដៅទាំងពីរ ឡើងលើ ឬចុះក្រោម។

ជាមួយនឹងសៀវភៅការងារគំរូដែលបានទាញយក និងបើកនៅក្នុង Excel របស់អ្នក បើកសៀវភៅការងារផ្ទាល់ខ្លួនរបស់អ្នក ដែលអ្នកចង់កំណត់អក្សរក្រមផ្ទាំង ចុច Alt + F8 ជ្រើសរើសម៉ាក្រូដែលចង់បាន ហើយចុច រត់ ។

តម្រៀបផ្ទាំង Excel តាមអក្ខរក្រមពី A ដល់ Z

ម៉ាក្រូតូចនេះរៀបចំសន្លឹកក្នុងសៀវភៅការងារបច្ចុប្បន្ននៅក្នុង លំដាប់អក្សរក្រមលេខឡើង សន្លឹកកិច្ចការដំបូងដែលមានឈ្មោះចាប់ផ្តើមដោយលេខ បន្ទាប់មកសន្លឹកពី A ដល់ Z។

Sub TabsAscending() សម្រាប់ i = 1 ទៅ Application.Sheets.Count សម្រាប់ j = 1 ទៅ Application.Sheets.Count - 1 ប្រសិនបើ UCase$(Application.Sheets(j.Name) > UCase$(Application.Sheets(j + 1).Name) បន្ទាប់មក Sheets(j) ផ្លាស់ទីតាម៖=Sheets(j + 1) End If Next Next MsgBox "ផ្ទាំងត្រូវបានតម្រៀបពី A ដល់ Z"។ បញ្ចប់រង

រៀបចំផ្ទាំង Excel ពី Z ដល់ A

ប្រសិនបើអ្នកចង់តម្រៀបសន្លឹករបស់អ្នកក្នុង លំដាប់អក្សរក្រមលេខចុះក្រោម (Z ទៅ A បន្ទាប់មកសន្លឹកដែលមានឈ្មោះលេខ) បន្ទាប់មកប្រើ កូដខាងក្រោម៖

Sub TabsDescending() For i = 1 ToApplication.Sheets.Count សម្រាប់ j = 1 ទៅ Application.Sheets.Count - 1 ប្រសិនបើ UCase$(Application.Sheets(j.Name) < UCase$(Application.Sheets(j + 1).Name) បន្ទាប់មក Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "ផ្ទាំងត្រូវបានតម្រៀបពី Z ទៅ A។ " End Sub

ផ្ទាំងអក្សរតាមលំដាប់ឡើង ឬចុះក្រោម

ម៉ាក្រូនេះអនុញ្ញាតឱ្យអ្នកប្រើប្រាស់របស់អ្នកសម្រេចចិត្តពីរបៀបតម្រៀបសន្លឹកកិច្ចការក្នុងសៀវភៅការងារដែលបានផ្តល់ឱ្យ តាមអក្ខរក្រមពី A ដល់ Z ឬតាមលំដាប់បញ្ច្រាស។

ចាប់តាំងពី ប្រអប់ស្តង់ដារ (MsgBox) ក្នុង Excel VBA អនុញ្ញាតឱ្យជ្រើសរើសពីប៊ូតុងមួយចំនួនតូចប៉ុណ្ណោះ យើងនឹងបង្កើតទម្រង់ផ្ទាល់ខ្លួនរបស់យើង (UserForm) ជាមួយនឹងប៊ូតុងផ្ទាល់ខ្លួនចំនួនបី៖ A ដល់ Z , Z ទៅ A និង បោះបង់ ។

សម្រាប់វា សូមបើកកម្មវិធី Visual Basic Editor ចុចខាងស្តាំ ThisWorkbook ហើយចុច Insert > ទម្រង់អ្នកប្រើប្រាស់ ។ ដាក់ឈ្មោះទម្រង់បែបបទរបស់អ្នក SortOrderFrom ហើយបន្ថែមវត្ថុបញ្ជាចំនួន 4 ទៅវា៖ ស្លាកមួយ និងប៊ូតុងបី៖

បន្ទាប់ ចុច F7 (ឬចុចពីរដងលើទម្រង់ ) ដើម្បីបើកបង្អួច Code ហើយបិទភ្ជាប់កូដខាងក្រោមនៅទីនោះ។ កូដស្ទាក់ចាប់ប៊ូតុងចុច និងកំណត់ស្លាកតែមួយគត់ទៅប៊ូតុងនីមួយៗ៖

Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

អាស្រ័យលើថាតើអ្នកប្រើប្រាស់ចុចលើប៊ូតុង A ដល់ Z ឬ Z ទៅ A នៅលើទម្រង់របស់អ្នក សូមតម្រៀបផ្ទាំងនៅក្នុងលំដាប់អក្ខរក្រមឡើង (ជ្រើសរើសតាមលំនាំដើម) ឬលំដាប់អក្ខរក្រមចុះ។ ឬបិទទម្រង់ និងមិនធ្វើអ្វីក្នុងករណី បោះបង់ ។ វា​ត្រូវ​បាន​ធ្វើ​ដោយ​កូដ VBA ខាងក្រោម ដែល​អ្នក​បញ្ចូល​តាម​វិធី​ធម្មតា​តាមរយៈ Insert > Module ។

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm ប្រសិនបើ SortOrder = 0 បន្ទាប់មក ចេញ Sub សម្រាប់ x = 1 ទៅ Application.Sheets.Count សម្រាប់ y ​​= 1 ទៅ Application.Sheets.Count - 1 ប្រសិនបើ SortOrder = 1 បន្ទាប់មក ប្រសិនបើ UCase$(Application.Sheets(y.Name) > UCase$(Application.Sheets(y + 1.Name) បន្ទាប់មក Sheets(y)) Move after:=Sheets(y + 1) End If ElseIf SortOrder = 2 បន្ទាប់មកប្រសិនបើ UCase$(Application.Sheets(y.Name)) < UCase$(Application.Sheets(y + 1).Name) បន្ទាប់មក Sheets(y)។ផ្លាស់ទីបន្ទាប់ពី:=Sheets(y + 1) End ប្រសិនបើ End ប្រសិនបើ Next Next អនុគមន៍រង showUserForm() ជាចំនួនគត់ showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

ប្រសិនបើអ្នកមិនសូវស្រួលជាមួយ VBA នៅឡើយទេ អ្នកគ្រាន់តែអាចទាញយក Sample Workbook របស់យើងទៅជា Alphabetize Tabs បើកវាក្នុង Excel របស់អ្នកជាមួយនឹងឯកសារផ្ទាល់ខ្លួនរបស់អ្នកនៅកន្លែងដែលអ្នកចង់បាន។ ដើម្បីតម្រៀបផ្ទាំង ហើយដំណើរការម៉ាក្រូ AlphabetizeTabs ពីសៀវភៅការងាររបស់អ្នក៖

ជ្រើសរើសលំដាប់តម្រៀបដែលពេញចិត្ត និយាយថា A ដល់ Z ហើយសង្កេតមើលលទ្ធផល៖

គន្លឹះ។ ជាមួយ VBA អ្នកក៏អាចបង្កើតច្បាប់ចម្លងនៃសន្លឹកកិច្ចការ Excel របស់អ្នកផងដែរ។ លេខកូដមាននៅទីនេះ៖ របៀបស្ទួនសន្លឹកក្នុង Excel ជាមួយ VBA។

របៀបតម្រៀបផ្ទាំង Excel តាមអក្ខរក្រមជាមួយ Ultimate Suite

អ្នកប្រើប្រាស់ Ultimate Suite សម្រាប់ Excel មិនចាំបាច់ដើរលេងជាមួយ VBA ទេ ពួកគេមានច្រើន -functional Workbook Manager at their disposal:

ជាមួយនឹងឧបករណ៍នេះដែលបានបន្ថែមទៅខ្សែបូ Excel របស់អ្នក ផ្ទាំងអក្សរក្រមត្រូវបានធ្វើរួចដោយចុចប៊ូតុងតែមួយ ដូចអ្វីដែលវាគួរតែមាន!

ប្រសិនបើអ្នកចង់ដឹងចង់ឃើញនេះ និងឧបករណ៍ជំនាញជាង 70+ សម្រាប់ Excel កំណែសាកល្បងនៃ Ultimate Suite របស់យើងអាចទាញយកបាននៅទីនេះ។

ខ្ញុំសូមអរគុណ អ្នកសម្រាប់ការអាន ហើយសង្ឃឹមថានឹងឃើញអ្នកនៅលើប្លក់របស់យើងនៅសប្តាហ៍ក្រោយ!