ਵਿਸ਼ਾ - ਸੂਚੀ
ਟਿਊਟੋਰਿਅਲ ਦਿਖਾਉਂਦਾ ਹੈ ਕਿ ਤੁਸੀਂ VBA ਕੋਡ ਅਤੇ ਵਰਕਬੁੱਕ ਮੈਨੇਜਰ ਟੂਲ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਐਕਸਲ ਵਰਕਸ਼ੀਟਾਂ ਨੂੰ ਵਰਣਮਾਲਾ ਦੇ ਕ੍ਰਮ ਵਿੱਚ ਕਿਵੇਂ ਤੇਜ਼ੀ ਨਾਲ ਕ੍ਰਮਬੱਧ ਕਰ ਸਕਦੇ ਹੋ।
Microsoft Excel ਪ੍ਰਬੰਧ ਕਰਨ ਦੇ ਕਈ ਤੇਜ਼ ਅਤੇ ਆਸਾਨ ਤਰੀਕੇ ਪ੍ਰਦਾਨ ਕਰਦਾ ਹੈ। ਵਰਣਮਾਲਾ ਦੇ ਕ੍ਰਮ ਵਿੱਚ ਕਾਲਮ ਜਾਂ ਕਤਾਰਾਂ। ਪਰ ਐਕਸਲ ਵਿੱਚ ਵਰਕਸ਼ੀਟਾਂ ਨੂੰ ਮੁੜ ਵਿਵਸਥਿਤ ਕਰਨ ਦਾ ਇੱਕ ਹੀ ਤਰੀਕਾ ਹੈ - ਉਹਨਾਂ ਨੂੰ ਸ਼ੀਟ ਟੈਬ ਬਾਰ 'ਤੇ ਲੋੜੀਂਦੀ ਸਥਿਤੀ ਵਿੱਚ ਖਿੱਚੋ। ਜਦੋਂ ਅਸਲ ਵਿੱਚ ਵੱਡੀ ਵਰਕਬੁੱਕ ਵਿੱਚ ਵਰਣਮਾਲਾ ਟੈਬਸ ਦੀ ਗੱਲ ਆਉਂਦੀ ਹੈ, ਤਾਂ ਇਹ ਇੱਕ ਲੰਮਾ ਅਤੇ ਗਲਤ ਤਰੀਕਾ ਹੋ ਸਕਦਾ ਹੈ। ਸਮਾਂ ਬਚਾਉਣ ਦਾ ਵਿਕਲਪ ਲੱਭ ਰਹੇ ਹੋ? ਇੱਥੇ ਸਿਰਫ਼ ਦੋ ਮੌਜੂਦ ਹਨ: VBA ਕੋਡ ਜਾਂ ਥਰਡ-ਪਾਰਟੀ ਟੂਲ।
VBA ਨਾਲ ਐਕਸਲ ਵਿੱਚ ਟੈਬਾਂ ਨੂੰ ਵਰਣਮਾਲਾ ਕਿਵੇਂ ਬਣਾਇਆ ਜਾਵੇ
ਹੇਠਾਂ ਤੁਹਾਨੂੰ ਐਕਸਲ ਨੂੰ ਕ੍ਰਮਬੱਧ ਕਰਨ ਲਈ ਤਿੰਨ VBA ਕੋਡ ਉਦਾਹਰਨਾਂ ਮਿਲਣਗੀਆਂ। ਯੂਜ਼ਰ ਦੀ ਪਸੰਦ ਦੇ ਆਧਾਰ 'ਤੇ ਸ਼ੀਟਾਂ ਚੜ੍ਹਦੇ, ਉਤਰਦੇ, ਅਤੇ ਕਿਸੇ ਵੀ ਦਿਸ਼ਾ ਵਿੱਚ।
ਇਹ ਦਰਸਾਉਂਦੇ ਹੋਏ ਕਿ ਤੁਹਾਨੂੰ VBA ਨਾਲ ਕੁਝ ਅਨੁਭਵ ਹੈ, ਅਸੀਂ ਤੁਹਾਡੀ ਵਰਕਸ਼ੀਟ ਵਿੱਚ ਇੱਕ ਮੈਕਰੋ ਨੂੰ ਜੋੜਨ ਲਈ ਸਿਰਫ਼ ਬੁਨਿਆਦੀ ਕਦਮਾਂ ਦੀ ਰੂਪਰੇਖਾ ਦੇਵਾਂਗੇ:
<8ਲਈ ਵਿਸਤ੍ਰਿਤ ਕਦਮ-ਦਰ-ਕਦਮ ਨਿਰਦੇਸ਼, ਕਿਰਪਾ ਕਰਕੇ ਐਕਸਲ ਵਿੱਚ VBA ਕੋਡ ਨੂੰ ਕਿਵੇਂ ਸੰਮਿਲਿਤ ਕਰਨਾ ਅਤੇ ਚਲਾਉਣਾ ਹੈ ਵੇਖੋ।
ਸੁਝਾਅ। ਜੇਕਰ ਤੁਸੀਂ ਹੋਰ ਵਰਤੋਂ ਲਈ ਮੈਕਰੋ ਰੱਖਣਾ ਚਾਹੁੰਦੇ ਹੋ, ਤਾਂ ਆਪਣੀ ਫਾਈਲ ਨੂੰ ਐਕਸਲ ਮੈਕਰੋ-ਸਮਰਥਿਤ ਵਰਕਬੁੱਕ (.xlsm) ਦੇ ਤੌਰ 'ਤੇ ਸੁਰੱਖਿਅਤ ਕਰਨਾ ਯਕੀਨੀ ਬਣਾਓ।
ਵਿਕਲਪਿਕ ਤੌਰ 'ਤੇ, ਤੁਸੀਂ ਸਾਡੀ ਨਮੂਨਾ ਵਰਣਮਾਲਾ ਐਕਸਲ ਟੈਬਸ ਵਰਕਬੁੱਕ ਨੂੰ ਡਾਉਨਲੋਡ ਕਰ ਸਕਦੇ ਹੋ, ਪੁੱਛੇ ਜਾਣ 'ਤੇ ਸਮਗਰੀ ਨੂੰ ਸਮਰੱਥ ਬਣਾ ਸਕਦੇ ਹੋ, ਅਤੇ ਉੱਥੋਂ ਸਿੱਧਾ ਲੋੜੀਂਦਾ ਮੈਕਰੋ ਚਲਾ ਸਕਦੇ ਹੋ। ਵਰਕਬੁੱਕ ਵਿੱਚ ਹੇਠਾਂ ਦਿੱਤੇ ਮੈਕਰੋ ਸ਼ਾਮਲ ਹਨ:
- ਟੈਬਸ ਅਸੈਂਡਿੰਗ - ਸ਼ੀਟਾਂ ਨੂੰ A ਤੋਂ Z ਤੱਕ ਵਰਣਮਾਲਾ ਅਨੁਸਾਰ ਕ੍ਰਮਬੱਧ ਕਰੋ।
- TabsDescending - ਵਿੱਚ ਸ਼ੀਟਾਂ ਨੂੰ ਵਿਵਸਥਿਤ ਕਰੋ ਉਲਟਾ ਕ੍ਰਮ, Z ਤੋਂ A ਤੱਕ।
- AlphabetizeTabs - ਸ਼ੀਟ ਟੈਬਾਂ ਨੂੰ ਦੋਵੇਂ ਦਿਸ਼ਾਵਾਂ ਵਿੱਚ ਕ੍ਰਮਬੱਧ ਕਰੋ, ਚੜ੍ਹਦੇ ਜਾਂ ਉਤਰਦੇ ਹੋਏ।
ਨਮੂਨਾ ਵਰਕਬੁੱਕ ਨੂੰ ਡਾਊਨਲੋਡ ਕਰਨ ਅਤੇ ਅੰਦਰ ਖੋਲ੍ਹਣ ਦੇ ਨਾਲ ਆਪਣੀ ਐਕਸਲ, ਆਪਣੀ ਖੁਦ ਦੀ ਵਰਕਬੁੱਕ ਖੋਲ੍ਹੋ ਜਿੱਥੇ ਤੁਸੀਂ ਟੈਬਾਂ ਨੂੰ ਵਰਣਮਾਲਾ ਬਣਾਉਣਾ ਚਾਹੁੰਦੇ ਹੋ, Alt + F8 ਦਬਾਓ, ਲੋੜੀਦਾ ਮੈਕਰੋ ਚੁਣੋ, ਅਤੇ ਚਲਾਓ 'ਤੇ ਕਲਿੱਕ ਕਰੋ।
ਐਕਸਲ ਟੈਬਾਂ ਨੂੰ A ਤੋਂ Z ਤੱਕ ਵਰਣਮਾਲਾ ਅਨੁਸਾਰ ਕ੍ਰਮਬੱਧ ਕਰੋ
ਇਹ ਛੋਟਾ ਮੈਕਰੋ ਮੌਜੂਦਾ ਵਰਕਬੁੱਕ ਵਿੱਚ ਸ਼ੀਟਾਂ ਨੂੰ ਚੜ੍ਹਦੇ ਅੱਖਰ-ਅੰਕ ਕ੍ਰਮ ਵਿੱਚ ਵਿਵਸਥਿਤ ਕਰਦਾ ਹੈ, ਪਹਿਲਾਂ ਵਰਕਸ਼ੀਟਾਂ ਜਿਨ੍ਹਾਂ ਦੇ ਨਾਮ ਨੰਬਰਾਂ ਨਾਲ ਸ਼ੁਰੂ ਹੁੰਦੇ ਹਨ, ਫਿਰ ਸ਼ੀਟਾਂ A ਤੋਂ Z ਤੱਕ।
ਸਬ ਟੈਬਸ ਅਸੈਕਿੰਗ() i = ਲਈ। 1 ਐਪਲੀਕੇਸ਼ਨ ਲਈ. ਸ਼ੀਟ. j = 1 ਐਪਲੀਕੇਸ਼ਨ ਲਈ. ਸ਼ੀਟਾਂ. ਗਿਣਤੀ - 1 ਜੇਕਰ UCase$(ਐਪਲੀਕੇਸ਼ਨ. ਸ਼ੀਟਾਂ(j) ਨਾਮ) > UCase$(Application.Sheets(j + 1).Name) ਫਿਰ Sheets(j)।ਇਸ ਤੋਂ ਬਾਅਦ ਮੂਵ ਕਰੋ:=Sheets(j + 1) End If Next Next MsgBox "ਟੈਬਾਂ ਨੂੰ A ਤੋਂ Z ਤੱਕ ਕ੍ਰਮਬੱਧ ਕੀਤਾ ਗਿਆ ਹੈ।" ਅੰਤ ਸਬਐਕਸਲ ਟੈਬਾਂ ਨੂੰ Z ਤੋਂ A ਤੱਕ ਵਿਵਸਥਿਤ ਕਰੋ
ਜੇਕਰ ਤੁਸੀਂ ਆਪਣੀਆਂ ਸ਼ੀਟਾਂ ਨੂੰ ਘੱਟਦੇ ਅੱਖਰ-ਅੰਕ ਕ੍ਰਮ (Z ਤੋਂ A, ਫਿਰ ਸੰਖਿਆਤਮਕ ਨਾਮਾਂ ਵਾਲੀਆਂ ਸ਼ੀਟਾਂ) ਵਿੱਚ ਕ੍ਰਮਬੱਧ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ, ਤਾਂ ਇਸਦੀ ਵਰਤੋਂ ਕਰੋ। ਹੇਠਾਂ ਦਿੱਤਾ ਕੋਡ:
ਸਬ ਟੈਬਸ ਡੀਸੈਂਡਿੰਗ() i = 1 ਲਈApplication.Sheets.Count for 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 ਤੱਕ ਕ੍ਰਮਬੱਧ ਕੀਤਾ ਗਿਆ ਹੈ। " ਅੰਤ ਸਬਵਰਣਮਾਲਾ ਟੈਬਸ ਵਧਦੇ ਜਾਂ ਉਤਰਦੇ ਹੋਏ
ਇਹ ਮੈਕਰੋ ਤੁਹਾਡੇ ਉਪਭੋਗਤਾਵਾਂ ਨੂੰ ਇਹ ਫੈਸਲਾ ਕਰਨ ਦਿੰਦਾ ਹੈ ਕਿ ਦਿੱਤੀ ਵਰਕਬੁੱਕ ਵਿੱਚ ਵਰਕਸ਼ੀਟਾਂ ਨੂੰ A ਤੋਂ Z ਤੱਕ ਵਰਣਮਾਲਾ ਅਨੁਸਾਰ ਜਾਂ ਉਲਟ ਕ੍ਰਮ ਵਿੱਚ ਕਿਵੇਂ ਕ੍ਰਮਬੱਧ ਕਰਨਾ ਹੈ।
ਐਕਸਲ VBA ਵਿੱਚ ਸਟੈਂਡਰਡ ਡਾਇਲਾਗ ਬਾਕਸ (MsgBox) ਸਿਰਫ ਮੁੱਠੀ ਭਰ ਪਰਿਭਾਸ਼ਿਤ ਬਟਨਾਂ ਵਿੱਚੋਂ ਚੁਣਨ ਦੀ ਇਜਾਜ਼ਤ ਦਿੰਦਾ ਹੈ, ਅਸੀਂ ਤਿੰਨ ਕਸਟਮ ਬਟਨਾਂ ਨਾਲ ਆਪਣਾ ਫਾਰਮ (ਯੂਜ਼ਰਫਾਰਮ) ਬਣਾਵਾਂਗੇ: A ਤੋਂ Z , Z ਤੋਂ A , ਅਤੇ ਰੱਦ ਕਰੋ ।
ਇਸਦੇ ਲਈ, ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ, ਇਹ ਵਰਕਬੁੱਕ ਉੱਤੇ ਸੱਜਾ ਕਲਿੱਕ ਕਰੋ, ਅਤੇ ਇਨਸਰਟ ><'ਤੇ ਕਲਿੱਕ ਕਰੋ। 1>ਯੂਜ਼ਰ ਫਾਰਮ । ਆਪਣੇ ਫਾਰਮ ਨੂੰ SortOrderFrom ਨਾਮ ਦਿਓ, ਅਤੇ ਇਸ ਵਿੱਚ 4 ਨਿਯੰਤਰਣ ਸ਼ਾਮਲ ਕਰੋ: ਇੱਕ ਲੇਬਲ ਅਤੇ ਤਿੰਨ ਬਟਨ:
ਅੱਗੇ, F7 ਦਬਾਓ (ਜਾਂ ਫਾਰਮ 'ਤੇ ਦੋ ਵਾਰ ਕਲਿੱਕ ਕਰੋ) ) ਕੋਡ ਵਿੰਡੋ ਨੂੰ ਖੋਲ੍ਹਣ ਲਈ ਅਤੇ ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਉੱਥੇ ਪੇਸਟ ਕਰੋ। ਕੋਡ ਬਟਨ ਕਲਿੱਕਾਂ ਨੂੰ ਰੋਕਦਾ ਹੈ ਅਤੇ ਹਰੇਕ ਬਟਨ ਨੂੰ ਇੱਕ ਵਿਲੱਖਣ ਟੈਗ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ:
ਪ੍ਰਾਈਵੇਟ ਸਬ ਕਮਾਂਡਬਟਨ1_ਕਲਿੱਕ() ਮੀ.ਟੈਗ = 1 ਮੀ. ਹਾਈਡ ਐਂਡ ਸਬ ਪ੍ਰਾਈਵੇਟ ਸਬ ਕਮਾਂਡਬਟਨ2_ਕਲਿੱਕ() ਮੀ.ਟੈਗ = 2 ਮੀ. ਹਾਈਡ ਐਂਡ ਸਬ ਪ੍ਰਾਈਵੇਟ ਸਬ ਕਮਾਂਡਬਟਨ3_ ਕਲਿੱਕ () Me.Tag = 0 Me. Hide End Subਇਸ ਗੱਲ 'ਤੇ ਨਿਰਭਰ ਕਰਦਾ ਹੈ ਕਿ ਕੀ ਉਪਭੋਗਤਾ ਤੁਹਾਡੇ ਫਾਰਮ 'ਤੇ A ਤੋਂ Z ਜਾਂ Z ਤੋਂ A ਬਟਨ ਨੂੰ ਕਲਿਕ ਕਰਦਾ ਹੈ, ਟੈਬਾਂ ਨੂੰ ਇਸ ਵਿੱਚ ਕ੍ਰਮਬੱਧ ਕਰੋਵਧਦੇ ਵਰਣਮਾਲਾ ਕ੍ਰਮ (ਮੂਲ ਅਨੁਸਾਰ ਚੁਣਿਆ) ਜਾਂ ਘਟਦੇ ਵਰਣਮਾਲਾ ਕ੍ਰਮ; ਜਾਂ ਫਾਰਮ ਨੂੰ ਬੰਦ ਕਰੋ ਅਤੇ ਰੱਦ ਕਰੋ ਦੀ ਸਥਿਤੀ ਵਿੱਚ ਕੁਝ ਨਾ ਕਰੋ। ਇਹ ਹੇਠਾਂ ਦਿੱਤੇ VBA ਕੋਡ ਨਾਲ ਕੀਤਾ ਜਾਂਦਾ ਹੈ, ਜਿਸ ਨੂੰ ਤੁਸੀਂ Insert > Module ਦੁਆਰਾ ਸੰਮਿਲਿਤ ਕਰਦੇ ਹੋ।
Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm ਜੇਕਰ SortOrder = 0 ਫਿਰ x = 1 ਐਪਲੀਕੇਸ਼ਨ ਲਈ ਸਬ ਤੋਂ ਬਾਹਰ ਨਿਕਲੋ। ਸ਼ੀਟ। ਐਪਲੀਕੇਸ਼ਨ ਲਈ y = 1 ਲਈ ਗਿਣਤੀ। ਸ਼ੀਟਾਂ। ਗਿਣਤੀ - 1 ਜੇਕਰ ਕ੍ਰਮਬੱਧ ਕ੍ਰਮ = 1 ਫਿਰ ਜੇ UCase$(Application.Sheets(y)Name) > UCase$(Application.Sheets(y + 1).Name) ਫਿਰ Sheets(y)।ਇਸ ਤੋਂ ਬਾਅਦ ਮੂਵ ਕਰੋ:=Sheets(y +1) End If ElseIf SortOrder = 2 ਫਿਰ If UCase$(Application.Sheets(y)Name) < UCase$(Application.Sheets(y + 1).Name) ਫਿਰ Sheets(y)।ਇਸ ਤੋਂ ਬਾਅਦ ਮੂਵ ਕਰੋ:=Sheets(y + 1) End If End If Next Next End ਸਬ ਫੰਕਸ਼ਨ showUserForm() ਪੂਰਨ ਅੰਕ ਵਜੋਂ showUserForm = 0 ਲੋਡ ਕਰੋ SortOrderForm SortOrderForm .ਸ਼ੋ (1) showUserForm = SortOrderForm.Tag ਅਨਲੋਡ SortOrderForm ਐਂਡ ਫੰਕਸ਼ਨਜੇਕਰ ਤੁਸੀਂ ਅਜੇ ਵੀ VBA ਨਾਲ ਬਹੁਤ ਆਰਾਮਦਾਇਕ ਨਹੀਂ ਹੋ, ਤਾਂ ਤੁਸੀਂ ਟੈਬਾਂ ਨੂੰ ਵਰਣਮਾਲਾ ਬਣਾਉਣ ਲਈ ਸਾਡੀ ਨਮੂਨਾ ਵਰਕਬੁੱਕ ਨੂੰ ਡਾਊਨਲੋਡ ਕਰ ਸਕਦੇ ਹੋ, ਇਸਨੂੰ ਆਪਣੀ ਖੁਦ ਦੀ ਫਾਈਲ ਦੇ ਨਾਲ ਐਕਸਲ ਵਿੱਚ ਖੋਲ੍ਹੋ ਜਿੱਥੇ ਤੁਸੀਂ ਚਾਹੁੰਦੇ ਹੋ। ਟੈਬਾਂ ਨੂੰ ਕ੍ਰਮਬੱਧ ਕਰਨ ਲਈ, ਅਤੇ ਆਪਣੀ ਵਰਕਬੁੱਕ ਤੋਂ AlphabetizeTabs ਮੈਕਰੋ ਚਲਾਓ:
ਤਰਜੀਹੀ ਕ੍ਰਮਬੱਧ ਕ੍ਰਮ ਚੁਣੋ, ਕਹੋ, A ਤੋਂ Z , ਅਤੇ ਨਤੀਜੇ ਵੇਖੋ:
ਟਿਪ। VBA ਨਾਲ, ਤੁਸੀਂ ਆਪਣੀਆਂ ਐਕਸਲ ਵਰਕਸ਼ੀਟਾਂ ਦੀਆਂ ਕਾਪੀਆਂ ਵੀ ਬਣਾ ਸਕਦੇ ਹੋ। ਕੋਡ ਇੱਥੇ ਉਪਲਬਧ ਹੈ: ਕਿਵੇਂ ਕਰਨਾ ਹੈVBA ਨਾਲ ਐਕਸਲ ਵਿੱਚ ਡੁਪਲੀਕੇਟ ਸ਼ੀਟ।
ਅਲਟੀਮੇਟ ਸੂਟ ਨਾਲ ਐਕਸਲ ਟੈਬਸ ਨੂੰ ਵਰਣਮਾਲਾ ਅਨੁਸਾਰ ਕਿਵੇਂ ਕ੍ਰਮਬੱਧ ਕਰਨਾ ਹੈ
ਸਾਡੇ ਐਕਸਲ ਲਈ ਅਲਟੀਮੇਟ ਸੂਟ ਦੇ ਉਪਭੋਗਤਾਵਾਂ ਨੂੰ VBA ਨਾਲ ਘੁੰਮਣ ਦੀ ਲੋੜ ਨਹੀਂ ਹੈ - ਉਹਨਾਂ ਕੋਲ ਬਹੁ-ਗਿਣਤੀ ਹੈ -ਫੰਕਸ਼ਨਲ ਵਰਕਬੁੱਕ ਮੈਨੇਜਰ ਉਹਨਾਂ ਦੇ ਨਿਪਟਾਰੇ ਵਿੱਚ:
ਤੁਹਾਡੇ ਐਕਸਲ ਰਿਬਨ ਵਿੱਚ ਸ਼ਾਮਲ ਕੀਤੇ ਗਏ ਇਸ ਟੂਲ ਦੇ ਨਾਲ, ਵਰਣਮਾਲਾ ਟੈਬਸ ਨੂੰ ਇੱਕ ਸਿੰਗਲ ਬਟਨ ਕਲਿੱਕ ਨਾਲ ਕੀਤਾ ਜਾਂਦਾ ਹੈ, ਬਿਲਕੁਲ ਜਿਵੇਂ ਕਿ ਇਹ ਹੋਣਾ ਚਾਹੀਦਾ ਹੈ!
ਜੇਕਰ ਤੁਸੀਂ ਐਕਸਲ ਲਈ ਇਸ ਅਤੇ 70+ ਹੋਰ ਪੇਸ਼ੇਵਰ ਟੂਲਾਂ ਦੀ ਪੜਚੋਲ ਕਰਨ ਲਈ ਉਤਸੁਕ ਹੋ, ਤਾਂ ਸਾਡੇ ਅਲਟੀਮੇਟ ਸੂਟ ਦਾ ਇੱਕ ਅਜ਼ਮਾਇਸ਼ ਸੰਸਕਰਣ ਇੱਥੇ ਡਾਊਨਲੋਡ ਕਰਨ ਲਈ ਉਪਲਬਧ ਹੈ।
ਮੈਂ ਧੰਨਵਾਦ ਕਰਦਾ ਹਾਂ ਤੁਹਾਨੂੰ ਪੜ੍ਹਨ ਲਈ ਅਤੇ ਅਗਲੇ ਹਫ਼ਤੇ ਤੁਹਾਨੂੰ ਸਾਡੇ ਬਲੌਗ 'ਤੇ ਮਿਲਣ ਦੀ ਉਮੀਦ ਹੈ!