ವಿಬಿಎ ಬಳಸಿಕೊಂಡು ಸೆಲ್‌ನೊಳಗೆ ನಕಲಿ ಪದಗಳು ಅಥವಾ ಪಠ್ಯ ತಂತಿಗಳನ್ನು ಹೇಗೆ ಹೈಲೈಟ್ ಮಾಡುವುದು ಎಂಬುದನ್ನು ಟ್ಯುಟೋರಿಯಲ್ ತೋರಿಸುತ್ತದೆ.

ಎಕ್ಸೆಲ್ ಕಂಡೀಷನಲ್ ಫಾರ್ಮ್ಯಾಟಿಂಗ್ ನೀವು ಯೋಚಿಸಬಹುದಾದ ಪ್ರತಿಯೊಂದು ಸಂಭಾವ್ಯ ರೀತಿಯಲ್ಲಿ ನಕಲುಗಳನ್ನು ಹೈಲೈಟ್ ಮಾಡಲು ಸಾಧ್ಯವಾಗಿಸುತ್ತದೆ: 1 ನೇ ಸಂಭವಿಸುವಿಕೆಯೊಂದಿಗೆ ಅಥವಾ ಇಲ್ಲದೆ, ಒಂದೇ ಕಾಲಮ್ ಅಥವಾ ಬಹು ಕಾಲಮ್‌ಗಳಲ್ಲಿ, ಸತತ ನಕಲಿ ಕೋಶಗಳು ಮತ್ತು ಪ್ರಮುಖ ಕಾಲಮ್‌ನಲ್ಲಿ ಒಂದೇ ಮೌಲ್ಯಗಳ ಆಧಾರದ ಮೇಲೆ ಸಂಪೂರ್ಣ ಸಾಲುಗಳು. ಆದರೆ, ಎಂದಿನಂತೆ, "ಆದರೆ" ಇದೆ. ಷರತ್ತು ಫಾರ್ಮ್ಯಾಟಿಂಗ್ ನಿಯಮಗಳು ಸೆಲ್ ಮಟ್ಟದಲ್ಲಿ ಕಾರ್ಯನಿರ್ವಹಿಸುತ್ತವೆ ಆದರೆ ನೀವು ಸಂಪೂರ್ಣ ಸೆಲ್‌ಗಳಿಗಿಂತ ನಕಲಿ ಪಠ್ಯವನ್ನು ಹೈಲೈಟ್ ಮಾಡಲು ಬಯಸಬಹುದು. ಇದನ್ನು ಮ್ಯಾಕ್ರೋಗಳೊಂದಿಗೆ ಮಾತ್ರ ಮಾಡಬಹುದು. ನೀವು VBA ಯೊಂದಿಗೆ ಯಾವುದೇ ಅನುಭವವನ್ನು ಹೊಂದಿಲ್ಲದಿದ್ದರೂ, ದಯವಿಟ್ಟು ಈ ಪುಟವನ್ನು ಮುಚ್ಚಲು ಹೊರದಬ್ಬಬೇಡಿ. ಇಲ್ಲಿ, ಬಳಸಲು ಸಿದ್ಧವಾದ ಕೋಡ್ ಉದಾಹರಣೆಗಳು ಮತ್ತು ಅವುಗಳನ್ನು ನಿಮ್ಮ ವರ್ಕ್‌ಶೀಟ್‌ಗಳಲ್ಲಿ ಹೇಗೆ ಬಳಸುವುದು ಎಂಬುದರ ಕುರಿತು ವಿವರವಾದ ಸೂಚನೆಗಳನ್ನು ನೀವು ಕಾಣಬಹುದು.

ಪಠ್ಯ ಪ್ರಕರಣವನ್ನು ನಿರ್ಲಕ್ಷಿಸುವ ಸೆಲ್‌ನಲ್ಲಿ ನಕಲಿ ಪದಗಳನ್ನು ಹೈಲೈಟ್ ಮಾಡಿ

