ਟਿਊਟੋਰਿਅਲ ਦਿਖਾਉਂਦਾ ਹੈ ਕਿ VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਸੈੱਲ ਦੇ ਅੰਦਰ ਡੁਪਲੀਕੇਟ ਸ਼ਬਦਾਂ ਜਾਂ ਟੈਕਸਟ ਸਤਰ ਨੂੰ ਕਿਵੇਂ ਹਾਈਲਾਈਟ ਕਰਨਾ ਹੈ।

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

ਟੈਕਸਟ ਕੇਸ ਨੂੰ ਅਣਡਿੱਠ ਕਰਦੇ ਹੋਏ ਸੈੱਲ ਵਿੱਚ ਡੁਪਲੀਕੇਟ ਸ਼ਬਦਾਂ ਨੂੰ ਹਾਈਲਾਈਟ ਕਰੋ

ਇਹ ਉਦਾਹਰਨ ਦਿਖਾਉਂਦਾ ਹੈ ਕਿ ਸੈੱਲ ਦੇ ਅੰਦਰ ਡੁਪਲੀਕੇਟ ਸ਼ਬਦਾਂ ਜਾਂ ਟੈਕਸਟ ਸਤਰ ਨੂੰ ਲਾਲ ਫੌਂਟ ਰੰਗ ਵਿੱਚ ਕਿਵੇਂ ਸ਼ੇਡ ਕਰਨਾ ਹੈ ਜਿਵੇਂ ਕਿ ਹੇਠਾਂ ਚਿੱਤਰ ਵਿੱਚ ਦਿਖਾਇਆ ਗਿਆ ਹੈ। ਕਿਰਪਾ ਕਰਕੇ ਧਿਆਨ ਦਿਓ ਕਿ ਛੋਟੇ ਅੱਖਰਾਂ ਅਤੇ ਵੱਡੇ ਅੱਖਰਾਂ ਨੂੰ ਇੱਕੋ ਅੱਖਰ ਮੰਨਿਆ ਜਾਂਦਾ ਹੈ। ਉਦਾਹਰਨ ਲਈ, ਸੰਤਰੀ , ORANGE ਅਤੇ Orange ਨੂੰ ਇੱਕੋ ਸ਼ਬਦ ਮੰਨਿਆ ਜਾਂਦਾ ਹੈ।

The ਮੈਕਰੋ ਦਾ ਕੋਡ ਇਸ ਪ੍ਰਕਾਰ ਹੈ:

ਪਬਲਿਕ ਸਬ ਹਾਈਲਾਈਟਡੁਪਸਕੇਸ ਇਨਸੈਂਸਟਿਵ() ਰੇਂਜ ਦੇ ਤੌਰ 'ਤੇ ਡਿਮ ਸੈੱਲ ਡਿਮ ਡੈਲੀਮੀਟਰ ਜਿਵੇਂ ਸਟ੍ਰਿੰਗ ਡੀਲੀਮੀਟਰ = ਇਨਪੁਟਬਾਕਸ ("ਸੀਮਾਕ ਦਰਜ ਕਰੋ ਜੋ ਇੱਕ ਸੈੱਲ ਵਿੱਚ ਮੁੱਲਾਂ ਨੂੰ ਵੱਖਰਾ ਕਰਦਾ ਹੈ" , "ਡੀਲੀਮੀਟਰ" , ", " ) ਹਰੇਕ ਸੈੱਲ ਵਿੱਚ ਲਈApplication.Selection Cell HighlightDupeWordsInCell(Cell, Delimiter, False) Next End Sub Sub HighlightDupeWordsInCell(Cell As Range, Optional Delimiter as String = "" , ਵਿਕਲਪਿਕ CaseSensitive As Boolean = True ) ਡਿਮ ਟੈਕਸਟ ਐਜ਼ ਸਟ੍ਰਿੰਗ (ਸ਼ਬਦ ਦੇ ਰੂਪ ਵਿੱਚ Dim) ਸਤਰ ਮੱਧਮ ਵਰਡਇੰਡੈਕਸ, ਮੈਚਕਾਉਂਟ, ਪੋਜੀਸ਼ਨ ਇਨਟੈਕਸਟ ਪੂਰਨ ਅੰਕ ਦੇ ਤੌਰ 'ਤੇ ਜੇਕਰ CaseSensitive ਫਿਰ ਸ਼ਬਦ = Split(Cell.Value, Delimiter) ਬਾਕੀ ਸ਼ਬਦ = Split(LCase(Cell.Value), ਡੀਲੀਮੀਟਰ) End If for wordIndex = LBound (ਸ਼ਬਦਾਂ) ਤੋਂ UBound (ਸ਼ਬਦ) - 1 ਸ਼ਬਦ = ਸ਼ਬਦ(wordIndex) matchCount = 0 for nextWordIndex = wordIndex + 1 ਤੋਂ UBound (ਸ਼ਬਦ) ਜੇਕਰ ਸ਼ਬਦ = ਸ਼ਬਦ(nextWordIndex) ਫਿਰ matchCount = matchCount + 1 End ਜੇਕਰ ਅਗਲਾ nextWordIndex ਜੇਕਰ matchCount > 0 ਫਿਰ ਟੈਕਸਟ = "" ਲਈ ਇੰਡੈਕਸ = LBound (ਸ਼ਬਦ) ਤੋਂ UBound (ਸ਼ਬਦ) ਟੈਕਸਟ = ਟੈਕਸਟ & ਸ਼ਬਦ(ਸੂਚਕਾਂਕ) ਜੇਕਰ (ਸ਼ਬਦ(ਇੰਡੈਕਸ) = ਸ਼ਬਦ) ਤਾਂ ਸੈੱਲ। ਅੱਖਰ(ਲੈਨ(ਟੈਕਸਟ) - ਲੈਨ(ਸ਼ਬਦ) + 1, ਲੈਨ(ਸ਼ਬਦ))।ਫੋਂਟ. ਰੰਗ = vbRed End If text = text & ਡੀਲੀਮੀਟਰ ਨੈਕਸਟ ਐਂਡ ਜੇ ਅਗਲਾ ਵਰਡ ਇੰਡੈਕਸ ਐਂਡ ਸਬ

ਸੈੱਲ ਕੇਸ-ਸੰਵੇਦਨਸ਼ੀਲ ਵਿੱਚ ਡੁਪਲੀਕੇਟ ਟੈਕਸਟ ਨੂੰ ਹਾਈਲਾਈਟ ਕਰੋ

ਜ਼ਿਆਦਾਤਰ ਸਥਿਤੀਆਂ ਵਿੱਚ, ਅਸੀਂ ਐਕਸਲ ਵਿੱਚ ਟੈਕਸਟ ਐਂਟਰੀਆਂ ਨਾਲ ਕੰਮ ਕਰਦੇ ਸਮੇਂ ਅੱਖਰ ਕੇਸ ਨੂੰ ਨਜ਼ਰਅੰਦਾਜ਼ ਕਰਦੇ ਹਾਂ। ਕੁਝ ਖਾਸ ਹਾਲਤਾਂ ਵਿੱਚ, ਹਾਲਾਂਕਿ, ਟੈਕਸਟ ਕੇਸ ਮਾਇਨੇ ਰੱਖਦਾ ਹੈ। ਉਦਾਹਰਨ ਲਈ, ਜੇਕਰ ਤੁਸੀਂ ਆਈਡੀ, ਪਾਸਵਰਡ, ਜਾਂ ਇਸ ਕਿਸਮ ਦੇ ਹੋਰ ਰਿਕਾਰਡਾਂ ਨਾਲ ਕੰਮ ਕਰ ਰਹੇ ਹੋ, ਤਾਂ ਸਤਰ ਜਿਵੇਂ ਕਿ 1-AA , 1-aa ਅਤੇ 1-Aa ਡੁਪਲੀਕੇਟ ਨਹੀਂ ਹਨ ਅਤੇ ਇਹਨਾਂ ਨੂੰ ਹਾਈਲਾਈਟ ਨਹੀਂ ਕੀਤਾ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ:

ਇਸ ਕੇਸ ਵਿੱਚ,ਕੋਡ ਦੇ ਹੇਠਾਂ ਦਿੱਤੇ ਸੰਸਕਰਣ ਦੀ ਵਰਤੋਂ ਕਰੋ:

