VBA Excel دىكى قاتار-قاتار جەدۋەللەرنى ئايلىنىپ ئۆتىدۇ (11 خىل ئۇسۇل)

  • ھەمبەھىرلەڭ
Hugh West

بىزنىڭ Excel خىزمەت دەپتىرىمىزدە چوڭ سانلىق مەلۇمات ئامبىرى بولغاندا ، بەزىدە بىز رەتكە تىزىپ ئېرىشمەكچى بولغان كونكرېت نەتىجىنى چىقارساق قۇلايلىق بولىدۇ. VBA نى يولغا قويۇش Excel دىكى ھەر قانداق مەشغۇلاتنى ئىجرا قىلىشتىكى ئەڭ ئۈنۈملۈك ، ئەڭ تېز ۋە ئەڭ بىخەتەر ئۇسۇل. بۇ ماقالىدە سىزگە Excel دىكى VBA ماكرو بىلەن جەدۋەلنىڭ قۇرلىرىنى قانداق قىلىپ ئايلاندۇرۇشنىڭ 11 خىل ئۇسۇلىنى كۆرسىتىپ ئۆتىمىز.

خىزمەت دەپتىرىنى چۈشۈرۈش

ھەقسىز مەشغۇلات Excel خىزمەت دەپتىرىنى بۇ يەردىن چۈشۈرەلەيسىز.

VBA.xlsm بىلەن بىر قاتار جەدۋەللەرنى ئايلىنىپ ئۆتىمىز. Excel دىكى جەدۋەل رەت تەرتىپى ئارقىلىق VBA ئارقىلىق 11 خىل ئۇسۇل

بۇ بۆلەكتىن كېيىن ، ئوخشىمىغان 11 خىل ئۇسۇل بىلەن جەدۋەلنىڭ قۇرلىرى ئارقىلىق ئايلىنىشنى ئۆگىنىسىز ، مەسىلەن ، قۇرلارنى بوش كاتەكچە ئايلاندۇرۇش ، مەلۇم قىممەت تېپىلغۇچە قۇرلارنى ئايلىنىش ، قۇرلارنى ئايلىنىپ ئايلىنىش ۋە مەلۇم كاتەكچىگە رەڭ بېرىش قاتارلىق Excel دىكى VBA ماكرو.

ئۈستىدىكى ئۇسۇل بولسا بۇ ماقالىنىڭ ئۇسۇللارنى تەسۋىرلەيدىغان ئۈلگە سانلىق مەلۇمات جەدۋىلى.

1. VBA قىستۇرما جەدۋەلنىڭ ھەر بىر قۇردىكى كاتەكچە پايدىلىنىش نومۇرى

ئارقىلىق Excel خىزمەت جەدۋىلىدىكى جەدۋەلنىڭ ھەر بىر قۇردىكى ھەر بىر كاتەكچىدىن ئايلانماقچى بولسىڭىز. ھەمدە كاتەكچە پايدىلىنىش نومۇرىنى قايتۇرۇش قىممىتى گە ئېرىشىڭ ، ئاندىن تۆۋەندە سۆزلەنگەن باسقۇچلارغا ئەگىشىڭ.

قەدەم باسقۇچلار:

  • باشتا ، كۇنۇپكا تاختىڭىزدىكى Alt + F11 نى بېسىڭ ياكى بېرىڭئۆزگەرگۈچى مىقدار. ئۇ بۇ سۆزنى ئىزدەشتە 1-قۇردىن 15-قۇرغىچە بولغان بارلىق سانلىق مەلۇماتلارنى سايىلەشنى تاماملىغۇچە داۋام قىلىدۇ.

    تېخىمۇ كۆپ ئوقۇڭ: Excel دىكى كاتەكچە قىممىتى

    مۇشۇنىڭغا ئوخشاش ئوقۇشلۇق

    • جەدۋەلدە Excel ئىقتىدارى مەۋجۇتمۇ؟
    • جەدۋەلنى Excel دىكى تىزىملىككە قانداق ئايلاندۇرۇش (3 تېز ئۇسۇل)
    • دائىرىنى Excel دىكى جەدۋەلگە ئايلاندۇرۇش (5 ئاسان ئۇسۇل)
    • Excel جەدۋىلىدىكى فورمۇلانى ئۈنۈملۈك ئىشلىتىڭ (4 مىسال بىلەن)
    • Excel جەدۋەل ئىسمى: سىز بىلىشكە تېگىشلىك بارلىق ئىشلار

    7. Excel دىكى ھەر بىر قۇر ۋە ھەر بىر غەلىتە قۇرنى ئايلىنىپ VBA نى يولغا قويۇڭ

    ئالدىنقى بۆلەكتىن ، بىز مەلۇم قىممەتكە ئىگە كاتەكچىگە قانداق رەڭ بېرىشنى ئۆگەندۇق. بۇ بۆلەكتە ، بىز Excel دىكى VBA ماكرو بىلەن جەدۋەلنىڭ ھەر بىر قۇرنى قانداق قىلىپ ئايلاندۇرۇش ۋە ھەر بىر غەلىتە قۇر نى رەڭلەشنى ئۆگىنىمىز.

    بۇ جەرياننى ئىجرا قىلىشنىڭ قەدەم باسقۇچلىرى تۆۋەندە بايان قىلىنغان.

    قەدەم باسقۇچلار: بەتكۈچ ۋە كود كۆزنىكىگە a بۆلەك قىستۇر.

  • ئاندىن ، تۆۋەندىكى كودنى كۆچۈرۈپ ، چاپلاڭ كود كۆزنىكى.
