ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਦੇ ਜੋੜ ਨੂੰ ਕਲਿੱਪਬੋਰਡ 'ਤੇ ਕਾਪੀ ਕਰੋ

ਕਈ ਵਾਰ ਕੁਝ ਚੀਜ਼ਾਂ ਦੇ ਨਾਲ ਆਉਣ ਵਿੱਚ ਬਹੁਤ ਲੰਮਾ ਸਮਾਂ ਲੱਗਦਾ ਹੈ। ਪਰ ਜਦੋਂ ਉਹਨਾਂ ਦੀ ਪਹਿਲਾਂ ਹੀ ਖੋਜ ਕੀਤੀ ਗਈ ਹੈ, ਇਸ ਤੱਥ ਤੋਂ ਬਾਅਦ ਉਹ ਸਪੱਸ਼ਟ ਅਤੇ ਇੱਥੋਂ ਤੱਕ ਕਿ ਮਾਮੂਲੀ ਜਾਪਦੇ ਹਨ. ਲੜੀ ਤੋਂ "ਕੀ, ਇਹ ਸੰਭਵ ਸੀ?".

ਪਹਿਲੇ ਸੰਸਕਰਣਾਂ ਤੋਂ, ਮਾਈਕ੍ਰੋਸਾਫਟ ਐਕਸਲ ਵਿੰਡੋ ਦੇ ਹੇਠਾਂ ਸਥਿਤੀ ਪੱਟੀ ਰਵਾਇਤੀ ਤੌਰ 'ਤੇ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਲਈ ਕੁੱਲ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਦੀ ਹੈ:

ਜੇਕਰ ਲੋੜੀਦਾ ਹੋਵੇ, ਤਾਂ ਇਹਨਾਂ ਨਤੀਜਿਆਂ 'ਤੇ ਸੱਜਾ-ਕਲਿੱਕ ਕਰਨਾ ਅਤੇ ਸੰਦਰਭ ਮੀਨੂ ਤੋਂ ਚੁਣਨਾ ਵੀ ਸੰਭਵ ਸੀ ਕਿ ਅਸੀਂ ਕਿਹੜੇ ਫੰਕਸ਼ਨਾਂ ਨੂੰ ਦੇਖਣਾ ਚਾਹੁੰਦੇ ਹਾਂ:

ਅਤੇ ਹੁਣੇ-ਹੁਣੇ, ਨਵੀਨਤਮ ਐਕਸਲ ਅਪਡੇਟਾਂ ਵਿੱਚ, ਮਾਈਕ੍ਰੋਸਾਫਟ ਡਿਵੈਲਪਰਾਂ ਨੇ ਇੱਕ ਸਧਾਰਨ ਪਰ ਹੁਸ਼ਿਆਰ ਵਿਸ਼ੇਸ਼ਤਾ ਸ਼ਾਮਲ ਕੀਤੀ - ਹੁਣ ਜਦੋਂ ਤੁਸੀਂ ਇਹਨਾਂ ਨਤੀਜਿਆਂ 'ਤੇ ਕਲਿੱਕ ਕਰਦੇ ਹੋ, ਤਾਂ ਉਹ ਕਲਿੱਪਬੋਰਡ ਵਿੱਚ ਕਾਪੀ ਹੋ ਜਾਂਦੇ ਹਨ!

ਸੁੰਦਰਤਾ 

ਪਰ ਉਹਨਾਂ ਬਾਰੇ ਕੀ ਜਿਨ੍ਹਾਂ ਕੋਲ ਅਜੇ ਤੱਕ (ਜਾਂ ਪਹਿਲਾਂ ਹੀ?) ਐਕਸਲ ਦਾ ਅਜਿਹਾ ਸੰਸਕਰਣ ਨਹੀਂ ਹੈ? ਇਹ ਉਹ ਥਾਂ ਹੈ ਜਿੱਥੇ ਸਧਾਰਨ ਮੈਕਰੋ ਮਦਦ ਕਰ ਸਕਦੇ ਹਨ।

ਇੱਕ ਮੈਕਰੋ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਕਲਿੱਪਬੋਰਡ ਵਿੱਚ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਦੇ ਜੋੜ ਨੂੰ ਕਾਪੀ ਕਰਨਾ

