ਸੰਚਤ ਸੈੱਲ (ਸੰਚਤ)

ਅਕਸਰ, ਇੱਕ ਸਥਿਤੀ ਪੈਦਾ ਹੁੰਦੀ ਹੈ ਜਦੋਂ ਸਾਨੂੰ ਇੱਕ ਸੈੱਲ ਵਿੱਚ ਕ੍ਰਮਵਾਰ ਕਈ ਮੁੱਲਾਂ ਨੂੰ ਜੋੜਨ (ਇਕੱਠਾ) ਕਰਨ ਦੀ ਲੋੜ ਹੁੰਦੀ ਹੈ:

ਉਹ. ਜੇਕਰ, ਉਦਾਹਰਨ ਲਈ, ਤੁਸੀਂ ਸੈੱਲ A1 ਵਿੱਚ ਨੰਬਰ 5 ਦਾਖਲ ਕਰਦੇ ਹੋ, ਤਾਂ ਨੰਬਰ 1 B15 ਵਿੱਚ ਦਿਖਾਈ ਦੇਣਾ ਚਾਹੀਦਾ ਹੈ। ਜੇਕਰ ਤੁਸੀਂ ਫਿਰ A1 ਵਿੱਚ ਨੰਬਰ 7 ਦਰਜ ਕਰਦੇ ਹੋ, ਤਾਂ 1 ਸੈੱਲ B22 ਵਿੱਚ ਦਿਖਾਈ ਦੇਣਾ ਚਾਹੀਦਾ ਹੈ, ਅਤੇ ਹੋਰ ਵੀ। ਆਮ ਤੌਰ 'ਤੇ, ਕੀ ਲੇਖਾਕਾਰ (ਅਤੇ ਉਹਨਾਂ ਨੂੰ ਹੀ ਨਹੀਂ) ਇੱਕ ਸੰਚਤ ਕੁੱਲ ਕਹਿੰਦੇ ਹਨ।

ਤੁਸੀਂ ਇੱਕ ਸਧਾਰਨ ਮੈਕਰੋ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਅਜਿਹੇ ਸਟੋਰੇਜ ਸੈੱਲ-ਐਕਯੂਮੂਲੇਟਰ ਨੂੰ ਲਾਗੂ ਕਰ ਸਕਦੇ ਹੋ। ਸ਼ੀਟ ਟੈਬ 'ਤੇ ਸੱਜਾ-ਕਲਿਕ ਕਰੋ ਜਿੱਥੇ ਸੈੱਲ A1 ਅਤੇ B1 ਸਥਿਤ ਹਨ ਅਤੇ ਸੰਦਰਭ ਮੀਨੂ ਤੋਂ ਚੁਣੋ। ਸਰੋਤ ਟੈਕਸਟ (ਸੂਤਰ ਸੰਕੇਤਾਵਲੀ). ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਵਿੰਡੋ ਵਿੱਚ ਜੋ ਖੁੱਲ੍ਹਦੀ ਹੈ, ਸਧਾਰਨ ਮੈਕਰੋ ਕੋਡ ਨੂੰ ਕਾਪੀ ਅਤੇ ਪੇਸਟ ਕਰੋ:

ਪ੍ਰਾਈਵੇਟ ਸਬ ਵਰਕਸ਼ੀਟ_ਚੇਂਜ (ਐਕਸਲ. ਰੇਂਜ ਦੇ ਤੌਰ 'ਤੇ ਵੈੱਲ ਟਾਰਗੇਟ) ਟਾਰਗੇਟ ਨਾਲ ਜੇਕਰ .ਪਤਾ(ਗਲਤ, ਗਲਤ) = "A1" ਫਿਰ ਜੇਕਰ IsNumeric(.Value) ਤਾਂ Application.EnableEvents = False Range("A2").Value = Range(") A2").Value + .Value Application.EnableEvents = True End If End ਜੇਕਰ End Sub with End End  

ਸੈੱਲ A1 ਅਤੇ A2 ਦੇ ਪਤੇ, ਬੇਸ਼ਕ, ਤੁਹਾਡੇ ਆਪਣੇ ਨਾਲ ਬਦਲੇ ਜਾ ਸਕਦੇ ਹਨ।

ਜੇਕਰ ਤੁਹਾਨੂੰ ਡਾਟਾ ਐਂਟਰੀ ਨੂੰ ਟ੍ਰੈਕ ਕਰਨ ਦੀ ਲੋੜ ਹੈ ਅਤੇ ਵਿਅਕਤੀਗਤ ਸੈੱਲਾਂ ਨੂੰ ਨਹੀਂ, ਬਲਕਿ ਪੂਰੀ ਰੇਂਜਾਂ ਦਾ ਸਾਰ ਦੇਣਾ ਹੈ, ਤਾਂ ਮੈਕਰੋ ਨੂੰ ਥੋੜ੍ਹਾ ਬਦਲਣਾ ਪਵੇਗਾ:

ਪ੍ਰਾਈਵੇਟ ਸਬ ਵਰਕਸ਼ੀਟ_ਚੇਂਜ (ਐਕਸਲ. ਰੇਂਜ ਦੇ ਤੌਰ 'ਤੇ ਵੈਵਲ ਟਾਰਗੇਟ) ਜੇਕਰ ਇੰਟਰਸੈਕਟ (ਟਾਰਗੇਟ, ਰੇਂਜ("A1:A10")) ਨਹੀਂ ਤਾਂ ਕੁਝ ਵੀ ਨਹੀਂ ਹੈ ਤਾਂ ਜੇਕਰ IsNumeric(Target.Value) ਤਾਂ Application.EnableEvents = False Target.Offset)(0) .Value = Target.Offset(1, 0)।Value + Target.Value Application.EnableEvents = True End If End ਜੇਕਰ End Sub  

ਇਹ ਮੰਨਿਆ ਜਾਂਦਾ ਹੈ ਕਿ ਡੇਟਾ ਰੇਂਜ A1:A10 ਦੇ ਸੈੱਲਾਂ ਵਿੱਚ ਦਾਖਲ ਕੀਤਾ ਗਿਆ ਹੈ, ਅਤੇ ਦਰਜ ਕੀਤੇ ਨੰਬਰਾਂ ਨੂੰ ਸੱਜੇ ਪਾਸੇ ਦੇ ਨਾਲ ਲੱਗਦੇ ਕਾਲਮ ਵਿੱਚ ਜੋੜਿਆ ਗਿਆ ਹੈ। ਜੇਕਰ ਤੁਹਾਡੇ ਕੇਸ ਵਿੱਚ ਇਹ ਨੇੜੇ ਨਹੀਂ ਹੈ, ਤਾਂ ਆਫਸੈੱਟ ਆਪਰੇਟਰ ਵਿੱਚ ਸੱਜੇ ਪਾਸੇ ਸ਼ਿਫਟ ਵਧਾਓ - 1 ਨੂੰ ਇੱਕ ਵੱਡੀ ਸੰਖਿਆ ਨਾਲ ਬਦਲੋ।

• ਮੈਕਰੋ ਕੀ ਹਨ, VBA ਵਿੱਚ ਮੈਕਰੋ ਕੋਡ ਕਿੱਥੇ ਪਾਉਣਾ ਹੈ, ਉਹਨਾਂ ਦੀ ਵਰਤੋਂ ਕਿਵੇਂ ਕਰਨੀ ਹੈ?