3986

كودىڭىز ھازىر ئىجرا بولۇشقا تەييارلاندى.

ماكرونى ئىجرا قىلىڭ ۋە تۆۋەندىكى رەسىمگە قاراڭ ، چىقىرىشنى كۆرۈڭ.

بارلىق تاق سانلارنىڭ ھەممىسى رەڭلىك خىزمەت جەدۋىلىنىڭ جەدۋىلىدە تۇرىدىغان بارلىق قۇرلارنى ئايلىنىپ چىققاندىن كېيىن.

VBA كودى چۈشەندۈرۈشى>

8964

بىز ئىشلەيدىغان دائىرىگە ئېنىقلىما بېرىڭ.

6506

كودنىڭ بۇ قىسمى نۆۋەتتىكى قۇرنىڭ كېيىنكى قۇردىن باشلاپ ، B4 . ئەگەر قۇر سانلىرىنى 2 گە بۆلۈش شەكلى پۈتۈن ساندا ساقلانغان قايتۇرۇلغان قۇر سانىغا تەڭ بولسا ، ئۇنداقتا بۇ كود كودتا تەمىنلەنگەن رەڭ كۆرسەتكۈچى بىلەن ھېسابلاش ئارقىلىق چىقىرىلغان بارلىق قۇرلارنى رەڭلەندۈرىدۇ. ئۇ دائىرىنىڭ ئاخىرىغا بارغۇچە بارلىق قۇرلارنى بېسىپ ئۆتىدۇ.

8. Excel دىكى ھەر بىر قۇرنى قۇر ۋە رەڭ ئارقىلىق ئايلاندۇرۇش ئۈچۈن VBA نى يولغا قويۇڭ

ئالدىنقى بۆلەكتە ، بىز جەدۋەلنىڭ ھەربىر قۇرلىرىنى قانداق رەڭلەشنى ئۆگەندۇق. بۇ بۆلەكتە ، Excel دىكى VBA ماكرو بىلەن جەدۋەلنىڭ ھەر بىر قۇرنى قانداق قىلىپ ئايلاندۇرۇش ۋە ھەر بىر قۇر رەڭنى قانداق ئۆگۈنۈشنى ئۆگىنىمىز>

قەدەم باسقۇچلار:> كود كۆزنىكىدىكى مودۇل . 14>

2709

كودىڭىز ھازىر تەييارئىجرا قىلىڭ>

بارلىق جەدۋەلدىكى جەدۋەللەرنىڭ ھەممىسى جەدۋەلنىڭ جەدۋىلىدە تۇرغان بارلىق قۇرلارنى ئايلىنىپ ئۆتكەندىن كېيىن

رەڭدار بولىدۇ. VBA كود چۈشەندۈرۈشى
2939

ئۆزگەرگۈچى مىقدارغا ئېنىقلىما بېرىڭ.

3436

بىز ئىشلەيدىغان دائىرىنى ئېنىقلاڭ.

7322
نۆۋەتتىكى قۇردىكى ئۈچ قۇر ، B4 . ئۇ ئالدى بىلەن رەڭ بېرىدۇ ، ئاندىن قۇر سانىنى 2 گە كۆپەيتىدۇ ۋە سانلىق مەلۇمات جەدۋىلىنىڭ ئاخىرقى قۇرغا يەتكۈچە رەڭ بېرىدۇ.

9. Excel دىكى ئوچۇق كاتەكچىگە قەدەر ماكرونى رەتكە تىزىشقا ئىشلىتىڭ

ئەگەر كودىڭىزنىڭ نورمال ئىشلىشىنى ئۈمىد قىلسىڭىز ، جەدۋەلنىڭ بارلىق قۇرلىرىنى ئايلىنىپ ، بوش كاتەكچىگە كەلگەندە توختاپ قالىدۇ ، ئۇنداقتا بۇ بۆلەك سىز ئۈچۈن. سىز بۇ ۋەزىپىنى Excel VBA دىكى FOR Loop ۋە Do-Loop ئارقىلىق ئىجرا قىلالايسىز.