ਪਬਲਿਕ ਸਬ ਹਾਈਲਾਈਟਡੁਪਸਕੇਸਸੈਂਸੀਟਿਵ() ਰੇਂਜ ਡਿਮ ਡੀਲੀਮੀਟਰ ਦੇ ਤੌਰ 'ਤੇ ਸਟ੍ਰਿੰਗ ਡੀਲੀਮੀਟਰ ਦੇ ਤੌਰ 'ਤੇ ਡਿਮ ਸੈੱਲ = ਇਨਪੁਟ ਬਾਕਸ ("ਸੀਮਬੰਦੀ ਦਰਜ ਕਰੋ ਜੋ ਇੱਕ ਸੈੱਲ ਵਿੱਚ ਮੁੱਲਾਂ ਨੂੰ ਵੱਖਰਾ ਕਰਦਾ ਹੈ" , "ਡੀਲੀਮੀਟਰ" , ", " ) ਹਰੇਕ ਲਈ ਐਪਲੀਕੇਸ਼ਨ ਵਿੱਚ ਸੈੱਲ। ਚੋਣ ਕਾਲ ਹਾਈਲਾਈਟDupeWordsInCell(ਸੈੱਲ, ਡੈਲੀਮੀਟਰ, ਟਰੂ) ਅਗਲਾ ਅੰਤ ਸਬ ਹਾਈਲਾਈਟਡੁਪਵਰਡਸ ਇਨਸੈਲ (ਰੇਂਜ ਵਜੋਂ ਸੈੱਲ, ਵਿਕਲਪਿਕ ਡੀਲੀਮੀਟਰ ਸਟ੍ਰਿੰਗ = "" , ਬੁਲੀਅਨ = ਟਰੂ ਦੇ ਤੌਰ 'ਤੇ ਵਿਕਲਪਿਕ ਕੇਸ ਸੰਵੇਦਨਸ਼ੀਲ) ਡਿਮ ਟੈਕਸਟ ਡਿਮ ਟੈਕਸਟ ਡਾਇਮ ਸਟ੍ਰਿੰਗ ਦੇ ਤੌਰ 'ਤੇ) ਸ਼ਬਦ ਸਟ੍ਰਿੰਗ ਦੇ ਤੌਰ 'ਤੇ ਮੱਧਮ ਵਰਡਇੰਡੈਕਸ, ਮੈਚਕਾਉਂਟ, ਪੋਜੀਸ਼ਨ ਇਨਟੈਕਸਟ ਪੂਰਨ ਅੰਕ ਦੇ ਤੌਰ 'ਤੇ ਜੇਕਰ CaseSensitive ਤਾਂ ਸ਼ਬਦ = Split(Cell.Value, Delimiter) ਬਾਕੀ ਸ਼ਬਦ = Split(LCase(Cell.Value), ਡੀਲੀਮੀਟਰ) End If WordIndex = LBound (ਸ਼ਬਦਾਂ) ਤੋਂ UBound ( ਸ਼ਬਦ) - 1 ਸ਼ਬਦ = ਸ਼ਬਦ(ਵਰਡਇੰਡੈਕਸ) ਮੈਚਕਾਉਂਟ = 0 ਲਈ nextWordIndex = wordIndex + 1 ਤੋਂ UBound (ਸ਼ਬਦ) ਜੇਕਰ ਸ਼ਬਦ = ਸ਼ਬਦ(nextWordIndex) ਫਿਰ matchCount = matchCount + 1 End ਜੇਕਰ ਅਗਲਾ nextWordIndex ਜੇਕਰ matchCount > 0 ਫਿਰ ਟੈਕਸਟ = "" ਲਈ ਇੰਡੈਕਸ = LBound (ਸ਼ਬਦ) ਤੋਂ UBound (ਸ਼ਬਦ) ਟੈਕਸਟ = ਟੈਕਸਟ & ਸ਼ਬਦ(ਸੂਚਕਾਂਕ) ਜੇਕਰ (ਸ਼ਬਦ(ਇੰਡੈਕਸ) = ਸ਼ਬਦ) ਤਾਂ ਸੈੱਲ। ਅੱਖਰ(ਲੈਨ(ਟੈਕਸਟ) - ਲੈਨ(ਸ਼ਬਦ) + 1, ਲੈਨ(ਸ਼ਬਦ))।ਫੋਂਟ. ਰੰਗ = vbRed End If text = text & ਡੀਲੀਮੀਟਰ ਨੈਕਸਟ ਐਂਡ ਜੇ ਅਗਲਾ ਵਰਡਇੰਡੈਕਸ ਐਂਡ ਸਬ