0>ಕೆಳಗಿನ ಚಿತ್ರದಲ್ಲಿ ತೋರಿಸಿರುವಂತೆ ಕೆಂಪು ಫಾಂಟ್ ಬಣ್ಣದಲ್ಲಿ ಸೆಲ್‌ನೊಳಗೆ ನಕಲಿ ಪದಗಳು ಅಥವಾ ಪಠ್ಯ ತಂತಿಗಳನ್ನು ಹೇಗೆ ಶೇಡ್ ಮಾಡುವುದು ಎಂಬುದನ್ನು ಈ ಉದಾಹರಣೆ ತೋರಿಸುತ್ತದೆ. ಸಣ್ಣ ಮತ್ತು ದೊಡ್ಡ ಅಕ್ಷರಗಳನ್ನು ಒಂದೇ ಅಕ್ಷರಗಳಾಗಿ ಪರಿಗಣಿಸಲಾಗುತ್ತದೆ ಎಂಬುದನ್ನು ದಯವಿಟ್ಟು ಗಮನಿಸಿ. ಉದಾಹರಣೆಗೆ, ಕಿತ್ತಳೆ, ಆರೆಂಜ್ಮತ್ತು ಕಿತ್ತಳೆಒಂದೇ ಪದವೆಂದು ಪರಿಗಣಿಸಲಾಗುತ್ತದೆ.

ದಿ ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಈ ಕೆಳಗಿನಂತಿರುತ್ತದೆ:

ಸಾರ್ವಜನಿಕ ಸಬ್ ಹೈಲೈಟ್‌ಡ್ಯೂಪ್‌ಸ್ಸೆನ್ಸಿಟಿವ್() ಸೆಲ್ ರೇಂಜ್ ಡಿಮ್ ಡಿಲಿಮಿಟರ್ ಆಗಿ ಸ್ಟ್ರಿಂಗ್ ಡಿಲಿಮಿಟರ್ = ಇನ್‌ಪುಟ್‌ಬಾಕ್ಸ್ ( "ಸೆಲ್‌ನಲ್ಲಿ ಮೌಲ್ಯಗಳನ್ನು ಬೇರ್ಪಡಿಸುವ ಡಿಲಿಮಿಟರ್ ಅನ್ನು ನಮೂದಿಸಿ" , "ಡಿಲಿಮಿಟರ್" , ", " ) ಪ್ರತಿ ಸೆಲ್‌ಗೆಅಪ್ಲಿಕೇಶನ್.ಆಯ್ಕೆ ಕರೆ HighlightDupeWordsInCell(ಸೆಲ್, ಡಿಲಿಮಿಟರ್, ತಪ್ಪು ) ಮುಂದಿನ ಅಂತ್ಯ ಉಪ ಉಪ HighlightDupeWordsInCell(ಸೆಲ್ ಶ್ರೇಣಿಯಂತೆ, ಐಚ್ಛಿಕ ಡಿಲಿಮಿಟರ್ ಸ್ಟ್ರಿಂಗ್ ಆಗಿ = "" , ಐಚ್ಛಿಕ ಕೇಸ್ಸೆನ್ಸಿಟಿವ್ ಬೂಲಿಯನ್ = ಟ್ರೂ ) ಮಂದ ಪಠ್ಯ (ಸ್ಟ್ರಿಂಗ್ ಡಿಮ್ ವರ್ಡ್ಸ್) String Dim wordIndex, matchCount, positionInText Integer ಆಗಿ ಕೇಸ್ಸೆನ್ಸಿಟಿವ್ ಆಗಿದ್ದರೆ ಪದಗಳು = ಸ್ಪ್ಲಿಟ್(Cell.Value, Delimiter) ಬೇರೆ ಪದಗಳು = Split(LCase(Cell.Value), Delimiter) End For wordIndex = LBound (ಪದಗಳು) ಗೆ UBound (ಪದಗಳು) - 1 ಪದ = ಪದಗಳು(wordIndex) matchCount = 0 nextWordIndex ಗಾಗಿ = wordIndex + 1 ಗೆ UBound (ಪದಗಳು) ಪದ = ಪದಗಳು (nextWordIndex) ಆಗಿದ್ದರೆ matchCount = matchCount + 1 End ಮುಂದಿನದಾದರೆ ಮುಂದಿನWordIndex ವೇಳೆ ಮ್ಯಾಚ್‌ಕೌಂಟ್ > 0 ನಂತರ ಪಠ್ಯ = "" ಸೂಚ್ಯಂಕ = LBound (ಪದಗಳು) ಗೆ UBound (ಪದಗಳು) ಪಠ್ಯ = ಪಠ್ಯ & ಪದಗಳು(ಸೂಚ್ಯಂಕ) ವೇಳೆ (ಪದಗಳು(ಸೂಚ್ಯಂಕ) = ಪದ) ನಂತರ Cell.Characters(Len(text) - Len(word) + 1, Len(word)).Font.Color = vbRed End ಪಠ್ಯ = ಪಠ್ಯ & Delimiter Next End ಮುಂದಿನ wordIndex End ಉಪ