9.1. FOR Loop بىلەن

جەدۋەلدىكى قۇرلار ئارقىلىق ئايلانما قەدەم باسقۇچلىرى VBA Excel دىكى FOR Loop بىلەن بوش كاتەكچە بېرىلگەنگە قەدەر.

قەدەم باسقۇچلار: كود كۆزنىكىدىكى مودۇل . 14>

5576

كودىڭىز ھازىر ئىجرا بولۇشقا تەييارلاندى.

  • ئاندىن ، ئىجرا ماكرو ۋە نەتىجە تۆۋەندىكى سوۋغاتتا كۆرسىتىلىدۇ. ھەمدە ئۇ قۇرۇق كاتەكچىگە ، B8 كاتەكچىسى گە يەتكەندىن كېيىن ، تەكرارلىنىشنى توختاتتى.

VBA كود چۈشەندۈرۈشى

9850

ئۆزگەرگۈچى مىقدارغا ئېنىقلىما بېرىڭ.

2315

ئېكران يېڭىلاش ھادىسىسىنى ئېتىۋېتىڭ.

4603
9902

كاتەكچە B4 نى تاللاڭ. ئۇ بىر قۇر قۇرۇق كاتەكنى بايقىغاندىن كېيىن ئۇنى تاللايدۇ ۋە ئاخىرىغىچە قۇرلارنى سىكانىرلاشنى داۋاملاشتۇرىدۇ.

7202

ئېكران يېڭىلاش پائالىيىتىنى ئېچىڭ.

9.2. Do-Loop دەۋرى

VBA دىكى Do-till دەۋرىيلىكى

بولغان بوش كاتەكچى تۆۋەنگە بېرىلگەنگە قەدەر قۇرلار ئارقىلىق ئايلىنىش باسقۇچىغا قەدەم قويىدۇ.

قەدەم باسقۇچلار: كود كۆزنىكىدىكى مودۇل.

9261

كودىڭىز ھازىر ئىجرا بولۇشقا تەييارلاندى.

  • كېيىن ، ماكرونى ئىجرا قىلىڭ. بۇ نەتىجە تۆۋەندىكى سوۋغاتتا كۆرسىتىلدى. ئۇ قۇرۇق كاتەكچىگە ، B8 كاتەكچىسى گە يەتتى ، ئۇ تەكرارلىنىشنى توختاتتى.

VBA كودىچۈشەندۈرۈش

3567

بىز ئىشلەيدىغان كاتەكچىنى تاللاڭ. بىر قۇر تېپىلغاندىن كېيىن ئۇنى تاللاڭ ۋە تەكرارلىنىشنى توختىتىڭ.

10. VBA ماكرو Excel دىكى كۆپ خىل ئوچۇق ھۈجەيرىلەرگىچە قۇرلار ئارقىلىق ئايلىنالايدۇ

ئالدىنقى بۆلەكتە ، قۇرۇق ھۈجەيرە تېپىلغاندا ئايلىنىشنى قانداق توختىتىشنى ئۆگەندىڭىز. ئەمما سىز پەقەت بىرلا ئورۇننىڭ ئورنىغا بىر قانچە قۇرۇق ھۈجەيرە تېپىلمىغۇچە تەكرارلىنىشنى توختاتمىسىڭىزچۇ؟ تۆۋەندە VBA Excel كۆرسىتىلدى.

