مەزمۇن جەدۋىلى
قاچان لازىم بولسا بىر ۋاراقتىن يەنە بىر ۋاراق ياكى خىزمەت دەپتىرىگە كۆچۈرەلەيسىز. كۆپەيتىش ۋە چاپلاشنىڭ ئوخشىمىغان تۈرلىرى بار. بۇ ماقالىدىن كېيىن ، Excel VBA كۆپەيتىش دائىرىسىنى باشقا بىر ۋاراققا ئىشلىتىشنىڭ ئوخشىمىغان ئۇسۇللىرىنى بىلىسىز.
چۈشەندۈرۈشنى جانلىق قىلىش ئۈچۈن ، مەن مەلۇم كىشىلەرنىڭ شەخسىي ئۇچۇرلىرىغا ۋەكىللىك قىلىدىغان ئەۋرىشكە سانلىق مەلۇمات جەدۋىلىنى ئىشلىتىمەن. . سانلىق مەلۇمات جەدۋىلىدە 4 ئىستون بار. بۇ ئىستونلار ئىسمى ، فامىلىسى ، تولۇق ئىسمى ، ۋە ئېلېكترونلۇق خەت .
خىزمەت دەپتىرىنى چۈشۈرۈش
VBA كۆچۈرۈش دائىرىسىنى باشقا جەدۋەلگە كۆچۈرۈڭ. Xlsmفورماتى بار باشقا بىر جەدۋەلگە
فورمات بىلەن بىر ۋاراقتىن يەنە بىر ۋاراققىچە بولغان ئارىلىقنى كۆچۈرمەكچى بولسىڭىز ، <نى ئىشلىتىش ئارقىلىقلا قىلالايسىز> VBA . 0> تەرتىپنى باشلايلى ،
ئالدى بىلەن ، ئاچقۇچى بەتكۈچ & gt; & gt; Visual Basic
نى تاللاڭ ، سىز يەنە ALT + F11 كۇنۇپكا تاختىسىنى ئىشلىتىپ VBA <نى ئاچالايسىز. 3> تەھرىرلىگۈچ> & gt; & gt; مودۇلنى نى تاللاڭ. & gt; & gt; ماكرونى كۆرۈش
➤ A سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو نامىدىن Copy_Range_BelowLastCell_AnotherSheets نى تاللاڭ دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، ئىجرا قىلىڭ تاللانغان ماكرو .1 <<.1 <<> 3> باشقا خىزمەت دەپتىرىنىڭ ئاخىرقى قۇرغىچە بولغان ئارىلىقنى سىز يەنە VBA نى ئىشلىتەلەيسىز. ۋاراق جەدۋەل 2 نىڭ كىتاب 2 دىن ، ئەمما تۇنجى بوش بولمىغان كاتەكچىدىن.
تەرتىپنى باشلاش ئۈچۈن ،
ئالدى بىلەن ، ئاچقۇچى بەتكۈچىنى ئېچىڭ & gt; & gt; كۆرۈنۈش ئاساسى
نى تاللاڭ ، سىز يەنە ALT + F11 كۇنۇپكا تاختىسىنى ئىشلىتىپ VBA تەھرىرلىگۈچنى ئاچالايسىز.
كېيىنكى قەدەمدە ، ئۇ Microsoft Visual Basic قوللىنىشچان پروگراممىنىڭ يېڭى كۆزنىكىنى ئاچىدۇ.
ئۇ يەردىن قىستۇر <3 نى ئېچىڭ> & gt; & gt; مودۇلنى نى تاللاڭ.
6030
بۇ يەردە ، مەن تارماق تەرتىپ Copy_Range_BelowLastCell_To_Another_Workbook بۇ يەردە wsCopy ۋە wsDestination بولسا خىزمەت جەدۋىلى تىپى ، lCopyLastRow ۋە lDestLastRow بولسا ئۇزۇن تىپى. كۆپەيتىش دائىرىسىدىكى A ستوننىڭ سانلىق مەلۇماتلىرىغا ئاساسەن ئاخىرقى قۇرنى تېپىش ئۈچۈن قۇر ئۇسۇلىنى قوللاندى.
يەنە كېلىپ ، قۇر ئۇسۇلىنى قوللاندى. نىشان دائىرىسىدىكى A ستوننىڭ سانلىق مەلۇماتلىرىغا ئاساسەن تۇنجى قۇرۇق قۇرنى تېپىش ئۈچۈن يەنە Offset نى ئىشلىتىپ بىر مۈلۈكنى يۆتكىدى.
ئاخىرىدا ، كۆچۈرۈلگەن Dataset2 جەدۋەلنىڭ سانلىق مەلۇماتلىرى Excel VBA كۆچۈرۈش دائىرىسىدىن باشقا بىر جەدۋەلگە. 3>.
ھازىر ، كودنى ساقلاڭ ۋە خىزمەت جەدۋىلىگە قايتىڭ. دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
➤ A سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو نامىدىن Copy_Range_BelowLastCell_To_Another_Workbook نى تاللاڭ دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، تاللانغان ماكرو . <<> باشقا بىر ۋاراققا.Excel VBA كۆچۈرۈش دائىرىسى باشقا بىر بەت. بۇ ئوخشىمىغان ئۇسۇللار بىر ۋاراقتىن يەنە بىر ۋاراققا ، شۇنداقلا بىر ۋاراقتىن يەنە بىر خىزمەت دەپتىرىگە كۆچۈرۈشىڭىزگە ياردەم بېرىدۇ. ئەڭ ئاخىرقىسى ، ھېچ بولمىغاندا ، ھەر قانداق تەكلىپ ، پىكىر ۋە تەكلىپ-پىكىرلىرىڭىز بولسا ، تۆۋەندە ئىنكاس قايتۇرۇڭ.
بۆلەك.3899
بۇ يەردە ، مەن تارماق تەرتىپنى كۆپەيتىش مەن بار بولغان جەدۋەلدىن ۋاراق نامىغا WithFormat غا كۆچۈرۈش ئۈچۈن B1: E10 دائىرىسىنى ئالدىم.
بۇ يەردە ، مەن كۆپەيتىش نى ئىشلەتتىم. تاللانغان دائىرىنى كۆچۈرۈش ئۇسۇلى ، كۆچۈرۈش ئۇسۇلى فورمات بىلەن ھەر قانداق دائىرىنى كۆپەيتىدۇ. .
ئۇنىڭدىن كېيىن ، كۆرۈش بەتكۈچىنى ئېچىڭ & gt; & gt; دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
➤ A سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن Copy_Range_withFormat_ToAnother_Sheet نى تاللاڭ دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، ئىجرا تاللانغان ماكرو .
شۇڭلاشقا ، ئۇ تاللانغان دائىرىنى فورمات بىلەن مەن تاللىغان يېڭى جەدۋەلگە كۆچۈرىدۇ فورمات بىلەن) . VBA نى ئىشلىتىپ فورمات بولمىسا دائىرىنى باشقا بىر ۋاراققا كۆچۈرگىلى بولىدۇ.
بۇ يەردە ، مەن كۆچۈرەي> سانلىق مەلۇمات جەدۋىلى جەدۋىلىدىن فورماتسىز ۋاراققىچە بولغان ئارىلىق.
ئەمدى بۇ جەرياننى باشلايلى ، بەتكۈچ & gt; & gt; Visual Basic نى تاللاڭ ( ALT + F11 نى ئىشلىتىڭ)
كېيىنكى قەدەمدە ، ئۇ قوللىنىشچان پروگراممىلارنىڭ Microsoft Visual Basic.
ئاندىن ، قىستۇر & gt; & gt; مودۇلنى نى تاللاڭ.
5740
بۇ يەردە ، مەن تارماق تەرتىپ Copy_Range_WithoutFormat_Toanother_Sheet
مەن دائىرىنى ئالدىم. B1: E10 ھازىرقى ۋاراقتىن ۋاراق نامىغا فورماتسىز غا كۆچۈرۈش.
بۇ يەردە ، مەن تاللانغان دائىرىنى كۆچۈرۈش ئۈچۈن كۆچۈرۈش ئۇسۇلىنى قوللاندىم ، ئەمما تىلغا ئېلىنغان چاپلاش: = xlPasteValues PasteSpecial ئۇسۇلىدا ، ئۇ پەقەت تاللانغان دائىرە ئىچىدىكى قىممەت نى چاپلايدۇ ، فورمات ئەمەس. ، كودنى ساقلىۋېلىپ ، خىزمەت جەدۋىلىگە قايتىڭ. دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
➤ A سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن Copy_Range_WithoutFormat_Toanother_Sheet نى تاللاڭ ، شۇنداقلا دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، تاللانغان ماكرو نى ئىجرا قىلىڭ. <>
خالىغان دائىرىنى خالىغانچە كۆچۈرۈڭ ، بۇنىڭ ئۈچۈن فورمات ۋە ستون كەڭلىكى بىلەن دائىرىنى كۆچۈرەلەيسىز.
بۇ يەردە ، مەن سانلىق مەلۇمات جەدۋىلى جەدۋىلىدىن فورمات & amp; ستون كەڭلىكى ۋاراق. كۆرۈنۈش ئاساسى
نى تاللاڭ ، سىز يەنە ALT + F11 كۇنۇپكا تاختىسىنى ئىشلىتىپ VBA تەھرىرلىگۈچنى ئاچالايسىز.
كېيىنكى قەدەمدە ، ئۇ قوللىنىشچان پروگراممىلارنىڭ Microsoft Visual Basic نىڭ يېڭى كۆزنىكىنى ئاچىدۇ.
ئۇ يەردە ، قىستۇر نى ئېچىڭ. & gt; & gt; مودۇلنى نى تاللاڭ.
4839
بۇ يەردە ، مەن تارماق تەرتىپ كۆچۈرۈش B1: E10 مەۋجۇت ۋاراقتىن مەنزىل جەدۋىلى نامىغا فورمات & amp; ستون كەڭلىكى .
بۇ يەردە ، مەن تاللانغان دائىرىنى كۆچۈرۈش ئۈچۈن كۆچۈرۈش ئۇسۇلىنى قوللاندىم. مەن چاپلاش: .
ئاخىرىدا ، كودنى ساقلاڭ ۋە خىزمەت جەدۋىلىگە قايتىڭ. دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
➤ A سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth نى تاللاڭ ، شۇنداقلا دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، تاللانغان نى ئىجرا قىلىڭ ماكرو >
4. VBA فورمۇلا
فورمۇلا بىلەن بىر جەدۋەلنى باشقا جەدۋەلگە كۆچۈرۈڭ. ئەنسىرىمەڭ! سىز فورمۇلا بولغان دائىرىنى باشقا جەدۋەلگە كۆچۈرۈپ فورمۇلانى ساقلاپ قالالايسىز. to WithFormula ۋاراق
تەرتىپنى باشلايلى ،
باشلاش ئۈچۈن ، ئاچقۇچى بەتكۈچ & gt; & gt; Visual Basic نى تاللاڭ ( سىز يەنە ALT + F11 كۇنۇپكا تاختىسىنى ئىشلىتەلەيسىز)
كېيىنكى ، ئۇ قوللىنىشچان پروگراممىلار ئۈچۈن Microsoft Visual Basic نى ئاچىدۇ.
ئۇ يەردىن قىستۇر & gt; & gt; مودۇلنى نى تاللاڭ.
7432
بۇ يەردە ، مەن تارماق تەرتىپ Copy_Range_withFormula_ToAnother_Sheet
مەن دائىرىنى ئالدىم. B1: E10 ھازىرقى ۋاراقتىن مەنزىل ۋاراق نامىغا فورمۇلا غا كۆچۈرۈش.
بۇ يەردە ، مەن تاللانغان دائىرىنى كۆچۈرۈش ئۈچۈن كۆچۈرۈش ئۇسۇلىنى قوللاندىم. مەن يەنە چاپلاش:
ئاندىن ، كۆرۈنۈشنى ئېچىڭ بەتكۈچ & gt; & gt; دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
➤ A سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن Copy_Range_withFormula_ToAnother_Sheet نى تاللاڭ دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، ئىجرا تاللانغان ماكرو .1 << 
مۇشۇنىڭغا ئوخشاش ئوقۇشلۇق:
- VBA دائىرىسىنى قانداق ئىشلىتىش (11 خىل ئۇسۇل)
- Excel دىكى ھەر بىر كاتەكچىگە VBA (3 خىل ئۇسۇل)
- Excel دىكى VBA نىڭ دائىرە ئوبيېكتىنى قانداق ئىشلىتىش (5 خۇسۇسىيەت)
5 VBA دىن AutoFit يېڭى جەدۋەلدە كۆچۈرۈلگەن دائىرە. جەدۋەل AutoFit ۋاراق
تەرتىپنى باشلايلى ،
ئالدى بىلەن ، ئاچقۇچى بەتكۈچنى ئېچىڭ & gt; & gt; كۆرۈنۈش ئاساسى
نى تاللاڭ ، سىز يەنە ALT + F11 كۇنۇپكا تاختىسىنى ئىشلىتىپ VBA تەھرىرلىگۈچنى ئاچالايسىز.
كېيىنكى قەدەمدە ، ئۇ قوللىنىشچان پروگراممىلارنىڭ Microsoft Visual Basic كۆزنىكىنى ئاچىدۇ.
ئاندىن ، قىستۇر & gt نى ئېچىڭ. ; & gt; مودۇلنى نى تاللاڭ. بۆلەك .
1712
بۇ يەردە ، مەن تارماق تەرتىپ كۆچۈرۈش ئالدى بىلەن ، خىزمەت جەدۋىلىنى سانلىق مەلۇمات جەدۋىلى نى تاللىدىم. ئاندىن B1: E10 دائىرىسىنى ئېلىپ ، ھازىرقى جەدۋەلدىن AutoFit دەپ ئاتىلىدىغان مەنزىل جەدۋىلىگە كۆچۈرۈڭ.
بۇ يەردە ، مەن كۆپەيتىش نى ئىشلەتتىم. تاللانغان دائىرىنى كۆچۈرۈش ئۇسۇلى ۋە AutoFit ئۇسۇلى بېرىلگەن ئىستونلارنى ئاپتوماتىك دەلىللەيدۇ B: E .
ئاخىرىدا ، كودنى تېجەپ بېرىڭ خىزمەت جەدۋىلىگە قايتىڭ.
ئۇنىڭدىن كېيىن ، كۆرۈش بەتكۈچىنى ئېچىڭ & gt; & gt; دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
➤ A سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن Copy_Range_withFormat_AutoFit نى تاللاڭ دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، ئىجرا قىلىڭ تاللانغان ماكرو .1 <
6. VBA دائىرىنى باشقا خىزمەت دەپتىرىگە كۆچۈرۈڭ
ئەگەر خالىسىڭىز ئارىلىقنى بىر ۋاراقتىن يەنە بىر ۋاراققا كۆچۈرەلەيسىز ئوخشاش بولمىغان خىزمەت دەپتىرى. خىزمەت دەپتىرى. Visual Basic نى تاللاڭ (y ou يەنە ALT + F11 كۇنۇپكا تاختىسىنى ئىشلىتەلەيدۇ)
ئاندىن ، ئۇ Microsoft Visual نى ئاچىدۇقوللىنىشچان پروگراممىلارنىڭ ئاساسى.
كېيىنكى ، قىستۇر & gt; & gt; مودۇلنى نى تاللاڭ.
9478
بۇ يەردە ، مەن تارماق تەرتىپ Copy_Range_WithFormat_Toanother_WorkBook
ئېلان قىلدىم. . 0> بۇ يەردە ، مەن تاللانغان دائىرىنى يېڭى خىزمەت دەپتىرىگە كۆچۈرۈش ئۈچۈن كۆچۈرۈش ئۇسۇلىنى قوللاندىم.
ئاخىرىدا ، كودنى ساقلاپ ، خىزمەت جەدۋىلىگە قايتىڭ. 1>
ئۇنىڭدىن كېيىن ، كۆرۈش بەتكۈچىنى ئېچىڭ & gt; & gt; دىن ماكروس & gt; & gt; ماكرونى كۆرۈش
➤ A سۆزلىشىش رامكىسى چىقىدۇ.
ھازىر ، ماكرو ئىسمى دىن Copy_Range_WithFormat_Toanother_WorkBook نى تاللاڭ دىكى ماكرو ئىچىدىكى خىزمەت دەپتىرىنى تاللاڭ.
ئاخىرىدا ، ئىجرا قىلىڭ تاللانغان ماكرو .
ھازىر ، ئۇ تاللانغان دائىرە سانلىق مەلۇمات جەدۋىلى جەدۋىلىدىن باشقا خىزمەت دەپتىرىگە كۆچۈرۈلىدۇ.
7. دائىرەنى باشقا بىر جەدۋەلنىڭ ئاخىرقى قۇرغا كۆچۈرۈڭ مەلۇم بىر كاتەكچىدىن ياكى ئەڭ ئاخىرقى كاتەكچىدىن سىز ئۇنى VBA ئارقىلىق قىلالايسىز. 2> تولۇق ئىسمى ، ئېلېكترونلۇق خەت ،
ۋە ئادرېس . 1>مانا بۇ ئاخىرقى كاتەكچىنىڭ ئاستىدىكى ۋاراق.
2> Dataset2 جەدۋەلنى ئاخىرقى كاتەكچىنىڭ ئاستىغا ئەمما بىرىنچى بوش بولمىغان كاتەكچىدىن.
باشلاش ئۈچۈن ، ئاچقۇچى بەتكۈچنى ئېچىڭ & gt; Visual Basic
نى تاللاڭ ، كېيىنكى قەدەمدە ، ئۇ قوللىنىشچان پروگراممىلارنىڭ Microsoft Visual Basic نى ئاچىدۇ.
ئاندىن ، ئېچىڭ قىستۇر & gt; & gt; مودۇلنى نى تاللاڭ.
1277
بۇ يەردە ، مەن تارماق تەرتىپ Copy_Range_BelowLastCell_AnotherSheets
ئالدى بىلەن ، جەدۋەلنى تاللىدىم Dataset2 ئاندىن قۇر ئۇسۇلىنى ئىشلىتىپ ئاخىرقى قۇر نى ساناپ ، سانالغان قۇرنى lr دا ساقلىدى. دائىرە A2: C & amp; lr مەۋجۇت جەدۋەلدىن مەنزىل جەدۋىلىنىڭ نامىغا ئاخىرقى كاتەكچىنىڭ ئاستىدا غا كۆچۈرۈڭ.
يەنە قۇر ئۇسۇلىنى ئىشلىتىپ ، ئاخىرقىسىنى ساناپ چىقتى ئاخىرقى كاتەكچىنىڭ ئاستىدا دەپ ئاتىلىدىغان باشقا بىر جەدۋەلنىڭ قۇر ۋە سانالغان قۇرنى lrAnotherSheet دا ساقلىدى.
بۇ يەردە ، مەن كۆچۈرۈش ئۇسۇلىنى قوللاندىم تاللانغان دائىرىنى كۆپەيتىش ۋە AutoFit ئۇسۇلى بېرىلگەن ئىستونلارنى ئاپتوماتىك ئاپتوماتىك تەمىنلەيدۇ A: C . خىزمەت جەدۋىلىگە.
ئۇنىڭدىن كېيىن ، كۆرۈش بەتكۈچىنى ئېچىڭ & gt; & gt; دىن ماكروس