ಸೆಲ್ ಕೇಸ್-ಸೆನ್ಸಿಟಿವ್‌ನಲ್ಲಿ ನಕಲಿ ಪಠ್ಯವನ್ನು ಹೈಲೈಟ್ ಮಾಡಿ

ಹೆಚ್ಚಿನ ಸಂದರ್ಭಗಳಲ್ಲಿ, Excel ನಲ್ಲಿ ಪಠ್ಯ ನಮೂದುಗಳೊಂದಿಗೆ ಕೆಲಸ ಮಾಡುವಾಗ ನಾವು ಅಕ್ಷರದ ಪ್ರಕರಣವನ್ನು ನಿರ್ಲಕ್ಷಿಸುತ್ತೇವೆ. ಕೆಲವು ಸಂದರ್ಭಗಳಲ್ಲಿ, ಆದಾಗ್ಯೂ, ಪಠ್ಯ ಪ್ರಕರಣವು ಮುಖ್ಯವಾಗಿದೆ. ಉದಾಹರಣೆಗೆ, ನೀವು ID ಗಳು, ಪಾಸ್‌ವರ್ಡ್‌ಗಳು ಅಥವಾ ಆ ರೀತಿಯ ಇತರ ದಾಖಲೆಗಳೊಂದಿಗೆ ವ್ಯವಹರಿಸುತ್ತಿದ್ದರೆ, 1-AA , 1-aa ಮತ್ತು 1-Aa ನಕಲುಗಳಲ್ಲ ಮತ್ತು ಹೈಲೈಟ್ ಮಾಡಬಾರದು:

ಈ ಸಂದರ್ಭದಲ್ಲಿ,ಕೋಡ್‌ನ ಕೆಳಗಿನ ಆವೃತ್ತಿಯನ್ನು ಬಳಸಿ:

Public Sub HighlightDupesCaseSensitive() ಡಿಮ್ ಸೆಲ್ ರೇಂಜ್ ಡಿಮ್ ಡಿಲಿಮಿಟರ್ ಆಗಿ ಸ್ಟ್ರಿಂಗ್ ಡಿಲಿಮಿಟರ್ = InputBox( "ಸೆಲ್‌ನಲ್ಲಿ ಮೌಲ್ಯಗಳನ್ನು ಬೇರ್ಪಡಿಸುವ ಡಿಲಿಮಿಟರ್ ಅನ್ನು ನಮೂದಿಸಿ" , "ಡಿಲಿಮಿಟರ್" , ", " ) ಪ್ರತಿಯೊಂದಕ್ಕೂ ಅಪ್ಲಿಕೇಶನ್‌ನಲ್ಲಿ ಸೆಲ್.ಆಯ್ಕೆ ಕರೆ HighlightDupeWordsInCell(ಸೆಲ್, ಡಿಲಿಮಿಟರ್, ಟ್ರೂ ) ಮುಂದಿನ ಅಂತ್ಯ ಉಪ ಉಪ ಹೈಲೈಟ್‌ಡ್ಯೂಪ್‌ವರ್ಡ್ಸ್‌ಇನ್‌ಸೆಲ್ (ಸೆಲ್ ರೇಂಜ್‌ನಂತೆ, ಐಚ್ಛಿಕ ಡಿಲಿಮಿಟರ್ ಸ್ಟ್ರಿಂಗ್‌ನಂತೆ = "" , ಐಚ್ಛಿಕ ಕೇಸ್ಸೆನ್ಸಿಟಿವ್ ಆಗಿ ಬೂಲಿಯನ್ = ಟ್ರೂ ) ಮಂದ ಪಠ್ಯ (ಸ್ಟ್ರಿಂಗ್‌ನಂತೆ ಮಂದ ಪಠ್ಯ) ಪದದಂತೆ ಸ್ಟ್ರಿಂಗ್ ಮಂದವಾದ ವರ್ಡ್‌ಇಂಡೆಕ್ಸ್, ಮ್ಯಾಚ್‌ಕೌಂಟ್, ಪೊಸಿಷನ್‌ಇನ್‌ಟೆಕ್ಸ್ಟ್ ಇಂಟೀಜರ್ ಆಗಿ ಕೇಸ್ಸೆನ್ಸಿಟಿವ್ ಆಗಿದ್ದರೆ ಪದಗಳು = ಸ್ಪ್ಲಿಟ್(ಸೆಲ್.ಮೌಲ್ಯ, ಡಿಲಿಮಿಟರ್) ಬೇರೆ ಪದಗಳು = ಸ್ಪ್ಲಿಟ್(ಎಲ್‌ಕೇಸ್(ಸೆಲ್.ಮೌಲ್ಯ), ಡಿಲಿಮಿಟರ್) ಎಂಡ್ ವರ್ಡ್ ಇಂಡೆಕ್ಸ್‌ಗಾಗಿ = ಎಲ್‌ಬೌಂಡ್ (ಪದಗಳು) ಯುಬೌಂಡ್ (ಪದಗಳು) ಗೆ ಪದಗಳು) - 1 ಪದ = ಪದಗಳು (wordIndex) matchCount = 0 for nextWordIndex = wordIndex + 1 ಗೆ UBound (ಪದಗಳು) ಪದ = ಪದಗಳು (nextWordIndex) ಆಗಿದ್ದರೆ matchCount = matchCount + 1 End ಮುಂದಿನದಾದರೆ ಮುಂದಿನWordIndex ವೇಳೆ ಮ್ಯಾಚ್‌ಕೌಂಟ್ > 0 ನಂತರ ಪಠ್ಯ = "" ಸೂಚ್ಯಂಕ = LBound (ಪದಗಳು) ಗೆ UBound (ಪದಗಳು) ಪಠ್ಯ = ಪಠ್ಯ & ಪದಗಳು(ಸೂಚ್ಯಂಕ) ವೇಳೆ (ಪದಗಳು(ಸೂಚ್ಯಂಕ) = ಪದ) ನಂತರ Cell.Characters(Len(text) - Len(word) + 1, Len(word)).Font.Color = vbRed End ಪಠ್ಯ = ಪಠ್ಯ & ಡಿಲಿಮಿಟರ್ ನೆಕ್ಸ್ಟ್ ಎಂಡ್ ಮುಂದಿನ ವರ್ಡ್ ಇಂಡೆಕ್ಸ್ ಎಂಡ್ ಉಪ

ಎಕ್ಸೆಲ್ ನಲ್ಲಿ ನಕಲು ಪದಗಳನ್ನು ಹೈಲೈಟ್ ಮಾಡಲು ಮ್ಯಾಕ್ರೋಗಳನ್ನು ಹೇಗೆ ಬಳಸುವುದು

