مەزمۇن جەدۋىلى
دەرسلىكتە قانداق قىلىپ كۆپەيتىلگەن سۆز ياكى تېكىست تىزمىسىنى VBA ئارقىلىق كاتەكچىنىڭ ئىچىدە گەۋدىلەندۈرۈشنى كۆرسىتىپ بېرىدۇ. 1-قېتىم كۆرۈلۈش ياكى يۈز بەرمەسلىك ، بىر ئىستون ياكى كۆپ ئىستوندا ، ئۇدا كۆپەيتىلگەن كاتەكچە ۋە پۈتكۈل قۇرلار ئوخشاش بىر قىممەتتىكى ئوخشاش قىممەتنى ئاساس قىلىدۇ. ئەمما ، ئادەتتىكىگە ئوخشاش ، «ئەمما» بار. شەرتلىك فورماتلاش قائىدىسى كاتەكچە سەۋىيىدە ئىشلەيدۇ ، سىز تەكرارلانغان تېكىستنى پۈتكۈل كاتەكچىلەرگە ئەمەس ، بەلكى گەۋدىلەندۈرمەكچى بولۇشىڭىز مۇمكىن. بۇنى پەقەت ماكرو ئارقىلىقلا قىلغىلى بولىدۇ. VBA بىلەن ھېچقانداق تەجرىبىڭىز بولمىسىمۇ ، بۇ بەتنى تاقاشقا ئالدىرىماڭ. بۇ يەردە ، ئىشلىتىشكە تەييارلانغان كود مىساللىرى ۋە خىزمەت جەدۋىلىڭىزدە قانداق ئىشلىتىش توغرىسىدىكى تەپسىلىي كۆرسەتمىلەرنى تاپالايسىز. 0> بۇ مىسالدا تۆۋەندىكى رەسىمدە كۆرسىتىلگەندەك قىزىل خەت نۇسخىسىدىكى كاتەكچىنىڭ ئىچىدە كۆپەيتىلگەن سۆز ياكى تېكىست تىزمىلىرىنى قانداق سايە قىلىش كۆرسىتىلدى. كىچىك ۋە چوڭ ھەرپلەرنىڭ ئوخشاش ھەرپلەر قاتارىدا بىر تەرەپ قىلىنغانلىقىغا دىققەت قىلىڭ. مەسىلەن ، ئاپېلسىن ، ئاپېلسىن ۋە ئاپېلسىن ئوخشاش سۆز دەپ قارىلىدۇ.
ماكرونىڭ كودى تۆۋەندىكىچە:قوللىنىشچان تېلېفون. String Dim wordIndex, matchCount, positionInText ئەگەر پۈتۈن سان بولسا سەزگۈر بولسا ئۇنداقتا سۆزلەر = بۆلۈش (Cell.Value, Delimiter) باشقا سۆزلەر = Split (LCase (Cell. - 1 سۆز = سۆزلەر 0 ئاندىن تېكىست = "" كۆرسەتكۈچ ئۈچۈن = LBound (سۆز) UBound (سۆز) تېكىست = تېكىست & amp; سۆزلەر (كۆرسەتكۈچ) ئەگەر (سۆزلەر (كۆرسەتكۈچ) = سۆز) ئۇنداقتا Cell.Characters (Len (تېكىست) - Len (سۆز) + 1 ، Len (سۆز)). Font.Color = vbRed End If text = text & amp; Delimiter Next End ئەگەر Next wordIndex End Sub
كۆپەيتىلگەن تېكىستنى كاتەكچە سەزگۈر
يورۇتۇپ بېرىڭ ، كۆپىنچە ئەھۋاللاردا ، بىز Excel دىكى تېكىست تۈرلىرى بىلەن ئىشلەۋاتقاندا خەت ساندۇقىغا سەل قارايمىز. بەزى ئەھۋاللاردا ، تېكىست قېپى مۇھىم. مەسىلەن ، سىز كىملىك ، پارول ياكى باشقا تۈردىكى خاتىرىلەرنى بىر تەرەپ قىلسىڭىز ، 1-AA ، 1-aa ۋە 1-Aa تەكرارلانمايدۇ ، گەۋدىلەندۈرۈشكە بولمايدۇ:
بۇ ئەھۋالدا ،بۇ كودنى تۆۋەندىكى نەشرىنى ئىشلىتىڭ: قوللىنىشچان كاتەكچە. سۆز String Dim wordIndex ، matchCount, positionInText بولسا پۈتۈن سان سۈپىتىدە ئەگەر CaseSensitive بولسا سۆز = Split (Cell.Value, Delimiter) باشقا سۆزلەر = Split (LCase (Cell.Value)) سۆزلەر) - 1 سۆز = سۆزلەر 0 ئاندىن تېكىست = "" كۆرسەتكۈچ ئۈچۈن = LBound (سۆز) UBound (سۆز) تېكىست = تېكىست & amp; سۆزلەر (كۆرسەتكۈچ) ئەگەر (سۆزلەر (كۆرسەتكۈچ) = سۆز) ئۇنداقتا Cell.Characters (Len (تېكىست) - Len (سۆز) + 1 ، Len (سۆز)). Font.Color = vbRed End If text = text & amp; Delimiter Next End ئەگەر كېيىنكى سۆز Index End Sub
ماكرونى قانداق ئىشلىتىپ Excel
دىكى كۆپەيتىلگەن سۆزلەرنى گەۋدىلەندۈرۈش ئۈچۈن ، ئەگەر سىز VBA نى ئىشلىتىشنى باشلىغان بولسىڭىز ، تۆۋەندىكى باسقۇچلۇق كۆرسەتمىلەر سىزگە راھەت ماڭىدۇ. . تەجرىبىلىك ئىشلەتكۈچىلەر بولۇشى مۇمكىنچۈشۈرۈش ئۇلانمىسىنى تاللاڭ ۋە قالغانلىرىنى ئاتلاپ قويۇڭ :)
كودنى خىزمەت دەپتىرىڭىزگە قوشۇڭ
سىز Excel خىزمەت دەپتىرىڭىزگە ماكرو كودىنى قىستۇرۇشتىن باشلايسىز. بۇ يەردە قانداق ئۇسۇللار بار:
- كۆپەيتمە رەسىملەرنى گەۋدىلەندۈرمەكچى بولغان خىزمەت دەپتىرىنى ئېچىڭ. بۇ خىزمەت دەپتىرى نى ئوڭ چېكىپ ، مەزمۇن تىزىملىكىدىن قىستۇر & gt; بۆلەك نى تاللاڭ.
- كودنى كود كۆزنىكىگە چاپلاڭ.
- ماكرونى كەلگۈسىدە ئىشلىتىش ئۈچۈن ، خىزمەت دەپتىرىڭىزنى ماكرو قوزغىتىلغان .xlsm ھۆججىتى سۈپىتىدە ساقلاڭ.
ئۇنىڭدىن باشقا ، سىز ئۈلگە خىزمەت دەپتىرىمىزنى چۈشۈرۈپ ، ماكرونى شۇ يەردىن ئىجرا قىلالايسىز. ئۈلگە خىزمەت دەپتىرىدە تۆۋەندىكى ماكرولار بار:
- HighlightDupesCaseInsensitive - خەت ساندۇقىغا پەرۋا قىلمايدىغان كاتەكچىنىڭ كۆپەيتىلگەن نۇسخىسى.
- HighlightDupesCaseSensitive خەت ساندۇقىنى ئويلاشقاندا بىر كاتەكچىدە تەكرارلىنىدۇ.
تېخىمۇ كۆپ ئۇچۇرغا ئېرىشمەكچى بولسىڭىز ، Excel غا VBA كودىنى قانداق قىستۇرۇشنى كۆرۈڭ.
ئۆزىڭىزگە خىزمەت دەپتىرىڭىز ياكى چۈشۈرۈلگەن ۋە ئېچىۋېتىلگەن ئۈلگە ھۆججىتىمىز قوشۇلدى ، ماكرونى مۇنداق ئىجرا قىلىڭ:- خىزمەت جەدۋىلىڭىزدە تەكرارلانغان تېكىستنى گەۋدىلەندۈرمەكچى بولغان كاتەكچىلەرنى تاللاڭ. بۇ بىر دائىرە ياكى قوشنا بولمىغان دائىرە بولۇشى مۇمكىن.
- Alt + F8 نى بېسىڭ.
كۆرسەتمە. كاتەكچىدىكى كۆپەيتىلگەن نى تېزلىكتە ئېلىۋېتىش ئۈچۈن ، بىزنىڭ ئاخىرقى يۈرۈشلۈك ئۆيىمىزگە كىرگۈزۈلگەن نۇرغۇن ۋاقىت تېجەيدىغان قوراللارنىڭ بىرى بولغان كۆپەيتىلگەن بۆلەكلەرنى ئۆچۈرۈۋەتسىڭىز بولىدۇ.
ئېھتىياجىڭىزغا ماس كېلىدىغان كودنى قانداق تەڭشەش
بۇ ئىشلىتىش خاتىرىلىرى ۋە VBA نىڭ ئىنتايىن ئاساسىي بىلىملىرى بىلەن (ياكى تۆۋەندىكى كۆرسەتمىلەرگە يېقىندىن دىققەت قىلسىڭىز) ، ئېھتىياجىڭىزغا ئاساسەن كودلارنى ئاسانلا ئۆزگەرتەلەيسىز.
ئوخشاش مودۇلغا قويۇڭ
دىققەت قىلغىنىڭىزدەك ، ھەر ئىككى ماكرو ( HighlightDupesCaseSensitive ۋە HighlightDupesCaseInsensitive ) HighlightDupeWordsInCell ئىقتىدارىنى چاقىرىدۇ. يۇقارقى ئىككى ماكرونىڭ پەرقى پەقەت 3-پارامېتىردا (CaseSensitive) بۇ ئىقتىدارغا ئۆتكەن.
ئەھۋالغا سەزگۈر ئىزدەش ئۈچۈن ، ئۇ TRUE:
Call HighlightDupeWordsInCell(Cell, Delimiter, True)
ئەھۋالغا سەزگۈر بولمىغان ئىزدەش ئۈچۈن ، ئۇ يالغانغا تەڭشەلدى:
Call HighlightDupeWordsInCell(Cell, Delimiter, False)
ماكرولارنىڭ ئىشلىشى ئۈچۈن ، HighlightDupeWordsInCell ئىقتىدارىنىڭ كودى چوقۇم قويۇلۇشى كېرەك ئوخشاش مودۇلماكروس. سۈكۈتتىكى ئايرىغۇچ پەش ۋە بوشلۇق (",") بولۇپ ، ئۇ InputBox دا ئالدىن بېكىتىلگەن:
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 ئۇ قوللايدىغان رەڭ تۇراقلىق تىزىملىكىنى بۇ يەردىن تاپقىلى بولىدۇ.
بۇ Excel كاتەكچىلىرىدىكى تەكرارلانغان سۆزلەرنى قانداق گەۋدىلەندۈرۈش كېرەك. ئوقۇغانلىقىڭىزغا رەھمەت ، كېلەر ھەپتە بىلوگىمىزدا كۆرۈشىڭىزنى ئۈمىد قىلىمەن! يۈرۈشلۈك 14 كۈنلۈك تولۇق ئىقتىدارلىق نەشرى (.exe ھۆججىتى)
