ਵਿਸ਼ਾ - ਸੂਚੀ
ਐਕਸਲ VBA ਕੋਡਾਂ ਨਾਲ ਕੰਮ ਕਰਦੇ ਸਮੇਂ, ਅਸੀਂ ਕੁਝ ਬਿਲਟ-ਇਨ ਫੰਕਸ਼ਨਾਂ ਨੂੰ ਦੇਖਦੇ ਹਾਂ ਜੋ ਇੱਕ ਗੁੰਝਲਦਾਰ ਕੰਮ ਨੂੰ ਇੱਕ ਛੋਟੇ ਇੱਕ-ਲਾਈਨ ਕੋਡ ਵਿੱਚ ਬਦਲਦੇ ਹਨ। InStr ਇੱਕ ਅਜਿਹਾ ਫੰਕਸ਼ਨ ਹੈ ਜੋ Excel VBA ਵਿੱਚ ਉਪਲਬਧ ਹੈ ਜੋ ਕਿਸੇ ਖਾਸ ਸਟ੍ਰਿੰਗ ਦੀ ਖੋਜ ਕਿਸੇ ਹੋਰ ਦਿੱਤੀ ਗਈ ਸਥਿਤੀ ਤੋਂ ਸ਼ੁਰੂ ਕਰਦੇ ਹੋਏ ਕਰਦਾ ਹੈ। ਅੱਜ ਮੈਂ ਦਿਖਾਵਾਂਗਾ ਕਿ ਤੁਸੀਂ VBA ਵਿੱਚ InStr ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਿਸੇ ਹੋਰ ਦਿੱਤੀ ਗਈ ਸਤਰ ਵਿੱਚ ਇੱਕ ਖਾਸ ਸਤਰ ਦੀ ਖੋਜ ਕਰਨ ਲਈ ਕਰ ਸਕਦੇ ਹੋ।
ਪ੍ਰੈਕਟਿਸ ਵਰਕਬੁੱਕ ਡਾਊਨਲੋਡ ਕਰੋ
InStr Function.xlsm
VBA InStr ਫੰਕਸ਼ਨ
- ਦੀ ਜਾਣ-ਪਛਾਣ ਸਾਰਾਂਸ਼
ਕਿਸੇ ਦਿੱਤੀ ਗਈ ਸਥਿਤੀ ਤੋਂ ਸ਼ੁਰੂ ਕਰਦੇ ਹੋਏ, ਦਿੱਤੀ ਗਈ ਸਤਰ ਦੇ ਅੰਦਰ ਇੱਕ ਖਾਸ ਸਤਰ ਦੀ ਖੋਜ ਕਰਦਾ ਹੈ। ਜੇਕਰ ਕੋਈ ਮੇਲ ਲੱਭਦਾ ਹੈ, ਤਾਂ ਦਿੱਤੀ ਗਈ ਸਤਰ ਵਿੱਚ ਸਥਿਤੀ ਵਾਪਸ ਕਰਦਾ ਹੈ ਜਿੱਥੋਂ ਮੈਚ ਸ਼ੁਰੂ ਹੋਇਆ ਸੀ।
- ਸੰਟੈਕਸ
InStr([start) ],string1,string2,[compare])
- ਆਰਗੂਮੈਂਟ
| ਦਲੀਲ | ਲੋੜ | ਵੇਰਵਾ
|
|---|---|---|
| [start] | ਵਿਕਲਪਿਕ | ਉਹ ਸਥਿਤੀ ਜਿੱਥੋਂ ਇਹ ਖੋਜਣਾ ਸ਼ੁਰੂ ਕਰੇਗਾ। ਡਿਫੌਲਟ 1 ਹੈ। |
| ਸਟਰਿੰਗ1 | ਲੋੜੀਂਦਾ | ਉਹ ਸਤਰ ਜਿਸ ਵਿੱਚ ਇਹ ਦਿੱਤੀ ਗਈ ਸਤਰ ਦੀ ਖੋਜ ਕਰਦਾ ਹੈ। |
| ਸਟਰਿੰਗ2 | ਲੋੜੀਂਦੀ | ਉਹ ਸਟ੍ਰਿੰਗ ਜਿਸਦੀ ਇਹ ਇੱਕ ਦਿੱਤੀ ਗਈ ਸਤਰ ਵਿੱਚ ਖੋਜ ਕਰਦਾ ਹੈ। |
| [ਤੁਲਨਾ ਕਰੋ] | ਵਿਕਲਪਿਕ | {-1,0,1,2} ਦੇ ਵਿਚਕਾਰ ਇੱਕ ਸੰਖਿਆਤਮਕ ਮੁੱਲ ਜੋ ਤੁਲਨਾ ਦੀ ਕਿਸਮ ਨੂੰ ਦਰਸਾਉਂਦਾ ਹੈ। ਦਡਿਫੌਲਟ -1 (vbUseCompareOption) ਹੈ। ਜੇਕਰ ਵਿਕਲਪ ਤੁਲਨਾ ਬਿਆਨ ਨਿਰਧਾਰਤ ਨਹੀਂ ਕੀਤਾ ਗਿਆ ਹੈ, ਤਾਂ ਬਾਈਨਰੀ ਤੁਲਨਾ ਕਰੋ। |
ਨੋਟ:
- ਹਾਲਾਂਕਿ [start] ਆਰਗੂਮੈਂਟ ਅਤੇ [ਤੁਲਨਾ] ਆਰਗੂਮੈਂਟ ਵਿਕਲਪਿਕ ਹਨ, ਜੇਕਰ ਤੁਸੀਂ [ਤੁਲਨਾ] ਆਰਗੂਮੈਂਟ ਨਿਰਧਾਰਤ ਕਰਦੇ ਹੋ ਤਾਂ ਤੁਹਾਨੂੰ [start] ਆਰਗੂਮੈਂਟ ਦੀ ਲੋੜ ਹੈ। ਨਹੀਂ ਤਾਂ, ਇਹ ਇੱਕ ਤਰੁੱਟੀ ਪੈਦਾ ਕਰੇਗਾ।
- ਜੇਕਰ [start] ਆਰਗੂਮੈਂਟ ਅਤੇ [compare] ਆਰਗੂਮੈਂਟ Null<2 ਵਿੱਚੋਂ ਇੱਕ ਜਾਂ ਦੋਵੇਂ ਹਨ।>, ਤੁਹਾਨੂੰ ਇੱਕ ਗਲਤੀ ਦਾ ਸਾਹਮਣਾ ਕਰਨਾ ਪਵੇਗਾ।
- [ਤੁਲਨਾ ਕਰੋ] ਆਰਗੂਮੈਂਟ ਵਿੱਚ ਚਾਰ ਨਿਰਧਾਰਤ ਮੁੱਲ ਚਾਰ ਵੱਖ-ਵੱਖ ਕਿਸਮਾਂ ਦੀ ਤੁਲਨਾ ਕਰਦੇ ਹਨ। ਉਹਨਾਂ ਦਾ ਹੇਠਾਂ ਜ਼ਿਕਰ ਕੀਤਾ ਗਿਆ ਹੈ:
| VALUE | CONSTANT | DESCRIPTION
|
|---|---|---|
| -1 | vbUseCompareOption | ਵਿੱਚ ਨਿਰਦਿਸ਼ਟ ਤੁਲਨਾ ਕਰਦਾ ਹੈ ਵਿਕਲਪ ਤੁਲਨਾ ਬਿਆਨ। |
| 0 | vbBinaryCompare | ਇੱਕ ਬਾਈਨਰੀ ਤੁਲਨਾ ਕਰਦਾ ਹੈ। |
| 1 | vbTextCompare | ਇੱਕ ਟੈਕਸਟ ਤੁਲਨਾ ਕਰਦਾ ਹੈ। |
| 2 | vbDatabaseCompare | ਤੁਹਾਡੇ ਡੇਟਾਬੇਸ ਦੇ ਆਧਾਰ 'ਤੇ ਤੁਲਨਾ ਕਰਦਾ ਹੈ . |
- ਵਿਕਲਪ ਤੁਲਨਾ ਸਟੇਟਮੈਂਟ ਇੱਕ ਸਟੇਟਮੈਂਟ ਹੈ ਜੋ ਮੁੱਖ VBA ਕੋਡ ਸ਼ੁਰੂ ਹੋਣ ਤੋਂ ਪਹਿਲਾਂ ਪ੍ਰਦਾਨ ਕੀਤੀ ਜਾਂਦੀ ਹੈ। ਇਹ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ ਕਿ ਕੀ ਕੋਡ ਲੋੜ ਪੈਣ 'ਤੇ ਬਾਈਨਰੀ ਤੁਲਨਾ ਜਾਂ ਟੈਕਸਟ ਤੁਲਨਾ ਲਈ ਖੋਜ ਕਰੇਗਾ।
ਵਿਕਲਪ ਤੁਲਨਾ ਟੈਕਸਟ
-
- ਸਧਾਰਨ ਸ਼ਬਦਾਂ ਵਿੱਚ , ਬਾਈਨਰੀ ਤੁਲਨਾ ਦਾ ਮਤਲਬ ਹੈ ਕੇਸ-ਸੰਵੇਦਨਸ਼ੀਲਤੁਲਨਾ।
- ਸਧਾਰਨ ਸ਼ਬਦਾਂ ਵਿੱਚ , ਟੈਕਸਟ ਤੁਲਨਾ ਦਾ ਮਤਲਬ ਹੈ ਕੇਸ-ਸੰਵੇਦਨਸ਼ੀਲ ਤੁਲਨਾ।
- ਰਿਟਰਨ ਵੈਲਯੂ
- ਸਟਰਿੰਗ1 ਵਿੱਚ ਸਥਿਤੀ ਵਾਪਸ ਕਰਦਾ ਹੈ ਜਿੱਥੋਂ ਸਟਰਿੰਗ2 ਸ਼ੁਰੂ ਹੋਇਆ ਸੀ।
- ਜੇਕਰ ਸਟਰਿੰਗ2 ਨਹੀਂ ਮਿਲਦਾ ਹੈ। ਸਟਰਿੰਗ1 ਦੇ ਅੰਦਰ ਸ਼ੁਰੂ ਸਥਿਤੀ ਤੋਂ ਸ਼ੁਰੂ ਹੋ ਕੇ, 0 ਵਾਪਸ ਕਰਦਾ ਹੈ।
- ਜੇਕਰ ਸਟਰਿੰਗ1 ਜ਼ੀਰੋ-ਲੰਬਾਈ ਦਾ ਹੈ, 0 ਵਾਪਸ ਕਰਦਾ ਹੈ।
- ਜੇਕਰ ਸਟਰਿੰਗ2 ਜ਼ੀਰੋ-ਲੰਬਾਈ ਦੀ ਹੈ, ਤਾਂ ਆਰਗੂਮੈਂਟ ਸਟਾਰਟ ਵਾਪਸ ਕਰਦਾ ਹੈ।
- ਅਤੇ ਅੰਤ ਵਿੱਚ, ਜੇਕਰ ਕੋਈ ਵੀ ਸਟਰਿੰਗ1 ਜਾਂ string2 Null ਹੈ, ਇੱਕ ਗਲਤੀ ਵਾਪਸ ਕਰਦਾ ਹੈ।
VBA InStr ਫੰਕਸ਼ਨ ਨੂੰ ਵਰਤਣ ਲਈ 3 ਆਸਾਨ ਉਦਾਹਰਨਾਂ
ਵਿੱਚ ਇਸ ਭਾਗ ਵਿੱਚ, ਅਸੀਂ ਐਕਸਲ ਵਿੱਚ VBA InStr ਫੰਕਸ਼ਨ ਨੂੰ ਲਾਗੂ ਕਰਨ ਦੀਆਂ ਤਿੰਨ ਆਸਾਨ ਉਦਾਹਰਣਾਂ ਦੇਖਾਂਗੇ। ਆਉ VBA ਕੋਡਾਂ ਵਿੱਚ InStr ਫੰਕਸ਼ਨ ਦੀ ਪਹਿਲੀ ਉਦਾਹਰਣ ਵੇਖੀਏ।
1. VBA InStr ਫੰਕਸ਼ਨ
ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇਹ ਫੈਸਲਾ ਕਰਨਾ ਕਿ ਕੀ ਪਤਾ ਇੱਕ ਈਮੇਲ ਪਤਾ ਹੈ ਜਾਂ ਨਹੀਂ
ਇੱਥੇ, ਅਸੀਂ ਗਾਹਕਾਂ ਦੇ ਕੁਝ ਸੰਪਰਕ ਪਤਿਆਂ ਵਾਲਾ ਇੱਕ ਡੇਟਾ ਸੈੱਟ ਲਿਆ ਹੈ। ਇੱਥੇ ਸਾਡਾ ਟੀਚਾ ਇਹ ਪਛਾਣ ਕਰਨਾ ਹੋਵੇਗਾ ਕਿ ਕੀ ਪਤੇ ਈਮੇਲ ਪਤੇ ਹਨ ਜਾਂ ਨਹੀਂ।
ਹੁਣ ਅਸੀਂ ਪਛਾਣ ਕਰਨ ਲਈ InStr ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇੱਕ VBA ਕੋਡ ਵਿਕਸਿਤ ਕਰਾਂਗੇ। ਭਾਵੇਂ ਇਹ ਇੱਕ ਈਮੇਲ ਪਤਾ ਹੈ ਜਾਂ ਨਹੀਂ। ਅਜਿਹਾ ਕਰਨ ਲਈ, ਹੇਠਾਂ ਦਿੱਤੇ ਕਦਮਾਂ ਦੀ ਪਾਲਣਾ ਕਰੋ।
ਕਦਮ:
- ਸ਼ੁਰੂ ਵਿੱਚ, ਡਿਵੈਲਪਰ ਟੈਬ 'ਤੇ ਜਾਓ ਅਤੇ <ਚੁਣੋ। 1>ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ (ਜਾਂ VBA ਨੂੰ ਖੋਲ੍ਹਣ ਲਈ Alt+F11) ਦਬਾਓਵਿੰਡੋ।
- ਫਿਰ, VBA ਵਿੰਡੋ 'ਤੇ, ਇਨਸਰਟ > 'ਤੇ ਜਾਓ। ਮੋਡੀਊਲ .
- ਇਸ ਤੋਂ ਬਾਅਦ, ਮੋਡੀਊਲ 'ਤੇ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਪੇਸਟ ਕਰੋ:
4116
- ਇਸ ਤੋਂ ਇਲਾਵਾ, ਅਸੀਂ DECISION ਨਾਮਕ ਇੱਕ ਫੰਕਸ਼ਨ ਬਣਾਇਆ ਹੈ। ਇਹ ਫੈਸਲਾ ਕਰਦਾ ਹੈ ਕਿ ਪਤਾ ਇੱਕ ਈਮੇਲ ਪਤਾ ਹੈ ਜਾਂ ਨਹੀਂ। ਆਉ ਸਾਡੇ ਕੋਲ ਮੌਜੂਦ ਡੇਟਾ ਸੈੱਟ ਉੱਤੇ ਫੰਕਸ਼ਨ ਨੂੰ ਲਾਗੂ ਕਰੀਏ।
- ਸੈੱਲ C5 ਉੱਤੇ, ਹੇਠਾਂ ਦਿੱਤੇ ਫਾਰਮੂਲੇ ਨੂੰ ਲਿਖੋ ਅਤੇ ਫਿਰ ਫਿਲ ਹੈਂਡਲ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਬਾਕੀ ਸੈੱਲਾਂ ਨੂੰ ਆਟੋਫਿਲ ਕਰੋ।
=DECISION(B5) 
- ਜਿਵੇਂ ਕਿ ਅਸੀਂ ਦੇਖ ਸਕਦੇ ਹਾਂ, ਅਸੀਂ ਹਰੇਕ ਪਤੇ ਦੀ ਪਛਾਣ ਕਰ ਲਈ ਹੈ ਕਿ ਕੀ ਇਹ ਇੱਕ ਈਮੇਲ ਪਤਾ ਹੈ ਜਾਂ ਨਹੀਂ।
🎓 ਕੋਡ ਕਿਵੇਂ ਕੰਮ ਕਰਦਾ ਹੈ?
- ਫੰਕਸ਼ਨ DECISION(string1 as String)
ਪਹਿਲਾਂ, ਇਹ ਇੱਕ ਫੰਕਸ਼ਨ ਬਣਾਉਂਦਾ ਹੈ ਜਿਸਨੂੰ DECISION ਕਿਹਾ ਜਾਂਦਾ ਹੈ। string1 ਨਾਮਕ ਸਟ੍ਰਿੰਗ ਆਰਗੂਮੈਂਟ।
- ਅੰਤ ਅੰਕ ਵਜੋਂ ਡਿਮ ਪੋਜੀਸ਼ਨ
ਇਹ ਪੋਜੀਸ਼ਨ<ਨਾਮਕ ਇੱਕ ਪੂਰਨ ਅੰਕ ਵੇਰੀਏਬਲ ਘੋਸ਼ਿਤ ਕਰਦਾ ਹੈ। 2>.
- ਪੋਜੀਸ਼ਨ = InStr(1, string1, “@”, 0)
ਇਹ ਦਾ ਮੁੱਲ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ ਆਰਗੂਮੈਂਟਾਂ 1, ਸਟ੍ਰਿੰਗ1, “@” ਅਤੇ 0 ਦੇ ਨਾਲ InStr ਫੰਕਸ਼ਨ ਦੇ ਆਉਟਪੁੱਟ ਵਜੋਂ ਸਥਿਤੀ ਵੇਰੀਏਬਲ। ਸੰਖੇਪ ਵਿੱਚ, ਇਹ ਪਤੇ ਵਿੱਚ ਸਥਿਤੀ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ ਜਿੱਥੇ ਇੱਕ “@” ਹੈ।
- ਜੇ ਸਥਿਤੀ = 0 ਤਾਂ ਫੈਸਲਾ = “ਈਮੇਲ ਨਹੀਂ”
ਇਹ DECISION ਫੰਕਸ਼ਨ ਦੇ ਆਉਟਪੁੱਟ ਨੂੰ “ਈਮੇਲ ਨਹੀਂ” ਦੇ ਤੌਰ ਤੇ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ, ਜੇਕਰ ਸਥਿਤੀ ਵੇਰੀਏਬਲ 0 ਹੈ, ਭਾਵ, ਪਤੇ ਵਿੱਚ ਕੋਈ “@” ਨਹੀਂ ਸੀ।
(ਯਾਦ ਕਰੋ ਜੇਕਰ ਦਿੱਤੀ ਗਈ ਸਟ੍ਰਿੰਗ ਵਿੱਚ ਕੋਈ ਸਤਰ ਨਹੀਂ ਮਿਲਦੀ ਹੈ, ਤਾਂ InStr ਫੰਕਸ਼ਨ 0 ਵਾਪਸ ਕਰਦਾ ਹੈ।
- Else DECISION = “Email”
ਇਹ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ DECISION ਫੰਕਸ਼ਨ ਦਾ ਆਉਟਪੁੱਟ “ਈਮੇਲ” ਦੇ ਤੌਰ ਤੇ ਜੇ ਪਤੇ ਵਿੱਚ ਇੱਕ “@” ਸੀ। ਇਸ ਤਰ੍ਹਾਂ ਪਤੇ ਜਿੱਥੇ “@” ਹਨ ਉਹਨਾਂ ਨੂੰ ਈਮੇਲ ਵਜੋਂ ਸ਼੍ਰੇਣੀਬੱਧ ਕੀਤਾ ਗਿਆ ਹੈ, ਅਤੇ ਬਾਕੀ ਨੂੰ “ਈਮੇਲ ਨਹੀਂ” ਵਜੋਂ ਸ਼੍ਰੇਣੀਬੱਧ ਕੀਤਾ ਗਿਆ ਹੈ।
ਸਮਾਨ ਰੀਡਿੰਗ
- ਐਕਸਲ ਵਿੱਚ VBA UCASE ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਿਵੇਂ ਕਰੀਏ (4 ਉਦਾਹਰਨਾਂ)
- ਐਕਸਲ VBA ਵਿੱਚ MsgBox ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰੋ (ਇੱਕ ਸੰਪੂਰਨ ਗਾਈਡਲਾਈਨ)
- ਐਕਸਲ ਵਿੱਚ VBA SPLIT ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਿਵੇਂ ਕਰੀਏ (5 ਉਦਾਹਰਨਾਂ)
- ਐਕਸਲ ਵਿੱਚ VBA ਵਿੱਚ LCase ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰੋ (ਨਾਲ 4 ਉਦਾਹਰਨਾਂ)
- ਐਕਸਲ VBA ਵਿੱਚ ਫਿਕਸ ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਿਵੇਂ ਕਰੀਏ (4 ਉਦਾਹਰਨਾਂ)
2. VBA InStr ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕੁਝ ਈਮੇਲ ਪਤਿਆਂ ਦੇ ਐਕਸਟੈਂਸ਼ਨ ਨੂੰ ਐਕਸਟਰੈਕਟ ਕਰਨਾ
ਇੱਥੇ, ਸਾਡੇ ਕੋਲ ਕੁਝ ਗਾਹਕਾਂ ਦੇ ਕੁਝ ਈਮੇਲ ਪਤਿਆਂ ਦੀ ਸੂਚੀ ਹੈ। ਇਸ ਵਾਰ ਅਸੀਂ ਈਮੇਲ ਪਤੇ ਦੇ ਐਕਸਟੈਂਸ਼ਨ ਨੂੰ ਐਕਸਟਰੈਕਟ ਕਰਾਂਗੇ ਜਿਵੇਂ ਕਿ ਉਹਨਾਂ ਕੋਲ gmail.com ਜਾਂ yahoo.com ਹੈ।
ਅਜਿਹਾ ਕਰਨ ਲਈ, ਹੇਠਾਂ ਦਿੱਤੇ ਕਦਮਾਂ ਦੀ ਪਾਲਣਾ ਕਰੋ।
ਕਦਮ:
- ਪਿਛਲੀ ਵਿਧੀ ਦੀ ਤਰ੍ਹਾਂ ਸ਼ੁਰੂ ਕਰਨ ਲਈ, ਇੱਕ ਨਵਾਂ VBA<2 ਖੋਲ੍ਹੋ।> ਮੋਡੀਊਲ ਅਤੇ ਵਿੰਡੋ ਵਿੱਚ ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਪੇਸਟ ਕਰੋ।
6337
- ਇਸ ਤੋਂ ਇਲਾਵਾ, ਅਸੀਂ ਇੱਕ ਫੰਕਸ਼ਨ ਬਣਾਇਆ ਹੈ ਐਕਸਟੇਂਸ਼ਨ । ਇਹ ਕਿਸੇ ਵੀ ਈਮੇਲ ਪਤੇ ਦੇ ਐਕਸਟੈਂਸ਼ਨ ਨੂੰ ਐਕਸਟਰੈਕਟ ਕਰਦਾ ਹੈ।
- ਇਸ ਤੋਂ ਇਲਾਵਾ, ਆਓ ਇਸ ਫੰਕਸ਼ਨ ਨੂੰ ਸਾਡੇ ਕੋਲ ਮੌਜੂਦ ਡੇਟਾ ਸੈੱਟ 'ਤੇ ਲਾਗੂ ਕਰੀਏ। ਪਹਿਲਾਂ, ਸੈੱਲ C5 'ਤੇ ਇਹ ਫਾਰਮੂਲਾ ਦਰਜ ਕਰੋ ਅਤੇ ਫਿਰ ਫਿਲ ਹੈਂਡਲ 'ਤੇ ਦੋ ਵਾਰ ਕਲਿੱਕ ਕਰੋ।
=EXTENSION(B5) 
- ਅੰਤ ਵਿੱਚ, ਅਸੀਂ ਦੇਖ ਸਕਦੇ ਹਾਂ ਕਿ ਅਸੀਂ ਸਫਲਤਾਪੂਰਵਕ ਸਾਰੀਆਂ ਈਮੇਲਾਂ ਦੀ ਐਕਸਟੈਂਸ਼ਨ ਨੂੰ ਐਕਸਟਰੈਕਟ ਕਰ ਲਿਆ ਹੈ।
🎓 ਕੋਡ ਕਿਵੇਂ ਕੰਮ ਕਰਦਾ ਹੈ?
- ਫੰਕਸ਼ਨ EXTENSION(Email as String)
ਇਹ EXTENSION ਨਾਮਕ ਇੱਕ ਨਵਾਂ ਫੰਕਸ਼ਨ ਬਣਾਉਂਦਾ ਹੈ, ਜਿਸ ਵਿੱਚ ਇੱਕ ਈਮੇਲ ਨਾਮਕ ਸਟ੍ਰਿੰਗ ਆਰਗੂਮੈਂਟ।
- ਅੰਤ ਅੰਕ ਦੇ ਤੌਰ 'ਤੇ ਮੱਧਮ ਸਥਿਤੀ
ਇਹ ਭਾਗ ਪੋਜੀਸ਼ਨ ਨਾਮਕ ਇੱਕ ਪੂਰਨ ਅੰਕ ਵੇਰੀਏਬਲ ਘੋਸ਼ਿਤ ਕਰਦਾ ਹੈ .
- ਸਥਿਤੀ = InStr(1, ਈਮੇਲ, “@”, 0)
ਇਹ <1 ਦਾ ਮੁੱਲ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ ਆਰਗੂਮੈਂਟ 1, ਈਮੇਲ, “@” ਅਤੇ 0 ਦੇ ਨਾਲ InStr ਫੰਕਸ਼ਨ ਦੇ ਆਉਟਪੁੱਟ ਦੇ ਰੂਪ ਵਿੱਚ>ਪੁਜੀਸ਼ਨ ਵੇਰੀਏਬਲ। ਸੰਖੇਪ ਵਿੱਚ, ਇਹ ਈਮੇਲ ਵਿੱਚ ਸਥਿਤੀ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ ਜਿੱਥੇ ਇੱਕ “@” ਹੈ।
- ਐਕਸਟੇਂਸ਼ਨ = ਸੱਜਾ(ਈਮੇਲ, (ਲੈਨ (ਈਮੇਲ) – ਸਥਿਤੀ))
ਇਹ ਭਾਗ “@” ਚਿੰਨ੍ਹ ਦੇ ਬਾਅਦ ਅੱਖਰਾਂ ਦੇ ਰੂਪ ਵਿੱਚ ਐਕਸਟੇਂਸ਼ਨ ਫੰਕਸ਼ਨ ਦੇ ਆਉਟਪੁੱਟ ਨੂੰ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ। ਇਹ ਈਮੇਲ ਦਾ ਲੋੜੀਂਦਾ ਐਕਸਟੈਂਸ਼ਨ ਹੈ।
3. VBA InStr ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇੱਕ ਨਾਮ ਤੋਂ ਪਹਿਲਾ ਜਾਂ ਆਖਰੀ ਨਾਮ ਕੱਢਣਾ
ਅੰਤ ਵਿੱਚ, ਅਸੀਂ ਇੱਕ ਵਿਲੱਖਣ ਕੰਮ ਕਰਾਂਗੇ। ਇਸ ਵਾਰ ਸਾਡੇ ਕੋਲ ਦੇ ਕੁਝ ਕਰਮਚਾਰੀਆਂ ਦੇ ਨਾਂ ਹਨਇੱਕ ਕੰਪਨੀ. ਅਤੇ ਅਸੀਂ ਕਰਮਚਾਰੀਆਂ ਦੇ ਪਹਿਲੇ ਨਾਮ ਜਾਂ ਆਖਰੀ ਨਾਮ ਨੂੰ ਐਕਸਟਰੈਕਟ ਕਰਨ ਲਈ ਇੱਕ ਫੰਕਸ਼ਨ ਬਣਾਉਣ ਦੀ ਕੋਸ਼ਿਸ਼ ਕਰਾਂਗੇ।
ਇਹ ਕਰਨ ਲਈ, ਹੇਠਾਂ ਦਿੱਤੇ ਕਦਮਾਂ ਦੀ ਪਾਲਣਾ ਕਰੋ।
ਪੜਾਅ:
- ਪਹਿਲਾਂ, ਵਿਧੀ 1 ਦੇ ਸਮਾਨ, VBA ਵਿੰਡੋ ਵਿੱਚ ਇੱਕ ਨਵੇਂ ਮੋਡੀਊਲ ਵਿੱਚ ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਪੇਸਟ ਕਰੋ।
9315
- ਇੱਥੇ, ਅਸੀਂ SHORTNAME ਨਾਮਕ ਇੱਕ ਫੰਕਸ਼ਨ ਬਣਾਇਆ ਹੈ ਜੋ ਕਿਸੇ ਨਾਮ ਤੋਂ ਪਹਿਲਾ ਨਾਂ ਜਾਂ ਆਖਰੀ ਨਾਮ ਕੱਢਦਾ ਹੈ। ਆਉ ਇਸ ਫਾਰਮੂਲੇ ਨੂੰ ਸਾਡੇ ਡੇਟਾ ਸੈੱਟ ਵਿੱਚ ਲਾਗੂ ਕਰੀਏ।
- ਪਹਿਲਾਂ, ਪਹਿਲੇ ਨਾਮ ਨੂੰ ਐਕਸਟਰੈਕਟ ਕਰਨ ਲਈ, ਹੇਠਾਂ ਦਿੱਤੇ ਫਾਰਮੂਲੇ ਨੂੰ ਸੈੱਲ C5 ਵਿੱਚ ਲਿਖੋ।
=SHORTNAME(B5,-1) 
- ਅੰਤ ਵਿੱਚ, ਆਖਰੀ ਨਾਮਾਂ ਨੂੰ ਕੱਢਣ ਲਈ, ਅਸੀਂ ਹੇਠਾਂ ਦਿੱਤੇ ਫਾਰਮੂਲੇ ਨੂੰ D5 ਵਿੱਚ ਲਿਖਦੇ ਹਾਂ:
=SHORTNAME(B5,1) 
- ਬਾਅਦ ਵਿੱਚ, ਜੇਕਰ ਅਸੀਂ ਬਾਕੀ ਸੈੱਲਾਂ ਨੂੰ ਫਿਲ ਹੈਂਡਲਰ<2 ਨਾਲ ਆਟੋ-ਫਿਲ ਕਰਦੇ ਹਾਂ>, ਅਸੀਂ ਆਪਣਾ ਇੱਛਤ ਨਤੀਜਾ ਦੇਖਾਂਗੇ।
🎓 ਕੋਡ ਕਿਵੇਂ ਕੰਮ ਕਰਦਾ ਹੈ?
- ਫੰਕਸ਼ਨ SHORTNAME(Name as String, First_or_Last As Integer)
ਇਹ SHORTNAME<2 ਨਾਮਕ ਇੱਕ ਨਵਾਂ ਫੰਕਸ਼ਨ ਬਣਾਉਂਦਾ ਹੈ> ਨਾਮ ਨਾਮਕ ਇੱਕ ਸਟ੍ਰਿੰਗ ਆਰਗੂਮੈਂਟ ਅਤੇ First_or_Last ਨਾਮਕ ਇੱਕ ਪੂਰਨ ਅੰਕ ਆਰਗੂਮੈਂਟ ਦੇ ਨਾਲ।
- ਇੰਨਟੀਜਰ ਦੇ ਰੂਪ ਵਿੱਚ ਡਿਮ ਬਰੇਕ
ਇਹ ਭਾਗ Break ਨਾਮਕ ਇੱਕ ਨਵਾਂ ਪੂਰਨ ਅੰਕ ਵੇਰੀਏਬਲ ਘੋਸ਼ਿਤ ਕਰਦਾ ਹੈ।
- Break = InStr(1, Name, ” “, 0)
ਇਹ ਆਰਗੂਮੈਂਟਾਂ ਦੇ ਨਾਲ InStr ਫੰਕਸ਼ਨ ਦੇ ਆਉਟਪੁੱਟ ਵਜੋਂ Break ਵੇਰੀਏਬਲ ਦਾ ਮੁੱਲ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ। 1, ਨਾਮ, “” ਅਤੇ 0 । ਸੰਖੇਪ ਵਿੱਚ, ਇਹ ਨਾਮ ਵਿੱਚ ਸਥਿਤੀ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ ਜਿੱਥੇ ਇੱਕ ਸਪੇਸ (“ ”) ਹੈ।
- ਜੇ First_or_Last = -1 ਫਿਰ SHORTNAME = Left(Name, Break – 1)
ਇਹ ਲਾਈਨ SHORTNAME ਫੰਕਸ਼ਨ ਦੇ ਆਉਟਪੁੱਟ ਨੂੰ ਸਪੇਸ ਤੋਂ ਪਹਿਲਾਂ ਅੱਖਰਾਂ ਦੇ ਰੂਪ ਵਿੱਚ ਨਿਰਧਾਰਤ ਕਰਦੀ ਹੈ, ਜੇਕਰ First_or_Last ਆਰਗੂਮੈਂਟ -1 ਹੈ। ਇਹ ਪਹਿਲਾ ਨਾਮ ਹੈ।
- SHORTNAME = Right(Name, Len(Name) – Break)
ਇਹ ਹਿੱਸਾ ਆਊਟਪੁੱਟ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ SHORTNAME ਸਪੇਸ ਤੋਂ ਬਾਅਦ ਅੱਖਰਾਂ ਦੇ ਰੂਪ ਵਿੱਚ ਫੰਕਸ਼ਨ ਕਰਦਾ ਹੈ, ਜੇਕਰ First_or_Last ਆਰਗੂਮੈਂਟ 1 ਹੈ। ਇਹ ਆਖਰੀ ਨਾਮ ਹੈ।
ਸਿੱਟਾ
ਇਸ ਤਰ੍ਹਾਂ, ਤੁਸੀਂ InStr ਫੰਕਸ਼ਨ ਨਾਲ VBA ਕੋਡ ਲਿਖ ਸਕਦੇ ਹੋ ਜੋ ਕਿਸੇ ਹੋਰ ਦਿੱਤੇ ਗਏ ਅੰਦਰ ਇੱਕ ਖਾਸ ਸਤਰ ਦੀ ਸਥਿਤੀ ਦਾ ਪਤਾ ਲਗਾਉਂਦਾ ਹੈ। ਸਤਰ, ਅਤੇ ਫਿਰ ਤੁਸੀਂ ਕਈ ਤਰ੍ਹਾਂ ਦੀਆਂ ਵਰਤੋਂ ਲਈ ਆਪਣੇ ਖੁਦ ਦੇ ਫੰਕਸ਼ਨ ਬਣਾ ਸਕਦੇ ਹੋ। ਇਸ ਤੋਂ ਇਲਾਵਾ, ਜੇਕਰ ਤੁਹਾਡੇ ਕੋਈ ਸਵਾਲ ਹਨ, ਤਾਂ ਬੇਝਿਜਕ ਸਾਨੂੰ ਪੁੱਛੋ।