ನೀವು VBA ಬಳಸುವಲ್ಲಿ ಹರಿಕಾರರಾಗಿದ್ದರೆ, ಕೆಳಗಿನ ಹಂತ-ಹಂತದ ಸೂಚನೆಗಳು ನಿಮಗೆ ಆರಾಮವಾಗಿ ನಡೆಯುತ್ತವೆ . ಅನುಭವಿ ಬಳಕೆದಾರರು ಮಾಡಬಹುದುಡೌನ್‌ಲೋಡ್ ಲಿಂಕ್ ಅನ್ನು ಆರಿಸಿ ಮತ್ತು ಉಳಿದದ್ದನ್ನು ಬಿಟ್ಟುಬಿಡಿ :)

ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಕೋಡ್ ಅನ್ನು ಸೇರಿಸಿ

ನೀವು ನಿಮ್ಮ ಎಕ್ಸೆಲ್ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿ ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ಸೇರಿಸುವುದರೊಂದಿಗೆ ಪ್ರಾರಂಭಿಸಿ. ಹೇಗೆ ಎಂಬುದು ಇಲ್ಲಿದೆ:

1. ನೀವು ಡ್ಯೂಪ್‌ಗಳನ್ನು ಹೈಲೈಟ್ ಮಾಡಲು ಬಯಸುವ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ತೆರೆಯಿರಿ.
2. ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಎಡಿಟರ್ ತೆರೆಯಲು Alt + F11 ಒತ್ತಿರಿ.
3. ಎಡ ಫಲಕದಲ್ಲಿ, ಈ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಬಲ ಕ್ಲಿಕ್ ಮಾಡಿ ಮತ್ತು ಸಂದರ್ಭ ಮೆನುವಿನಿಂದ ಸೇರಿಸು > ಮಾಡ್ಯೂಲ್ ಆಯ್ಕೆಮಾಡಿ.
4. ಕೋಡ್ ವಿಂಡೋದಲ್ಲಿ ಕೋಡ್ ಅನ್ನು ಅಂಟಿಸಿ.
5. ಭವಿಷ್ಯದ ಬಳಕೆಗಾಗಿ ಮ್ಯಾಕ್ರೋವನ್ನು ಇರಿಸಿಕೊಳ್ಳಲು, ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಮ್ಯಾಕ್ರೋ-ಸಕ್ರಿಯಗೊಳಿಸಿದ .xlsm ಫೈಲ್ ಆಗಿ ಉಳಿಸಲು ಮರೆಯದಿರಿ.

ಪರ್ಯಾಯವಾಗಿ, ನೀವು ನಮ್ಮ ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಡೌನ್‌ಲೋಡ್ ಮಾಡಬಹುದು ಮತ್ತು ಅಲ್ಲಿಂದ ಮ್ಯಾಕ್ರೋ ಅನ್ನು ರನ್ ಮಾಡಬಹುದು. ಮಾದರಿ ಕಾರ್ಯಪುಸ್ತಕವು ಈ ಕೆಳಗಿನ ಮ್ಯಾಕ್ರೋಗಳನ್ನು ಒಳಗೊಂಡಿದೆ:

• HighlightDupesCaseInsensitive - ಅಕ್ಷರದ ಪ್ರಕರಣವನ್ನು ನಿರ್ಲಕ್ಷಿಸುವ ಕೋಶದೊಳಗೆ ಛಾಯೆಗಳ ನಕಲುಗಳು.
• HighlightDupesCaseSensitive - ಮುಖ್ಯಾಂಶಗಳು ಪತ್ರದ ಪ್ರಕರಣವನ್ನು ಪರಿಗಣಿಸಿ ಸೆಲ್‌ನಲ್ಲಿ ನಕಲಿಗಳು.

ಹೆಚ್ಚಿನ ಮಾಹಿತಿಗಾಗಿ, ದಯವಿಟ್ಟು ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ VBA ಕೋಡ್ ಅನ್ನು ಹೇಗೆ ಸೇರಿಸುವುದು ಎಂಬುದನ್ನು ನೋಡಿ.

ಮ್ಯಾಕ್ರೋವನ್ನು

