ບົດສອນສະແດງໃຫ້ເຫັນວິທີທີ່ທ່ານສາມາດຈັດຮຽງແຜ່ນວຽກ Excel ໄດ້ໄວຕາມລໍາດັບຕົວອັກສອນໂດຍການໃຊ້ລະຫັດ VBA ແລະເຄື່ອງມືຜູ້ຈັດການວຽກ.

Microsoft Excel ສະຫນອງວິທີການຈັດລຽງງ່າຍ ແລະໄວຫຼາຍ. ຖັນ ຫຼືແຖວຕາມລຳດັບຕົວອັກສອນ. ແຕ່ມີວິທີດຽວເທົ່ານັ້ນທີ່ຈະຈັດຮຽງແຜ່ນວຽກໃນ Excel - ລາກມັນໄປຫາຕໍາແຫນ່ງທີ່ຕ້ອງການໃນແຖບແຖບແຜ່ນ. ເມື່ອເວົ້າເຖິງແທັບຕົວອັກສອນໃນປື້ມວຽກໃຫຍ່ແທ້ໆ, ນີ້ອາດຈະເປັນວິທີທີ່ຍາວແລະຜິດພາດ. ຊອກຫາທາງເລືອກທີ່ປະຫຍັດເວລາບໍ? ມີພຽງສອງຢ່າງເທົ່ານັ້ນ: ລະຫັດ VBA ຫຼືເຄື່ອງມືພາກສ່ວນທີສາມ.

ວິທີການຈັດຮຽງຕົວອັກສອນໃນ Excel ດ້ວຍ VBA

ຂ້າງລຸ່ມນີ້ທ່ານຈະເຫັນສາມຕົວຢ່າງລະຫັດ VBA ເພື່ອຈັດຮຽງ Excel ແຜ່ນງານຂຶ້ນ, ລົງ, ແລະໃນທິດທາງໃດນຶ່ງອີງຕາມການເລືອກຂອງຜູ້ໃຊ້.

ໂດຍອ້າງວ່າເຈົ້າມີປະສົບການບາງຢ່າງກັບ VBA, ພວກເຮົາຈະອະທິບາຍຂັ້ນຕອນພື້ນຖານໃນການເພີ່ມ macro ໃສ່ແຜ່ນງານຂອງເຈົ້າເທົ່ານັ້ນ:

1. ໃນ Excel workbook ຂອງທ່ານ, ກົດ Alt + F11 ເພື່ອເປີດ Visual Basic Editor.
2. ໃນແຖບດ້ານຊ້າຍ, ຄລິກຂວາ ThisWorkbook , ແລະຈາກນັ້ນຄລິກ Insert > ໂມດູນ .
3. ວາງລະຫັດ VBA ໃນປ່ອງຢ້ຽມລະຫັດ.
4. ກົດ F5 ເພື່ອແລ່ນມາໂຄຣ.

ສຳລັບ ຄໍາແນະນໍາຂັ້ນຕອນໂດຍຂັ້ນຕອນລາຍລະອຽດ, ກະລຸນາເບິ່ງວິທີການໃສ່ແລະແລ່ນລະຫັດ VBA ໃນ Excel.

ຄໍາແນະນໍາ. ຖ້າທ່ານຕ້ອງການຮັກສາມະຫາພາກສໍາລັບການນໍາໃຊ້ຕໍ່ໄປ, ໃຫ້ແນ່ໃຈວ່າຈະບັນທຶກໄຟລ໌ຂອງທ່ານເປັນປື້ມບັນທຶກ Excel macro-enabled (.xlsm).

ອີກທາງເລືອກໜຶ່ງ, ທ່ານສາມາດດາວໂຫຼດປຶ້ມວຽກ Alphabetize Excel Tabs ຕົວຢ່າງຂອງພວກເຮົາ, ເປີດໃຊ້ເນື້ອຫາຖ້າຖືກຖາມ, ແລະແລ່ນມະຫາພາກທີ່ຕ້ອງການໂດຍກົງຈາກບ່ອນນັ້ນ. ປຶ້ມວຽກປະກອບມີມາໂຄຣຕໍ່ໄປນີ້:

• TabsAscending - ຈັດຮຽງແຜ່ນງານຕາມຕົວອັກສອນຈາກ A ຫາ Z.
• TabsDescending - ຈັດຮຽງແຜ່ນງານຢູ່ໃນ ລຳດັບປີ້ນກັບ, ຈາກ Z ຫາ A.
• AlphabetizeTabs - ຈັດຮຽງແຖບແຜ່ນໃນທັງສອງທິດທາງ, ຕັ້ງຂຶ້ນ ຫຼື ຈາກໃຫຍ່ຫານ້ອຍ.

ດ້ວຍປຶ້ມຕົວຢ່າງທີ່ດາວໂຫຼດ ແລະເປີດຢູ່ໃນ Excel ຂອງ​ທ່ານ, ເປີດ​ປຶ້ມ​ວຽກ​ຂອງ​ທ່ານ​ເອງ​ບ່ອນ​ທີ່​ທ່ານ​ຕ້ອງ​ການ​ຈັດ​ຮຽງ​ຕົວ​ອັກ​ສອນ​ແຖບ, ກົດ Alt + F8, ເລືອກ macro ທີ່​ຕ້ອງ​ການ, ແລະ​ຄລິກ Run .