ਐਕਸਲ ਵਿੱਚ ਡੁਪਲੀਕੇਟ ਸ਼ਬਦਾਂ ਨੂੰ ਹਾਈਲਾਈਟ ਕਰਨ ਲਈ ਮੈਕਰੋ ਦੀ ਵਰਤੋਂ ਕਿਵੇਂ ਕਰੀਏ

ਜੇਕਰ ਤੁਸੀਂ VBA ਦੀ ਵਰਤੋਂ ਕਰਨ ਦੇ ਸ਼ੁਰੂਆਤੀ ਹੋ, ਤਾਂ ਹੇਠਾਂ ਦਿੱਤੇ ਕਦਮ-ਦਰ-ਕਦਮ ਨਿਰਦੇਸ਼ ਤੁਹਾਨੂੰ ਆਰਾਮ ਨਾਲ ਲੈ ਜਾਣਗੇ। . ਤਜਰਬੇਕਾਰ ਉਪਭੋਗਤਾ ਹੋ ਸਕਦੇ ਹਨਬੱਸ ਡਾਉਨਲੋਡ ਲਿੰਕ ਨੂੰ ਚੁਣੋ ਅਤੇ ਬਾਕੀ ਨੂੰ ਛੱਡ ਦਿਓ :)

ਆਪਣੀ ਵਰਕਬੁੱਕ ਵਿੱਚ ਕੋਡ ਸ਼ਾਮਲ ਕਰੋ

ਤੁਸੀਂ ਆਪਣੀ ਐਕਸਲ ਵਰਕਬੁੱਕ ਵਿੱਚ ਮੈਕਰੋ ਦੇ ਕੋਡ ਨੂੰ ਸੰਮਿਲਿਤ ਕਰਨ ਨਾਲ ਸ਼ੁਰੂ ਕਰਦੇ ਹੋ। ਇੱਥੇ ਇਸ ਤਰ੍ਹਾਂ ਹੈ:

1. ਵਰਕਬੁੱਕ ਨੂੰ ਖੋਲ੍ਹੋ ਜਿੱਥੇ ਤੁਸੀਂ ਡੁਪਸ ਨੂੰ ਹਾਈਲਾਈਟ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ।
2. ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਨੂੰ ਖੋਲ੍ਹਣ ਲਈ Alt + F11 ਦਬਾਓ।
3. ਖੱਬੇ ਪੈਨ 'ਤੇ, ਇਹ ਵਰਕਬੁੱਕ ਉੱਤੇ ਸੱਜਾ-ਕਲਿੱਕ ਕਰੋ ਅਤੇ ਸੰਦਰਭ ਮੀਨੂ ਤੋਂ ਸ਼ਾਮਲ ਕਰੋ > ਮੋਡਿਊਲ ਚੁਣੋ।
4. ਕੋਡ ਵਿੰਡੋ ਵਿੱਚ ਕੋਡ ਪੇਸਟ ਕਰੋ।
5. ਮੈਕਰੋ ਨੂੰ ਭਵਿੱਖ ਵਿੱਚ ਵਰਤੋਂ ਲਈ ਰੱਖਣ ਲਈ, ਆਪਣੀ ਵਰਕਬੁੱਕ ਨੂੰ ਇੱਕ ਮੈਕਰੋ-ਸਮਰੱਥ .xlsm ਫਾਈਲ ਵਜੋਂ ਸੁਰੱਖਿਅਤ ਕਰਨਾ ਯਕੀਨੀ ਬਣਾਓ।