قەدەم باسقۇچلار: پروگرامما ئاچقۇچى بەتكۈچى ۋە كود كۆزنىكىگە a بۆلەك قىستۇر.

  • ئاندىن ، تۆۋەندىكى كودنى ۋە <1 نى كۆچۈرۈڭ. ئۇنى كود كۆزنىكىگە چاپلاڭ.
  • 2474

    كودىڭىز ھازىر ئىجرا بولۇشقا تەييار.

    • ھازىر ، ماكرونى ئىجرا قىلىڭ ۋە چىقىرىش ئۈچۈن تۆۋەندىكى gif نى كۆرۈڭ.

    ماكرونى ئىجرا قىلغاندىن كېيىن ، توختاپ قالمىدى بىرىنچى بوش ھۈجەيرە ، B8 كاتەكچىسى . ئۇ B16 كاتەكچىسىدە ئۇدا ئىككى بوش كاتەكچىنى بايقىغاندا توختاپ قالدى.

    VBA كود چۈشەندۈرۈش

    4286

    كاتەكچىنى تاللاڭ بىز ئىشلەيمىز.

    8191

    ئۇدا ئىككى قۇرۇق ھۈجەيرە تېپىلغۇچە ئايلىنىشنى باشلايدۇ ۋە داۋاملاشتۇرىدۇ.ئۇنى تاللاڭ ۋە تەكرارلاشنى توختىتىڭ.

    11. VBA نى قىستۇرما قىلىپ بارلىق ئىستونلارنى بىرلەشتۈرۈپ Excel دىكى بوش ھالەتكە كەلگىچە

    بۇ بۆلەكتە جەدۋەلدىكى بارلىق قۇرلارنى قانداق قىلىپ ئايلاندۇرۇش ۋە بارلىق كاتەكچىلەرنى بوش كاتەكچە بىرلەشتۈرۈشنى كۆرسىتىپ بېرىدۇ. VBA Excel بىلەن تېپىلدى.

    Excel دىكى VBA ماكرو ئارقىلىق قانداق قىلىشنى ئۆگىنىۋالايلى.

    كود كۆزنىكىدە. ھازىر ئىجرا قىلىشقا تەييارلاندى.

    يۇقارقى سوۋغاتتىن كۆرۈۋېلىشقا بولىدۇكى ، بىر سەكرىمە MsgBox سىزگە ھەر بىر ئىستوندا تۇرىدىغان بارلىق ئىستونلارنىڭ بىرلەشتۈرۈلگەن قىممىتىنى كۆرسىتىپ بېرىدۇ. قۇر Excel خىزمەت جەدۋىلىنىڭ جەدۋىلىدىن. ئەمما ئۇ قۇرۇق كاتەكچىگە يەتكەندىن كېيىن توختاپ قالدى.

    VBA كود چۈشەندۈرۈشى

    1259
    >
    5280

    بىز ئىشلەيدىغان جەدۋەل نامىنى بەلگىلەڭ (« ConcatenatingAllColUntilBlank » خىزمەت دەپتىرىدىكى جەدۋەل ئىسمى).

    9714

    بىز ئىشلەيدىغان دائىرىنى ئېنىقلاڭ. 3>

    9827

    بۇ كود سانلار گۇرپىسى بىلەن دەۋرىيلىنىشنى باشلايدۇ. ئۇ سانلار گۇرپىسىنىڭ ئەڭ چوڭ مۇشتەرىلىكى ۋە تۆۋەنكى چېگرىسىنى قايتۇرغۇچە داۋاملىشىدۇبىرىنچى ئۆلچەم. ئاندىن ئۇ ئىككىنچى ئۆلچەمنىڭ تۆۋەنكى چېكىنى چىقىرىشنىڭ تەكرارلىنىشىغا كىرىدۇ. ئۇنىڭدىن كېيىن ، ئۇ iResult ئۆزگەرگۈچى مىقداردىكى بارلىق چىقىرىلغان قىممەتلەرنى بىرلەشتۈرۈپ نەتىجىنى MsgBox غا تاشلايدۇ. ئۇ بوش كاتەكچىنى تاپقۇچە داۋام قىلىدۇ. Excel دىكى جەدۋەلنىڭ VBA ماكرو . بۇ ماقالىنىڭ سىزگە ناھايىتى پايدىلىق بولۇشىنى ئۈمىد قىلىمەن. تېمىغا مۇناسىۋەتلىك سوئاللارنى سوراپ بېقىڭ.

    بەتكۈچكە ئاچقۇچى - & gt; Visual Basicنى ئېچىش ئۈچۈن Visual Basic تەھرىرلىگۈچ.

      تىزىملىك ​​بالدىقى ، قىستۇرۇش - & gt; مودۇلى. كۆزنەك.
    2059

    كودىڭىز ئىجرا بولۇشقا تەييارلاندى.

    • كۇنۇپكا تاختىسى ياكى تىزىملىك ​​بالدىقىدىن ئىجرا - & gt; Sub / UserForm نى ئىجرا قىلىڭ. ماكرونى ئىجرا قىلىش ئۈچۈن تارماق تىزىملىك ​​بالدىقىدىكى كىچىك ئويۇن سىنبەلگىسى نى باسسىڭىزلا بولىدۇ.

    • ياكى سانلىق مەلۇمات جەدۋىلى ۋە نەتىجىنى كۆرۈنۈشتە سېلىشتۇرۇپ كۆرۈڭ ، سىز كودنى تېجەپ ، قىزىقىدىغان خىزمەت جەدۋىلىگە قايتالايسىز.
    • ئۇ يەردىن <1 نى باسسىڭىز بولىدۇ> ئاچقۇچىلار بەتكۈچىدىن ماكروس ، ماكرو نامىنى تاللاڭ ، ئاندىن ئىجرا نى بېسىڭ.

    مۇۋەپپەقىيەتلىك كود ئىجرا قىلىنغاندىن كېيىن ، يۇقىرىدىكى gif غا قاراڭ ، نەتىجىنى كۆرۈڭ. سىزدە Excel جەدۋىلىدىكى جەدۋەلدىن ھەر بىر قۇردىن ھەر بىر كاتەكچىنىڭ كاتەكچە پايدىلىنىش نومۇرى كۆرسىتىلگەن MsgBox چىقىدۇ.

    VBA كود چۈشەندۈرۈشى

    2500

    B ئىستوننى ئىزدەش ئارقىلىق جەدۋەلدىكى ئەڭ ئاخىرقى قۇر نومۇرىنى ئېلىش ئۈچۈن <<>

    2193

    بىرىنچى قۇردىن ئايلىنىش ئۈچۈن.ستون نومۇرى نۆۋەتتىكى قۇرنى ئاخىرقى قۇرغىچە باھالاش ئارقىلىق. تەكرارلاش ۋە كودنىڭ نەتىجىسىنى كۆرسىتىش. . VBA نى يولغا قويۇپ ، ھەر بىر قۇردىكى ھەر بىر كاتەكچىگە قىممەت بويىچە ئايلىنىڭ

    ئەگەر سىز جەدۋەلنىڭ ھەر بىر قۇردىكى ھەر بىر كاتەكچىدىن ئايلىنىپ ، كاتەكچىدە تۇرغان قىممەتنى قايتۇرۇش قىممىتى قىلىپ تاشلىماقچى بولسىڭىز. ، ئۇنداقتا بۇ بۆلەك VBA Excel ئارقىلىق قانداق قىلىشنى بىلىشىڭىزگە ياردەم بېرىدۇ.

    سىز بۇنى ListObject ۋە <1 ئارقىلىق قىلالايسىز> DataBodyRange خاسلىقى VBA . بىز سىزگە ئوبيېكت ۋە مۈلۈك بىلەن ماكرو كودنى كۆرسىتىمىز.

    2.1. ListObject

    بىلەن VBA Excel دىكى ListObject بىلەن كاتەكچە قىممىتى بويىچە جەدۋەلنىڭ ھەر بىر قۇردىكى ھەر بىر كاتەكچىدىن ئايلىنىشنىڭ قەدەم باسقۇچلىرى كۆرسىتىلدى.

    قەدەم باسقۇچلار: 1> كود كۆزنىكىگە a مودۇل نى قىستۇرۇڭ. ئۇ.

    9552

    كودىڭىز ھازىر ئىجرا بولۇشقا تەييارلاندى.

    • ئۇنىڭدىن كېيىن ، يۇقارقى بۆلەكتە سىزگە كۆرسەتكەندەك. نەتىجە سوۋغاتتا كۆرسىتىلدىتۆۋەندە> Excel جەدۋىلىدىكى جەدۋەلدىن.

    VBA كود چۈشەندۈرۈشى

    1115
    كود ئالدى بىلەن جەدۋەلدىكى قۇرلار ئارقىلىق ئايلىنىشقا باشلايدۇ (« TblStudents » بىزنىڭ جەدۋەل ئىسمىمىز). ئاندىن ھەر بىر قۇر ئۈچۈن ئىستونغا كىرىدۇ. ئۇنىڭدىن كېيىن ، MsgBox دىكى كاتەكچىنىڭ قىممىتىنى يەتكۈزۈڭ. ئاندىن كېيىنكى ئىستونغا بېرىڭ. بىر قۇرنىڭ بارلىق ستونلىرى ئارقىلىق تەكرارلاشنى تۈگەتكەندىن كېيىن ، ئۇ كېيىنكى قۇرغا ئۆتۈپ ، تەكرارلىنىش جەريانىنى ئاخىرقى قۇرغىچە داۋاملاشتۇرىدۇ.

    2.2. DataBodyRange خاسلىقى

    جەدۋەلدىن ئېلىنغان سانلىق مەلۇماتلار بىلەن تېخىمۇ ئېنىقراق ​​بولۇش ئۈچۈن ، سىز ListObject نىڭ DataBodyRange خاسلىقىنى ئىشلىتەلەيسىز. DataBodyRange خاسلىقى سىزگە باش قۇر بىلەن قىستۇرما قۇر ئارىسىدىكى تىزىملىكتىكى ئارىلىقنى ئۆز ئىچىگە ئالغان نەتىجىنى تاشلايدۇ. جەدۋەلنىڭ سانلىق مەلۇمات جەدۋىلىدىكى DataBodyRange بىلەن VBA Excel دا بېرىلگەن.

    باسقۇچلار:

    • كۆرسىتىلگەندەك ئىلگىرى ، پروگرامما ئاچقۇچى بەتكۈچىدىن Visual Basic تەھرىرلىگۈچ نى ۋە كود كۆزنىكىگە a بۆلەك نى كىرگۈزۈڭ.
    • ئاندىن ، تۆۋەندىكى كودنى كۆچۈرۈپ ، نى كود كۆزنىكىگە چاپلاڭ.
    5698

    كودىڭىز ھازىر ئىجرا بولۇشقا تەييار.

    • كېيىن ، ماكرونى ئىجرا قىلىڭ ۋە تۆۋەندىكى سوۋغاتقا قاراڭ ، ئۇنىڭ نەتىجىسىنى كۆرۈڭ. 2> سىزگە Excel جەدۋىلىدىكى جەدۋەلدىن ھەر بىر قۇردىن ھەر بىر كاتەكچىدە ئېلىپ يۈرگەن قىممىتىنى كۆرسىتىپ بېرىدۇ.

      VBA كود چۈشەندۈرۈشى

      1753

      ئۆزگەرگۈچى مىقدارغا ئېنىقلىما بېرىڭ.

      5198

      بۇ كود ئالدى بىلەن جەدۋەلدىكى قۇرلار (" جەدۋەلنىڭ بەت بېشى. ئاندىن MsgBox دىكى دائىرىنىڭ قىممىتىنى يەتكۈزۈڭ. ئاندىن كېيىنكى قۇرغا بېرىپ دائىرىنى چىقىرىپ ، تەكرارلاش جەريانىنى ئاخىرقى قۇرغىچە داۋاملاشتۇرىدۇ.

      3. Excel

      دىكى ئىستونلارنى بىرلەشتۈرۈش ئارقىلىق VBA ماكرونى قۇرلار ئارقىلىق رەتلەش ئۈچۈن ئىشلىتىڭ Excel دا. كاتەكچىدىكى جون ۋە D5

      كاتەكچىسىدىكى 89 ئۇلارنى قۇر 5 دىن بىرلەشتۈرۈش ئارقىلىق. Excel دىكى VBA ماكرو.

      قەدەم باسقۇچلار:

      • دەسلەپتە پروگرامما ئاچقۇچى بەتكۈچى ۋە كود كۆزنىكىگە a بۆلەك قىستۇر.
      • ئىككىنچىدىن ، كود كۆزنىكىدە ، تۆۋەندىكى نى كۆچۈرۈڭ كودھەمدە چاپلاش .
      3327

      كودىڭىز ھازىر ئىجرا بولۇشقا تەييارلاندى.

        > ماكرونى ئىجرا قىلىڭ. نەتىجىنى كۆرۈش ئۈچۈن تۆۋەندىكى سوۋغاتقا قاراڭ. بىرىنچى ۋە ئىككىنچى ئىستوندىكى ھۈجەيرىلەرنىڭ
      ( B تۈۋرۈكتىكى B5 كاتەكچىسىدىكى جون ۋە C1 كاتەكچىسىدىكى 101 C) دىن كېيىن بىرلەشتۈرۈلگەن قىممەت. بىرىنچى ۋە ئۈچىنچى ئىستوندىكى ھۈجەيرىلەرنىڭ ( قۇر B5 دىكى B5 كاتەكچىسىدىكى جون ۋە D1 كاتەكچىسىدىكى D1 دىكى 89) قۇر 5 سانلىق مەلۇمات ئامبىرىڭىزدىن. ھەمدە بۇ بىرلەشتۈرۈش مەشغۇلاتى جەدۋەلنىڭ ئاخىرقى قۇرىغا يەتكۈچە داۋاملىشىدۇ.

      VBA كود چۈشەندۈرۈشى

      3671

      ئۆزگەرگۈچى مىقدارغا ئېنىقلىما بېرىڭ. 3>

      3160

      ئاندىن كود ئاكتىپ جەدۋەلدىن جەدۋەلنى تاللايدۇ (جەدۋەل نامىدا « TblConcatenate »).

      2248

      ئۇنىڭدىن كېيىن ، ھەر بىر قۇرنى تەكرارلاشقا باشلايدۇ. ستون. ئەگەر تەكرارلىنىش ئىستون بېشى بىلەن قۇر ئارىلىقىدا ماس كېلىدىغانلىقىنى بايقىسا ، ئۇنداقتا ئۇ قىممەتنى iValue ئۆزگەرگۈچى مىقداردا ساقلايدۇ.

      9629

      ئەگەر يۇقارقى شەرت ئەمەلگە ئاشمىسا ، ئۇنداقتا كود MsgBox غا قىممەت تاشلايدۇ ۋە شەرتنى تاماملايدۇ. ئۇنىڭدىن كېيىن ، ئۇ باشقا دائىرىدە ئايلىنىشقا ئۆتىدۇ ۋە ئاخىرقى قۇرغىچە تەكرارلاشنى داۋاملاشتۇرىدۇ. ئۇ ئاخىرقى قۇرغا يەتكەندىن كېيىن ، ماكرو كود ئىجرا قىلىشنى ئاخىرلاشتۇرىدۇ.

      4. ماكرونى Iterate غا قىستۇرۇڭExcel دىكى جەدۋەلدىكى بارلىق ستونلارنى بىرلەشتۈرۈش ئارقىلىق قۇرلار ئارقىلىق

      بۇ بۆلەكتە ، بىز ھەر بىر قۇرنىڭ سانلىق مەلۇمات جەدۋىلىدە

      تۇتقان بارلىق ئىستونلارنى بىلەن قانداق بىرلەشتۈرۈشنى ئۆگىنىمىز. Excel دىكى VBA ماكرو.

      تۆۋەندە كۆرسىتىلگەن ئىجرا باسقۇچلىرى.

      قەدەم باسقۇچلار: 1> كۆرۈنمە ئاساسىي تەھرىرلىگۈچ

      ئاچقۇچىلار بەتكۈچىدىن ۋە كود كۆزنىكىگە a مودۇل قىستۇر.
    • ئاندىن ، تۆۋەندىكى كودنى كۆچۈرۈڭ ۋە ئۇنى كود كۆزنىكىگە چاپلاڭ.
    9432

    كودىڭىز ھازىر ئىجرا بولۇشقا تەييارلاندى.

    • كېيىنكى ، ماكرو كودنى ئىجرا قىلىڭ.

    يۇقارقى سوۋغاتتىن كۆرگىنىڭىزدەك ئېچىلغان MsgBox Excel خىزمەت جەدۋىلىڭىزنىڭ جەدۋىلىدىن ھەر بىر قۇر دا تۇرىدىغان بارلىق ئىستونلارنىڭ بىرلەشتۈرۈلگەن قىممىتىنى كۆرسىتىپ بېرىدۇ.

    VBA كود چۈشەندۈرۈشى

    1901

    ئۆزگەرگۈچى مىقدارلارغا ئېنىقلىما بېرىڭ.

    9975

    بىز ئىشلەيدىغان جەدۋەل نامىنى بەلگىلەڭ (« خىزمەت دەپتىرىدە).

    1524

    De بىز ئىشلەيدىغان جەدۋەل نامىنى جەرىمانە قويۇڭ (« TblConcatenateAll » سانلىق مەلۇمات جەدۋىلىمىزدىكى جەدۋەل ئىسمى).

    8695

    جەدۋەلنىڭ ھەر بىر قۇرلىرى ئارقىلىق تەكرارلىنىشنى باشلايدۇ.

    4002

    جەدۋەلنىڭ ھەر بىر قۇرنىڭ ھەر بىر ئىستونى ئارقىلىق تەكرارلىنىشنى باشلايدۇ.

    9244

    ھەر بىر قۇرنىڭ ھەر بىر ستوندىكى قىممەتنى كېسىش ئارقىلىق نەتىجىنى ساقلاڭ. ھەر بىر قۇردا تۇرىدىغان بارلىق ئىستونلارنى سايىلەپ بولغاندىن كېيىن ، ئۇ ئۆتۈپ كەتتىنەتىجىدە MsgBox. ئاندىن يەنە كېيىنكى قۇردا ئايلىنىشقا باشلايدۇ ۋە ئۈستەلنىڭ ئاخىرقى قۇرىغا يەتكۈچە ئايلىنىشنى داۋاملاشتۇرىدۇ.

    تېخىمۇ كۆپ ئوقۇڭ: (2 خىل ئۇسۇل)

    5. ئەگەر VBA ماكرو

    جەدۋەلنىڭ رەت-تەرتىپىدە ئايلىنىش ئارقىلىق تېپىلغان قىممەتنى ئۆزگەرتىشنى توختىتىڭ ، ئەگەر سىز جەدۋەلنىڭ قۇرلىرى ئارقىلىق ئايلىنىشنى ئويلىسىڭىز ، مەلۇم قىممەتنى تاپقاندا ئايلىنىشنى توختىتىڭ . بۇنى پەقەت ئاددىي ماكرو كود بىلەنلا قىلالايسىز.

    Excel دىكى VBA نى قانداق قىلىشنى ئۆگىنىۋالايلى.

    • دەسلەپتە ، پروگرامما ئاچقۇچى بەتكۈچىدىن كۆرۈنمە ئاساسىي تەھرىرلىگۈچ نى ۋە كود كۆزنىكىگە a بۆلەك نى كىرگۈزۈڭ.
    • ئاندىن ، كود كۆزنىكىدە ، تۆۋەندىكى كودنى كۆچۈرۈڭ ۋە چاپلاڭ .
    5512

    كودىڭىز ھازىر ئىجرا بولۇشقا تەييارلاندى .

    • كېيىن ، ماكرونى ئىجرا قىلىڭ.
    • دائىرە ئىچىدىكى كونكرېت قىممەتنى (« قىر ») تېپىپ ، نەتىجىنى MsgBox غا تاشلايدۇ.

    يۇقارقى رەسىمدىن كۆرۈۋېلىشقا بولىدۇكى ، بىر قاڭقىش MsgBox سىزگە كاتەكچە ئادرېسى ، $ B $ 10 نى كۆرسىتىپ بېرىدۇ. كۆرسىتىلگەن قىممەت ، « قىر » .

    VBA كود چۈشەندۈرۈشى

    3037
    ئۆزگەرگۈچى مىقدار.« قىر » ئاندىن ئۇ سۆزنى ساقلىغان كاتەكچە ئادرېسى بىلەن نەتىجىنى بېرىدۇ. ئۇ بۇ سۆزنى ئىزدەشتە 1-قۇردىن 15-قۇرغىچە بولغان بارلىق سانلىق مەلۇماتلارنى سايىلەشنى تاماملىغۇچە داۋام قىلىدۇ.

    تېخىمۇ كۆپ ئوقۇڭ: Excel جەدۋىلىدىكى قۇر ۋە ستونلارنى قانداق قىستۇرۇش ياكى ئۆچۈرۈش

    6. VBA ھەر بىر قۇردىن ھالقىپ ، Excel دىكى ئالاھىدە قىممەتنى رەڭدار قىلىدۇ

    ئەگەر سىز بەلگىلەنگەن قىممەتنىڭ كاتەكچە ئادرېسىنى MsgBox غا تاشلاشنى خالىمىسىڭىزچۇ؟ سىز ئىزدەۋاتقان قىممىتى بار كاتەكچىگە رەڭ بەرمەكچى بولۇشىڭىز مۇمكىن.

    بۇنى VBA ماكرو ئارقىلىق قانداق قىلىشنى ئۆگىنىۋالايلى. قەدەم باسقۇچلار: كود كۆزنىكىدىكى بۆلەك >

    7347

    كودىڭىز ھازىر ئىجرا بولۇشقا تەييار.

    • ئۇنىڭدىن كېيىن ، ماكرونى ئىجرا قىلىڭ.
    • ئۇ دائىرە ئىچىدە ئايلىنىشنى باشلايدۇ ۋە كونكرېت قىممەتنى (« قىر ») نى تاپقاندا توختىتىدۇ ۋە كاتەكچە بىلەن ColourIndex نى رەڭلەيدۇ. سىز كودتا تەمىنلىگەن . 37> ، بىز بېكىتىلگەن قىممەتنى تاپتۇق ، « قىر » كود ئىجرا قىلىنغاندىن كېيىن رەڭدار.

    VBA كود چۈشەندۈرۈشى

    3896

    ئېنىقلىما

    خۇگ ۋېست بۇ ساھەدە 10 نەچچە يىللىق تەجرىبىسى بار يۇقىرى تەجرىبىلىك Excel مەشقاۋۇلى ۋە تەھلىلچىسى. ئۇ بوغالتىرلىق ۋە مالىيە كەسپىدە باكلاۋۇرلۇق ئۇنۋانى ۋە سودا باشقۇرۇش كەسپىدە ماگىستىرلىق ئۇنۋانىغا ئېرىشكەن. خۇگنىڭ ئوقۇتۇش قىزغىنلىقى بار بولۇپ ، ئەگىشىش ۋە چۈشىنىش ئاسان بولغان ئۆزگىچە ئوقۇتۇش ئۇسۇلىنى تەرەققىي قىلدۇردى. ئۇنىڭ Excel ھەققىدىكى مۇتەخەسسىس بىلىمى دۇنيادىكى مىڭلىغان ئوقۇغۇچىلار ۋە كەسپىي خادىملارنىڭ ماھارىتىنى ئۆستۈرۈشىگە ۋە كەسپىي ھاياتىدا مۇنەۋۋەر بولۇشىغا ياردەم بەردى. خۇگ بىلوگى ئارقىلىق ئۆزىنىڭ بىلىملىرىنى دۇنيا بىلەن ئورتاقلىشىدۇ ، ھەقسىز Excel دەرسلىكى ۋە توردا تەربىيىلەش ئېلىپ بېرىپ ، شەخس ۋە كارخانىلارنىڭ تولۇق يوشۇرۇن كۈچىگە يېتىشىگە ياردەم بېرىدۇ.