ಪರಿವಿಡಿ
ವಿಬಿಎ ಕೋಡ್ ಮತ್ತು ವರ್ಕ್‌ಬುಕ್ ಮ್ಯಾನೇಜರ್ ಟೂಲ್ ಅನ್ನು ಬಳಸಿಕೊಂಡು ನೀವು ಎಕ್ಸೆಲ್ ವರ್ಕ್‌ಶೀಟ್‌ಗಳನ್ನು ತ್ವರಿತವಾಗಿ ವರ್ಣಮಾಲೆಯ ಕ್ರಮದಲ್ಲಿ ಹೇಗೆ ವಿಂಗಡಿಸಬಹುದು ಎಂಬುದನ್ನು ಟ್ಯುಟೋರಿಯಲ್ ತೋರಿಸುತ್ತದೆ.
ಮೈಕ್ರೋಸಾಫ್ಟ್ ಎಕ್ಸೆಲ್ ವ್ಯವಸ್ಥೆ ಮಾಡಲು ಹಲವಾರು ತ್ವರಿತ ಮತ್ತು ಸುಲಭ ಮಾರ್ಗಗಳನ್ನು ಒದಗಿಸುತ್ತದೆ ವರ್ಣಮಾಲೆಯ ಕ್ರಮದಲ್ಲಿ ಕಾಲಮ್‌ಗಳು ಅಥವಾ ಸಾಲುಗಳು. ಆದರೆ ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ವರ್ಕ್‌ಶೀಟ್‌ಗಳನ್ನು ಮರುಹೊಂದಿಸಲು ಒಂದೇ ಒಂದು ವಿಧಾನವಿದೆ - ಅವುಗಳನ್ನು ಶೀಟ್ ಟ್ಯಾಬ್ ಬಾರ್‌ನಲ್ಲಿ ಬಯಸಿದ ಸ್ಥಾನಕ್ಕೆ ಎಳೆಯಿರಿ. ನಿಜವಾಗಿಯೂ ದೊಡ್ಡ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿ ಟ್ಯಾಬ್‌ಗಳನ್ನು ವರ್ಣಮಾಲೆಯ ಮಾಡಲು ಬಂದಾಗ, ಇದು ದೀರ್ಘ ಮತ್ತು ತಪ್ಪಾದ ಮಾರ್ಗವಾಗಿರಬಹುದು. ಸಮಯ ಉಳಿಸುವ ಪರ್ಯಾಯವನ್ನು ಹುಡುಕುತ್ತಿರುವಿರಾ? ಎರಡು ಮಾತ್ರ ಅಸ್ತಿತ್ವದಲ್ಲಿವೆ: VBA ಕೋಡ್ ಅಥವಾ ಮೂರನೇ ವ್ಯಕ್ತಿಯ ಪರಿಕರಗಳು.
VBA ಜೊತೆಗೆ Excel ನಲ್ಲಿ ಟ್ಯಾಬ್‌ಗಳನ್ನು ಹೇಗೆ ವರ್ಣಮಾಲೆ ಮಾಡುವುದು
ಕೆಳಗೆ ನೀವು Excel ಅನ್ನು ವಿಂಗಡಿಸಲು ಮೂರು VBA ಕೋಡ್ ಉದಾಹರಣೆಗಳನ್ನು ಕಾಣಬಹುದು ಬಳಕೆದಾರರ ಆಯ್ಕೆಯ ಆಧಾರದ ಮೇಲೆ ಶೀಟ್‌ಗಳು ಆರೋಹಣ, ಅವರೋಹಣ ಮತ್ತು ಎರಡೂ ದಿಕ್ಕಿನಲ್ಲಿ.
ನೀವು VBA ನೊಂದಿಗೆ ಸ್ವಲ್ಪ ಅನುಭವವನ್ನು ಹೊಂದಿದ್ದೀರಿ ಎಂದು ಸೂಚಿಸಿ, ನಿಮ್ಮ ವರ್ಕ್‌ಶೀಟ್‌ಗೆ ಮ್ಯಾಕ್ರೋವನ್ನು ಸೇರಿಸಲು ನಾವು ಮೂಲ ಹಂತಗಳನ್ನು ಮಾತ್ರ ವಿವರಿಸುತ್ತೇವೆ:
<8ಇದಕ್ಕಾಗಿ ವಿವರವಾದ ಹಂತ-ಹಂತದ ಸೂಚನೆಗಳು, ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ VBA ಕೋಡ್ ಅನ್ನು ಹೇಗೆ ಸೇರಿಸುವುದು ಮತ್ತು ರನ್ ಮಾಡುವುದು ಎಂಬುದನ್ನು ದಯವಿಟ್ಟು ನೋಡಿ.
ಸಲಹೆ. ಹೆಚ್ಚಿನ ಬಳಕೆಗಾಗಿ ನೀವು ಮ್ಯಾಕ್ರೋವನ್ನು ಇರಿಸಿಕೊಳ್ಳಲು ಬಯಸಿದರೆ, ನಿಮ್ಮ ಫೈಲ್ ಅನ್ನು ಎಕ್ಸೆಲ್ ಮ್ಯಾಕ್ರೋ-ಸಕ್ರಿಯಗೊಳಿಸಿದ ವರ್ಕ್‌ಬುಕ್ (.xlsm) ಆಗಿ ಉಳಿಸಲು ಮರೆಯದಿರಿ.
ಪರ್ಯಾಯವಾಗಿ, ನೀವು ನಮ್ಮ ಮಾದರಿ Alphabetize Excel Tabs ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಡೌನ್‌ಲೋಡ್ ಮಾಡಬಹುದು, ಪ್ರಾಂಪ್ಟ್ ಮಾಡಿದರೆ ವಿಷಯವನ್ನು ಸಕ್ರಿಯಗೊಳಿಸಬಹುದು ಮತ್ತು ಅಲ್ಲಿಂದ ನೇರವಾಗಿ ಬಯಸಿದ ಮ್ಯಾಕ್ರೋವನ್ನು ರನ್ ಮಾಡಬಹುದು. ವರ್ಕ್‌ಬುಕ್ ಈ ಕೆಳಗಿನ ಮ್ಯಾಕ್ರೋಗಳನ್ನು ಒಳಗೊಂಡಿದೆ:
- ಟ್ಯಾಬ್‌ಆರೋಹಣ - ಹಾಳೆಗಳನ್ನು A ನಿಂದ Z ವರೆಗೆ ವರ್ಣಮಾಲೆಯಂತೆ ವಿಂಗಡಿಸಿ.
- TabsDescending - ಶೀಟ್‌ಗಳನ್ನು ಇದರಲ್ಲಿ ಜೋಡಿಸಿ ರಿವರ್ಸ್ ಆರ್ಡರ್, Z ನಿಂದ A.
- AlphabetizeTabs - ಶೀಟ್ ಟ್ಯಾಬ್‌ಗಳನ್ನು ಎರಡೂ ದಿಕ್ಕುಗಳಲ್ಲಿ ವಿಂಗಡಿಸಿ, ಆರೋಹಣ ಅಥವಾ ಅವರೋಹಣ.
ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಡೌನ್‌ಲೋಡ್ ಮಾಡಿ ಮತ್ತು ತೆರೆಯಿರಿ ನಿಮ್ಮ ಎಕ್ಸೆಲ್, ನೀವು ಟ್ಯಾಬ್‌ಗಳನ್ನು ವರ್ಣಮಾಲೆ ಮಾಡಲು ಬಯಸುವ ನಿಮ್ಮ ಸ್ವಂತ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ತೆರೆಯಿರಿ, Alt + F8 ಅನ್ನು ಒತ್ತಿ, ಬಯಸಿದ ಮ್ಯಾಕ್ರೋ ಅನ್ನು ಆಯ್ಕೆ ಮಾಡಿ ಮತ್ತು ರನ್ ಕ್ಲಿಕ್ ಮಾಡಿ.
ಎಕ್ಸೆಲ್ ಟ್ಯಾಬ್‌ಗಳನ್ನು A ನಿಂದ Z ಗೆ ವರ್ಣಮಾಲೆಯಂತೆ ವಿಂಗಡಿಸಿ
ಈ ಚಿಕ್ಕ ಮ್ಯಾಕ್ರೋ ಪ್ರಸ್ತುತ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿರುವ ಹಾಳೆಗಳನ್ನು ಆರೋಹಣ ಆಲ್ಫಾನ್ಯೂಮರಿಕ್ ಕ್ರಮದಲ್ಲಿ ಜೋಡಿಸುತ್ತದೆ, ಮೊದಲ ವರ್ಕ್‌ಶೀಟ್‌ಗಳ ಹೆಸರುಗಳು ಸಂಖ್ಯೆಗಳಿಂದ ಪ್ರಾರಂಭವಾಗುತ್ತವೆ, ನಂತರ ಹಾಳೆಗಳು A ನಿಂದ Z ಗೆ.
Sub TabsAscending() for i = ಅರ್ಜಿಗೆ UCase$(Application.Sheets(j + 1).Name) ನಂತರ Sheets(j).ನಂತರ ಸರಿಸಿ:=Sheets(j + 1) End Next ಮುಂದಿನ ವೇಳೆ MsgBox "ಟ್ಯಾಬ್‌ಗಳನ್ನು A ನಿಂದ Z ಗೆ ವಿಂಗಡಿಸಲಾಗಿದೆ." ಉಪZ ನಿಂದ A ಗೆ ಎಕ್ಸೆಲ್ ಟ್ಯಾಬ್‌ಗಳನ್ನು ಜೋಡಿಸಿ
ನಿಮ್ಮ ಹಾಳೆಗಳನ್ನು ಅವರೋಹಣ ಆಲ್ಫಾನ್ಯೂಮರಿಕ್ ಕ್ರಮದಲ್ಲಿ (Z ನಿಂದ A, ನಂತರ ಸಂಖ್ಯಾ ಹೆಸರಿನೊಂದಿಗೆ ಹಾಳೆಗಳು) ವಿಂಗಡಿಸಲು ನೀವು ಬಯಸಿದರೆ, ನಂತರ ಬಳಸಿ ಕೆಳಗಿನ ಕೋಡ್:
ಉಪ ಟ್ಯಾಬ್‌ಗಳು ಡಿಸೆಂಡಿಂಗ್() i = 1 Toಅಪ್ಲಿಕೇಶನ್ UCase$(Application.Sheets(j + 1).Name) ನಂತರ Application.Sheets(j).ನಂತರ ಸರಿಸಿ:=Application.Sheets(j + 1) End Next ಮುಂದಿನ ವೇಳೆ MsgBox "ಟ್ಯಾಬ್‌ಗಳನ್ನು Z ನಿಂದ A ಗೆ ವಿಂಗಡಿಸಲಾಗಿದೆ. " ಉಪಆರೋಹಣ ಅಥವಾ ಅವರೋಹಣ ಟ್ಯಾಬ್‌ಗಳನ್ನು ವರ್ಣಮಾಲೆಗೊಳಿಸಿ
ಈ ಮ್ಯಾಕ್ರೋ ನಿಮ್ಮ ಬಳಕೆದಾರರಿಗೆ ವರ್ಕ್‌ಶೀಟ್‌ಗಳನ್ನು ನಿರ್ದಿಷ್ಟ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿ, A ನಿಂದ Z ವರೆಗೆ ಅಥವಾ ಹಿಮ್ಮುಖ ಕ್ರಮದಲ್ಲಿ ಹೇಗೆ ವಿಂಗಡಿಸಬೇಕೆಂದು ನಿರ್ಧರಿಸಲು ಅನುಮತಿಸುತ್ತದೆ.
ಇಂದಿನಿಂದ ಎಕ್ಸೆಲ್ VBA ನಲ್ಲಿರುವ ಸ್ಟ್ಯಾಂಡರ್ಡ್ ಡೈಲಾಗ್ ಬಾಕ್ಸ್ (MsgBox) ಬೆರಳೆಣಿಕೆಯಷ್ಟು ಪೂರ್ವನಿರ್ಧರಿತ ಬಟನ್‌ಗಳಿಂದ ಆಯ್ಕೆ ಮಾಡಲು ಮಾತ್ರ ಅನುಮತಿಸುತ್ತದೆ, ನಾವು ಮೂರು ಕಸ್ಟಮ್ ಬಟನ್‌ಗಳೊಂದಿಗೆ ನಮ್ಮದೇ ಆದ ಫಾರ್ಮ್ (ಯೂಸರ್‌ಫಾರ್ಮ್) ಅನ್ನು ರಚಿಸುತ್ತೇವೆ: A ನಿಂದ Z , Z ನಿಂದ A , ಮತ್ತು ರದ್ದುಮಾಡು .
ಇದಕ್ಕಾಗಿ, ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಎಡಿಟರ್ ತೆರೆಯಿರಿ, ಈ ವರ್ಕ್‌ಬುಕ್ ಬಲ ಕ್ಲಿಕ್ ಮಾಡಿ ಮತ್ತು ಇನ್ಸರ್ಟ್ ><ಕ್ಲಿಕ್ ಮಾಡಿ 1>ಬಳಕೆದಾರರ ರೂಪ . ನಿಮ್ಮ ಫಾರ್ಮ್ ಅನ್ನು SortOrderFrom ಎಂದು ಹೆಸರಿಸಿ ಮತ್ತು ಅದಕ್ಕೆ 4 ನಿಯಂತ್ರಣಗಳನ್ನು ಸೇರಿಸಿ: ಒಂದು ಲೇಬಲ್ ಮತ್ತು ಮೂರು ಬಟನ್‌ಗಳು:
ಮುಂದೆ, F7 ಅನ್ನು ಒತ್ತಿರಿ (ಅಥವಾ ಫಾರ್ಮ್ ಅನ್ನು ಡಬಲ್ ಕ್ಲಿಕ್ ಮಾಡಿ ) ಕೋಡ್ ವಿಂಡೋವನ್ನು ತೆರೆಯಲು ಮತ್ತು ಕೆಳಗಿನ ಕೋಡ್ ಅನ್ನು ಅಲ್ಲಿ ಅಂಟಿಸಿ. ಕೋಡ್ ಪ್ರತಿ ಬಟನ್ ಕ್ಲಿಕ್‌ಗಳನ್ನು ಪ್ರತಿಬಂಧಿಸುತ್ತದೆ ಮತ್ತು ಪ್ರತಿ ಬಟನ್‌ಗೆ ಅನನ್ಯ ಟ್ಯಾಗ್ ಅನ್ನು ನಿಯೋಜಿಸುತ್ತದೆ:
ಖಾಸಗಿ ಉಪ ಕಮಾಂಡ್‌ಬಟನ್1_ಕ್ಲಿಕ್() 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.Myಆರೋಹಣ ವರ್ಣಮಾಲೆಯ ಕ್ರಮ (ಡೀಫಾಲ್ಟ್ ಆಗಿ ಆಯ್ಕೆಮಾಡಲಾಗಿದೆ) ಅಥವಾ ಅವರೋಹಣ ವರ್ಣಮಾಲೆಯ ಕ್ರಮ; ಅಥವಾ ಫಾರ್ಮ್ ಅನ್ನು ಮುಚ್ಚಿ ಮತ್ತು ರದ್ದುಮಾಡು ಸಂದರ್ಭದಲ್ಲಿ ಏನನ್ನೂ ಮಾಡಬೇಡಿ. ಇದನ್ನು ಈ ಕೆಳಗಿನ VBA ಕೋಡ್‌ನೊಂದಿಗೆ ಮಾಡಲಾಗುತ್ತದೆ, ಇದನ್ನು ನೀವು ಸಾಮಾನ್ಯ ರೀತಿಯಲ್ಲಿ ಸೇರಿಸಿ > ಮಾಡ್ಯೂಲ್ ಮೂಲಕ ಸೇರಿಸುತ್ತೀರಿ.Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm = 0 ನಂತರ ಅಪ್ಲಿಕೇಶನ್‌ಗೆ x = 1 ಗೆ ನಿರ್ಗಮಿಸಿ 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() Integer showUserForm = 0 ಲೋಡ್ SortOrderForm SortOrderForm .ಶೋ (1) showUserForm = SortOrderForm.ಟ್ಯಾಗ್ ಅನ್‌ಲೋಡ್ SortOrderForm ಎಂಡ್ ಫಂಕ್ಷನ್ನೀವು ಇನ್ನೂ VBA ಯೊಂದಿಗೆ ಹೆಚ್ಚು ಆರಾಮದಾಯಕವಾಗಿಲ್ಲದಿದ್ದರೆ, ನೀವು ನಮ್ಮ ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಆಲ್ಫಾಬೆಟೈಸ್ ಟ್ಯಾಬ್‌ಗಳಿಗೆ ಡೌನ್‌ಲೋಡ್ ಮಾಡಬಹುದು, ನಿಮ್ಮ ಸ್ವಂತ ಫೈಲ್ ಜೊತೆಗೆ ನಿಮ್ಮ ಸ್ವಂತ ಫೈಲ್‌ನಲ್ಲಿ ಅದನ್ನು ತೆರೆಯಿರಿ. ಟ್ಯಾಬ್‌ಗಳನ್ನು ವಿಂಗಡಿಸಲು ಮತ್ತು ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್‌ನಿಂದ AlphabetizeTabs ಮ್ಯಾಕ್ರೋ ಅನ್ನು ರನ್ ಮಾಡಲು:
ಆದ್ಯತೆಯ ವಿಂಗಡಣೆಯ ಕ್ರಮವನ್ನು ಆರಿಸಿ, A ರಿಂದ Z<2 ಎಂದು ಹೇಳಿ>, ಮತ್ತು ಫಲಿತಾಂಶಗಳನ್ನು ಗಮನಿಸಿ:
ಸಲಹೆ. VBA ಯೊಂದಿಗೆ, ನಿಮ್ಮ ಎಕ್ಸೆಲ್ ವರ್ಕ್‌ಶೀಟ್‌ಗಳ ಪ್ರತಿಗಳನ್ನು ಸಹ ನೀವು ರಚಿಸಬಹುದು. ಕೋಡ್ ಇಲ್ಲಿ ಲಭ್ಯವಿದೆ: ಹೇಗೆVBA ಜೊತೆಗೆ Excel ನಲ್ಲಿ ನಕಲು ಹಾಳೆ.
Altimate Suite ನೊಂದಿಗೆ Excel ಟ್ಯಾಬ್‌ಗಳನ್ನು ವರ್ಣಮಾಲೆಯಂತೆ ವಿಂಗಡಿಸುವುದು ಹೇಗೆ
Excel ಗಾಗಿ ನಮ್ಮ Ultimate Suite ನ ಬಳಕೆದಾರರು VBA ನೊಂದಿಗೆ ಪಿಟೀಲು ಮಾಡಬೇಕಾಗಿಲ್ಲ - ಅವರು ಬಹುಸಂಖ್ಯೆಯನ್ನು ಹೊಂದಿದ್ದಾರೆ -ಫಂಕ್ಷನಲ್ ವರ್ಕ್‌ಬುಕ್ ಮ್ಯಾನೇಜರ್ ಅವರ ವಿಲೇವಾರಿಯಲ್ಲಿ:
ಈ ಉಪಕರಣವನ್ನು ನಿಮ್ಮ ಎಕ್ಸೆಲ್ ರಿಬ್ಬನ್‌ಗೆ ಸೇರಿಸುವುದರೊಂದಿಗೆ, ಟ್ಯಾಬ್‌ಗಳನ್ನು ಒಂದೇ ಬಟನ್ ಕ್ಲಿಕ್‌ನಲ್ಲಿ ವರ್ಣಮಾಲೆಯ ಮಾಡುವಿಕೆಯನ್ನು ಮಾಡಲಾಗುತ್ತದೆ, ಅದು ಹೇಗಿರಬೇಕು!
ನೀವು Excel ಗಾಗಿ ಇದನ್ನು ಮತ್ತು 70+ ಹೆಚ್ಚಿನ ವೃತ್ತಿಪರ ಪರಿಕರಗಳನ್ನು ಅನ್ವೇಷಿಸಲು ಕುತೂಹಲ ಹೊಂದಿದ್ದರೆ, ನಮ್ಮ Ultimate Suite ನ ಪ್ರಾಯೋಗಿಕ ಆವೃತ್ತಿಯು ಇಲ್ಲಿ ಡೌನ್‌ಲೋಡ್ ಮಾಡಲು ಲಭ್ಯವಿದೆ.
ನಾನು ಧನ್ಯವಾದಗಳು ನೀವು ಓದುತ್ತಿರುವಿರಿ ಮತ್ತು ಮುಂದಿನ ವಾರ ನಮ್ಮ ಬ್ಲಾಗ್‌ನಲ್ಲಿ ನಿಮ್ಮನ್ನು ನೋಡುವ ಭರವಸೆ ಇದೆ!
