ਵਿਸ਼ਾ - ਸੂਚੀ
ਜਦੋਂ ਸਾਡੇ ਕੋਲ ਸਾਡੀ ਐਕਸਲ ਵਰਕਬੁੱਕ ਵਿੱਚ ਇੱਕ ਵੱਡਾ ਡੇਟਾਸੈਟ ਹੁੰਦਾ ਹੈ, ਤਾਂ ਕਈ ਵਾਰ ਇਹ ਸੁਵਿਧਾਜਨਕ ਹੁੰਦਾ ਹੈ ਜੇਕਰ ਅਸੀਂ ਉਹਨਾਂ ਖਾਸ ਨਤੀਜਿਆਂ ਨੂੰ ਐਕਸਟਰੈਕਟ ਕਰਨ ਲਈ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰ ਸਕਦੇ ਹਾਂ ਜੋ ਅਸੀਂ ਪ੍ਰਾਪਤ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹਾਂ। ਐਕਸਲ ਵਿੱਚ ਕਿਸੇ ਵੀ ਓਪਰੇਸ਼ਨ ਨੂੰ ਚਲਾਉਣ ਲਈ VBA ਨੂੰ ਲਾਗੂ ਕਰਨਾ ਸਭ ਤੋਂ ਪ੍ਰਭਾਵਸ਼ਾਲੀ, ਸਭ ਤੋਂ ਤੇਜ਼, ਅਤੇ ਸਭ ਤੋਂ ਸੁਰੱਖਿਅਤ ਤਰੀਕਾ ਹੈ। ਇਸ ਲੇਖ ਵਿੱਚ, ਅਸੀਂ ਤੁਹਾਨੂੰ VBA ਮੈਕਰੋ ਨਾਲ ਐਕਸਲ ਵਿੱਚ ਟੇਬਲ ਦੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚ ਕਿਵੇਂ ਲੂਪ ਕਰਨਾ ਹੈ ਬਾਰੇ 11 ਵੱਖ-ਵੱਖ ਢੰਗ ਦਿਖਾਵਾਂਗੇ।
ਵਰਕਬੁੱਕ ਡਾਊਨਲੋਡ ਕਰੋ।
ਤੁਸੀਂ ਇੱਥੋਂ ਮੁਫ਼ਤ ਅਭਿਆਸ ਐਕਸਲ ਵਰਕਬੁੱਕ ਡਾਊਨਲੋਡ ਕਰ ਸਕਦੇ ਹੋ।
VBA.xlsm ਨਾਲ ਟੇਬਲ ਦੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚ ਲੂਪ ਕਰੋ
Excel ਵਿੱਚ ਸਾਰਣੀ ਦੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰਨ ਲਈ VBA ਨਾਲ 11 ਵਿਧੀਆਂ
ਇਸ ਸੈਕਸ਼ਨ ਦੀ ਪਾਲਣਾ ਕਰਦੇ ਹੋਏ, ਤੁਸੀਂ ਸਿੱਖੋਗੇ ਕਿ 11 ਵੱਖ-ਵੱਖ ਤਰੀਕਿਆਂ ਨਾਲ ਟੇਬਲ ਦੀਆਂ ਕਤਾਰਾਂ ਨੂੰ ਕਿਵੇਂ ਲੂਪ ਕਰਨਾ ਹੈ , ਜਿਵੇਂ ਕਿ ਇੱਕ ਖਾਲੀ ਸੈੱਲ ਤੱਕ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰੋ, ਜਦੋਂ ਤੱਕ ਇੱਕ ਖਾਸ ਮੁੱਲ ਨਹੀਂ ਮਿਲਦਾ, ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰੋ, ਐਕਸਲ ਵਿੱਚ VBA ਮੈਕਰੋ ਨਾਲ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰੋ ਅਤੇ ਇੱਕ ਖਾਸ ਸੈੱਲ ਨੂੰ ਰੰਗ ਦਿਓ।
ਉੱਪਰ ਉਦਾਹਰਨ ਡੇਟਾਸੈਟ ਹੈ ਜਿਸਦਾ ਇਹ ਲੇਖ ਤਰੀਕਿਆਂ ਦਾ ਵਰਣਨ ਕਰਨ ਲਈ ਅਨੁਸਰਣ ਕਰੇਗਾ।
1. ਸੈੱਲ ਸੰਦਰਭ ਨੰਬਰ
ਜੇਕਰ ਤੁਸੀਂ ਆਪਣੀ ਐਕਸਲ ਵਰਕਸ਼ੀਟ ਵਿੱਚ ਸਾਰਣੀ ਦੀ ਹਰ ਕਤਾਰ ਵਿੱਚ ਹਰੇਕ ਸੈੱਲ ਵਿੱਚ ਲੂਪ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ ਤਾਂ VBA ਨੂੰ ਏਮਬੇਡ ਕਰੋ ਅਤੇ ਵਾਪਸੀ ਮੁੱਲ ਦੇ ਰੂਪ ਵਿੱਚ ਸੈੱਲ ਸੰਦਰਭ ਨੰਬਰ ਪ੍ਰਾਪਤ ਕਰੋ , ਫਿਰ ਹੇਠਾਂ ਦੱਸੇ ਗਏ ਕਦਮਾਂ ਦੀ ਪਾਲਣਾ ਕਰੋ।
ਪੜਾਵਾਂ:
- ਸ਼ੁਰੂ ਵਿੱਚ , ਆਪਣੇ ਕੀਬੋਰਡ 'ਤੇ Alt + F11 ਦਬਾਓ ਜਾਂ ਜਾਓਵੇਰੀਏਬਲ।
8502
ਕੋਡ ਦਾ ਇਹ ਟੁਕੜਾ 1 ਤੋਂ 15 ਤੱਕ ਕਤਾਰਾਂ ਨੂੰ ਲੂਪ ਕਰਨ ਲਈ ਇੱਥੇ ਹੈ। ਜੇਕਰ ਇਹ ਖਾਸ ਸ਼ਬਦ “ Edge ” ਲੱਭਦਾ ਹੈ ਤਾਂ ਇਹ ਸ਼ਬਦ ਨੂੰ ਰੱਖਣ ਵਾਲੇ ਸੈੱਲ ਨੂੰ ਰੰਗ ਦਿੰਦਾ ਹੈ। ਇਹ ਉਦੋਂ ਤੱਕ ਅਜਿਹਾ ਕਰਨਾ ਜਾਰੀ ਰੱਖਦਾ ਹੈ ਜਦੋਂ ਤੱਕ ਇਹ ਸ਼ਬਦ ਦੀ ਖੋਜ ਵਿੱਚ ਕਤਾਰਾਂ 1 ਤੋਂ 15 ਤੱਕ ਦੇ ਸਾਰੇ ਡੇਟਾ ਨੂੰ ਸਕੈਨ ਨਹੀਂ ਕਰ ਲੈਂਦਾ।
ਹੋਰ ਪੜ੍ਹੋ: VLOOKUP ਟੇਬਲ ਐਰੇ ਦੀ ਵਰਤੋਂ ਕਿਵੇਂ ਕਰੀਏ 'ਤੇ ਆਧਾਰਿਤ ਹੈ। ਐਕਸਲ ਵਿੱਚ ਸੈੱਲ ਵੈਲਯੂ
ਸਮਾਨ ਰੀਡਿੰਗ
- ਕੀ ਟੇਬਲ ਫੰਕਸ਼ਨ ਐਕਸਲ ਵਿੱਚ ਮੌਜੂਦ ਹੈ?
- ਟੇਬਲ ਨੂੰ ਐਕਸਲ ਵਿੱਚ ਸੂਚੀ ਵਿੱਚ ਕਿਵੇਂ ਬਦਲਿਆ ਜਾਵੇ (3 ਤੇਜ਼ ਤਰੀਕੇ)
- ਰੇਂਜ ਨੂੰ ਐਕਸਲ ਵਿੱਚ ਟੇਬਲ ਵਿੱਚ ਬਦਲੋ (5 ਆਸਾਨ ਤਰੀਕੇ)
- ਇੱਕ ਐਕਸਲ ਟੇਬਲ ਵਿੱਚ ਪ੍ਰਭਾਵਸ਼ਾਲੀ ਢੰਗ ਨਾਲ ਫਾਰਮੂਲੇ ਦੀ ਵਰਤੋਂ ਕਰੋ (4 ਉਦਾਹਰਨਾਂ ਦੇ ਨਾਲ)
- Excel ਟੇਬਲ ਨਾਮ: ਤੁਹਾਨੂੰ ਸਭ ਕੁਝ ਜਾਣਨ ਦੀ ਲੋੜ ਹੈ
7. ਐਕਸਲ ਵਿੱਚ ਹਰ ਇੱਕ ਕਤਾਰ ਨੂੰ ਲੂਪ ਕਰਨ ਲਈ VBA ਲਾਗੂ ਕਰੋ ਅਤੇ ਹਰ ਇੱਕ ਔਡ ਕਤਾਰ ਨੂੰ ਕਲਰ ਕਰੋ
ਪਿਛਲੇ ਭਾਗ ਤੋਂ, ਅਸੀਂ ਸਿੱਖਿਆ ਹੈ ਕਿ ਇੱਕ ਖਾਸ ਮੁੱਲ ਰੱਖਣ ਵਾਲੇ ਸੈੱਲ ਨੂੰ ਕਿਵੇਂ ਰੰਗਣਾ ਹੈ। ਇਸ ਭਾਗ ਵਿੱਚ, ਅਸੀਂ ਸਿੱਖਾਂਗੇ ਕਿ ਐਕਸਲ ਵਿੱਚ VBA ਮੈਕਰੋ ਨਾਲ ਟੇਬਲ ਦੀ ਹਰੇਕ ਕਤਾਰ ਨੂੰ ਕਿਵੇਂ ਲੂਪ ਕਰਨਾ ਹੈ ਅਤੇ ਹਰ ਇੱਕ ਅਜੀਬ ਕਤਾਰ ਨੂੰ ਰੰਗ ਕਰਨਾ ਹੈ ।
ਪ੍ਰਕਿਰਿਆ ਨੂੰ ਚਲਾਉਣ ਲਈ ਕਦਮ। ਹੇਠਾਂ ਵਰਣਨ ਕੀਤਾ ਗਿਆ ਹੈ।
ਕਦਮ:
- ਜਿਵੇਂ ਪਹਿਲਾਂ ਦਿਖਾਇਆ ਗਿਆ ਹੈ, ਡਿਵੈਲਪਰ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ। ਟੈਬ ਅਤੇ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਮੋਡਿਊਲ ਇੱਕ ਮੋਡਿਊਲ ਪਾਓ।
- ਫਿਰ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਇਸਨੂੰ ਪੇਸਟ ਕਰੋ ਵਿੱਚ। ਕੋਡ ਵਿੰਡੋ।
2280
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਹੁਣ, ਚਲਾਓ ਮੈਕਰੋ ਅਤੇ ਆਉਟਪੁੱਟ ਦੇਖਣ ਲਈ ਹੇਠਾਂ ਦਿੱਤੀ ਚਿੱਤਰ ਨੂੰ ਦੇਖੋ।
ਸਾਰੀਆਂ ਵਿਅਸਤ-ਨੰਬਰ ਵਾਲੀਆਂ ਕਤਾਰਾਂ ਰੰਗਦਾਰ ਹਨ ਵਰਕਸ਼ੀਟ ਦੀ ਸਾਰਣੀ ਵਿੱਚ ਮੌਜੂਦ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਨੂੰ ਲੂਪ ਕਰਨ ਤੋਂ ਬਾਅਦ।
VBA ਕੋਡ ਵਿਆਖਿਆ
7381
ਵੇਰੀਏਬਲ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ।
5183
ਉਸ ਰੇਂਜ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ ਜਿਸ ਨਾਲ ਅਸੀਂ ਕੰਮ ਕਰਾਂਗੇ।
6756
ਕੋਡ ਦਾ ਇਹ ਹਿੱਸਾ ਮੌਜੂਦਾ ਕਤਾਰ ਦੀ ਅਗਲੀ ਕਤਾਰ, B4<ਤੋਂ ਸ਼ੁਰੂ ਕਰਦੇ ਹੋਏ, ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਰਾਹੀਂ ਦੁਹਰਾਓ ਨੂੰ ਦਰਸਾਉਂਦਾ ਹੈ। 25>. ਜੇਕਰ ਕਤਾਰ ਸੰਖਿਆਵਾਂ ਨੂੰ 2 ਨਾਲ ਵੰਡਣ ਦਾ ਮੋਡ ਇੱਕ ਪੂਰਨ ਅੰਕ ਕਿਸਮ ਵਿੱਚ ਸਟੋਰ ਕੀਤੀ ਵਾਪਸੀ ਕਤਾਰ ਨੰਬਰ ਦੇ ਬਰਾਬਰ ਹੈ, ਤਾਂ ਇਹ ਕੋਡ ਉਹਨਾਂ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਨੂੰ ਰੰਗ ਦਿੰਦਾ ਹੈ ਜੋ ਕੋਡ ਵਿੱਚ ਦਿੱਤੇ ਰੰਗ ਸੂਚਕਾਂਕ ਨਾਲ ਗਣਨਾ ਦੁਆਰਾ ਕੱਢੀਆਂ ਜਾਂਦੀਆਂ ਹਨ। ਇਹ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੰਘਦਾ ਰਹਿੰਦਾ ਹੈ ਜਦੋਂ ਤੱਕ ਇਹ ਰੇਂਜ ਦੇ ਅੰਤ ਤੱਕ ਨਹੀਂ ਪਹੁੰਚ ਜਾਂਦਾ।
8. ਐਕਸਲ ਵਿੱਚ ਕਤਾਰਾਂ ਰਾਹੀਂ ਲੂਪ ਕਰਨ ਲਈ VBA ਲਾਗੂ ਕਰੋ ਅਤੇ ਹਰ ਇੱਕ ਵੀ ਕਤਾਰ ਨੂੰ ਕਲਰ ਕਰੋ
ਪਿਛਲੇ ਭਾਗ ਵਿੱਚ, ਅਸੀਂ ਸਿੱਖਿਆ ਹੈ ਕਿ ਇੱਕ ਟੇਬਲ ਦੀ ਹਰ ਇੱਕ ਅਜੀਬ ਕਤਾਰ ਨੂੰ ਕਿਵੇਂ ਰੰਗ ਕਰਨਾ ਹੈ। ਇਸ ਭਾਗ ਵਿੱਚ, ਅਸੀਂ ਸਿਖਾਂਗੇ ਕਿ ਕਿਵੇਂ ਐਕਸਲ ਵਿੱਚ VBA ਮੈਕਰੋ ਨਾਲ ਸਾਰਣੀ ਦੀ ਹਰੇਕ ਕਤਾਰ ਨੂੰ ਲੂਪ ਕਰਨਾ ਹੈ ਅਤੇ ਹਰ ਇੱਕ ਬਰਾਬਰ ਕਤਾਰ ਨੂੰ ਰੰਗ ਕਰਨਾ ਹੈ ।
ਪ੍ਰਕਿਰਿਆ ਨੂੰ ਚਲਾਉਣ ਦੇ ਕਦਮ ਹੇਠਾਂ ਦਿੱਤੇ ਗਏ ਹਨ।
ਸਟਪਸ:
- ਸਭ ਤੋਂ ਪਹਿਲਾਂ, ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਅਤੇ ਇਨਸਰਟ ਕਰੋ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਇੱਕ ਮੋਡਿਊਲ ।
- ਫਿਰ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਇਸਨੂੰ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਪੇਸਟ ਕਰੋ।
3989
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਤਿਆਰ ਹੈਚਲਾਓ।
- ਅੱਗੇ, ਚਲਾਓ ਮੈਕਰੋ ਅਤੇ ਨਤੀਜਾ ਦੇਖਣ ਲਈ ਹੇਠਾਂ ਦਿੱਤੀ ਤਸਵੀਰ ਨੂੰ ਦੇਖੋ।
ਵਰਕਸ਼ੀਟ ਦੀ ਸਾਰਣੀ ਵਿੱਚ ਮੌਜੂਦ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਨੂੰ ਲੂਪ ਕਰਨ ਤੋਂ ਬਾਅਦ ਸਾਰੀਆਂ ਸਮ-ਸੰਖਿਆ ਵਾਲੀਆਂ ਕਤਾਰਾਂ ਰੰਗੀਨ ਹੋ ਜਾਂਦੀਆਂ ਹਨ।
1 ਮੌਜੂਦਾ ਕਤਾਰ ਤੋਂ ਤਿੰਨ ਕਤਾਰਾਂ, B4 । ਇਹ ਪਹਿਲਾਂ ਇਸ ਨੂੰ ਰੰਗ ਦਿੰਦਾ ਹੈ, ਫਿਰ ਕਤਾਰਾਂ ਦੀ ਗਿਣਤੀ ਨੂੰ 2 ਤੱਕ ਵਧਾਉਂਦਾ ਹੈ ਅਤੇ ਜਦੋਂ ਤੱਕ ਇਹ ਡੇਟਾਸੈਟ ਦੀ ਆਖਰੀ ਕਤਾਰ ਤੱਕ ਨਹੀਂ ਪਹੁੰਚ ਜਾਂਦਾ ਉਦੋਂ ਤੱਕ ਇਸ ਨੂੰ ਰੰਗ ਦਿੰਦਾ ਰਹਿੰਦਾ ਹੈ।
9. ਐਕਸਲ ਵਿੱਚ ਖਾਲੀ ਸੈੱਲ ਤੱਕ ਕਤਾਰਾਂ ਰਾਹੀਂ ਦੁਹਰਾਉਣ ਲਈ ਮੈਕਰੋ ਨੂੰ ਲਾਗੂ ਕਰੋ
ਜੇਕਰ ਤੁਸੀਂ ਚਾਹੁੰਦੇ ਹੋ ਕਿ ਤੁਹਾਡਾ ਕੋਡ ਇਸ ਤਰ੍ਹਾਂ ਕੰਮ ਕਰੇ ਜਿਵੇਂ ਇਹ ਸਾਰਣੀ ਦੀਆਂ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੰਘੇਗਾ ਅਤੇ ਖਾਲੀ ਸੈੱਲ ਤੱਕ ਪਹੁੰਚਣ 'ਤੇ ਬੰਦ ਹੋ ਜਾਵੇਗਾ , ਫਿਰ ਇਹ ਭਾਗ ਤੁਹਾਡੇ ਲਈ ਹੈ। ਤੁਸੀਂ ਉਸ ਕੰਮ ਨੂੰ ਐਕਸਲ VBA ਵਿੱਚ FOR ਲੂਪ ਅਤੇ Do- Until Loop ਦੋਵਾਂ ਨਾਲ ਚਲਾ ਸਕਦੇ ਹੋ।
9.1। FOR ਲੂਪ ਨਾਲ
ਇੱਕ ਸਾਰਣੀ ਵਿੱਚ ਕਤਾਰਾਂ ਵਿੱਚ ਲੂਪ ਕਰਨ ਦੇ ਪੜਾਅ ਜਦੋਂ ਤੱਕ VBA ਐਕਸਲ ਵਿੱਚ FOR ਲੂਪ ਵਾਲਾ ਖਾਲੀ ਸੈੱਲ ਹੇਠਾਂ ਦਿੱਤਾ ਜਾਂਦਾ ਹੈ।
ਸਟਪਸ:
- ਪਹਿਲਾਂ, ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਅਤੇ ਇਨਸਰਟ ਕਰੋ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਇੱਕ ਮੋਡਿਊਲ ।
- ਉਸ ਤੋਂ ਬਾਅਦ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਇਸਨੂੰ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਪੇਸਟ ਕਰੋ ।
7471
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਫਿਰ, ਚਲਾਓ macro ਅਤੇ ਨਤੀਜਾ ਹੇਠਾਂ gif ਵਿੱਚ ਦਿਖਾਇਆ ਗਿਆ ਹੈ।
ਮੈਕਰੋ ਨੂੰ ਚਲਾਉਣ ਤੋਂ ਬਾਅਦ, ਇਹ ਸਾਰਣੀ ਵਿੱਚ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚ ਲੂਪ ਕਰਨਾ ਸ਼ੁਰੂ ਕਰ ਦਿੰਦਾ ਹੈ ਅਤੇ ਇੱਕ ਵਾਰ ਜਦੋਂ ਇਹ ਖਾਲੀ ਸੈੱਲ, ਸੈੱਲ B8 'ਤੇ ਪਹੁੰਚ ਗਿਆ, ਤਾਂ ਇਸਨੇ ਦੁਹਰਾਅ ਨੂੰ ਰੋਕ ਦਿੱਤਾ ।
VBA ਕੋਡ ਵਿਆਖਿਆ
7175
ਵੇਰੀਏਬਲ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ।
8292
ਸਕਰੀਨ ਅੱਪਡੇਟ ਕਰਨ ਵਾਲੇ ਇਵੈਂਟ ਨੂੰ ਬੰਦ ਕਰੋ।
1324
ਸੈਲ B4 ਤੋਂ ਸ਼ੁਰੂ ਹੋਣ ਵਾਲੀਆਂ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਨੂੰ ਆਖਰੀ ਤੱਕ ਸਟੋਰ ਕਰੋ।
1815
ਸੈਲ B4 ਨੂੰ ਚੁਣੋ।
7787
ਕੋਡ ਦਾ ਇਹ ਟੁਕੜਾ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰਨਾ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ। ਜਦੋਂ ਇਹ ਇੱਕ ਕਤਾਰ ਵਿੱਚ ਇੱਕ ਖਾਲੀ ਸੈੱਲ ਲੱਭਦਾ ਹੈ ਤਾਂ ਇਸਨੂੰ ਚੁਣਦਾ ਹੈ ਅਤੇ ਕਤਾਰਾਂ ਨੂੰ ਸਕੈਨ ਕਰਨਾ ਜਾਰੀ ਰੱਖਦਾ ਹੈ ਜਦੋਂ ਤੱਕ ਇਹ ਅੰਤ ਵਿੱਚ ਨਹੀਂ ਪਹੁੰਚ ਜਾਂਦਾ।
5660
ਸਕ੍ਰੀਨ ਅੱਪਡੇਟ ਕਰਨ ਵਾਲੇ ਇਵੈਂਟ ਨੂੰ ਚਾਲੂ ਕਰੋ।
9.2. ਡੂ-ਇੰਨਟਿਲ ਲੂਪ ਨਾਲ
ਵੀਬੀਏ ਵਿੱਚ ਡੂ-ਏਨਟਿਲ ਲੂਪ ਦੇ ਨਾਲ ਇੱਕ ਖਾਲੀ ਸੈੱਲ ਹੋਣ ਤੱਕ ਕਤਾਰਾਂ ਵਿੱਚ ਲੂਪ ਕਰਨ ਦੇ ਕਦਮ ਹੇਠਾਂ ਦਿੱਤੇ ਗਏ ਹਨ।
ਸਟੈਪਸ:
- ਸਭ ਤੋਂ ਪਹਿਲਾਂ, ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਅਤੇ ਇਨਸਰਟ ਏ. ਮੋਡਿਊਲ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ।
- ਫਿਰ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਇਸਨੂੰ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਪੇਸਟ ਕਰੋ।
2532
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਬਾਅਦ ਵਿੱਚ, ਚਲਾਓ ਮੈਕਰੋ। ਨਤੀਜਾ ਹੇਠਾਂ ਦਿੱਤੇ gif ਵਿੱਚ ਦਿਖਾਇਆ ਗਿਆ ਹੈ।
ਮੈਕ੍ਰੋ ਚਲਾਉਣ ਤੋਂ ਬਾਅਦ, ਇਹ ਸਾਰਣੀ ਵਿੱਚ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚ ਲੂਪ ਕਰਨਾ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ ਅਤੇ ਇੱਕ ਵਾਰ ਇਹ ਖਾਲੀ ਸੈੱਲ, ਸੈੱਲ B8 ਤੱਕ ਪਹੁੰਚ ਗਿਆ, ਇਸਨੇ ਦੁਹਰਾਅ ਨੂੰ ਰੋਕ ਦਿੱਤਾ ।
VBA ਕੋਡਵਿਆਖਿਆ
8576
ਉਸ ਸੈੱਲ ਨੂੰ ਚੁਣੋ ਜਿਸ ਤੋਂ ਅਸੀਂ ਕੰਮ ਕਰਾਂਗੇ।
8230
ਸ਼ੁਰੂ ਹੁੰਦਾ ਹੈ ਅਤੇ ਉਦੋਂ ਤੱਕ ਲੂਪ ਕਰਨਾ ਜਾਰੀ ਰੱਖਦਾ ਹੈ ਜਦੋਂ ਤੱਕ ਇੱਕ ਖਾਲੀ ਸੈੱਲ ਨਹੀਂ ਮਿਲਦਾ।
1783
ਜਦੋਂ ਇੱਕ ਖਾਲੀ ਸੈੱਲ ਹੁੰਦਾ ਹੈ ਇੱਕ ਕਤਾਰ ਵਿੱਚ ਮਿਲਿਆ ਫਿਰ ਇਸਨੂੰ ਚੁਣੋ ਅਤੇ ਦੁਹਰਾਓ ਬੰਦ ਕਰੋ।
10. ਐਕਸਲ ਵਿੱਚ ਕਈ ਖਾਲੀ ਸੈੱਲਾਂ ਤੱਕ ਕਤਾਰਾਂ ਰਾਹੀਂ ਦੁਹਰਾਉਣ ਲਈ VBA ਮੈਕਰੋ
ਪਿਛਲੇ ਭਾਗ ਵਿੱਚ, ਤੁਸੀਂ ਸਿੱਖਿਆ ਹੈ ਕਿ ਜਦੋਂ ਇੱਕ ਖਾਲੀ ਸੈੱਲ ਮਿਲਦਾ ਹੈ ਤਾਂ ਲੂਪ ਨੂੰ ਕਿਵੇਂ ਰੋਕਿਆ ਜਾਵੇ। ਪਰ ਉਦੋਂ ਕੀ ਜੇ ਤੁਸੀਂ ਦੁਹਰਾਓ ਨੂੰ ਉਦੋਂ ਤੱਕ ਨਹੀਂ ਰੋਕਣਾ ਚਾਹੁੰਦੇ ਜਦੋਂ ਤੱਕ ਕਿ ਇੱਕ ਦੀ ਬਜਾਏ ਇੱਕ ਤੋਂ ਵੱਧ ਖਾਲੀ ਸੈੱਲ ਨਹੀਂ ਮਿਲਦੇ।
ਇੱਕ ਸਾਰਣੀ ਵਿੱਚ ਕਈ ਖਾਲੀ ਸੈੱਲਾਂ ਦੇ ਮਿਲਣ ਤੱਕ ਕਤਾਰਾਂ ਵਿੱਚ ਲੂਪ ਕਰਨ ਲਈ ਕਦਮ VBA ਐਕਸਲ ਨਾਲ ਹੇਠਾਂ ਦਿਖਾਇਆ ਗਿਆ ਹੈ।
ਪੜਾਅ:
- ਸਭ ਤੋਂ ਪਹਿਲਾਂ, ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਨੂੰ ਖੋਲ੍ਹੋ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਡਿਵੈਲਪਰ ਟੈਬ ਅਤੇ ਇਨਸਰਟ ਕਰੋ ਇੱਕ ਮੋਡਿਊਲ ।
- ਫਿਰ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ <1 ਇਸਨੂੰ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਪੇਸਟ ਕਰੋ।
7902
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਹੁਣ, ਮੈਕਰੋ ਨੂੰ ਚਲਾਓ ਅਤੇ ਆਉਟਪੁੱਟ ਲਈ ਹੇਠਾਂ ਦਿੱਤੀ GIF ਵੇਖੋ।
ਮੈਕਰੋ ਨੂੰ ਚਲਾਉਣ ਤੋਂ ਬਾਅਦ, ਇਹ 'ਤੇ ਨਹੀਂ ਰੁਕਿਆ। ਪਹਿਲਾ ਖਾਲੀ ਸੈੱਲ, ਸੈੱਲ B8 । ਇਹ ਉਦੋਂ ਬੰਦ ਹੋ ਗਿਆ ਜਦੋਂ ਇਸਨੂੰ ਸੈੱਲ B16 'ਤੇ ਲਗਾਤਾਰ ਦੋ ਖਾਲੀ ਸੈੱਲ ਮਿਲੇ।
VBA ਕੋਡ ਸਪੱਸ਼ਟੀਕਰਨ
5182
ਸੈੱਲ ਚੁਣੋ ਜਿਸ ਤੋਂ ਅਸੀਂ ਕੰਮ ਕਰਾਂਗੇ।
2716
ਸ਼ੁਰੂ ਹੁੰਦਾ ਹੈ ਅਤੇ ਉਦੋਂ ਤੱਕ ਲੂਪਿੰਗ ਜਾਰੀ ਰੱਖਦਾ ਹੈ ਜਦੋਂ ਤੱਕ ਲਗਾਤਾਰ ਦੋ ਖਾਲੀ ਸੈੱਲ ਨਹੀਂ ਮਿਲਦੇ।
6971
ਜਦੋਂ ਲਗਾਤਾਰ ਦੋ ਖਾਲੀ ਸੈੱਲ ਲੱਭੇ ਜਾਂਦੇ ਹਨ, ਤਦਇਸਨੂੰ ਚੁਣੋ ਅਤੇ ਦੁਹਰਾਓ ਬੰਦ ਕਰੋ।
11. ਐਕਸਲ ਵਿੱਚ ਖਾਲੀ ਹੋਣ ਤੱਕ ਸਾਰੇ ਕਾਲਮਾਂ ਨੂੰ ਜੋੜ ਕੇ ਕਤਾਰਾਂ ਰਾਹੀਂ ਲੂਪ ਕਰਨ ਲਈ VBA ਨੂੰ ਏਮਬੇਡ ਕਰੋ
ਇਹ ਭਾਗ ਤੁਹਾਨੂੰ ਦੱਸੇਗਾ ਕਿ ਕਿਵੇਂ ਇੱਕ ਸਾਰਣੀ ਵਿੱਚ ਸਾਰੀਆਂ ਕਤਾਰਾਂ ਨੂੰ ਲੂਪ ਕਰਨਾ ਹੈ ਅਤੇ ਇੱਕ ਖਾਲੀ ਸੈੱਲ ਤੱਕ ਸਾਰੇ ਕਾਲਮਾਂ ਨੂੰ ਜੋੜਨਾ ਹੈ। VBA Excel ਨਾਲ ਮਿਲਦਾ ਹੈ।
ਆਓ ਸਿੱਖੀਏ ਕਿ ਇਸਨੂੰ ਐਕਸਲ ਵਿੱਚ VBA ਮੈਕਰੋ ਨਾਲ ਕਿਵੇਂ ਕਰਨਾ ਹੈ।
ਪੜਾਅ:
- ਪਹਿਲਾਂ, ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਅਤੇ ਸ਼ਾਮਲ ਕਰੋ ਇੱਕ ਮੋਡਿਊਲ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ।
- ਫਿਰ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਇਸਨੂੰ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਪੇਸਟ ਕਰੋ।
7713
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਬਾਅਦ ਵਿੱਚ, ਚਲਾਓ ਮੈਕਰੋ ਅਤੇ ਨਤੀਜੇ ਲਈ ਹੇਠਾਂ ਦਿੱਤੀ GIF ਵੇਖੋ।
ਜਿਵੇਂ ਕਿ ਤੁਸੀਂ ਉਪਰੋਕਤ gif ਤੋਂ ਦੇਖ ਸਕਦੇ ਹੋ ਕਿ ਇੱਥੇ ਇੱਕ ਪੌਪ-ਅੱਪ MsgBox ਹੈ ਜੋ ਤੁਹਾਨੂੰ ਹਰੇਕ ਵਿੱਚ ਮੌਜੂਦ ਸਾਰੇ ਕਾਲਮਾਂ ਦਾ ਸੰਗਠਿਤ ਮੁੱਲ ਦਿਖਾਉਂਦਾ ਹੈ। ਤੁਹਾਡੀ ਐਕਸਲ ਵਰਕਸ਼ੀਟ ਦੀ ਸਾਰਣੀ ਤੋਂ ਕਤਾਰ । ਪਰ ਇਹ ਖਾਲੀ ਸੈੱਲ ਤੱਕ ਪਹੁੰਚਣ 'ਤੇ ਰੁਕ ਗਿਆ ।
VBA ਕੋਡ ਸਪੱਸ਼ਟੀਕਰਨ
1569
ਵੇਰੀਏਬਲਾਂ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ।
6257
ਸ਼ੀਟ ਦਾ ਨਾਮ ਸੈੱਟ ਕਰੋ ਜਿਸ ਨਾਲ ਅਸੀਂ ਕੰਮ ਕਰਾਂਗੇ (“ ConcatenatingAllColUntilBlank ” ਵਰਕਬੁੱਕ ਵਿੱਚ ਸ਼ੀਟ ਦਾ ਨਾਮ ਹੈ)।
3036
ਸੀਮਾ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ ਜਿਸ ਨਾਲ ਅਸੀਂ ਕੰਮ ਕਰਾਂਗੇ।
1775
ਕੋਡ ਦਾ ਇਹ ਟੁਕੜਾ ਐਰੇ ਨਾਲ ਲੂਪ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ। ਇਹ ਉਦੋਂ ਤੱਕ ਲੂਪ ਕਰਨਾ ਜਾਰੀ ਰੱਖਦਾ ਹੈ ਜਦੋਂ ਤੱਕ ਇਹ ਐਰੇ ਦੀ ਸਭ ਤੋਂ ਵੱਡੀ ਸਬਸਕ੍ਰਿਪਟ ਅਤੇ ਹੇਠਲੇ ਸੀਮਾ ਨੂੰ ਵਾਪਸ ਨਹੀਂ ਕਰਦਾਪਹਿਲਾ ਮਾਪ। ਫਿਰ ਇਹ ਦੂਜੇ ਅਯਾਮ ਦੀ ਹੇਠਲੀ ਸੀਮਾ ਨੂੰ ਕੱਢਣ ਦੇ ਦੁਹਰਾਅ ਵਿੱਚ ਦਾਖਲ ਹੁੰਦਾ ਹੈ। ਉਸ ਤੋਂ ਬਾਅਦ, ਇਹ iResult ਵੇਰੀਏਬਲ ਵਿੱਚ ਸਾਰੇ ਐਕਸਟਰੈਕਟ ਕੀਤੇ ਮੁੱਲਾਂ ਨੂੰ ਜੋੜ ਕੇ ਅਤੇ ਨਤੀਜੇ ਨੂੰ MsgBox ਵਿੱਚ ਸੁੱਟ ਕੇ ਪਾਸ ਕਰਦਾ ਹੈ। ਇਹ ਉਦੋਂ ਤੱਕ ਕਰਨਾ ਜਾਰੀ ਰੱਖਦਾ ਹੈ ਜਦੋਂ ਤੱਕ ਇਹ ਇੱਕ ਖਾਲੀ ਸੈੱਲ ਨਹੀਂ ਲੱਭਦਾ।
ਸਿੱਟਾ
ਸਿੱਟਾ ਕਰਨ ਲਈ, ਇਸ ਲੇਖ ਨੇ ਤੁਹਾਨੂੰ ਕਤਾਰਾਂ ਵਿੱਚ ਲੂਪ ਕਰਨ ਦੇ 11 ਪ੍ਰਭਾਵਸ਼ਾਲੀ ਤਰੀਕੇ ਦਿਖਾਏ ਹਨ। ਇੱਕ ਸਾਰਣੀ ਦਾ ਐਕਸਲ ਵਿੱਚ VBA ਮੈਕਰੋ ਨਾਲ। ਮੈਨੂੰ ਉਮੀਦ ਹੈ ਕਿ ਇਹ ਲੇਖ ਤੁਹਾਡੇ ਲਈ ਬਹੁਤ ਲਾਭਦਾਇਕ ਰਿਹਾ ਹੈ. ਵਿਸ਼ੇ ਸੰਬੰਧੀ ਕੋਈ ਵੀ ਸਵਾਲ ਪੁੱਛਣ ਲਈ ਬੇਝਿਜਕ ਮਹਿਸੂਸ ਕਰੋ।
ਟੈਬ ਡਿਵੈਲਪਰ -> ਵਿਜ਼ੂਅਲ ਬੇਸਿਕਖੋਲ੍ਹਣ ਲਈ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ। 
- ਅੱਗੇ, ਪੌਪ-ਅੱਪ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ, ਮੀਨੂ ਬਾਰ, ਸੰਮਿਲਿਤ ਕਰੋ -> ਮੋਡਿਊਲ ।
- ਫਿਰ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਕੋਡ ਵਿੱਚ ਪੇਸਟ ਕਰੋ ਵਿੰਡੋ।
2177
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਹੁਣ, ਆਪਣੇ 'ਤੇ F5 ਦਬਾਓ। ਕੀਬੋਰਡ ਜਾਂ ਮੀਨੂ ਬਾਰ ਤੋਂ ਚਲਾਓ -> Sub/UserForm ਚਲਾਓ। ਤੁਸੀਂ ਮੈਕਰੋ ਨੂੰ ਚਲਾਉਣ ਲਈ ਸਬ-ਮੇਨੂ ਬਾਰ ਵਿੱਚ ਛੋਟੇ ਪਲੇ ਆਈਕਨ 'ਤੇ ਕਲਿੱਕ ਵੀ ਕਰ ਸਕਦੇ ਹੋ।
- ਜਾਂ ਡੇਟਾਸੈਟ ਅਤੇ ਨਤੀਜੇ ਦੀ ਦ੍ਰਿਸ਼ਟੀਗਤ ਤੌਰ 'ਤੇ ਗਵਾਹੀ ਅਤੇ ਤੁਲਨਾ ਕਰੋ, ਤੁਸੀਂ ਕੋਡ ਨੂੰ ਸੇਵ ਕਰ ਸਕਦੇ ਹੋ ਅਤੇ ਵਰਕਸ਼ੀਟ 'ਤੇ ਵਾਪਸ ਜਾ ਸਕਦੇ ਹੋ ਦਿਲਚਸਪੀ ਵਾਲੀ।
- ਉਥੋਂ, ਤੁਸੀਂ <1 'ਤੇ ਕਲਿੱਕ ਕਰ ਸਕਦੇ ਹੋ।>Macros ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ, ਮੈਕਰੋ ਨਾਮ ਚੁਣੋ, ਅਤੇ ਫਿਰ ਚਲਾਓ 'ਤੇ ਕਲਿੱਕ ਕਰੋ।
ਸਫਲ ਕੋਡ ਐਗਜ਼ੀਕਿਊਸ਼ਨ ਤੋਂ ਬਾਅਦ, ਨਤੀਜਾ ਦੇਖਣ ਲਈ ਉਪਰੋਕਤ gif ਨੂੰ ਦੇਖੋ। ਇੱਕ ਪੌਪ-ਅੱਪ MsgBox ਹੋਵੇਗਾ ਜੋ ਤੁਹਾਨੂੰ ਤੁਹਾਡੀ ਐਕਸਲ ਸ਼ੀਟ ਵਿੱਚ ਟੇਬਲ ਤੋਂ ਹਰੇਕ ਕਤਾਰ ਤੋਂ ਹਰੇਕ ਸੈੱਲ ਦਾ ਸੈੱਲ ਸੰਦਰਭ ਨੰਬਰ ਦਿਖਾਏਗਾ।
VBA ਕੋਡ ਸਪੱਸ਼ਟੀਕਰਨ
8225
ਕਾਲਮ B ਦੀ ਖੋਜ ਕਰਕੇ ਸਾਰਣੀ ਵਿੱਚ ਆਖਰੀ ਕਤਾਰ ਨੰਬਰ ਪ੍ਰਾਪਤ ਕਰਨ ਲਈ।
9706
ਕਤਾਰ ਨੰਬਰ 4 ਸੈੱਟ ਕਰੋ, ਜਿੱਥੋਂ ਸਾਡਾ ਡੇਟਾ ਸ਼ੁਰੂ ਹੁੰਦਾ ਹੈ।
6921
ਪਹਿਲੀ ਕਤਾਰ ਤੋਂ ਲੂਪ ਕਰਨ ਲਈ।
3361
ਕਾਲਮ ਨੰਬਰ 2 ਸੈੱਟ ਕਰੋ, ਜਿੱਥੋਂ ਸਾਡਾ ਡੇਟਾ ਸ਼ੁਰੂ ਹੁੰਦਾ ਹੈ।
9135
ਆਖਰੀ ਨੂੰ ਪ੍ਰਾਪਤ ਕਰਨ ਲਈ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰਨਾ ਸ਼ੁਰੂ ਕਰੋਆਖਰੀ ਕਤਾਰ ਤੱਕ ਮੌਜੂਦਾ ਕਤਾਰ ਦਾ ਮੁਲਾਂਕਣ ਕਰਕੇ ਕਾਲਮ ਨੰਬਰ।
1987
ਪਹਿਲੀ ਕਤਾਰ ਤੋਂ ਆਖਰੀ ਕਤਾਰ ਤੱਕ ਕਾਲਮ ਨੂੰ ਲੂਪ ਵਿੱਚ ਵਾਧਾ।
1997
ਕੋਡ ਦਾ ਇਹ ਟੁਕੜਾ ਪ੍ਰਕਿਰਿਆ ਲਈ ਕੰਮ ਕਰਦਾ ਹੈ, ਹਰ ਇੱਕ ਦੇ ਬਾਅਦ ਵਾਧਾ ਦੁਹਰਾਓ ਅਤੇ ਕੋਡ ਦਾ ਨਤੀਜਾ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰੋ।
ਹੋਰ ਪੜ੍ਹੋ: ਇੱਕ ਐਕਸਲ ਟੇਬਲ ਵਿੱਚ ਆਟੋਮੈਟਿਕਲੀ ਨਵੀਂ ਕਤਾਰ ਕਿਵੇਂ ਜੋੜੀ ਜਾਵੇ
2 . VBA ਨੂੰ ਮੁੱਲ ਦੁਆਰਾ ਹਰ ਕਤਾਰ ਵਿੱਚ ਹਰੇਕ ਸੈੱਲ ਵਿੱਚ ਲੂਪ ਕਰਨ ਲਈ ਲਾਗੂ ਕਰੋ
ਜੇਕਰ ਤੁਸੀਂ ਇੱਕ ਸਾਰਣੀ ਦੀ ਹਰ ਕਤਾਰ ਵਿੱਚ ਹਰੇਕ ਸੈੱਲ ਵਿੱਚੋਂ ਲੂਪ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ ਅਤੇ ਸੈੱਲਾਂ ਵਿੱਚ ਮੌਜੂਦ ਮੁੱਲ ਨੂੰ ਵਾਪਸੀ ਮੁੱਲ ਵਜੋਂ ਸੁੱਟੋ , ਫਿਰ ਇਹ ਸੈਕਸ਼ਨ ਤੁਹਾਨੂੰ ਇਹ ਪਤਾ ਲਗਾਉਣ ਵਿੱਚ ਮਦਦ ਕਰੇਗਾ ਕਿ ਇਹ VBA Excel ਨਾਲ ਕਿਵੇਂ ਕਰਨਾ ਹੈ।
ਤੁਸੀਂ ਇਸਨੂੰ ListObject ਅਤੇ <1 ਨਾਲ ਕਰ ਸਕਦੇ ਹੋ।>DataBodyRange VBA ਦੀ ਵਿਸ਼ੇਸ਼ਤਾ। ਅਸੀਂ ਤੁਹਾਨੂੰ ਆਬਜੈਕਟ ਅਤੇ ਪ੍ਰਾਪਰਟੀ ਦੋਵਾਂ ਨਾਲ ਮੈਕਰੋ ਕੋਡ ਦਿਖਾਵਾਂਗੇ।
2.1. ListObject
VBA Excel ਵਿੱਚ ListObject ਦੇ ਨਾਲ ਸੈੱਲ ਮੁੱਲ ਦੁਆਰਾ ਇੱਕ ਸਾਰਣੀ ਦੀ ਹਰ ਕਤਾਰ ਵਿੱਚ ਹਰੇਕ ਸੈੱਲ ਵਿੱਚ ਲੂਪ ਕਰਨ ਦੇ ਕਦਮ ਹੇਠਾਂ ਦਿੱਤੇ ਗਏ ਹਨ।
ਪੜਾਅ:
- ਪਹਿਲਾਂ ਵਾਂਗ ਹੀ, ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਅਤੇ <ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਇੱਕ ਮੋਡਿਊਲ ਪਾਓ।
- ਫਿਰ, ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ, ਕਾਪੀ ਕਰੋ ਹੇਠਾਂ ਦਿੱਤਾ ਕੋਡ ਅਤੇ ਪੇਸਟ ਕਰੋ ਇਹ।
1120
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
22>
- ਇਸ ਤੋਂ ਬਾਅਦ, ਚਲਾਓ ਮੈਕਰੋ ਜਿਵੇਂ ਕਿ ਅਸੀਂ ਤੁਹਾਨੂੰ ਉਪਰੋਕਤ ਭਾਗ ਵਿੱਚ ਦਿਖਾਇਆ ਹੈ। ਨਤੀਜਾ gif ਵਿੱਚ ਦਿਖਾਇਆ ਗਿਆ ਹੈਹੇਠਾਂ।
ਇੱਥੇ ਇੱਕ ਪੌਪ-ਅੱਪ MsgBox ਹੋਵੇਗਾ ਜੋ ਤੁਹਾਨੂੰ ਹਰ ਕਤਾਰ <2 ਤੋਂ ਹਰੇਕ ਸੈੱਲ ਦੁਆਰਾ ਲਿਆ ਜਾਂਦਾ ਮੁੱਲ ਦਿਖਾਉਂਦਾ ਹੈ।>ਤੁਹਾਡੀ ਐਕਸਲ ਸ਼ੀਟ ਵਿੱਚ ਟੇਬਲ ਤੋਂ।
VBA ਕੋਡ ਦੀ ਵਿਆਖਿਆ
5436
ਵੇਰੀਏਬਲਾਂ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ।
3187
ਇਹ ਟੁਕੜਾ ਕੋਡ ਦਾ ਪਹਿਲਾਂ ਸਾਰਣੀ ਵਿੱਚ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਸ਼ੁਰੂ ਹੁੰਦਾ ਹੈ (“ TblStudents ” ਸਾਡਾ ਟੇਬਲ ਨਾਮ ਹੈ)। ਫਿਰ ਹਰ ਕਤਾਰ ਲਈ ਕਾਲਮ ਦਾਖਲ ਕਰਦਾ ਹੈ। ਇਸ ਤੋਂ ਬਾਅਦ, MsgBox ਵਿੱਚ ਸੈੱਲ ਦਾ ਮੁੱਲ ਪਾਸ ਕਰੋ। ਫਿਰ ਅਗਲੇ ਕਾਲਮ 'ਤੇ ਜਾਓ। ਇੱਕ ਕਤਾਰ ਦੇ ਸਾਰੇ ਕਾਲਮਾਂ ਵਿੱਚ ਦੁਹਰਾਉਣ ਨੂੰ ਪੂਰਾ ਕਰਨ ਤੋਂ ਬਾਅਦ, ਇਹ ਅਗਲੀ ਕਤਾਰ ਵਿੱਚ ਜਾਂਦਾ ਹੈ ਅਤੇ ਆਖਰੀ ਕਤਾਰ ਤੱਕ ਦੁਹਰਾਉਣ ਦੀ ਪ੍ਰਕਿਰਿਆ ਨੂੰ ਜਾਰੀ ਰੱਖਦਾ ਹੈ।
2.2. DataBodyRange ਪ੍ਰਾਪਰਟੀ
ਟੇਬਲ ਤੋਂ ਐਕਸਟਰੈਕਟ ਕੀਤੇ ਡੇਟਾ ਨਾਲ ਵਧੇਰੇ ਖਾਸ ਹੋਣ ਲਈ, ਤੁਸੀਂ ListObject ਦੀ DataBodyRange ਵਿਸ਼ੇਸ਼ਤਾ ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ। DataBodyRange ਸੰਪੱਤੀ ਤੁਹਾਨੂੰ ਸਿਰਲੇਖ ਕਤਾਰ ਅਤੇ ਸੰਮਿਲਿਤ ਕਤਾਰ ਦੇ ਵਿਚਕਾਰ ਸੂਚੀ ਵਿੱਚੋਂ ਰੇਂਜ ਵਾਲੇ ਨਤੀਜੇ ਨੂੰ ਸੁੱਟ ਦੇਵੇਗੀ।
ਤੁਸੀਂ ਹਰ ਕਤਾਰ ਵਿੱਚ ਹਰੇਕ ਸੈੱਲ ਵਿੱਚ ਕਿਵੇਂ ਲੂਪ ਕਰ ਸਕਦੇ ਹੋ ਇਸ ਬਾਰੇ ਕਦਮ VBA Excel ਵਿੱਚ DataBodyRange ਦੇ ਨਾਲ ਸੈੱਲ ਮੁੱਲ ਦੁਆਰਾ ਇੱਕ ਸਾਰਣੀ ਦਾ ਹੇਠਾਂ ਦਿੱਤਾ ਗਿਆ ਹੈ।
ਪੜਾਅ:
- ਜਿਵੇਂ ਦਿਖਾਇਆ ਗਿਆ ਹੈ ਪਹਿਲਾਂ, ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਅਤੇ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਇਨਸਰਟ ਕਰੋ ਇੱਕ ਮੋਡਿਊਲ ।
- ਫਿਰ , ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਇਸਨੂੰ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਪੇਸਟ ਕਰੋ ।
9314
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਬਾਅਦ ਵਿੱਚ, ਚਲਾਓ ਮੈਕਰੋ ਅਤੇ ਆਉਟਪੁੱਟ ਦੇਖਣ ਲਈ ਹੇਠਾਂ ਦਿੱਤੀ gif ਨੂੰ ਦੇਖੋ।
ਇੱਕ ਪੌਪ-ਅੱਪ ਹੋਵੇਗਾ MsgBox ਤੁਹਾਨੂੰ ਤੁਹਾਡੀ ਐਕਸਲ ਸ਼ੀਟ ਵਿੱਚ ਸਾਰਣੀ ਤੋਂ ਹਰੇਕ ਕਤਾਰ ਤੋਂ ਹਰੇਕ ਸੈੱਲ ਦੁਆਰਾ ਲਿਆ ਗਿਆ ਮੁੱਲ ਦਿਖਾਉਂਦਾ ਹੈ।
VBA ਕੋਡ ਵਿਆਖਿਆ
4037
ਵੇਰੀਏਬਲ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ।
1140
ਕੋਡ ਦਾ ਇਹ ਟੁਕੜਾ ਪਹਿਲਾਂ ਸਾਰਣੀ ਵਿੱਚ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰਨਾ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ (“ TblStdnt ” ਸਾਡਾ ਟੇਬਲ ਨਾਮ ਹੈ) ਅਤੇ ਇਸ ਨੂੰ ਛੱਡ ਕੇ ਮੁੱਲਾਂ ਦੀ ਇੱਕ ਰੇਂਜ ਵਾਪਸ ਕਰਦਾ ਹੈ। ਸਾਰਣੀ ਦੀ ਸਿਰਲੇਖ ਕਤਾਰ। ਫਿਰ MsgBox ਵਿੱਚ ਰੇਂਜ ਦਾ ਮੁੱਲ ਪਾਸ ਕਰੋ। ਫਿਰ ਇਹ ਰੇਂਜ ਨੂੰ ਐਕਸਟਰੈਕਟ ਕਰਨ ਲਈ ਅਗਲੀ ਕਤਾਰ 'ਤੇ ਜਾਂਦਾ ਹੈ ਅਤੇ ਆਖਰੀ ਕਤਾਰ ਤੱਕ ਦੁਹਰਾਓ ਪ੍ਰਕਿਰਿਆ ਜਾਰੀ ਰੱਖਦਾ ਹੈ।
3. ਐਕਸਲ ਵਿੱਚ ਕਾਲਮਾਂ ਨੂੰ ਜੋੜ ਕੇ ਕਤਾਰਾਂ ਰਾਹੀਂ ਦੁਹਰਾਉਣ ਲਈ VBA ਮੈਕਰੋ ਲਾਗੂ ਕਰੋ
ਇਹ ਸੈਕਸ਼ਨ ਤੁਹਾਡੇ ਡੇਟਾਸੈਟ ਤੋਂ ਪਹਿਲੇ ਕਾਲਮ ਨਾਲ ਕਾਲਮਾਂ ਨੂੰ ਜੋੜ ਕੇ ਸਾਰਣੀ ਵਿੱਚ ਕਤਾਰਾਂ ਨੂੰ ਕਿਵੇਂ ਲੂਪ ਕਰਨਾ ਹੈ। ਐਕਸਲ ਵਿੱਚ।
ਉਦਾਹਰਣ ਲਈ, ਸਾਡੇ ਡੇਟਾਸੈਟ ਲਈ, ਪਹਿਲਾਂ, ਅਸੀਂ ਉਹਨਾਂ ਨੂੰ ਜੋੜ ਕੇ ਸੈਲ B5 ਵਿੱਚ ਜੌਨ ਅਤੇ 101 ਸੈੱਲ C5 ਰਾਹੀਂ ਦੁਹਰਾਵਾਂਗੇ ਅਤੇ ਫਿਰ ਦੁਹਰਾਵਾਂਗੇ। ਕਤਾਰ 5 ਤੋਂ ਜੋੜ ਕੇ ਸੈਲ B5 ਅਤੇ 89 ਸੈੱਲ D5 ਵਿੱਚ ਜੌਨ।
ਆਓ ਅਸੀਂ ਤੁਹਾਨੂੰ ਦਿਖਾਉਂਦੇ ਹਾਂ ਕਿ ਤੁਸੀਂ ਇਸ ਨਾਲ ਇਹ ਕਿਵੇਂ ਕਰ ਸਕਦੇ ਹੋ। ਐਕਸਲ ਵਿੱਚ VBA ਮੈਕਰੋ।
ਪੜਾਅ:
- ਪਹਿਲਾਂ, ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਤੋਂ ਖੋਲ੍ਹੋ। ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ 1>ਡਿਵੈਲਪਰ ਟੈਬ ਅਤੇ ਇਨਸਰਟ ਕਰੋ ਇੱਕ ਮੋਡਿਊਲ ।
- ਦੂਜਾ, ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ, ਕਾਪੀ ਕਰੋ ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡਅਤੇ ਪੇਸਟ ਕਰੋ ਇਸਨੂੰ।
8973
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਤੀਜੇ, ਮੈਕ੍ਰੋ ਚਲਾਓ। ਨਤੀਜਾ ਦੇਖਣ ਲਈ ਹੇਠਾਂ ਦਿੱਤੇ gif ਨੂੰ ਦੇਖੋ।
ਤੁਹਾਨੂੰ ਇੱਕ ਪੌਪ-ਅੱਪ MsgBox ਦਿਖਾਈ ਦੇਵੇਗਾ ਜੋ ਤੁਹਾਨੂੰ ਜੋੜਿਆ ਗਿਆ ਮੁੱਲ ਦਿਖਾਉਂਦਾ ਹੈ। ਪਹਿਲੇ ਅਤੇ ਦੂਜੇ ਕਾਲਮ ਤੋਂ ਸੈੱਲਾਂ ਦਾ ( ਕੋਲਮ ਬੀ ਤੋਂ ਸੈੱਲ B5 ਵਿੱਚ ਜੌਨ ਅਤੇ ਕਾਲਮ C ਤੋਂ ਸੈੱਲ C5 ਵਿੱਚ 101) ਅਤੇ ਫਿਰ ਸੰਗਠਿਤ ਮੁੱਲ ਕਤਾਰ ਨੰਬਰ 5<ਦੇ ਪਹਿਲੇ ਅਤੇ ਤੀਜੇ ਕਾਲਮ ( ਕਾਲਮ B ਤੋਂ ਸੈੱਲ B5 ਵਿੱਚ ਅਤੇ ਕਾਲਮ D ਤੋਂ ਸੈੱਲ D5 ਵਿੱਚ 89) ਦੇ ਸੈੱਲਾਂ ਦਾ 2> ਤੁਹਾਡੇ ਡੇਟਾਸੈਟ ਤੋਂ। ਅਤੇ ਇਹ ਸੰਯੋਜਨ ਓਪਰੇਸ਼ਨ ਉਦੋਂ ਤੱਕ ਜਾਰੀ ਰਹੇਗਾ ਜਦੋਂ ਤੱਕ ਇਹ ਸਾਰਣੀ ਦੀ ਆਖਰੀ ਕਤਾਰ ਤੱਕ ਨਹੀਂ ਪਹੁੰਚ ਜਾਂਦਾ।
VBA ਕੋਡ ਵਿਆਖਿਆ
8720
ਵੇਰੀਏਬਲ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ।
7884
ਫਿਰ ਕੋਡ ਐਕਟਿਵ ਸ਼ੀਟ ਤੋਂ ਟੇਬਲ ਨੂੰ ਚੁਣਦਾ ਹੈ (“ TblConcatenate ” ਸਾਡੇ ਟੇਬਲ ਨਾਮ ਵਿੱਚ)।
9928
ਉਸ ਤੋਂ ਬਾਅਦ, ਸਿਰਲੇਖ ਨੂੰ ਛੱਡ ਕੇ ਹਰੇਕ ਕਤਾਰ ਨੂੰ ਦੁਹਰਾਉਣਾ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ। ਕਾਲਮ. ਜੇਕਰ ਦੁਹਰਾਓ ਕਾਲਮ ਸਿਰਲੇਖ ਅਤੇ ਕਤਾਰਾਂ ਦੇ ਵਿਚਕਾਰ ਰੇਂਜ ਵਿੱਚ ਇੱਕ ਮੇਲ ਲੱਭਦਾ ਹੈ ਤਾਂ ਇਹ iValue ਵੇਰੀਏਬਲ ਵਿੱਚ ਮੁੱਲ ਨੂੰ ਸਟੋਰ ਕਰਦਾ ਹੈ।
2714
ਜੇ ਉਪਰੋਕਤ ਸ਼ਰਤ ਪੂਰੀ ਨਹੀਂ ਹੁੰਦੀ ਹੈ, ਤਾਂ ਕੋਡ MsgBox ਵਿੱਚ ਮੁੱਲ ਸੁੱਟਦਾ ਹੈ ਅਤੇ ਸਥਿਤੀ ਨੂੰ ਪੂਰਾ ਕਰਦਾ ਹੈ। ਉਸ ਤੋਂ ਬਾਅਦ, ਇਹ ਕਿਸੇ ਹੋਰ ਰੇਂਜ ਵਿੱਚ ਲੂਪ ਕਰਨ ਲਈ ਅੱਗੇ ਵਧਦਾ ਹੈ ਅਤੇ ਅੰਤ ਕਤਾਰ ਤੱਕ ਦੁਹਰਾਉਣਾ ਜਾਰੀ ਰੱਖਦਾ ਹੈ। ਇੱਕ ਵਾਰ ਜਦੋਂ ਇਹ ਅੰਤਮ ਕਤਾਰ 'ਤੇ ਪਹੁੰਚ ਜਾਂਦਾ ਹੈ, ਤਾਂ ਮੈਕਰੋ ਕੋਡ ਐਗਜ਼ੀਕਿਊਸ਼ਨ ਨੂੰ ਖਤਮ ਕਰ ਦਿੰਦਾ ਹੈ।
4. ਦੁਹਰਾਉਣ ਲਈ ਮੈਕਰੋ ਨੂੰ ਏਮਬੇਡ ਕਰੋਐਕਸਲ ਵਿੱਚ ਇੱਕ ਸਾਰਣੀ ਵਿੱਚ ਸਾਰੇ ਕਾਲਮਾਂ ਨੂੰ ਜੋੜ ਕੇ ਕਤਾਰਾਂ ਰਾਹੀਂ
ਇਸ ਭਾਗ ਵਿੱਚ, ਅਸੀਂ ਸਿੱਖਾਂਗੇ ਕਿ ਦੇ ਨਾਲ ਡੇਟਾਸੈਟ ਵਿੱਚ ਹਰੇਕ ਕਤਾਰ ਵਿੱਚ ਰੱਖਣ ਵਾਲੇ ਸਾਰੇ ਕਾਲਮਾਂ ਨੂੰ ਕਿਵੇਂ ਜੋੜਿਆ ਜਾਵੇ। ਐਕਸਲ ਵਿੱਚ VBA ਮੈਕਰੋ।
ਐਕਜ਼ੀਕਿਊਟ ਕਰਨ ਲਈ ਸਟੈਪਸ ਜੋ ਹੇਠਾਂ ਦਿਖਾਏ ਗਏ ਹਨ।
ਸਟਪਸ:
- ਪਹਿਲਾਂ, ਖੋਲ੍ਹੋ <ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ 1>ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਅਤੇ ਸ਼ਾਮਲ ਕਰੋ ਇੱਕ ਮੋਡਿਊਲ ।
- ਫਿਰ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਇਸਨੂੰ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਪੇਸਟ ਕਰੋ ।
9082
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਅੱਗੇ, ਚਲਾਓ ਮੈਕਰੋ ਕੋਡ। 14>
ਜਿਵੇਂ ਕਿ ਤੁਸੀਂ ਉਪਰੋਕਤ gif ਤੋਂ ਦੇਖ ਸਕਦੇ ਹੋ ਕਿ ਇੱਥੇ ਹੈ ਇੱਕ ਪੌਪ-ਅੱਪ MsgBox ਤੁਹਾਨੂੰ ਤੁਹਾਡੀ ਐਕਸਲ ਵਰਕਸ਼ੀਟ ਦੀ ਸਾਰਣੀ ਤੋਂ ਹਰ ਕਤਾਰ ਵਿੱਚ ਮੌਜੂਦ ਸਾਰੇ ਕਾਲਮਾਂ ਦਾ ਸੰਯੁਕਤ ਮੁੱਲ ਦਿਖਾਉਂਦਾ ਹੈ।
VBA ਕੋਡ ਵਿਆਖਿਆ
3518
ਵੇਰੀਏਬਲਾਂ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰੋ।
8485
ਸ਼ੀਟ ਦਾ ਨਾਮ ਸੈੱਟ ਕਰੋ ਜਿਸ ਨਾਲ ਅਸੀਂ ਕੰਮ ਕਰਾਂਗੇ (“ ConcatenatingAllCol ” ਸ਼ੀਟ ਦਾ ਨਾਮ ਹੈ। ਵਰਕਬੁੱਕ ਵਿੱਚ)।
5494
ਡੀ ਟੇਬਲ ਦੇ ਨਾਮ ਨੂੰ ਠੀਕ ਕਰੋ ਜਿਸ ਨਾਲ ਅਸੀਂ ਕੰਮ ਕਰਾਂਗੇ (“ TblConcatenateAll ” ਸਾਡੇ ਡੇਟਾਸੈਟ ਵਿੱਚ ਟੇਬਲ ਦਾ ਨਾਮ ਹੈ)।
8217
ਟੇਬਲ ਦੀ ਹਰੇਕ ਕਤਾਰ ਵਿੱਚ ਦੁਹਰਾਓ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ।
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0)) ਸਾਰਣੀ ਦੀ ਹਰੇਕ ਕਤਾਰ ਦੇ ਹਰੇਕ ਕਾਲਮ ਰਾਹੀਂ ਦੁਹਰਾਓ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ।
7536
ਹਰ ਕਤਾਰ ਦੇ ਹਰੇਕ ਕਾਲਮ ਦੇ ਮੁੱਲਾਂ ਨੂੰ ਕੱਟ ਕੇ ਨਤੀਜਾ ਸਟੋਰ ਕਰੋ। ਹਰੇਕ ਕਤਾਰ ਵਿੱਚ ਰਹਿੰਦੇ ਸਾਰੇ ਕਾਲਮਾਂ ਨੂੰ ਸਕੈਨ ਕਰਨ ਤੋਂ ਬਾਅਦ, ਇਹ ਪਾਸ ਹੋ ਗਿਆMsgBox ਵਿੱਚ ਨਤੀਜਾ. ਫਿਰ ਅਗਲੀ ਕਤਾਰ ਵਿੱਚ ਲੂਪ ਕਰਨਾ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ ਅਤੇ ਟੇਬਲ ਦੀ ਆਖਰੀ ਕਤਾਰ ਤੱਕ ਪਹੁੰਚਣ ਤੱਕ ਲੂਪ ਕਰਨਾ ਜਾਰੀ ਰੱਖਦਾ ਹੈ।
ਹੋਰ ਪੜ੍ਹੋ: ਐਕਸਲ VBA ਨਾਲ ਇੱਕ ਟੇਬਲ ਦੇ ਕਈ ਕਾਲਮਾਂ ਨੂੰ ਕਿਵੇਂ ਛਾਂਟਣਾ ਹੈ (2 ਢੰਗ)
5. ਜੇਕਰ VBA ਮੈਕਰੋ
ਮੰਨ ਲਓ ਕਿ ਤੁਸੀਂ ਤੁਹਾਡੀ ਟੇਬਲ ਦੀਆਂ ਕਤਾਰਾਂ ਵਿੱਚੋਂ ਲੂਪ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ ਅਤੇ ਜਦੋਂ ਇਹ ਇੱਕ ਖਾਸ ਮੁੱਲ ਲੱਭਦਾ ਹੈ ਤਾਂ ਲੂਪਿੰਗ ਨੂੰ ਰੋਕੋ । ਤੁਸੀਂ ਇਹ ਸਿਰਫ਼ ਇੱਕ ਸਧਾਰਨ ਮੈਕਰੋ ਕੋਡ ਨਾਲ ਕਰ ਸਕਦੇ ਹੋ।
ਆਓ ਸਿੱਖੀਏ ਕਿ ਇਸਨੂੰ ਕਿਵੇਂ ਕਰਨਾ ਹੈ VBA Excel ਵਿੱਚ।
ਪੜਾਅ:
- ਪਹਿਲਾਂ, ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਅਤੇ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਇਨਸਰਟ ਕਰੋ ਇੱਕ ਮੋਡਿਊਲ ।
- ਫਿਰ, ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਪੇਸਟ ਕਰੋ ਇਸ ਨੂੰ।
7447
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ। .
- ਬਾਅਦ ਵਿੱਚ, ਚਲਾਓ ਮੈਕਰੋ।
- ਇਹ ਲੂਪ ਨੂੰ ਸ਼ੁਰੂ ਕਰੇਗਾ ਅਤੇ ਇਸਨੂੰ ਬੰਦ ਕਰੇਗਾ ਜਦੋਂ ਇਹ ਰੇਂਜ ਵਿੱਚ ਖਾਸ ਮੁੱਲ (“ Edge ”) ਲੱਭਦਾ ਹੈ ਅਤੇ ਨਤੀਜਾ MsgBox ਵਿੱਚ ਸੁੱਟਦਾ ਹੈ।
ਜਿਵੇਂ ਕਿ ਤੁਸੀਂ ਉਪਰੋਕਤ ਚਿੱਤਰ ਤੋਂ ਦੇਖ ਸਕਦੇ ਹੋ, ਉੱਥੇ ਇੱਕ ਪੌਪ-ਅੱਪ MsgBox ਹੈ ਜੋ ਤੁਹਾਨੂੰ ਸੈੱਲ ਪਤਾ, $B$10 ਦਿਖਾ ਰਿਹਾ ਹੈ, ਜਿੱਥੇ ਸਾਨੂੰ ਮਿਲਿਆ ਨਿਰਧਾਰਤ ਮੁੱਲ, “ Edge ” ।
VBA ਕੋਡ ਸਪੱਸ਼ਟੀਕਰਨ
8502
ਪ੍ਰਭਾਸ਼ਿਤ ਕਰੋ ਵੇਰੀਏਬਲ।
8044
ਕੋਡ ਦਾ ਇਹ ਟੁਕੜਾ 1 ਤੋਂ 15 ਤੱਕ ਕਤਾਰਾਂ ਨੂੰ ਲੂਪ ਕਰਨ ਲਈ ਇੱਥੇ ਹੈ। ਜੇਕਰ ਇਹ ਖਾਸ ਸ਼ਬਦ ਲੱਭਦਾ ਹੈ“ Edge ” ਫਿਰ ਇਹ ਸ਼ਬਦ ਨੂੰ ਰੱਖਣ ਵਾਲੇ ਸੈੱਲ ਪਤੇ ਨਾਲ ਨਤੀਜਾ ਪਾਸ ਕਰਦਾ ਹੈ। ਇਹ ਉਦੋਂ ਤੱਕ ਅਜਿਹਾ ਕਰਨਾ ਜਾਰੀ ਰੱਖਦਾ ਹੈ ਜਦੋਂ ਤੱਕ ਇਹ ਸ਼ਬਦ ਦੀ ਖੋਜ ਵਿੱਚ ਕਤਾਰਾਂ 1 ਤੋਂ 15 ਤੱਕ ਦੇ ਸਾਰੇ ਡੇਟਾ ਨੂੰ ਸਕੈਨ ਨਹੀਂ ਕਰ ਲੈਂਦਾ।
ਹੋਰ ਪੜ੍ਹੋ: ਐਕਸਲ ਟੇਬਲ ਤੋਂ ਕਤਾਰਾਂ ਅਤੇ ਕਾਲਮਾਂ ਨੂੰ ਕਿਵੇਂ ਸੰਮਿਲਿਤ ਜਾਂ ਮਿਟਾਉਣਾ ਹੈ
6. ਹਰ ਕਤਾਰ ਨੂੰ ਲੂਪ ਕਰਨ ਲਈ VBA ਅਤੇ Excel ਵਿੱਚ ਇੱਕ ਖਾਸ ਮੁੱਲ ਨੂੰ ਰੰਗ ਦਿਓ
ਜੇ ਤੁਸੀਂ MsgBox ਵਿੱਚ ਨਿਰਧਾਰਤ ਮੁੱਲ ਦਾ ਸੈੱਲ ਪਤਾ ਨਹੀਂ ਸੁੱਟਣਾ ਚਾਹੁੰਦੇ ਹੋ ਤਾਂ ਕੀ ਹੋਵੇਗਾ? ਹੋ ਸਕਦਾ ਹੈ ਕਿ ਤੁਸੀਂ ਸੇਲ ਨੂੰ ਰੰਗ ਦੇਣਾ ਚਾਹੋ ਜੋ ਮੁੱਲ ਰੱਖਦਾ ਹੈ ਜੋ ਤੁਸੀਂ ਲੱਭ ਰਹੇ ਹੋ।
ਆਓ ਸਿੱਖੀਏ ਕਿ ਇਸਨੂੰ VBA ਮੈਕਰੋ ਨਾਲ ਕਿਵੇਂ ਕਰਨਾ ਹੈ।
ਸਟੈਪਸ:
- ਪਹਿਲਾਂ ਵਾਂਗ ਹੀ, ਡਿਵੈਲਪਰ ਟੈਬ ਤੋਂ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਅਤੇ ਇਨਸਰਟ ਕਰੋ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਇੱਕ ਮੋਡਿਊਲ ।
- ਫਿਰ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਕਾਪੀ ਕਰੋ ਅਤੇ ਇਸਨੂੰ ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਪੇਸਟ ਕਰੋ।
4674
ਤੁਹਾਡਾ ਕੋਡ ਹੁਣ ਚੱਲਣ ਲਈ ਤਿਆਰ ਹੈ।
- ਇਸ ਤੋਂ ਬਾਅਦ, ਚਲਾਓ ਮੈਕਰੋ।
- ਇਹ ਲੂਪ ਨੂੰ ਸ਼ੁਰੂ ਕਰੇਗਾ ਅਤੇ ਇਸਨੂੰ ਰੋਕ ਦੇਵੇਗਾ ਜਦੋਂ ਇਹ ਖਾਸ ਮੁੱਲ (“ Edge ”) ਰੇਂਜ ਵਿੱਚ ਲੱਭਦਾ ਹੈ ਅਤੇ ColorIndex ਨਾਲ ਸੈੱਲ ਨੂੰ ਰੰਗ ਦਿੰਦਾ ਹੈ। ਜੋ ਤੁਸੀਂ ਕੋਡ ਵਿੱਚ ਪ੍ਰਦਾਨ ਕੀਤਾ ਹੈ।
ਜਿਵੇਂ ਕਿ ਤੁਸੀਂ ਉਪਰੋਕਤ ਚਿੱਤਰ ਤੋਂ ਦੇਖ ਸਕਦੇ ਹੋ, C ell B10 , ਜਿੱਥੇ ਸਾਨੂੰ ਨਿਰਧਾਰਿਤ ਮੁੱਲ ਮਿਲਿਆ, “ Edge ” ਰੰਗਦਾਰ ਕੋਡ ਐਗਜ਼ੀਕਿਊਸ਼ਨ ਤੋਂ ਬਾਅਦ।
VBA ਕੋਡ ਵਿਆਖਿਆ
3003
ਪ੍ਰਭਾਸ਼ਿਤ ਕਰੋ