ಕೋಡ್‌ನೊಂದಿಗೆ ರನ್ ಮಾಡಿ ನಿಮ್ಮ ಸ್ವಂತ ವರ್ಕ್‌ಬುಕ್ ಅಥವಾ ನಮ್ಮ ಮಾದರಿ ಫೈಲ್ ಅನ್ನು ಡೌನ್‌ಲೋಡ್ ಮಾಡಲಾಗಿದೆ ಮತ್ತು ತೆರೆಯಲು ಸೇರಿಸಲಾಗಿದೆ, ಮ್ಯಾಕ್ರೋವನ್ನು ಈ ರೀತಿಯಲ್ಲಿ ರನ್ ಮಾಡಿ:

1. ನಿಮ್ಮ ವರ್ಕ್‌ಶೀಟ್‌ನಲ್ಲಿ, ನೀವು ನಕಲಿ ಪಠ್ಯವನ್ನು ಹೈಲೈಟ್ ಮಾಡಲು ಬಯಸುವ ಸೆಲ್‌ಗಳನ್ನು ಆಯ್ಕೆಮಾಡಿ. ಇದು ಒಂದು ಶ್ರೇಣಿ ಅಥವಾ ಬಹು ಅಕ್ಕಪಕ್ಕದ ಶ್ರೇಣಿಗಳಾಗಿರಬಹುದು.
2. Alt + F8 ಒತ್ತಿರಿ .
3. ಆಸಕ್ತಿಯ ಮ್ಯಾಕ್ರೋ ಆಯ್ಕೆಮಾಡಿ ಮತ್ತು ರನ್ ಕ್ಲಿಕ್ ಮಾಡಿ.

   

4. ಡಿಲಿಮಿಟರ್ ಅನ್ನು ನಿರ್ದಿಷ್ಟಪಡಿಸಲು ಮ್ಯಾಕ್ರೋ ನಿಮ್ಮನ್ನು ಕೇಳುತ್ತದೆಅದು ಆಯ್ದ ಕೋಶಗಳಲ್ಲಿನ ಮೌಲ್ಯಗಳನ್ನು ಪ್ರತ್ಯೇಕಿಸುತ್ತದೆ. ಮೊದಲೇ ಹೊಂದಿಸಲಾದ ಡಿಲಿಮಿಟರ್ (ನಮ್ಮ ಸಂದರ್ಭದಲ್ಲಿ ಅಲ್ಪವಿರಾಮ ಮತ್ತು ಸ್ಥಳ) ಇನ್‌ಪುಟ್ ಬಾಕ್ಸ್‌ನಲ್ಲಿ ಸ್ವಯಂಚಾಲಿತವಾಗಿ ಗೋಚರಿಸುತ್ತದೆ. ನಿಮ್ಮ ಅಗತ್ಯಗಳಿಗೆ ಅನುಗುಣವಾಗಿ, ನೀವು ಡಿಫಾಲ್ಟ್ ಡಿಲಿಮಿಟರ್ ಅನ್ನು ಬಿಡಬಹುದು ಅಥವಾ ಬೇರೆಯದನ್ನು ಟೈಪ್ ಮಾಡಬಹುದು, ತದನಂತರ ಸರಿ ಕ್ಲಿಕ್ ಮಾಡಿ.

   

ಒಂದು ಕ್ಷಣದ ನಂತರ, ಆಯ್ಕೆಮಾಡಿದ ಎಲ್ಲಾ ನಕಲಿ ಸ್ಟ್ರಿಂಗ್‌ಗಳು ಕೋಶಗಳನ್ನು ಕೆಂಪು ಬಣ್ಣದಲ್ಲಿ ಮಬ್ಬಾಗಿಸಲಾಗುತ್ತದೆ (ಅಥವಾ ನಿಮ್ಮ ಕೋಡ್‌ನಲ್ಲಿ ಯಾವುದೇ ಫಾಂಟ್ ಬಣ್ಣವನ್ನು ಹೊಂದಿಸಲಾಗಿದೆ).