ຈັດ​ຮຽງ​ແຖບ Excel ຕາມ​ຕົວ​ອັກ​ສອນ​ຈາກ A ຫາ Z

ມະຫາພາກນ້ອຍໆນີ້ຈັດຮຽງແຜ່ນງານໃນປຶ້ມວຽກປະຈຸບັນໃນ ການຈັດຮຽງລຳດັບຕົວເລກຈາກໃຫຍ່ຫານ້ອຍ , ແຜ່ນງານທຳອິດທີ່ມີຊື່ເລີ່ມຕົ້ນດ້ວຍຕົວເລກ, ຈາກນັ້ນແຜ່ນງານຈາກ A ຫາ Z.

Sub TabsAscending() ສຳລັບ i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 ຖ້າ UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).ຊື່) ຈາກນັ້ນ Sheets(j).ຍ້າຍຫຼັງຈາກ:=Sheets(j + 1) End ຖ້າຖັດໄປ ຕໍ່ໄປ MsgBox "ແຖບໄດ້ຖືກຈັດຮຽງຈາກ A ຫາ Z." End Sub

ຈັດຮຽງແທັບ Excel ຈາກ Z ຫາ A

ຖ້າທ່ານຕ້ອງການຈັດຮຽງແຜ່ນງານຂອງທ່ານໃນ ຕົວເລກຈາກນ້ອຍຫາຫານ້ອຍລົງ (Z ຫາ A, ຫຼັງຈາກນັ້ນໃຫ້ແຜ່ນງານທີ່ມີຊື່ຕົວເລກ), ຫຼັງຈາກນັ້ນໃຫ້ໃຊ້ ລະຫັດຕໍ່ໄປນີ້:

Sub TabsDescending() For i = 1 ToApplication.Sheets.Count For j = 1 To 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 "The tabs has been sorted from Z to A. " End Sub

ການກຳນົດຕົວອັກສອນຈາກນ້ອຍຫາໃຫຍ່ ຫຼືຈາກໃຫຍ່ຫານ້ອຍ

ມາໂຄຣນີ້ເຮັດໃຫ້ຜູ້ໃຊ້ຂອງທ່ານຕັດສິນໃຈວິທີການຈັດຮຽງແຜ່ນວຽກໃນປຶ້ມວຽກທີ່ໃຫ້ໄວ້, ຕາມຕົວອັກສອນຈາກ A ຫາ Z ຫຼືໃນລຳດັບປີ້ນກັບກັນ.

ຕັ້ງແຕ່ ກ່ອງໂຕ້ຕອບມາດຕະຖານ (MsgBox) ໃນ Excel VBA ພຽງແຕ່ອະນຸຍາດໃຫ້ເລືອກຈາກສອງສາມປຸ່ມທີ່ກໍານົດໄວ້ກ່ອນ, ພວກເຮົາຈະສ້າງແບບຟອມຂອງພວກເຮົາເອງ (UserForm) ດ້ວຍສາມປຸ່ມທີ່ກໍາຫນົດເອງ: A ຫາ Z , Z ຫາ A , ແລະ Cancel .

ສຳລັບອັນນີ້, ເປີດຕົວແກ້ໄຂ Visual Basic, ຄລິກຂວາໃສ່ 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 For x = 1 ໄປຫາ Application.Sheets.Count For y = 1 To Application.Sheets.Count - 1 ຖ້າ SortOrder = 1 ແລ້ວຖ້າ UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) ຈາກນັ້ນ Sheets(y).ຍ້າຍຫຼັງຈາກ:=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 If End ຖ້າ Next Next End Sub Function showUserForm() As Integer 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 ຢູ່​ໃນ​ການ​ກຳ​ຈັດ​ຂອງ​ເຂົາ​ເຈົ້າ:

ດ້ວຍ​ເຄື່ອງ​ມື​ນີ້​ເພີ່ມ​ໃສ່​ໂບ Excel ຂອງ​ທ່ານ, ແຖບ​ການ​ຂຽນ​ຕົວ​ອັກ​ສອນ​ແມ່ນ​ເຮັດ​ໄດ້​ດ້ວຍ​ການ​ຄລິກ​ປຸ່ມ​ດຽວ, ຕາມ​ທີ່​ຄວນ​ຈະ​ເປັນ!

ຫາກທ່ານຢາກຈະສຳຫຼວດນີ້ ແລະ 70+ ເຄື່ອງມືທີ່ເປັນມືອາຊີບສຳລັບ Excel, ລຸ້ນທົດລອງຂອງ Ultimate Suite ຂອງພວກເຮົາແມ່ນມີໃຫ້ດາວໂຫລດໄດ້ທີ່ນີ້.

ຂ້າພະເຈົ້າຂໍຂອບໃຈ ເຈົ້າສໍາລັບການອ່ານແລະຫວັງວ່າຈະພົບເຈົ້າໃນ blog ຂອງພວກເຮົາໃນອາທິດຫນ້າ!