ਟੈਬ ਵਿੱਚ ਖੋਲ੍ਹੋ ਡਿਵੈਲਪਰ (ਡਿਵੈਲਪਰ) ਸੰਪਾਦਕ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਜਾਂ ਇਸ ਕੀਬੋਰਡ ਸ਼ਾਰਟਕੱਟ ਦੀ ਵਰਤੋਂ ਕਰੋ Alt+F11. ਮੀਨੂ ਰਾਹੀਂ ਨਵਾਂ ਖਾਲੀ ਮੋਡੀਊਲ ਪਾਓ ਸੰਮਿਲਿਤ ਕਰੋ - ਮੋਡੀਊਲ ਅਤੇ ਹੇਠਾਂ ਦਿੱਤੇ ਕੋਡ ਨੂੰ ਉੱਥੇ ਕਾਪੀ ਕਰੋ:

Sub SumSelected() ਜੇਕਰ TypeName(Selected) <> "Range" ਤਾਂ GetObject ("ਨਵਾਂ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ਨਾਲ ਸਬ ਤੋਂ ਬਾਹਰ ਆਉ।SetText WorksheetFunction.Sumd(EnPedInc)ਸਬ-ਬੋਰਡ ਦੇ ਨਾਲ।  

ਇਸਦਾ ਤਰਕ ਸਧਾਰਨ ਹੈ:

• ਪਹਿਲਾਂ "ਮੂਰਖ ਤੋਂ ਸੁਰੱਖਿਆ" ਆਉਂਦੀ ਹੈ - ਅਸੀਂ ਜਾਂਚ ਕਰਦੇ ਹਾਂ ਕਿ ਅਸਲ ਵਿੱਚ ਕੀ ਉਜਾਗਰ ਕੀਤਾ ਗਿਆ ਹੈ। ਜੇਕਰ ਸੈੱਲ ਨਹੀਂ ਚੁਣੇ ਗਏ (ਪਰ, ਉਦਾਹਰਨ ਲਈ, ਇੱਕ ਚਾਰਟ), ਤਾਂ ਮੈਕਰੋ ਤੋਂ ਬਾਹਰ ਜਾਓ।
• ਫਿਰ ਕਮਾਂਡ ਦੀ ਵਰਤੋਂ ਕਰਕੇ Getobject ਅਸੀਂ ਇੱਕ ਨਵਾਂ ਡਾਟਾ ਆਬਜੈਕਟ ਬਣਾਉਂਦੇ ਹਾਂ ਜਿੱਥੇ ਸਾਡੇ ਚੁਣੇ ਹੋਏ ਸੈੱਲਾਂ ਦਾ ਜੋੜ ਬਾਅਦ ਵਿੱਚ ਸਟੋਰ ਕੀਤਾ ਜਾਵੇਗਾ। ਇੱਕ ਲੰਮਾ ਅਤੇ ਸਮਝ ਤੋਂ ਬਾਹਰ ਅਲਫਾਨਿਊਮੇਰਿਕ ਕੋਡ, ਅਸਲ ਵਿੱਚ, ਵਿੰਡੋਜ਼ ਰਜਿਸਟਰੀ ਸ਼ਾਖਾ ਦਾ ਇੱਕ ਲਿੰਕ ਹੈ ਜਿੱਥੇ ਲਾਇਬ੍ਰੇਰੀ ਸਥਿਤ ਹੈ ਮਾਈਕ੍ਰੋਸਾਫਟ ਫਾਰਮ 2.0 ਆਬਜੈਕਟ ਲਾਇਬ੍ਰੇਰੀ, ਜੋ ਅਜਿਹੀਆਂ ਵਸਤੂਆਂ ਬਣਾ ਸਕਦਾ ਹੈ। ਕਈ ਵਾਰ ਇਸ ਚਾਲ ਨੂੰ ਵੀ ਕਿਹਾ ਜਾਂਦਾ ਹੈ ਅਪ੍ਰਤੱਖ ਦੇਰ ਨਾਲ ਬਾਈਡਿੰਗ. ਜੇਕਰ ਤੁਸੀਂ ਇਸਦੀ ਵਰਤੋਂ ਨਹੀਂ ਕਰਦੇ ਹੋ, ਤਾਂ ਤੁਹਾਨੂੰ ਮੀਨੂ ਰਾਹੀਂ ਫਾਈਲ ਵਿੱਚ ਇਸ ਲਾਇਬ੍ਰੇਰੀ ਦਾ ਲਿੰਕ ਬਣਾਉਣਾ ਹੋਵੇਗਾ ਸੰਦ — ਹਵਾਲੇ.
• ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਦੇ ਜੋੜ ਨੂੰ ਕਮਾਂਡ ਮੰਨਿਆ ਜਾਂਦਾ ਹੈ WorksheetFunction.Sum(ਚੋਣ), ਅਤੇ ਫਿਰ ਨਤੀਜਾ ਰਕਮ ਕਮਾਂਡ ਨਾਲ ਕਲਿੱਪਬੋਰਡ 'ਤੇ ਰੱਖੀ ਜਾਂਦੀ ਹੈ ਪੁਟ ਇਨ ਕਲਿੱਪਬੋਰਡ

ਵਰਤੋਂ ਦੀ ਸੌਖ ਲਈ, ਤੁਸੀਂ, ਬੇਸ਼ਕ, ਬਟਨ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇਸ ਮੈਕਰੋ ਨੂੰ ਕੀਬੋਰਡ ਸ਼ਾਰਟਕੱਟ ਲਈ ਨਿਰਧਾਰਤ ਕਰ ਸਕਦੇ ਹੋ ਮੈਕਰੋ ਟੈਬ ਡਿਵੈਲਪਰ (ਵਿਕਾਸਕਾਰ - ਮੈਕਰੋਜ਼).

ਅਤੇ ਜੇਕਰ ਤੁਸੀਂ ਦੇਖਣਾ ਚਾਹੁੰਦੇ ਹੋ ਕਿ ਮੈਕਰੋ ਨੂੰ ਚਲਾਉਣ ਤੋਂ ਬਾਅਦ ਅਸਲ ਵਿੱਚ ਕੀ ਕਾਪੀ ਕੀਤਾ ਗਿਆ ਸੀ, ਤਾਂ ਤੁਸੀਂ ਸੰਬੰਧਿਤ ਸਮੂਹ ਦੇ ਹੇਠਲੇ ਸੱਜੇ ਕੋਨੇ ਵਿੱਚ ਛੋਟੇ ਤੀਰ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਕਲਿੱਪਬੋਰਡ ਪੈਨਲ ਨੂੰ ਚਾਲੂ ਕਰ ਸਕਦੇ ਹੋ. ਮੁੱਖ (ਘਰ) ਟੈਬ:

ਨਾ ਸਿਰਫ ਰਕਮ

ਜੇ, ਮਾਮੂਲੀ ਰਕਮ ਤੋਂ ਇਲਾਵਾ, ਤੁਸੀਂ ਕੁਝ ਹੋਰ ਚਾਹੁੰਦੇ ਹੋ, ਤਾਂ ਤੁਸੀਂ ਕਿਸੇ ਵੀ ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ ਜੋ ਆਬਜੈਕਟ ਸਾਨੂੰ ਪ੍ਰਦਾਨ ਕਰਦਾ ਹੈ ਵਰਕਸ਼ੀਟ ਫੰਕਸ਼ਨ:

ਉਦਾਹਰਨ ਲਈ, ਇੱਥੇ ਹੈ:

• ਜੋੜ – ਜੋੜ
• ਔਸਤ - ਗਣਿਤ ਦਾ ਮਤਲਬ
• ਗਿਣਤੀ - ਸੰਖਿਆਵਾਂ ਵਾਲੇ ਸੈੱਲਾਂ ਦੀ ਸੰਖਿਆ
• CountA - ਭਰੇ ਹੋਏ ਸੈੱਲਾਂ ਦੀ ਗਿਣਤੀ
• ਕਾਉਂਟ ਬਲੈਂਕ - ਖਾਲੀ ਸੈੱਲਾਂ ਦੀ ਗਿਣਤੀ
• ਘੱਟੋ-ਘੱਟ ਮੁੱਲ
• ਅਧਿਕਤਮ - ਅਧਿਕਤਮ ਮੁੱਲ
• ਮੱਧਮਾਨ - ਮੱਧਮਾਨ (ਕੇਂਦਰੀ ਮੁੱਲ)
• … ਆਦਿ

ਫਿਲਟਰ ਅਤੇ ਲੁਕਵੇਂ ਕਤਾਰ-ਕਾਲਮ ਸਮੇਤ

ਜੇ ਚੁਣੀ ਹੋਈ ਰੇਂਜ ਵਿੱਚ ਕਤਾਰਾਂ ਜਾਂ ਕਾਲਮ ਲੁਕੇ ਹੋਏ ਹਨ (ਹੱਥੀਂ ਜਾਂ ਫਿਲਟਰ ਦੁਆਰਾ) ਤਾਂ ਕੀ ਹੋਵੇਗਾ? ਉਹਨਾਂ ਨੂੰ ਕੁੱਲ ਵਿੱਚ ਨਾ ਲੈਣ ਲਈ, ਸਾਨੂੰ ਆਬਜੈਕਟ ਵਿੱਚ ਜੋੜ ਕੇ ਆਪਣੇ ਕੋਡ ਨੂੰ ਥੋੜ੍ਹਾ ਸੋਧਣਾ ਪਵੇਗਾ ਚੋਣ ਸੰਪਤੀ ਨੂੰ ਵਿਸ਼ੇਸ਼ ਸੈੱਲ(xlCellTypeVisible):

Sub SumVisible() ਜੇਕਰ TypeName(ਚੋਣ) <> "ਰੇਂਜ" ਤਾਂ GetObject ("ਨਵਾਂ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ਦੇ ਨਾਲ ਸਬ ਤੋਂ ਬਾਹਰ ਜਾਓ .SetText WorksheetFunction.Sum(selection)Sum(VecialCell) ਚੁਣੋ। ਪੁਟ ਇਨ ਕਲਿੱਪਬੋਰਡ ਐਂਡ ਸਬ ਨਾਲ ਅੰਤ  

ਇਸ ਸਥਿਤੀ ਵਿੱਚ, ਕਿਸੇ ਵੀ ਕੁੱਲ ਫੰਕਸ਼ਨ ਦੀ ਗਣਨਾ ਸਿਰਫ ਦਿਖਾਈ ਦੇਣ ਵਾਲੇ ਸੈੱਲਾਂ 'ਤੇ ਲਾਗੂ ਕੀਤੀ ਜਾਵੇਗੀ।

ਜੇਕਰ ਤੁਹਾਨੂੰ ਇੱਕ ਜੀਵਤ ਫਾਰਮੂਲੇ ਦੀ ਲੋੜ ਹੈ

ਜੇ ਤੁਸੀਂ ਸੁਪਨੇ ਦੇਖਦੇ ਹੋ, ਤਾਂ ਤੁਸੀਂ ਅਜਿਹੇ ਦ੍ਰਿਸ਼ਾਂ ਦੇ ਨਾਲ ਆ ਸਕਦੇ ਹੋ ਜਦੋਂ ਕਿਸੇ ਨੰਬਰ (ਸਥਿਰ) ਨੂੰ ਨਹੀਂ, ਸਗੋਂ ਬਫਰ ਵਿੱਚ ਇੱਕ ਜੀਵਿਤ ਫਾਰਮੂਲਾ ਕਾਪੀ ਕਰਨਾ ਬਿਹਤਰ ਹੁੰਦਾ ਹੈ, ਜੋ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਲਈ ਸਾਨੂੰ ਲੋੜੀਂਦੇ ਕੁੱਲਾਂ ਦੀ ਗਣਨਾ ਕਰਦਾ ਹੈ। ਇਸ ਸਥਿਤੀ ਵਿੱਚ, ਤੁਹਾਨੂੰ ਟੁਕੜਿਆਂ ਤੋਂ ਫਾਰਮੂਲੇ ਨੂੰ ਗੂੰਦ ਕਰਨਾ ਹੋਵੇਗਾ, ਇਸ ਵਿੱਚ ਡਾਲਰ ਦੇ ਚਿੰਨ੍ਹ ਨੂੰ ਹਟਾਉਣਾ ਅਤੇ ਕਾਮੇ (ਜੋ VBA ਵਿੱਚ ਕਈ ਚੁਣੀਆਂ ਗਈਆਂ ਰੇਂਜਾਂ ਦੇ ਪਤਿਆਂ ਦੇ ਵਿਚਕਾਰ ਇੱਕ ਵਿਭਾਜਨਕ ਵਜੋਂ ਵਰਤਿਆ ਜਾਂਦਾ ਹੈ) ਨੂੰ ਸੈਮੀਕੋਲਨ ਨਾਲ ਬਦਲਣਾ ਹੋਵੇਗਾ:

Sub SumFormula() ਜੇਕਰ TypeName(ਚੋਣ) <> "ਰੇਂਜ" ਤਾਂ GetObject ("ਨਵਾਂ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ਦੇ ਨਾਲ ਸਬ ਤੋਂ ਬਾਹਰ ਆਉ।SetText "=СУММ("&Selection(Replace)। ਪਤਾ, ",", ";"), "$", "") & ")" .PutInClipboard End Sub with End Sub  

ਵਾਧੂ ਸ਼ਰਤਾਂ ਦੇ ਨਾਲ ਸੰਖੇਪ

ਅਤੇ, ਅੰਤ ਵਿੱਚ, ਪੂਰੀ ਤਰ੍ਹਾਂ ਪਾਗਲਾਂ ਲਈ, ਤੁਸੀਂ ਇੱਕ ਮੈਕਰੋ ਲਿਖ ਸਕਦੇ ਹੋ ਜੋ ਸਾਰੇ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਨੂੰ ਨਹੀਂ, ਪਰ ਸਿਰਫ਼ ਉਹੀ ਜੋ ਦਿੱਤੀਆਂ ਸ਼ਰਤਾਂ ਨੂੰ ਪੂਰਾ ਕਰਦੇ ਹਨ। ਇਸ ਲਈ, ਉਦਾਹਰਨ ਲਈ, ਇੱਕ ਮੈਕਰੋ ਇਸ ਤਰ੍ਹਾਂ ਦਿਖਾਈ ਦੇਵੇਗਾ ਜੋ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਦੇ ਜੋੜ ਨੂੰ ਬਫਰ ਵਿੱਚ ਰੱਖਦਾ ਹੈ, ਜੇਕਰ ਉਹਨਾਂ ਦੇ ਮੁੱਲ 5 ਤੋਂ ਵੱਧ ਹਨ ਅਤੇ ਉਸੇ ਸਮੇਂ ਉਹ ਕਿਸੇ ਵੀ ਰੰਗ ਨਾਲ ਭਰੇ ਹੋਏ ਹਨ:

 Sub CustomCalc() ਰੇਂਜ ਦੇ ਤੌਰ 'ਤੇ ਮਾਈਰੇਂਜ ਨੂੰ ਮੱਧਮ ਕਰੋ ਜੇਕਰ TypeName(ਚੋਣ) <> "ਰੇਂਜ" ਫਿਰ ਚੋਣ ਵਿੱਚ ਹਰੇਕ ਸੈੱਲ ਲਈ ਸਬ ਤੋਂ ਬਾਹਰ ਨਿਕਲੋ ਜੇਕਰ cell.Value > 5 ਅਤੇ cell.Interior.ColorIndex <> xlNone ਫਿਰ ਜੇਕਰ myRange ਕੁਝ ਨਹੀਂ ਹੈ ਤਾਂ myRange = ਸੈੱਟ ਕਰੋ। ਸੈੱਲ ਹੋਰ ਸੈੱਟ ਕਰੋ myRange = Union(myRange, cell) End If End If End, GetObject ("ਨਵਾਂ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(MyPRang) ਦੇ ਨਾਲ End.  

ਜਿਵੇਂ ਕਿ ਤੁਸੀਂ ਆਸਾਨੀ ਨਾਲ ਕਲਪਨਾ ਕਰ ਸਕਦੇ ਹੋ, ਸ਼ਰਤਾਂ ਬਿਲਕੁਲ ਕਿਸੇ ਵੀ - ਸੈੱਲ ਫਾਰਮੈਟਾਂ ਤੱਕ - ਅਤੇ ਕਿਸੇ ਵੀ ਮਾਤਰਾ ਵਿੱਚ ਸੈੱਟ ਕੀਤੀਆਂ ਜਾ ਸਕਦੀਆਂ ਹਨ (ਉਨ੍ਹਾਂ ਨੂੰ ਲਾਜ਼ੀਕਲ ਓਪਰੇਟਰਾਂ ਜਾਂ ਜਾਂ ਅਤੇ ਅਤੇ ਨਾਲ ਜੋੜ ਕੇ)। ਕਲਪਨਾ ਲਈ ਬਹੁਤ ਜਗ੍ਹਾ ਹੈ.

• ਫਾਰਮੂਲੇ ਨੂੰ ਮੁੱਲਾਂ ਵਿੱਚ ਬਦਲੋ (6 ਤਰੀਕੇ)
• ਮੈਕਰੋ ਕੀ ਹਨ, ਉਹਨਾਂ ਦੀ ਵਰਤੋਂ ਕਿਵੇਂ ਕਰਨੀ ਹੈ, ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਕੋਡ ਕਿੱਥੇ ਪਾਉਣਾ ਹੈ
• ਮਾਈਕਰੋਸਾਫਟ ਐਕਸਲ ਦੇ ਸਟੇਟਸ ਬਾਰ ਵਿੱਚ ਉਪਯੋਗੀ ਜਾਣਕਾਰੀ