ಸಲಹೆ. ಸೆಲ್‌ನೊಳಗೆ ತ್ವರಿತವಾಗಿ ನಕಲುಗಳನ್ನು ತೆಗೆದುಹಾಕಲು , ನಮ್ಮ ಅಲ್ಟಿಮೇಟ್ ಸೂಟ್‌ನಲ್ಲಿ ಸೇರಿಸಲಾದ ಅನೇಕ ಬಾರಿ ಉಳಿಸುವ ಸಾಧನಗಳಲ್ಲಿ ಒಂದಾದ ನಕಲು ಸಬ್‌ಸ್ಟ್ರಿಂಗ್‌ಗಳನ್ನು ತೆಗೆದುಹಾಕಿ ಅನ್ನು ನೀವು ಬಳಸಿಕೊಳ್ಳಬಹುದು.

ನಿಮ್ಮ ಅಗತ್ಯಗಳಿಗಾಗಿ ಕೋಡ್ ಅನ್ನು ಹೇಗೆ ಹೊಂದಿಸುವುದು

0>ಈ ಬಳಕೆಯ ಟಿಪ್ಪಣಿಗಳು ಮತ್ತು VBA ಯ ಮೂಲಭೂತ ಜ್ಞಾನದೊಂದಿಗೆ (ಅಥವಾ ಕೆಳಗಿನ ಸೂಚನೆಗಳನ್ನು ಅನುಸರಿಸಿ), ನಿಮ್ಮ ಅಗತ್ಯಗಳಿಗೆ ಅನುಗುಣವಾಗಿ ನೀವು ಸುಲಭವಾಗಿ ಕೋಡ್‌ಗಳನ್ನು ಮಾರ್ಪಡಿಸಬಹುದು.

ಅದೇ ಮಾಡ್ಯೂಲ್‌ನಲ್ಲಿ ಇರಿಸಿ

ನೀವು ಗಮನಿಸಿದಂತೆ, ಎರಡೂ ಮ್ಯಾಕ್ರೋಗಳು ( HighlightDupesCaseSensitive ಮತ್ತು HighlightDupesCaseInsensitive ) HighlightDupeWordsInCell ಫಂಕ್ಷನ್‌ಗೆ ಕರೆ ಮಾಡಿ. ಮೇಲಿನ ಎರಡು ಮ್ಯಾಕ್ರೋಗಳ ನಡುವಿನ ವ್ಯತ್ಯಾಸವು ಹೇಳಿದ ಕಾರ್ಯಕ್ಕೆ ರವಾನಿಸಲಾದ 3 ನೇ ಪ್ಯಾರಾಮೀಟರ್ (ಕೇಸ್ಸೆನ್ಸಿಟಿವ್) ನಲ್ಲಿ ಮಾತ್ರ ಇದೆ.

ಕೇಸ್-ಸೆನ್ಸಿಟಿವ್ ಹುಡುಕಾಟಕ್ಕಾಗಿ, ಇದನ್ನು TRUE ಗೆ ಹೊಂದಿಸಲಾಗಿದೆ:

Call HighlightDupeWordsInCell(Cell, Delimiter, True)

ಕೇಸ್-ಸೆನ್ಸಿಟಿವ್ ಹುಡುಕಾಟಕ್ಕಾಗಿ, ಇದನ್ನು ತಪ್ಪು ಎಂದು ಹೊಂದಿಸಲಾಗಿದೆ:

Call HighlightDupeWordsInCell(Cell, Delimiter, False)

ಮ್ಯಾಕ್ರೋಗಳು ಕೆಲಸ ಮಾಡಲು, HighlightDupeWordsInCell ಫಂಕ್ಷನ್‌ನ ಕೋಡ್ ಅನ್ನು ಇರಿಸಬೇಕು ಅದೇ ಮಾಡ್ಯೂಲ್ಮ್ಯಾಕ್ರೋಗಳು.

ಡಿಲಿಮಿಟರ್