ਵਿਕਲਪਿਕ ਤੌਰ 'ਤੇ, ਤੁਸੀਂ ਸਾਡੀ ਨਮੂਨਾ ਵਰਕਬੁੱਕ ਨੂੰ ਡਾਊਨਲੋਡ ਕਰ ਸਕਦੇ ਹੋ ਅਤੇ ਉੱਥੋਂ ਮੈਕਰੋ ਚਲਾ ਸਕਦੇ ਹੋ। ਨਮੂਨਾ ਵਰਕਬੁੱਕ ਵਿੱਚ ਹੇਠਾਂ ਦਿੱਤੇ ਮੈਕਰੋ ਸ਼ਾਮਲ ਹਨ:

• HighlightDupesCaseInsensitive - ਅੱਖਰ ਕੇਸ ਨੂੰ ਅਣਡਿੱਠ ਕਰਦੇ ਹੋਏ ਸੈੱਲ ਦੇ ਅੰਦਰ ਸ਼ੇਡ ਡੁਪਲੀਕੇਟ।
• ਹਾਈਲਾਈਟਡੁਪਸਕੇਸ ਸੰਵੇਦੀ - ਹਾਈਲਾਈਟਸ ਅੱਖਰ ਕੇਸ 'ਤੇ ਵਿਚਾਰ ਕਰਦੇ ਹੋਏ ਸੈੱਲ ਵਿੱਚ ਧੋਖਾਧੜੀ।

ਹੋਰ ਜਾਣਕਾਰੀ ਲਈ, ਕਿਰਪਾ ਕਰਕੇ ਐਕਸਲ ਵਿੱਚ VBA ਕੋਡ ਨੂੰ ਕਿਵੇਂ ਸ਼ਾਮਲ ਕਰਨਾ ਹੈ ਵੇਖੋ।

ਮੈਕ੍ਰੋ ਚਲਾਓ

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

1. ਆਪਣੀ ਵਰਕਸ਼ੀਟ ਵਿੱਚ, ਉਹਨਾਂ ਸੈੱਲਾਂ ਨੂੰ ਚੁਣੋ ਜਿੱਥੇ ਤੁਸੀਂ ਡੁਪਲੀਕੇਟ ਟੈਕਸਟ ਨੂੰ ਹਾਈਲਾਈਟ ਕਰਨਾ ਚਾਹੁੰਦੇ ਹੋ। ਇਹ ਇੱਕ ਰੇਂਜ ਜਾਂ ਕਈ ਗੈਰ-ਨਾਲ ਲੱਗਦੀਆਂ ਰੇਂਜਾਂ ਹੋ ਸਕਦੀਆਂ ਹਨ।
2. Alt + F8 ਦਬਾਓ।
3. ਦਿਲਚਸਪੀ ਦਾ ਮੈਕਰੋ ਚੁਣੋ ਅਤੇ ਚਲਾਓ 'ਤੇ ਕਲਿੱਕ ਕਰੋ।

   

4. ਮੈਕ੍ਰੋ ਤੁਹਾਨੂੰ ਡੀਲੀਮੀਟਰ ਨਿਰਧਾਰਤ ਕਰਨ ਲਈ ਕਹੇਗਾਜੋ ਕਿ ਚੁਣੇ ਗਏ ਸੈੱਲਾਂ ਵਿੱਚ ਮੁੱਲਾਂ ਨੂੰ ਵੱਖ ਕਰਦਾ ਹੈ। ਪ੍ਰੀ-ਸੈੱਟ ਡੀਲੀਮੀਟਰ (ਸਾਡੇ ਕੇਸ ਵਿੱਚ ਇੱਕ ਕੌਮਾ ਅਤੇ ਇੱਕ ਸਪੇਸ) ਆਪਣੇ ਆਪ ਇਨਪੁਟ ਬਾਕਸ ਵਿੱਚ ਦਿਖਾਈ ਦੇਵੇਗਾ। ਤੁਹਾਡੀਆਂ ਲੋੜਾਂ ਦੇ ਆਧਾਰ 'ਤੇ, ਤੁਸੀਂ ਡਿਫੌਲਟ ਡੀਲੀਮੀਟਰ ਨੂੰ ਛੱਡ ਸਕਦੇ ਹੋ ਜਾਂ ਕੋਈ ਵੱਖਰਾ ਟਾਈਪ ਕਰ ਸਕਦੇ ਹੋ, ਅਤੇ ਫਿਰ ਠੀਕ 'ਤੇ ਕਲਿੱਕ ਕਰ ਸਕਦੇ ਹੋ।

   

