ਸਮੱਗਰੀ
ਕਿਸੇ ਨੂੰ ਪਸੰਦ ਹੈ, ਪਰ ਮੈਨੂੰ ਨਿੱਜੀ ਤੌਰ 'ਤੇ ਸਿਰਫ 2-3 ਮਾਮਲਿਆਂ ਵਿੱਚ ਸਥਿਤੀ ਪੱਟੀ ਦੀ ਲੋੜ ਹੈ:
- ਫਿਲਟਰ ਕਰਨ ਤੋਂ ਬਾਅਦ, ਇਹ ਚੋਣ ਤੋਂ ਬਾਅਦ ਬਾਕੀ ਬਚੇ ਮੁੱਲਾਂ ਦੀ ਗਿਣਤੀ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਦਾ ਹੈ
- ਜਦੋਂ ਇੱਕ ਰੇਂਜ ਚੁਣੀ ਜਾਂਦੀ ਹੈ, ਤਾਂ ਇਹ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਦੀ ਜੋੜ, ਔਸਤ ਅਤੇ ਸੰਖਿਆ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਦੀ ਹੈ
- ਭਾਰੀ ਫਾਈਲਾਂ ਦੇ ਮਾਮਲੇ ਵਿੱਚ, ਤੁਸੀਂ ਕਿਤਾਬ ਵਿੱਚ ਫਾਰਮੂਲੇ ਦੀ ਮੁੜ ਗਣਨਾ ਕਰਨ ਵਿੱਚ ਪ੍ਰਗਤੀ ਦੇਖ ਸਕਦੇ ਹੋ।
ਇੱਕ ਲਾਈਨ ਲਈ ਇੰਨਾ ਜ਼ਿਆਦਾ ਨਹੀਂ ਜੋ ਸਕ੍ਰੀਨ ਦੀ ਲਗਭਗ ਪੂਰੀ ਚੌੜਾਈ ਨੂੰ ਲੈ ਲੈਂਦੀ ਹੈ ਅਤੇ ਹਰ ਸਮੇਂ ਇਸ 'ਤੇ ਲਟਕਦੀ ਰਹਿੰਦੀ ਹੈ। ਆਉ ਇਸ ਮਾਮੂਲੀ ਸੂਚੀ ਨੂੰ ਵਧਾਉਣ ਦੀ ਕੋਸ਼ਿਸ਼ ਕਰੀਏ ਅਤੇ ਇਸ ਵਿੱਚ ਕੁਝ ਹੋਰ ਉਪਯੋਗੀ ਵਿਸ਼ੇਸ਼ਤਾਵਾਂ ਸ਼ਾਮਲ ਕਰੀਏ 🙂
ਸਥਿਤੀ ਪੱਟੀ ਦੇ ਪ੍ਰਬੰਧਨ ਲਈ ਆਮ ਸਿਧਾਂਤ
ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਨਾਲ ਸਟੇਟਸ ਬਾਰ ਦਾ ਪ੍ਰਬੰਧਨ ਕਰਨਾ ਬਹੁਤ ਆਸਾਨ ਹੈ। ਇਸ ਵਿੱਚ ਆਪਣਾ ਟੈਕਸਟ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਨ ਲਈ, ਤੁਸੀਂ ਇੱਕ ਸਧਾਰਨ ਮੈਕਰੋ ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ:
Sub MyStatus() Application.StatusBar = "Privет!" ਸਮਾਪਤੀ ਉਪ
ਇਸਨੂੰ ਚਲਾਉਣ ਤੋਂ ਬਾਅਦ, ਸਾਨੂੰ ਮਿਲਦਾ ਹੈ:
ਸਟੇਟਸ ਬਾਰ ਦੀ ਅਸਲ ਸਥਿਤੀ ਨੂੰ ਬਹਾਲ ਕਰਨ ਲਈ, ਤੁਹਾਨੂੰ ਉਸੇ ਛੋਟੇ "ਐਂਟੀ-ਮੈਕਰੋ" ਦੀ ਲੋੜ ਹੋਵੇਗੀ:
Sub MyStatus_Off() ਐਪਲੀਕੇਸ਼ਨ.StatusBar = ਗਲਤ ਅੰਤ ਸਬ
ਬੁਨਿਆਦੀ ਸੰਸਕਰਣ ਵਿੱਚ, ਜਿਵੇਂ ਕਿ ਤੁਸੀਂ ਵੇਖ ਸਕਦੇ ਹੋ, ਹਰ ਚੀਜ਼ ਬਹੁਤ ਸਧਾਰਨ ਹੈ. ਆਉ ਹੁਣ ਵਿਚਾਰ ਨੂੰ ਵਿਕਸਿਤ ਕਰਨ ਦੀ ਕੋਸ਼ਿਸ਼ ਕਰੀਏ...
ਸਟੇਟਸ ਬਾਰ ਵਿੱਚ ਚੁਣੀ ਗਈ ਰੇਂਜ ਦਾ ਪਤਾ
ਫਾਰਮੂਲਾ ਬਾਰ ਵਿੱਚ ਐਕਸਲ ਵਿੰਡੋ ਦੇ ਉੱਪਰ ਖੱਬੇ ਕੋਨੇ ਵਿੱਚ, ਤੁਸੀਂ ਹਮੇਸ਼ਾਂ ਮੌਜੂਦਾ ਸੈੱਲ ਦਾ ਪਤਾ ਦੇਖ ਸਕਦੇ ਹੋ। ਪਰ ਜੇਕਰ ਇੱਕ ਪੂਰੀ ਰੇਂਜ ਚੁਣੀ ਜਾਂਦੀ ਹੈ, ਤਾਂ, ਬਦਕਿਸਮਤੀ ਨਾਲ, ਅਸੀਂ ਉੱਥੇ ਚੋਣ ਪਤਾ ਨਹੀਂ ਦੇਖਾਂਗੇ - ਉਹੀ ਇੱਕ ਸਿੰਗਲ ਐਕਟਿਵ ਸੈੱਲ ਪ੍ਰਦਰਸ਼ਿਤ ਹੁੰਦਾ ਹੈ:
ਇਸ ਸਮੱਸਿਆ ਨੂੰ ਹੱਲ ਕਰਨ ਲਈ, ਤੁਸੀਂ ਇੱਕ ਸਧਾਰਨ ਮੈਕਰੋ ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ ਜੋ ਸਟੇਟਸ ਬਾਰ ਵਿੱਚ ਚੁਣੇ ਗਏ ਖੇਤਰ ਦਾ ਪਤਾ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰੇਗਾ। ਇਸ ਤੋਂ ਇਲਾਵਾ, ਇਸ ਮੈਕਰੋ ਨੂੰ ਕਿਸੇ ਵੀ ਸ਼ੀਟ 'ਤੇ ਚੋਣ ਵਿੱਚ ਕਿਸੇ ਵੀ ਬਦਲਾਅ ਦੇ ਨਾਲ, ਆਪਣੇ ਆਪ ਲਾਂਚ ਕੀਤਾ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ - ਇਸਦੇ ਲਈ ਅਸੀਂ ਇਸਨੂੰ ਇਵੈਂਟ ਹੈਂਡਲਰ ਵਿੱਚ ਰੱਖਾਂਗੇ ਸਿਲੈਕਸ਼ਨ ਚੇਂਜ ਸਾਡੀ ਕਿਤਾਬ.
ਟੈਬ 'ਤੇ ਉਸੇ ਨਾਮ ਦੇ ਬਟਨ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਖੋਲ੍ਹੋ ਡਿਵੈਲਪਰ (ਡਿਵੈਲਪਰ) ਜਾਂ ਕੀਬੋਰਡ ਸ਼ਾਰਟਕੱਟ ਖੱਬਾ Alt+F11. ਪ੍ਰੋਜੈਕਟ ਪੈਨਲ ਦੇ ਉੱਪਰਲੇ ਖੱਬੇ ਕੋਨੇ ਵਿੱਚ ਆਪਣੀ ਕਿਤਾਬ ਲੱਭੋ ਅਤੇ ਡਬਲ-ਕਲਿੱਕ ਕਰਕੇ ਇਸ ਵਿੱਚ ਮੋਡੀਊਲ ਖੋਲ੍ਹੋ ਇਹ ਕਿਤਾਬ (ਇਹ ਵਰਕਬੁੱਕ):
ਖੁੱਲਣ ਵਾਲੀ ਵਿੰਡੋ ਵਿੱਚ, ਹੇਠਾਂ ਦਿੱਤੇ ਮੈਕਰੋ ਕੋਡ ਨੂੰ ਕਾਪੀ ਅਤੇ ਪੇਸਟ ਕਰੋ:
ਪ੍ਰਾਈਵੇਟ ਸਬ ਵਰਕਬੁੱਕ_ਸ਼ੀਟ-ਚੋਣ ਤਬਦੀਲੀ(ByVal Sh ਦੇ ਰੂਪ ਵਿੱਚ ਵਸਤੂ, ByVal ਟਾਰਗੇਟ ਇੱਕ ਰੇਂਜ ਵਜੋਂ) ਐਪਲੀਕੇਸ਼ਨ. StatusBar = "Выделено: " & Selection.Address(0, 0) ਅੰਤ ਉਪ
ਹੁਣ, ਜਦੋਂ ਕੋਈ ਵੀ ਰੇਂਜ ਚੁਣੀ ਜਾਂਦੀ ਹੈ (ਇੱਕ ਤੋਂ ਵੱਧ ਸਮੇਤ!), ਇਸਦਾ ਪਤਾ ਸਟੇਟਸ ਬਾਰ ਵਿੱਚ ਪ੍ਰਦਰਸ਼ਿਤ ਕੀਤਾ ਜਾਵੇਗਾ:
Ctrl ਨਾਲ ਚੁਣੀਆਂ ਗਈਆਂ ਕਈ ਰੇਂਜਾਂ ਦੇ ਪਤਿਆਂ ਨੂੰ ਵਿਲੀਨ ਹੋਣ ਤੋਂ ਰੋਕਣ ਲਈ, ਤੁਸੀਂ ਇੱਕ ਛੋਟਾ ਸੁਧਾਰ ਜੋੜ ਸਕਦੇ ਹੋ - ਇੱਕ ਕਾਮੇ ਨੂੰ ਇੱਕ ਸਪੇਸ ਨਾਲ ਕਾਮੇ ਨਾਲ ਬਦਲਣ ਲਈ ਬਦਲੋ ਫੰਕਸ਼ਨ ਦੀ ਵਰਤੋਂ ਕਰੋ:
ਪ੍ਰਾਈਵੇਟ ਸਬ ਵਰਕਬੁੱਕ_ਸ਼ੀਟ-ਚੋਣ ਤਬਦੀਲੀ(ByVal Sh ਦੇ ਤੌਰ 'ਤੇ ਆਬਜੈਕਟ, ByVal ਟੀਚਾ ਰੇਂਜ ਵਜੋਂ) ਐਪਲੀਕੇਸ਼ਨ. StatusBar = "Выделено: " ਅਤੇ ਬਦਲੋ(ਚੋਣ. ਐਡਰੈੱਸ(0, 0), ",", ", ") ਅੰਤ ਉਪ
ਸਥਿਤੀ ਪੱਟੀ ਵਿੱਚ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਦੀ ਸੰਖਿਆ
ਜਦੋਂ ਕੋਈ ਰੇਂਜ ਚੁਣੀ ਜਾਂਦੀ ਹੈ, ਤਾਂ ਡਿਫੌਲਟ ਤੌਰ 'ਤੇ ਸਟੇਟਸ ਬਾਰ ਦੇ ਸੱਜੇ ਪਾਸੇ ਗੈਰ-ਖਾਲੀ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਦੀ ਸੰਖਿਆ ਪ੍ਰਦਰਸ਼ਿਤ ਹੁੰਦੀ ਹੈ। ਕਈ ਵਾਰ ਤੁਹਾਨੂੰ ਅਲਾਟ ਕੀਤੇ ਗਏ ਨੰਬਰ ਨੂੰ ਜਾਣਨ ਦੀ ਲੋੜ ਹੁੰਦੀ ਹੈ। ਇਹ ਕੰਮ ਚੋਣ-ਚੇਂਜ ਬੁੱਕ ਇਵੈਂਟ ਨੂੰ ਸੰਭਾਲਣ ਲਈ ਇੱਕ ਸਧਾਰਨ ਮੈਕਰੋ ਨਾਲ ਵੀ ਪੂਰਾ ਕੀਤਾ ਜਾ ਸਕਦਾ ਹੈ, ਜਿਵੇਂ ਕਿ ਪਿਛਲੀ ਉਦਾਹਰਨ ਵਿੱਚ। ਤੁਹਾਨੂੰ ਇੱਕ ਮੈਕਰੋ ਦੀ ਲੋੜ ਹੋਵੇਗੀ ਜਿਵੇਂ ਕਿ:
ਪ੍ਰਾਈਵੇਟ ਸਬ ਵਰਕਬੁੱਕ_ਸ਼ੀਟ-ਚੋਣਚੇਂਜ(ByVal Sh ਦੇ ਤੌਰ 'ਤੇ ਆਬਜੈਕਟ, ByVal ਟਾਰਗੇਟ ਦੇ ਰੂਪ ਵਿੱਚ) ਵੇਰੀਐਂਟ ਦੇ ਤੌਰ 'ਤੇ ਮੱਧਮ ਸੈੱਲਕਾਉਂਟ, ਚੋਣ ਵਿੱਚ ਹਰੇਕ rng ਲਈ ਰੇਂਜ ਦੇ ਤੌਰ 'ਤੇ rng। ਖੇਤਰ' ਸਾਰੀਆਂ ਚੋਣਵਾਂ ਵਿੱਚ ਦੁਹਰਾਓ RowsCount = rng.Rows.Count' ਕਤਾਰਾਂ ਦੀ ਗਿਣਤੀ = ਗਿਣਤੀ ਕਾਲਮਾਂ ਦੀ ਗਿਣਤੀ। . ਕਾਲਮਾਂ ਦੀ ਗਿਣਤੀ 'ਕਾਲਮਾਂ ਦੀ ਗਿਣਤੀ CellCount = CellCount + RowsCount * ColumnsCount' ਸੈੱਲਾਂ ਦੀ ਕੁੱਲ ਸੰਖਿਆ ਨੂੰ ਇਕੱਠਾ ਕਰੋ ਅੱਗੇ' ਸਥਿਤੀ ਪੱਟੀ ਵਿੱਚ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰੋ ਐਪਲੀਕੇਸ਼ਨ. StatusBar = "ਚੁਣਿਆ ਹੋਇਆ: " & CellCount & " ਸੈੱਲ" ਅੰਤ ਉਪ
ਇਹ ਮੈਕਰੋ ਸਾਰੇ Ctrl-ਚੁਣੇ ਖੇਤਰਾਂ (ਜੇ ਇੱਕ ਤੋਂ ਵੱਧ ਹਨ) ਵਿੱਚੋਂ ਲੰਘਦਾ ਹੈ, RowsCount ਅਤੇ ColumnsCount ਵੇਰੀਏਬਲ ਵਿੱਚ ਹਰੇਕ ਖੇਤਰ ਵਿੱਚ ਕਤਾਰਾਂ ਅਤੇ ਕਾਲਮਾਂ ਦੀ ਸੰਖਿਆ ਨੂੰ ਸਟੋਰ ਕਰਦਾ ਹੈ, ਅਤੇ CellCount ਵੇਰੀਏਬਲ ਵਿੱਚ ਸੈੱਲਾਂ ਦੀ ਸੰਖਿਆ ਨੂੰ ਇਕੱਠਾ ਕਰਦਾ ਹੈ, ਜੋ ਫਿਰ ਪ੍ਰਦਰਸ਼ਿਤ ਹੁੰਦਾ ਹੈ। ਸਥਿਤੀ ਪੱਟੀ ਵਿੱਚ. ਕੰਮ 'ਤੇ ਇਹ ਇਸ ਤਰ੍ਹਾਂ ਦਿਖਾਈ ਦੇਵੇਗਾ:
ਬੇਸ਼ੱਕ, ਤੁਸੀਂ ਚੁਣੀ ਹੋਈ ਰੇਂਜ ਦਾ ਪਤਾ ਅਤੇ ਇੱਕੋ ਸਮੇਂ ਸੈੱਲਾਂ ਦੀ ਗਿਣਤੀ ਦੋਵਾਂ ਨੂੰ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਨ ਲਈ ਇਸ ਅਤੇ ਪਿਛਲੇ ਮੈਕਰੋ ਨੂੰ ਜੋੜ ਸਕਦੇ ਹੋ। ਤੁਹਾਨੂੰ ਸਿਰਫ਼ ਇੱਕ ਅੰਤਮ ਲਾਈਨ ਨੂੰ ਇਸ ਵਿੱਚ ਬਦਲਣ ਦੀ ਲੋੜ ਹੈ:
Application.StatusBar = "ਚੁਣਿਆ ਗਿਆ:" ਅਤੇ ਬਦਲੋ(ਚੋਣ.ਪਤਾ(0, 0), ",", ", ") ਅਤੇ "- ਕੁੱਲ " & CellCount & " ਸੈੱਲ"
ਫਿਰ ਤਸਵੀਰ ਬਹੁਤ ਸ਼ਾਨਦਾਰ ਹੋਵੇਗੀ:
ਖੈਰ, ਮੈਨੂੰ ਲਗਦਾ ਹੈ ਕਿ ਤੁਹਾਨੂੰ ਇਹ ਵਿਚਾਰ ਮਿਲ ਗਿਆ ਹੈ. ਟਿੱਪਣੀਆਂ ਵਿੱਚ ਸੁਝਾਅ ਦਿਓ - ਸਥਿਤੀ ਪੱਟੀ ਵਿੱਚ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਨ ਲਈ ਹੋਰ ਕੀ ਲਾਭਦਾਇਕ ਹੋਵੇਗਾ?
- ਮੈਕਰੋ ਕੀ ਹਨ, ਉਹ ਕਿਵੇਂ ਕੰਮ ਕਰਦੇ ਹਨ, ਉਹਨਾਂ ਨੂੰ ਕਿਵੇਂ ਵਰਤਣਾ ਹੈ ਅਤੇ ਬਣਾਉਣਾ ਹੈ
- ਐਕਸਲ ਸ਼ੀਟ 'ਤੇ ਸੁਵਿਧਾਜਨਕ ਤਾਲਮੇਲ ਚੋਣ
- ਗੁੰਝਲਦਾਰ ਫਾਰਮੂਲੇ ਨੂੰ ਹੋਰ ਵਿਜ਼ੂਅਲ ਕਿਵੇਂ ਬਣਾਇਆ ਜਾਵੇ