Excel VBA دىكى ئىسىم بىلەن جەدۋەلنى قانداق قوشۇش (6 ئاسان ئۇسۇل)

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

بۇ ماقالە دىكى Excel VBA دىكى ئىسىم بىلەن جەدۋەلنى قانداق قوشۇش توغرىسىدىكى سوئاللىرىڭىزنىڭ جاۋابىنى تەمىنلەيدۇ. ئەگەر سىز بۇ خىل ئالاھىدە ئۇسۇللارنى ئىزدەۋاتقان بولسىڭىز ، مۇۋاپىق ئورۇنغا كەلدىڭىز. بۇ يەردە بىز 6 ئاسان & amp; Excel VBA دىكى ئىسىم بىلەن بىر جەدۋەلنى قوشۇشنىڭ ئىسپاتلانغان ئۇسۇللىرى> Name.xlsm بىلەن جەدۋەل قوشۇش Excel دىكى بىر ۋاراق. ئىسىم بىلەن ۋاراق قوشۇشنىڭ ئاساسىي VBA كودى تۆۋەندىكىگە ئوخشايدۇ.

Sheets.Add ([Before], [After], [Count], [Type])

ئىلگىرى: ئۇ ئىختىيارى. ئۇ مەلۇم جەدۋەلدىن ئىلگىرى يېڭى جەدۋەل قوشىدۇ.

ئۇنىڭدىن كېيىن: بۇمۇ ئىختىيارى. ئۇ مەلۇم جەدۋەلدىن كېيىن يېڭى ۋاراق قوشىدۇ.

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

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

بۇ يەردە بىزنىڭ سېتىش دوكلاتى ناملىق خىزمەت جەدۋىلى بار. ئۇنىڭدا كۈندىلىك سېتىش بارمەلۇم بىر ئاشخانىنىڭ دوكلاتىنى دوكلات قىلىڭ. B ، C ۋە D ستونلاردا ، سېتىش جاۋابلىرى ، تۈرلەر ۋە سانى ئايرىم-ئايرىم ھالدا . 0> بۇ يەردە ، بىز Microsoft Excel 365 نەشرىنى ئىشلەتتۇق ، قۇلايلىقلىقىڭىزغا ئاساسەن باشقا نەشرىنى ئىشلىتەلەيسىز. بىرىنچى ئۇسۇلىمىزدا ، ئىشلەتكۈچى كىرگۈزۈش دىن ئىسمى يېزىلغان جەدۋەلنى قوشىمىز. ئەگەر ئۆگىنىشكە قىزىقسىڭىز ، بۇ ئاددىي باسقۇچلارغا ئەگىشىڭ.

📌 باسقۇچ:

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

ئەسكەرتىش: بوشلۇق نىڭ سول تەرىپىدىكى ALT كۇنۇپكىسى. ئەگەر سىز باشقا ALT كۇنۇپكىسىنى ئىشلەتسىڭىز ، بۇ مەشغۇلات ئىجرا قىلىنمايدۇ>

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

    كودلارنىڭ بۇزۇلۇشى

    • بىرىنچىدىن ، بىز تارماق تەرتىپنى چاقىرىمىز Add_Sheet_with_Name .
    • ئاندىن ، بىز ئۆزگىرىشچان تىپلارغا ئېنىقلىما بېرىمىز. بۇ خاتالىقلارغا پەرۋا قىلمايدۇ.
    • ئۇنىڭدىن كېيىن ، بىز InputBox نى ئىشلىتىپ ئىشلەتكۈچىنىڭ جەدۋىلىگە ئېرىشتۇق. ئۇنىڭدىن باشقا ، بىز تېكىست تىزمىسىنى InputBox دىن sheet_name ئۆزگەرگۈچى مىقدارغا ساقلىدۇق.
    • كېيىنكى قەدەمدە ، ئەگەر جەدۋەل_ ئىسمى قۇرۇق بولسا ، ئۇنداقتا كود داۋاملاشتۇرمايدۇ.
    • ئاخىرىدا ، بىز يېڭىدىن قۇرۇلغان جەدۋەلگە ئىسىم قويۇش ئۈچۈن Add.Name ئۇسۇلىنى ئىشلىتىۋاتىمىز. بۇ يەردە ، ئىسىم sheet_name ئۆزگەرگۈچى مىقدار بىلەن ئوخشاش بولىدۇ.

    • بۇ ۋاقىتتا ، ئىجرا قىلىڭ (⏵) سىنبەلگىسى. ئەكسىچە ، كۇنۇپكا تاختىڭىزدا F5 نى باسسىڭىز بولىدۇ> بۇ يەرگە يېڭى ۋاراقنىڭ نامىنى كىرگۈزۈڭ. بۇ خىل ئەھۋالدا بىز ساندۇققا پايدا دەپ يازدۇق.
    • كېيىن ، بولىدۇ نى بېسىڭ.

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

    ئەسكەرتىش: ۋاراقنىڭ ئورنىنى تىلغا ئالمىدۇق. سۈكۈتتىكى ھالەتتە ، ئۇ ئاكتىپ جەدۋەلنىڭ ئالدىدا قويۇلدى.

    تېخىمۇ كۆپ ئوقۇڭ:

    2. Excel VBA نى كونكرېت جەدۋەلدىن بۇرۇن ئىسىم بىلەن جەدۋەل قوشۇش

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

    📌 قەدەم باسقۇچلار: 1> ئۇسۇل 1 .

  • ئىككىنچىدىن ، تۆۋەندىكى كودنى يېزىڭ.
  • 9347

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

    • ئۇنىڭدىن كېيىن ، كودنى ئۇسۇلدا كۆرسىتىلگەندەك ئىجرا قىلىڭ. 1 . 24>

    تېخىمۇ كۆپ ئوقۇڭ: ئۆزگىرىشچان ئىسىم بىلەن جەدۋەل قوشۇش ئۈچۈن Excel VBA (5 كۆڭۈلدىكىدەك مىسال)

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

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

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

      > كۆزنەك 1-ئۇسۇل دا كۆرسىتىلگەندەك.
    • ئۇنىڭدىن كېيىن ، تۆۋەندىكى كودنى يېزىڭ.
    2461

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

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

    تېخىمۇ كۆپ ئوقۇڭ: Excel VBA ئەگەر ئۇ بولمىسا جەدۋەل قوشۇش (تېز قەدەم بىلەن)

    4. خىزمەت دەپتىرىنىڭ بېشىدا ئىسىم بىلەن جەدۋەل قىستۇرۇش

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

    📌 قەدەم باسقۇچلار: 1> مودېل

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

    5. Excel VBA دىن پايدىلىنىپ خىزمەت دەپتىرىنىڭ ئاخىرىدا جەدۋەل قوشۇش

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

    📌 قەدەم باسقۇچلار: > 1-ئۇسۇل .

  • ئىككىنچىدىن ، تۆۋەندىكى كودنى چاپلاڭ.
  • 3101

    13>

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

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

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

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

    كود پارچىلىنىش

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

    • ھازىر ، كودنى كۆرسىتىلگەندەك ئىجرا قىلىڭ. 1-خىل ئۇسۇل .
    • شۇ ھامان ، ئالاھىدە كىرگۈزۈش ساندۇقى ئېچىلىدۇ> رامكا دائىرىسى.
    • ئەڭ ئاخىرىدا OK نى چېكىڭ.

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

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