ਇੱਕ ਪਲ ਬਾਅਦ, ਚੁਣੀਆਂ ਗਈਆਂ ਸਾਰੀਆਂ ਡੁਪਲੀਕੇਟ ਸਤਰ ਸੈੱਲ ਲਾਲ ਰੰਗ ਵਿੱਚ ਸ਼ੇਡ ਕੀਤੇ ਜਾਣਗੇ (ਜਾਂ ਤੁਹਾਡੇ ਕੋਡ ਵਿੱਚ ਜੋ ਵੀ ਫੌਂਟ ਰੰਗ ਸੈੱਟ ਕੀਤਾ ਗਿਆ ਹੈ)।

ਟਿਪ। ਕਿਸੇ ਸੈੱਲ ਦੇ ਅੰਦਰ ਤੇਜ਼ੀ ਨਾਲ ਡੁਪਲੀਕੇਟ ਹਟਾਉਣ ਲਈ, ਤੁਸੀਂ ਸਾਡੇ ਅਲਟੀਮੇਟ ਸੂਟ ਵਿੱਚ ਸ਼ਾਮਲ ਕਈ ਵਾਰ ਬਚਾਉਣ ਵਾਲੇ ਟੂਲਾਂ ਵਿੱਚੋਂ ਇੱਕ, ਡੁਪਲੀਕੇਟ ਸਬਸਟਰਿੰਗ ਹਟਾਓ ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ।

ਆਪਣੀਆਂ ਲੋੜਾਂ ਲਈ ਕੋਡ ਨੂੰ ਕਿਵੇਂ ਵਿਵਸਥਿਤ ਕਰਨਾ ਹੈ

ਇਹਨਾਂ ਵਰਤੋਂ ਨੋਟਸ ਅਤੇ VBA ਦੇ ਬਹੁਤ ਹੀ ਮੁੱਢਲੇ ਗਿਆਨ ਨਾਲ (ਜਾਂ ਹੇਠਾਂ ਦਿੱਤੀਆਂ ਹਦਾਇਤਾਂ ਦਾ ਧਿਆਨ ਨਾਲ ਪਾਲਣ ਕਰਦੇ ਹੋਏ), ਤੁਸੀਂ ਆਸਾਨੀ ਨਾਲ ਕੋਡਾਂ ਨੂੰ ਆਪਣੀਆਂ ਲੋੜਾਂ ਦੇ ਮੁਤਾਬਕ ਸੋਧ ਸਕਦੇ ਹੋ।

ਉਸੇ ਮੋਡੀਊਲ 'ਤੇ ਰੱਖੋ

ਜਿਵੇਂ ਕਿ ਤੁਸੀਂ ਨੋਟ ਕਰ ਸਕਦੇ ਹੋ, ਦੋਵੇਂ ਮੈਕਰੋ ( HighlightDupesCaseSensitive ਅਤੇ HighlightDupesCaseInsensitive ) HighlightDupeWordsInCell ਫੰਕਸ਼ਨ ਨੂੰ ਕਾਲ ਕਰਦੇ ਹਨ। ਉਪਰੋਕਤ ਦੋ ਮੈਕਰੋ ਦੇ ਵਿੱਚ ਅੰਤਰ ਕੇਵਲ ਤੀਜੇ ਪੈਰਾਮੀਟਰ (ਕੇਸ-ਸੰਵੇਦਨਸ਼ੀਲ) ਵਿੱਚ ਦਿੱਤੇ ਗਏ ਫੰਕਸ਼ਨ ਵਿੱਚ ਹੈ।

ਕੇਸ-ਸੰਵੇਦਨਸ਼ੀਲ ਖੋਜ ਲਈ, ਇਹ TRUE:

Call HighlightDupeWordsInCell(Cell, Delimiter, True)

'ਤੇ ਸੈੱਟ ਹੈ।

ਕੇਸ-ਸੰਵੇਦਨਸ਼ੀਲ ਖੋਜ ਲਈ, ਇਹ FALSE 'ਤੇ ਸੈੱਟ ਹੈ:

Call HighlightDupeWordsInCell(Cell, Delimiter, False)