ರನ್ ಮಾಡಿದಾಗ, ಆಯ್ದ ಸೆಲ್‌ಗಳಲ್ಲಿ ಪದಗಳು/ಸ್ಟ್ರಿಂಗ್‌ಗಳನ್ನು ಪ್ರತ್ಯೇಕಿಸುವ ಡಿಲಿಮಿಟರ್ ಅನ್ನು ನಿರ್ದಿಷ್ಟಪಡಿಸಲು ಮ್ಯಾಕ್ರೋ ನಿಮ್ಮನ್ನು ಕೇಳುತ್ತದೆ. ಡೀಫಾಲ್ಟ್ ಡಿಲಿಮಿಟರ್ ಅಲ್ಪವಿರಾಮ ಮತ್ತು ಸ್ಪೇಸ್ (", ") ಮತ್ತು ಇದನ್ನು ಇನ್‌ಪುಟ್‌ಬಾಕ್ಸ್‌ನಲ್ಲಿ ಮೊದಲೇ ಹೊಂದಿಸಲಾಗಿದೆ:

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

ನಿಮ್ಮ ಕೋಡ್‌ನಲ್ಲಿ, ನೀವು ಯಾವುದೇ ಇತರ ಅಕ್ಷರ(ಗಳನ್ನು) ಬಳಸಲು ಮುಕ್ತರಾಗಿದ್ದೀರಿ ಪೂರ್ವನಿರ್ಧರಿತ ಡಿಲಿಮಿಟರ್ ಆಗಿ.

ಬಣ್ಣ

ಪೂರ್ವನಿಯೋಜಿತವಾಗಿ, HighlightDupeWordsInCell ಫಂಕ್ಷನ್ ಶೇಡ್‌ಗಳು ಕೆಂಪು ಫಾಂಟ್ ಬಣ್ಣದಲ್ಲಿ ನಕಲು ಮಾಡುತ್ತವೆ. ಈ ಸಾಲಿನಲ್ಲಿ ಬಣ್ಣವನ್ನು ವ್ಯಾಖ್ಯಾನಿಸಲಾಗಿದೆ:

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

ಇಲ್ಲಿ, vbRed ಒಂದು ರೀತಿಯ VBA ಬಣ್ಣದ ಸ್ಥಿರವಾಗಿದೆ. ವಿಭಿನ್ನ ಬಣ್ಣದಲ್ಲಿ ಡ್ಯೂಪ್‌ಗಳನ್ನು ಪ್ರದರ್ಶಿಸಲು, ನೀವು vbRed ಅನ್ನು ಮತ್ತೊಂದು ಸ್ಥಿರವಾದ vbGreen, vbYellow, vbBlue, ಇತ್ಯಾದಿಗಳೊಂದಿಗೆ ಬದಲಾಯಿಸಬಹುದು. T ಬೆಂಬಲಿತ ಬಣ್ಣದ ಸ್ಥಿರಾಂಕಗಳ ಪಟ್ಟಿಯನ್ನು ಇಲ್ಲಿ ಕಾಣಬಹುದು.

ಅದು ಎಕ್ಸೆಲ್ ಕೋಶಗಳಲ್ಲಿ ನಕಲಿ ಪದಗಳನ್ನು ಹೈಲೈಟ್ ಮಾಡುವುದು ಹೇಗೆ. ಓದಿದ್ದಕ್ಕಾಗಿ ನಾನು ನಿಮಗೆ ಧನ್ಯವಾದಗಳು ಮತ್ತು ಮುಂದಿನ ವಾರ ನಮ್ಮ ಬ್ಲಾಗ್‌ನಲ್ಲಿ ನಿಮ್ಮನ್ನು ನೋಡುತ್ತೇನೆ ಎಂದು ಭಾವಿಸುತ್ತೇನೆ!

ಲಭ್ಯವಿರುವ ಡೌನ್‌ಲೋಡ್‌ಗಳು

ಸೆಲ್‌ನಲ್ಲಿ ನಕಲುಗಳನ್ನು ಹೈಲೈಟ್ ಮಾಡಲು ಕೋಡ್ ಉದಾಹರಣೆಗಳು (.xlsm ಫೈಲ್)

ಅಲ್ಟಿಮೇಟ್ ಸೂಟ್ 14-ದಿನದ ಸಂಪೂರ್ಣ-ಕ್ರಿಯಾತ್ಮಕ ಆವೃತ್ತಿ (.exe ಫೈಲ್)