ਵਿਸ਼ਾ - ਸੂਚੀ
ਇਸ ਲੇਖ ਵਿੱਚ, ਮੈਂ ਤੁਹਾਨੂੰ ਦਿਖਾਵਾਂਗਾ ਕਿ ਤੁਸੀਂ ਐਕਸਲ ਵਿੱਚ VBA ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇੱਕ ਸੈੱਲ ਮੁੱਲ ਲਈ ਇੱਕ ਵੇਰੀਏਬਲ ਕਿਵੇਂ ਸੈੱਟ ਕਰ ਸਕਦੇ ਹੋ। ਤੁਸੀਂ ਇੱਕ ਸੈੱਲ ਦੇ ਮੁੱਲ ਅਤੇ ਸੈੱਲਾਂ ਦੀ ਇੱਕ ਰੇਂਜ ਲਈ ਇੱਕ ਵੇਰੀਏਬਲ ਸੈੱਟ ਕਰਨਾ ਸਿੱਖੋਗੇ।
ਪ੍ਰੈਕਟਿਸ ਵਰਕਬੁੱਕ ਡਾਊਨਲੋਡ ਕਰੋ
ਇਸ ਅਭਿਆਸ ਵਰਕਬੁੱਕ ਨੂੰ ਡਾਉਨਲੋਡ ਕਰੋ ਜਦੋਂ ਤੁਸੀਂ ਕਸਰਤ ਕਰਦੇ ਹੋ ਇਸ ਲੇਖ ਨੂੰ ਪੜ੍ਹ ਰਹੇ ਹੋ।
ਵੇਰੀਏਬਲ ਨੂੰ Cell.xlsm 'ਤੇ ਸੈੱਟ ਕਰੋ
3 ਐਕਸਲ ਵਿੱਚ ਸੈੱਲ ਮੁੱਲ ਲਈ ਵੇਰੀਏਬਲ ਸੈੱਟ ਕਰਨ ਲਈ ਤੇਜ਼ ਉਦਾਹਰਨਾਂ
ਇੱਥੇ ਸਾਨੂੰ ਇੱਕ ਡਾਟਾ ਸੈੱਟ ਮਿਲਿਆ ਹੈ ਜਿਸ ਵਿੱਚ ਕੁਝ ਗਾਹਕਾਂ ਦੇ ਨਾਮ , ਉਹਨਾਂ ਦੇ ਸੰਪਰਕ ਨੰਬਰ , ਅਤੇ ਈਮੇਲ ਪਤੇ ਰੇਂਜ ਵਿੱਚ <ਇੱਕ ਵਰਕਸ਼ੀਟ ਦਾ 1>B3:D13 ।
ਸਾਡਾ ਉਦੇਸ਼ VBA ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇਸ ਡੇਟਾ ਸੈੱਟ ਤੋਂ ਸੈੱਲ ਮੁੱਲਾਂ ਲਈ ਵੇਰੀਏਬਲ ਸੈੱਟ ਕਰਨਾ ਹੈ।
1. ਐਕਸਲ VBA
ਪਹਿਲਾਂ, ਅਸੀਂ VBA ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇੱਕ ਸਿੰਗਲ ਸੈੱਲ ਮੁੱਲ ਲਈ ਵੇਰੀਏਬਲ ਸੈੱਟ ਕਰਨਾ ਸਿੱਖਾਂਗੇ।
ਲਈ ਉਦਾਹਰਨ ਲਈ, ਚਲੋ ਸੈੱਲ B4 ਦਾ ਮੁੱਲ Customer_Name ਨਾਮਕ ਇੱਕ ਵੇਰੀਏਬਲ ਵਿੱਚ ਸੈੱਟ ਕਰੀਏ।
ਇਹ ਬਿਹਤਰ ਹੈ ਜੇਕਰ ਤੁਸੀਂ ਮੁੱਲ ਦੀ ਡਾਟਾ ਕਿਸਮ ਨੂੰ ਜਾਣਦੇ ਹੋ ਅਤੇ ਪਹਿਲਾਂ ਇਸਨੂੰ ਘੋਸ਼ਿਤ ਕਰਦੇ ਹੋ। ਅਤੇ ਫਿਰ ਉਸ ਵੇਰੀਏਬਲ ਵਿੱਚ ਮੁੱਲ ਸੈੱਟ ਕਰੋ।
ਉਦਾਹਰਨ ਲਈ, ਇੱਥੇ ਸੈੱਲ B4 ਵਿੱਚ ਨਾਮ ਹੈ, ਬੋਰਿਸ ਪਾਸਟਰਨਕ । ਇਹ ਇੱਕ ਸਟਰਿੰਗ-ਟਾਈਪ ਵੇਰੀਏਬਲ ਹੈ। ਇਸ ਲਈ, ਤੁਸੀਂ ਹੇਠਾਂ ਦਿੱਤੀਆਂ 2 ਕੋਡਾਂ ਦੀਆਂ ਲਾਈਨਾਂ ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ:
6286
ਪਰ ਇਹ ਠੀਕ ਹੈ ਜੇਕਰ ਤੁਸੀਂ ਡੇਟਾ ਕਿਸਮ ਬਾਰੇ ਯਕੀਨੀ ਨਹੀਂ ਹੋ। ਉਸ ਸਥਿਤੀ ਵਿੱਚ, ਸਿਰਫ 2nd ਲਾਈਨ ਲਿਖੋ, ਅਤੇ VBA ਮੁੱਲ ਨੂੰ ਸਹੀ ਢੰਗ ਨਾਲ ਪੜ੍ਹੇਗਾਤੁਸੀਂ।
9392
ਹੁਣ, ਇਹ ਦੇਖਣ ਲਈ ਕਿ ਕੀ VBA ਨੇ ਮੁੱਲ ਨੂੰ ਸਹੀ ਢੰਗ ਨਾਲ ਪੜ੍ਹਿਆ ਹੈ ਜਾਂ ਨਹੀਂ, ਲਾਈਨ MsgBox Value ਨਾਲ ਦਰਜ ਕਰੋ। ਕੋਡਾਂ ਦੇ ਦੋ ਸੈੱਟਾਂ ਵਿੱਚੋਂ ਕੋਈ ਇੱਕ ਕਰੋ ਅਤੇ ਫਿਰ ਕੋਡ ਚਲਾਓ।
ਇੱਕ ਸੁਨੇਹਾ ਬਾਕਸ ਤੁਹਾਨੂੰ ਸੈੱਲ B4 , ਬੋਰਿਸ ਪਾਸਟਰਨਕ ਦਾ ਮੁੱਲ ਦਰਸਾਉਂਦਾ ਦਿਖਾਈ ਦੇਵੇਗਾ।
2. ਐਕਸਲ VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਇੱਕ ਵੇਰੀਏਬਲ ਵਿੱਚ ਸੈੱਲਾਂ ਦੀ ਇੱਕ ਆਸਪਾਸ ਰੇਂਜ ਦੇ ਮੁੱਲ ਸੈੱਟ ਕਰੋ
ਹੁਣ, ਅਸੀਂ ਇੱਕ ਵੇਰੀਏਬਲ ਵਿੱਚ ਸੈੱਲਾਂ ਦੀ ਇੱਕ ਨਾਲ ਲੱਗਦੀ ਰੇਂਜ ਦੇ ਮੁੱਲਾਂ ਨੂੰ ਸੈੱਟ ਕਰਾਂਗੇ। ਉਦਾਹਰਨ ਲਈ, ਚਲੋ ਰੇਂਜ B3:D13 ਨੂੰ ਵੇਰੀਏਬਲ Rng ਵਿੱਚ ਪੜ੍ਹੀਏ।
ਇੱਥੇ ਵੇਰੀਏਬਲ ਦੀ ਡੇਟਾ ਕਿਸਮ ਇੱਕ ਰੇਂਜ ਹੋਵੇਗੀ। . ਤੁਸੀਂ ਜਾਂ ਤਾਂ ਇਸਨੂੰ ਪਹਿਲਾਂ ਇਸ ਤਰ੍ਹਾਂ ਘੋਸ਼ਿਤ ਕਰ ਸਕਦੇ ਹੋ:
4108
ਜਾਂ ਤੁਸੀਂ ਇਸਦੇ ਨਾਲ ਸਿੱਧੇ ਮੁੱਲ ਨਿਰਧਾਰਤ ਕਰ ਸਕਦੇ ਹੋ।
1482
ਹੁਣ, ਰੇਂਜ ਆਬਜੈਕਟ ਦੇ ਮੁੱਲਾਂ ਨੂੰ ਐਕਸੈਸ ਕਰਨ ਲਈ, ਤੁਹਾਨੂੰ ਉਹਨਾਂ ਦੀ ਕਤਾਰ ਅਤੇ ਕਾਲਮ ਨੰਬਰਾਂ ਨਾਲ ਇੱਕ ਸੈੱਲ ਆਬਜੈਕਟ ਨਾਲ ਐਕਸੈਸ ਕਰਨਾ ਹੋਵੇਗਾ।
ਉਦਾਹਰਨ ਲਈ, ਐਕਸੈਸ ਸੈੱਲ B4 , ਤੁਹਾਨੂੰ Rng.Cells(2,1) [ ਸੈੱਲ B4 2nd ਕਤਾਰ ਵਿੱਚ ਹੈ ਅਤੇ <ਰੇਂਜ ਦਾ 1>1ਲਾ ਕਾਲਮ B3:D13 ।]
ਲਾਈਨ ਦਾਖਲ ਕਰੋ MsgBox Rng.Cells(2,1) ਆਪਣੇ ਕੋਡ ਦੇ ਅੰਦਰ ਅਤੇ ਇਸਨੂੰ ਚਲਾਓ। ਇਹ Boris Pasternak ਦਿਖਾਏਗਾ, ਸੈੱਲ B4 ਵਿੱਚ ਮੁੱਲ।
3। ਐਕਸਲ VBA ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਸੈੱਲਾਂ ਦੀ ਗੈਰ-ਨਾਲ ਲੱਗਦੀ ਰੇਂਜ ਦੇ ਮੁੱਲਾਂ ਨੂੰ ਇੱਕ ਵੇਰੀਏਬਲ ਵਿੱਚ ਸੈੱਟ ਕਰੋ
ਅੰਤ ਵਿੱਚ, ਅਸੀਂ ਸੈੱਲਾਂ ਦੀ ਗੈਰ-ਨਾਲ ਲੱਗਦੀ ਰੇਂਜ ਦੇ ਮੁੱਲ ਇੱਕ ਵੇਰੀਏਬਲ ਵਿੱਚ ਸੈੱਟ ਕਰਾਂਗੇ।
ਉਦਾਹਰਨ ਲਈ, ਆਓ ਪੜ੍ਹਨ ਦੀ ਕੋਸ਼ਿਸ਼ ਕਰੀਏਰੇਂਜ B3:B13 ਅਤੇ D3:D13 ਨੂੰ Rng ਕਹਿੰਦੇ ਹਨ।
ਇਹ ਫਿਰ ਰੇਂਜ<ਦੀ ਇੱਕ ਡਾਟਾ ਕਿਸਮ ਹੈ। 2>। ਤੁਸੀਂ ਜਾਂ ਤਾਂ ਇਸਨੂੰ ਪਹਿਲਾਂ ਹੀ ਘੋਸ਼ਿਤ ਕਰ ਸਕਦੇ ਹੋ ਜਾਂ ਨਹੀਂ।
ਅਸੀਂ ਵੀਬੀਏ ਵਿੱਚ ਸ਼ਾਮਲ ਹੋਣ ਲਈ ਯੂਨੀਅਨ ਵਿਧੀ ਦੀ ਵਰਤੋਂ ਕਰਾਂਗੇ 2 ਜਾਂ ਹੋਰ ਗੈਰ-ਨਾਲ ਲੱਗਦੇ ਇੱਕ ਸਿੰਗਲ ਰੇਂਜ ਵਿੱਚ ਸੈੱਲਾਂ ਦੀ ਰੇਂਜ।
6526
ਹੁਣ ਸੈੱਲ B4 ਤੱਕ ਪਹੁੰਚ ਕਰਨ ਲਈ, ਤੁਹਾਨੂੰ ਦੁਬਾਰਾ ਲਾਈਨ MsgBox ਦਾਖਲ ਕਰਨੀ ਪਵੇਗੀ। Rng.Cells(1,1)। ਫਿਰ ਜੇਕਰ ਅਸੀਂ ਕੋਡ ਚਲਾਉਂਦੇ ਹਾਂ, ਤਾਂ ਇਹ ਸੈੱਲ B4 , ਬੋਰਿਸ ਪਾਸਟਰਨਕ ਵਿੱਚ ਸਮੱਗਰੀ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰੇਗਾ।
ਯਾਦ ਰੱਖਣ ਵਾਲੀਆਂ ਗੱਲਾਂ
ਉੱਪਰ ਦੱਸੇ ਗਏ ਸਾਰੇ ਤਰੀਕੇ ਸਿਰਫ਼ ਕਿਰਿਆਸ਼ੀਲ ਵਰਕਸ਼ੀਟ ਲਈ ਕੰਮ ਕਰਦੇ ਹਨ। ਜੇਕਰ ਤੁਸੀਂ ਇੱਕ ਵਰਕਸ਼ੀਟ ਤੱਕ ਪਹੁੰਚ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ ਜੋ ਕਿਰਿਆਸ਼ੀਲ ਨਹੀਂ ਹੈ, ਤਾਂ ਤੁਹਾਨੂੰ ਰੇਂਜ ਤੋਂ ਪਹਿਲਾਂ ਵਰਕਸ਼ੀਟ ਦੇ ਨਾਮ ਦਾ ਜ਼ਿਕਰ ਕਰਨਾ ਹੋਵੇਗਾ।
ਉਦਾਹਰਨ ਲਈ, ਸ਼ੀਟ1 ਦੀ ਰੇਂਜ B4 ਤੱਕ ਪਹੁੰਚ ਕਰਨ ਲਈ , ਤੁਹਾਨੂੰ ਇਹ ਵਰਤਣਾ ਪਵੇਗਾ:
1475