ਮੈਕਰੋਜ਼ ਦੇ ਕੰਮ ਕਰਨ ਲਈ, HighlightDupeWordsInCell ਫੰਕਸ਼ਨ ਦਾ ਕੋਡ ਇਸ ਉੱਤੇ ਰੱਖਿਆ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ ਦੇ ਰੂਪ ਵਿੱਚ ਇੱਕੋ ਮੋਡੀਊਲmacros.

ਡਿਲੀਮੀਟਰ

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

Delimiter = InputBox("Specify the delimiter that separates values in a cell", "Delimiter", ", ")

ਤੁਹਾਡੇ ਕੋਡ ਵਿੱਚ, ਤੁਸੀਂ ਕਿਸੇ ਹੋਰ ਅੱਖਰ(ਆਂ) ਦੀ ਵਰਤੋਂ ਕਰਨ ਲਈ ਸੁਤੰਤਰ ਹੋ। ਪਹਿਲਾਂ ਤੋਂ ਪਰਿਭਾਸ਼ਿਤ ਡੈਲੀਮੀਟਰ ਵਜੋਂ।

ਰੰਗ

ਮੂਲ ਰੂਪ ਵਿੱਚ, ਹਾਈਲਾਈਟਡੂਪਵਰਡਸ ਇਨਸੈਲ ਫੰਕਸ਼ਨ ਸ਼ੇਡ ਲਾਲ ਫੌਂਟ ਰੰਗ ਵਿੱਚ ਡੁਪਲੀਕੇਟ ਹੁੰਦੇ ਹਨ। ਰੰਗ ਨੂੰ ਇਸ ਲਾਈਨ ਵਿੱਚ ਪਰਿਭਾਸ਼ਿਤ ਕੀਤਾ ਗਿਆ ਹੈ:

Cell.Characters(positionInText, Len(word)).Font.Color = vbRed

ਇੱਥੇ, vbRed ਇੱਕ ਕਿਸਮ ਦਾ VBA ਰੰਗ ਸਥਿਰ ਹੈ। ਡੁਪਾਂ ਨੂੰ ਕਿਸੇ ਵੱਖਰੇ ਰੰਗ ਵਿੱਚ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਨ ਲਈ, ਤੁਸੀਂ vbRed ਨੂੰ ਕਿਸੇ ਹੋਰ ਸਥਿਰਾਂਕ ਜਿਵੇਂ ਕਿ vbGreen, vbYellow, vbBlue, ਆਦਿ ਨਾਲ ਬਦਲ ਸਕਦੇ ਹੋ। T ਉਹ ਸਮਰਥਿਤ ਰੰਗ ਸਥਿਰਾਂਕਾਂ ਦੀ ਸੂਚੀ ਇੱਥੇ ਲੱਭੀ ਜਾ ਸਕਦੀ ਹੈ।

ਇਹ ਹੈ ਐਕਸਲ ਸੈੱਲਾਂ ਵਿੱਚ ਡੁਪਲੀਕੇਟ ਸ਼ਬਦਾਂ ਨੂੰ ਕਿਵੇਂ ਹਾਈਲਾਈਟ ਕਰਨਾ ਹੈ। ਮੈਂ ਪੜ੍ਹਨ ਲਈ ਤੁਹਾਡਾ ਧੰਨਵਾਦ ਕਰਦਾ ਹਾਂ ਅਤੇ ਅਗਲੇ ਹਫ਼ਤੇ ਤੁਹਾਨੂੰ ਸਾਡੇ ਬਲੌਗ 'ਤੇ ਮਿਲਣ ਦੀ ਉਮੀਦ ਕਰਦਾ ਹਾਂ!

ਉਪਲੱਬਧ ਡਾਊਨਲੋਡ

ਕੋਡ ਉਦਾਹਰਨਾਂ ਇੱਕ ਸੈੱਲ (.xlsm ਫਾਈਲ) ਵਿੱਚ ਡੁਪਲੀਕੇਟ ਨੂੰ ਉਜਾਗਰ ਕਰਨ ਲਈ

ਅੰਤਮ ਸੂਟ 14-ਦਿਨ ਪੂਰੀ-ਕਾਰਜਸ਼ੀਲ ਸੰਸਕਰਣ (.exe ਫਾਈਲ)