ਸਮੱਗਰੀ
ਸਮੱਸਿਆ ਦਾ ਗਠਨ
ਸਾਡੇ ਕੋਲ ਇੱਕ ਸ਼ੀਟ 'ਤੇ ਭੁਗਤਾਨਾਂ ਬਾਰੇ ਜਾਣਕਾਰੀ ਦੇ ਨਾਲ ਇੱਕ ਡੇਟਾਬੇਸ (ਸੂਚੀ, ਸਾਰਣੀ - ਇਸਨੂੰ ਕਾਲ ਕਰੋ ਜੋ ਤੁਸੀਂ ਚਾਹੁੰਦੇ ਹੋ) ਹੈ ਡੇਟਾ:
ਟਾਸਕ: ਇਸ ਸੂਚੀ ਵਿੱਚੋਂ ਚੁਣੀ ਗਈ ਕਿਸੇ ਵੀ ਇੱਛਤ ਐਂਟਰੀ ਲਈ ਤੁਰੰਤ ਨਕਦ ਰਸੀਦ (ਭੁਗਤਾਨ, ਚਲਾਨ…) ਨੂੰ ਛਾਪੋ। ਜਾਣਾ!
ਕਦਮ 1. ਇੱਕ ਫਾਰਮ ਬਣਾਓ
ਕਿਤਾਬ ਦੀ ਇਕ ਹੋਰ ਸ਼ੀਟ 'ਤੇ (ਆਓ ਇਸ ਸ਼ੀਟ ਨੂੰ ਕਾਲ ਕਰੀਏ ਫਾਰਮ) ਇੱਕ ਖਾਲੀ ਫਾਰਮ ਬਣਾਓ। ਤੁਸੀਂ ਇਹ ਆਪਣੇ ਆਪ ਕਰ ਸਕਦੇ ਹੋ, ਤੁਸੀਂ ਤਿਆਰ ਕੀਤੇ ਫਾਰਮਾਂ ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ, ਉਦਾਹਰਨ ਲਈ, ਚੀਫ ਅਕਾਊਂਟੈਂਟ ਮੈਗਜ਼ੀਨ ਜਾਂ ਮਾਈਕ੍ਰੋਸਾੱਫਟ ਦੀ ਵੈੱਬਸਾਈਟ ਤੋਂ ਲਏ ਗਏ ਹਨ। ਮੈਨੂੰ ਇਸ ਤਰ੍ਹਾਂ ਕੁਝ ਮਿਲਿਆ:
ਖਾਲੀ ਸੈੱਲਾਂ ਵਿੱਚ (ਖਾਤਾ, ਰਕਮ, ਤੋਂ ਪ੍ਰਾਪਤ ਕੀਤਾ ਆਦਿ) ਕਿਸੇ ਹੋਰ ਸ਼ੀਟ ਤੋਂ ਭੁਗਤਾਨ ਸਾਰਣੀ ਤੋਂ ਡੇਟਾ ਪ੍ਰਾਪਤ ਕਰੇਗਾ - ਥੋੜ੍ਹੀ ਦੇਰ ਬਾਅਦ ਅਸੀਂ ਇਸ ਨਾਲ ਨਜਿੱਠਾਂਗੇ।
ਕਦਮ 2: ਭੁਗਤਾਨ ਸਾਰਣੀ ਤਿਆਰ ਕਰਨਾ
ਸਾਡੇ ਫਾਰਮ ਲਈ ਸਾਰਣੀ ਤੋਂ ਡੇਟਾ ਲੈਣ ਤੋਂ ਪਹਿਲਾਂ, ਸਾਰਣੀ ਨੂੰ ਥੋੜ੍ਹਾ ਆਧੁਨਿਕ ਬਣਾਉਣ ਦੀ ਲੋੜ ਹੈ। ਅਰਥਾਤ, ਟੇਬਲ ਦੇ ਖੱਬੇ ਪਾਸੇ ਇੱਕ ਖਾਲੀ ਕਾਲਮ ਪਾਓ। ਅਸੀਂ ਉਸ ਲਾਈਨ ਦੇ ਉਲਟ ਇੱਕ ਲੇਬਲ (ਇਹ ਅੰਗਰੇਜ਼ੀ ਅੱਖਰ "x" ਹੋਣ ਦਿਓ) ਦਰਜ ਕਰਨ ਲਈ ਵਰਤਾਂਗੇ ਜਿਸ ਤੋਂ ਅਸੀਂ ਫਾਰਮ ਵਿੱਚ ਡੇਟਾ ਜੋੜਨਾ ਚਾਹੁੰਦੇ ਹਾਂ:
ਕਦਮ 3. ਸਾਰਣੀ ਅਤੇ ਫਾਰਮ ਨੂੰ ਜੋੜਨਾ
ਸੰਚਾਰ ਲਈ, ਅਸੀਂ ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹਾਂ ਵੀਪੀਆਰ(VLOOKUP) - ਤੁਸੀਂ ਇੱਥੇ ਇਸ ਬਾਰੇ ਹੋਰ ਪੜ੍ਹ ਸਕਦੇ ਹੋ। ਸਾਡੇ ਕੇਸ ਵਿੱਚ, ਫਾਰਮ 'ਤੇ ਸੈੱਲ F9 ਵਿੱਚ ਡੇਟਾ ਸ਼ੀਟ ਤੋਂ "x" ਚਿੰਨ੍ਹਿਤ ਭੁਗਤਾਨ ਦੀ ਸੰਖਿਆ ਨੂੰ ਸੰਮਿਲਿਤ ਕਰਨ ਲਈ, ਤੁਹਾਨੂੰ ਸੈੱਲ F9 ਵਿੱਚ ਹੇਠਾਂ ਦਿੱਤੇ ਫਾਰਮੂਲੇ ਨੂੰ ਦਾਖਲ ਕਰਨਾ ਚਾਹੀਦਾ ਹੈ:
=VLOOKUP(“x”,ਡਾਟਾ!A2:G16)
=VLOOKUP(“x”;ਡਾਟਾ!B2:G16;2;0)
ਉਹ. "ਸਮਝਣਯੋਗ" ਵਿੱਚ ਅਨੁਵਾਦ ਕੀਤਾ ਗਿਆ ਹੈ, ਫੰਕਸ਼ਨ ਨੂੰ ਡੇਟਾ ਸ਼ੀਟ 'ਤੇ ਰੇਂਜ A2: G16 ਵਿੱਚ "x" ਅੱਖਰ ਨਾਲ ਸ਼ੁਰੂ ਹੋਣ ਵਾਲੀ ਇੱਕ ਲਾਈਨ ਲੱਭਣੀ ਚਾਹੀਦੀ ਹੈ ਅਤੇ ਸਾਨੂੰ ਇਸ ਲਾਈਨ ਦੇ ਦੂਜੇ ਕਾਲਮ ਦੀ ਸਮੱਗਰੀ, ਭਾਵ ਭੁਗਤਾਨ ਨੰਬਰ ਦੇਣਾ ਚਾਹੀਦਾ ਹੈ।
ਫਾਰਮ 'ਤੇ ਬਾਕੀ ਸਾਰੇ ਸੈੱਲ ਇਸੇ ਤਰ੍ਹਾਂ ਭਰੇ ਜਾਂਦੇ ਹਨ - ਫਾਰਮੂਲੇ ਵਿੱਚ ਸਿਰਫ਼ ਕਾਲਮ ਨੰਬਰ ਬਦਲਦਾ ਹੈ।
ਰਕਮ ਨੂੰ ਸ਼ਬਦਾਂ ਵਿੱਚ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਨ ਲਈ, ਮੈਂ ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕੀਤੀ ਆਪਣੀ PLEX ਐਡ-ਆਨ ਤੋਂ।
ਨਤੀਜਾ ਇਹ ਹੋਣਾ ਚਾਹੀਦਾ ਹੈ:
ਕਦਮ 4. ਤਾਂ ਕਿ ਕੋਈ ਦੋ "x" ਨਾ ਹੋਣ ...
ਜੇਕਰ ਉਪਭੋਗਤਾ ਕਈ ਲਾਈਨਾਂ ਦੇ ਵਿਰੁੱਧ "x" ਦਾਖਲ ਕਰਦਾ ਹੈ, ਤਾਂ VLOOKUP ਫੰਕਸ਼ਨ ਸਿਰਫ ਉਹੀ ਪਹਿਲਾ ਮੁੱਲ ਲਵੇਗਾ ਜੋ ਇਸਨੂੰ ਲੱਭਦਾ ਹੈ। ਅਜਿਹੀ ਅਸਪਸ਼ਟਤਾ ਤੋਂ ਬਚਣ ਲਈ, ਸ਼ੀਟ ਟੈਬ 'ਤੇ ਸੱਜਾ-ਕਲਿੱਕ ਕਰੋ ਡੇਟਾ ਅਤੇ ਫਿਰ ਸਰੋਤ ਟੈਕਸਟ (ਸੂਤਰ ਸੰਕੇਤਾਵਲੀ). ਦਿਖਾਈ ਦੇਣ ਵਾਲੀ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਵਿੰਡੋ ਵਿੱਚ, ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਦੀ ਨਕਲ ਕਰੋ:
ਪ੍ਰਾਈਵੇਟ ਸਬ ਵਰਕਸ਼ੀਟ_ਚੇਂਜ(ਰੇਂਜ ਦੇ ਤੌਰ 'ਤੇ ਵੈਵਲ ਟਾਰਗੇਟ) ਡਿਮ r ਜਿੰਨੇ ਲੰਬੇ ਡਿਮ ਸਟ੍ਰਿੰਗ ਜੇ Target.Count > 1 ਫਿਰ ਸਬ ਤੋਂ ਬਾਹਰ ਨਿਕਲੋ ਜੇਕਰ Target.Column = 1 ਫਿਰ str = Target.Value Application.EnableEvents = False r = Cells(Rows. , 2).End(xlUp)।ਕਤਾਰ ਰੇਂਜ("A2:A" & r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub
ਇਹ ਮੈਕਰੋ ਉਪਭੋਗਤਾ ਨੂੰ ਪਹਿਲੇ ਕਾਲਮ ਵਿੱਚ ਇੱਕ ਤੋਂ ਵੱਧ "x" ਦਾਖਲ ਕਰਨ ਤੋਂ ਰੋਕਦਾ ਹੈ।
ਖੈਰ, ਇਹ ਸਭ ਕੁਝ ਹੈ! ਆਨੰਦ ਮਾਣੋ!
- ਮੁੱਲਾਂ ਨੂੰ ਬਦਲਣ ਲਈ VLOOKUP ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰਨਾ
- VLOOKUP ਫੰਕਸ਼ਨ ਦਾ ਇੱਕ ਸੁਧਾਰਿਆ ਹੋਇਆ ਸੰਸਕਰਣ
- PLEX ਐਡ-ਆਨ ਤੋਂ ਸ਼ਬਦਾਂ ਵਿੱਚ ਮਾਤਰਾ (ਪ੍ਰੋਪਿਸ ਫੰਕਸ਼ਨ)