Та хэрэгтэй үедээ нэг хуудаснаас нөгөө хуудас эсвэл ажлын дэвтэр рүү хуулах боломжтой. Хуулах, буулгах янз бүрийн төрлүүд байдаг. Энэ нийтлэлийн дараа та Excel VBA хуулах мужийг өөр хуудсанд ашиглах янз бүрийн аргуудтай танилцах болно.

Тайлбарыг ойлгомжтой болгохын тулд би тодорхой хүмүүсийн хувийн мэдээллийг харуулсан түүвэр өгөгдлийн багцыг ашиглах болно. . Өгөгдлийн багц нь 4 баганатай. Эдгээр багана нь Нэр, овог, овог нэр, болон И-мэйл юм.

Дадлага хийхийн тулд ажлын номыг татаж авах

Excel-ийн 8 арга VBA мужийг өөр хуудас руу хуулах

1. Мужийг хуулах

Форматтай өөр хуудас руу Формат -ын тусламжтайгаар нэг хуудаснаас нөгөө хуудас руу мужийг хуулах хүссэн үедээ <-г ашиглан үүнийг хийж болно. 2>VBA .

Энд би Өгөгдлийн багц хүснэгтээс Форматтай хүснэгт хүртэлх мужийг хуулах .

Эхлээд Хөгжүүлэгч таб >> Visual Basic

Та мөн ALT + F11 гарыг ашиглан VBA <-г нээж болно. 3>редактор.

Дараа нь Microsoft Visual Basic for Applications нэртэй шинэ цонх нээгдэнэ.

Тэндээс Insert <3-г нээнэ үү>>> Модуль -г сонгоно уу.

А Модуль нээгдэх бөгөөд нээгдсэн хэсэгт дараах кодыг бичнэ үү. >> Макро харах

-г сонго ➤ харилцах цонх гарч ирнэ.

Одоо Макро нэр -аас Хуулбарлах_муж_доорхСүүлийнCell_AnotherSheets -г мөн Макрос доторх ажлын номыг сонгоно уу.

Эцэст нь Ажиллуулах сонгосон Макро .

Тиймээс, энэ нь Сонгосон мужийг хуулж, өөр хуудасны сүүлчийн эгнээнээс Буулгах болно. .

8. VBA Хүрээг өөр ажлын дэвтрийн сүүлчийн мөрөнд хуулах

Хэрэв та хуулахыг хүсвэл өөр нэг ажлын номын хуудасны сүүлийн мөр хүртэлх мужийг та мөн VBA ашиглаж болно.

Энд би Өгөгдлийн багц2-аас хувь хуулах болно. хуудас Ном2-ын хүснэгт 1 гэхдээ эхний хоосон нүднээс.

Процедурыг эхлүүлэхийн тулд

Эхлээд Хөгжүүлэгч таб >> Visual Basic-ийг сонго

Та мөн ALT + F11 гарыг ашиглан VBA редакторыг нээж болно.

Дараа нь Microsoft Visual Basic for Applications-ийн шинэ цонх нээгдэнэ.

Тэндээс Insert <3-г нээнэ>>> Модуль -г сонго.

А Модуль нээгдэх бөгөөд нээгдсэн Модуль -д дараах кодыг бичнэ.

9026

Энд би Дэд процедурыг Хуулах_мужийг_доорхСүүлийн нүд рүү_өөр_ажлын дэвтэрт хуулахыг зарласан wsCopy болон wsDestination нь Ажлын хуудас төрөл, lCopyLastRow ба lDestLastRow нь Урт төрөл.

Эхлээд, хуулах хуудас болон очих хуудасны хувьсагчдыг тохируулахын тулд Тохируулга -г ашигласан.

Дараа нь, хуулах муж дахь A баганын өгөгдөл дээр үндэслэн сүүлийн мөрийг олохын тулд Мөр аргыг ашигласан.

Дахин хэлэхэд Мөр аргыг ашигласан. Зориулалтын муж дахь A баганын өгөгдөл дээр үндэслэн эхний хоосон мөрийг олохын тулд мөн нэг шинж чанарыг доош зөөхийн тулд Оффсет -г ашигласан.

Эцэст нь Хуулбарласан Өгөгдлийн багц2 хүснэгтийн өгөгдлийг Excel VBA-н өөр хуудас руу хуулах муж.xlsm ажлын номын Хүснэгт1 Book2.xlsx .

Одоо Кодыг хадгалаад ажлын хуудас руу буцна уу.

Дараа нь Харах таб >> Макрос >> Макро харах

-г сонго ➤ харилцах цонх гарч ирнэ.

Одоо Макро нэр -аас Хуулах_мужийн_доорхСүүлийн нүд рүү_өөр_ажлын дэвтэр -г мөн Макрос доторх ажлын номыг сонгоно уу.

Эцэст нь Ажиллуулах сонгосон Макро .

Тиймээс энэ нь одоо байгаа хуудаснаас өөр ажлын дэвтрийн сүүлийн мөр хүртэл сонгосон мужийг хуулна.

Дадлага хийх хэсэг

Би Excel-ийн VBA хуулах хүрээний эдгээр тайлбарласан аргуудыг дадлагажуулахын тулд ажлын дэвтэрт дадлагын хуудсыг өгсөн. өөр хуудас руу.

Дүгнэлт

Энэ нийтлэлд би 8 төрлийн хялбар бөгөөд хурдан аргыг тайлбарласан.Excel VBA мужийг өөр хуудас руу хуулна. Эдгээр янз бүрийн аргууд нь мужийг нэг хуудаснаас нөгөө хуудас руу хуулах, мөн нэг хуудаснаас нөгөө ажлын ном руу хуулахад тусална. Эцэст нь хэлэхэд, хэрэв танд ямар нэгэн санал, санаа, санал хүсэлт байвал доор сэтгэгдэл үлдээнэ үү.

6898

Энд би Дэд процедурыг Хуулах_мужийг Форматтай_Өөр_Хуудас руу хуулах

-г зарлалаа. Би B1:E10 мужийг одоо байгаа хуудаснаас Форматтай хуудасны нэр рүү хуулахын тулд авсан.

Энд би Хуулбар -г ашигласан. Сонгосон мужийг хуулах арга, Хуулах арга нь дурын мужийг Формат -аар хуулна.

Эцэст нь Кодыг хадгалаад ажлын хуудас руу буцна уу. .

Дараа нь Харах таб >> Макрос >> Макро харах

-г сонго ➤ харилцах цонх гарч ирнэ.

Одоо Макроны нэр -аас Хуулах_мужийгFormat_toAnother_sheet мөн Макрос доторх ажлын номыг сонгоно уу.

Эцэст нь Ажиллуулах сонгосон Макро .

Тиймээс энэ нь миний сонгосон шинэ хуудас руу Формат сонгосон мужийг хуулах болно ( Форматтай) .

2. VBA Хүрээг өөр хуудас руу форматгүйгээр хуулах

Энэ нь мөн VBA ашиглан Формат гүйгээр мужийг өөр хуудас руу хуулах боломжтой.

Энд би <3-г хуулах болно> Өгөгдлийн багц хүснэгтээс Форматгүй хүснэгт хүртэлх муж.

Процедурыг эхлүүлье,

Одоо Хөгжүүлэгч -г нээнэ үү. таб >> Visual Basic ( ALT + F11 ашиглана)

Дараа нь нээгдэнэ Microsoft Visual Basic for Applications.

Дараа нь Insert-ийг нээнэ үү. >> Модуль -г сонго.

А Модуль нээгдэх бөгөөд нээгдсэн Модуль -д дараах кодыг бичнэ.

1623

Энд би Дэд процедурыг зарлалаа Хуулах_мужийг_Форматгүй_өөр_хуудас руу хуулах

Би мужийг авсан. B1:E10 одоо байгаа хуудаснаас хуудасны нэр рүү хуулах Форматгүй .

Энд би сонгосон мужийг хуулахын тулд Хуулах аргыг ашигласан. Paste:=xlPasteValues ​​ PasteSpecial аргад дурдагдсан бөгөөд энэ нь сонгосон мужаас зөвхөн Утга -г буулгах ба форматыг биш.

Эцэст нь , кодоо хадгалаад ажлын хуудас руу буцна уу.

Дараа нь Харах таб >> Макрос >> Макро харах

-г сонго ➤ харилцах цонх гарч ирнэ.

Одоо Макро нэр аас Хуулах_мужийг форматгүйгээр_өөр_хуудас руу хуулах мөн Макрос доторх ажлын номыг сонгоно уу.

Эцэст нь сонгосон Макро -г ажиллуул.

Тиймээс, энэ нь Утга үгүй Формат<3-аар сонгосон мужийг зөвхөн хуулах болно>.

3. Формат болон баганын өргөнтэй мужийг өөр хуудас руу хуулах

Заримдаа та сонгосон аль ч мужийг байгаагаар нь хуулах, үүний тулд та Формат болон Баганын өргөн -тэй мужийг Хуулах боломжтой.

Энд, Би Өгөгдлийн багц хүснэгтээс Формат & Баганын өргөн хуудас.

VBA ,

-г ашиглан даалгаврыг гүйцэтгэх журмыг харахын тулд эхлээд Хөгжүүлэгч таб >> Visual Basic-ийг сонго

Та мөн ALT + F11 гарыг ашиглан VBA редакторыг нээж болно.

Дараа нь Microsoft Visual Basic for Applications-ийн шинэ цонх нээгдэнэ.

Тэнд Insert -г нээнэ үү. >> Модуль -г сонго.

А Модуль нээгдэх бөгөөд нээгдсэн Модуль -д дараах кодыг бичнэ.

3475

Энд би Дэд процедурыг зарлалаа FormatAndColumnWidth_өөр_хуудас_хуулах_мужийг

Би мужийг авсан. B1:E10 одоо байгаа хуудаснаас очих хуудасны нэр рүү хуулах Формат & Баганын өргөн .

Энд би сонгосон мужийг хуулахын тулд Copy аргыг ашигласан. Би бас Paste:=xlPasteColumnWidths -г дурдсан PasteSpecial аргыг ашигласан бөгөөд ингэснээр сонгосон мужийг Формат ба Баганын өргөн -ийн хамт буулгана. .

Эцэст нь Код хадгалаад ажлын хуудас руу буцна уу.

Дараа нь Харах таб >> Макрос >> Макро харах

-г сонго ➤ харилцах цонх гарч ирнэ.

Одоо Макро нэр аас Формат болон баганын өргөнтэй_өөр_хуудас руу хуулах_мужийг мөн макрос доторх ажлын номыг сонгоно уу.

Эцэст нь Сонгосон г ажиллуулна уу Макро .

Үүний үр дүнд энэ нь Формат болон Баганын өргөн -ээр сонгосон мужийг Хуулбар хийнэ.

4. VBA Томьёотой мужийг өөр хуудас руу хуулах

Хэрэв таны өгөгдлийн багцад ямар нэгэн томьёо байгаа бол хуулахыг хүсэж байна. Санаа зоволтгүй! Та Томъёо -г агуулсан мужийг өөр хуудас руу хуулж, томьёог хэвээр нь үлдээж болно.

Энд би Өгөгдлийн багц хүснэгтээс хүлээн хуулах болно. Формулатай хүснэгт

Процедурыг эхлүүлье,

Эхлэхийн тулд Хөгжүүлэгч таб >> Visual Basic-ийг сонго ( та мөн ALT + F11 гар ашиглаж болно)

Дараа нь энэ Microsoft Visual Basic for Applications-ийг нээх болно.

Тэндээс Insert >> Модуль -г сонго.

А Модуль нээгдэх бөгөөд нээгдсэн Модуль -д дараах кодыг бичнэ.

6091

Энд би Дэд процедурыг зарлалаа Томьёоны_өөр_хуудас руу хуулах_муж

Би мужийг авсан. B1:E10 одоо байгаа хуудаснаас очих хуудасны нэр рүү хуулах Формулатай .

Энд би сонгосон мужийг хуулахын тулд Хуулбарлах аргыг ашигласан. Би мөн Paste:=xlPasteFormulas -г дурдсан PasteSpecial аргыг ашигласан бөгөөд ингэснээр сонгосон мужтай хамт Томъёо -г агуулна.

Эцэст нь , Код хадгалаад ажлын хуудас руу буцна уу.

Дараа нь Харах хэсгийг нээнэ үү. таб >> Макрос >> Макро харах

-г сонго ➤ харилцах цонх гарч ирнэ.

Одоо Макро нэр -аас Томъёоны_Өөр_Хуудас руу хуулах_мужийг мөн Макрос доторх ажлын номыг сонгоно уу.

Эцэст нь Ажиллуулах сонгосон Макро .

Тиймээс энэ нь сонгосон бүх нүдний мужийг Томьёо -аар хуулна.

Ижил төстэй заалтууд:

• VBA хүрээний офсетийг хэрхэн ашиглах вэ (11 арга)
• Excel дэх муж дахь нүд бүрийн VBA (3 арга)
• Excel-ийн VBA-н хүрээний объектыг хэрхэн ашиглах вэ (5 шинж чанар)

5. AutoFit-ийн тусламжтайгаар мужийг өөр хуудас руу хуулах

Мужийг өөр хуудсанд хуулах үед та мөн AutoFit аргыг ашиглаж болно. VBA -аас AutoFit шинэ хуудсанд хуулсан мужид.

Энд би Өгөгдлийн багцаас мужийг хуулна. sheet to AutoFit sheet

Процедурыг эхлүүлье,

Эхлээд Хөгжүүлэгч таб >> Visual Basic-ийг сонго

Та мөн ALT + F11 гарыг ашиглан VBA редакторыг нээж болно.

Дараа нь Microsoft Visual Basic for Applications цонхыг нээнэ.

Дараа нь Insert &gt-г нээнэ. ;> Модуль -г сонгоно уу.

А Модуль нээгдэх бөгөөд нээгдсэн хэсэгт дараах кодыг бичнэ үү. Модуль .

1773

Энд би Дэд процедурыг Copy_Range withFormat_AutoFit

зарласан. Эхлээд би Dataset ажлын хуудсыг сонгосон. Дараа нь B1:E10 мужийг аваад одоо байгаа хуудаснаас AutoFit нэртэй очих хуудас руу хуулсан.

Энд би Хуулбар -г ашигласан. сонгосон мужийг хуулах арга ба AutoFit арга нь өгөгдсөн багануудыг B:E автоматаар тохируулах болно.

Эцэст нь Хадгалаад кодоо явуулна уу. ажлын хуудас руу буцна уу.

Дараа нь Харах таб >> Макрос >> Макро харах

-г сонго ➤ харилцах цонх гарч ирнэ.

Одоо Макроны нэр -аас Хуулах_мужийг Format_AutoFit-тай мөн Макрос доторх ажлын номыг сонгоно уу.

Эцэст нь Ажиллуулах сонгосон Макро .

Тиймээс энэ нь Сонгосон мужийг шинэ хуудсанд хуулж, мөн Автоматаар тохируулах багануудыг

6. VBA Хүрээг өөр ажлын дэвтэрт хуулах

Хэрэв та хүсвэл нэг хуудаснаас нөгөө хуудас руу мужийг хуулах боломжтой. өөр ажлын дэвтрийн.

Энд би Өгөгдлийн багц хүснэгтээс Ном1 -ын Хүснэгт1 хүртэлх мужийг хуулъя ажлын дэвтэр.

Процедурыг эхлүүлье,

Эхлээд Хөгжүүлэгч таб >> Visual Basic-ийг сонго (y чи мөн ALT + F11 гарыг ашиглаж болно)

Дараа нь, энэ нь нээгдэнэ Microsoft VisualХэрэглээний үндсэн суурь.

Дараа нь Insert >> Модуль -г сонго.

А Модуль нээгдэх бөгөөд нээгдсэн Модуль -д дараах кодыг бичнэ.

7833

Энд би Дэд процедурыг зарлалаа Хуулах_мужийг_Format_toanother_WorkBook

Би <2 мужийг авсан>B3:E10 хуудасны нэр Өгөгдлийн багц одоо байгаа хуудаснаас шинэ ажлын номын нэр Ном1 болон хуудасны нэр Хуудас1 руу хуулах.

Энд би сонгосон мужийг шинэ ажлын дэвтэрт хуулахын тулд Хуулбарлах аргыг ашигласан.

Эцэст нь кодоо хадгалаад ажлын хуудас руу буцна уу.

Дараа нь Харах таб >> Макрос >> Макро харах

-г сонго ➤ харилцах цонх гарч ирнэ.

Одоо Макро нэр -аас Хуулах_мужийг_Форматтай_Өөр_Ажлын дэвтэр -г мөн Макрос доторх ажлын номыг сонгоно уу.

Эцэст нь Ажиллуулах сонгосон Макро .

Одоо энэ нь Өгөгдлийн багц хүснэгтээс сонгосон мужийг Хуулбарлах өөр ажлын ном руу хуулах болно.

7. Мужийг өөр хуудасны сүүлчийн мөрөнд хуулах

Ямар ч тохиолдолд, хэрэв та мужийг өөр хуудас руу хуулахыг хүсвэл тодорхой нүднээс эсвэл сүүлийн нүднээс VBA -г ашиглан үүнийг хийж болно.

Процедур руу орохын өмнө би <гэсэн хоёр шинэ хуудас авсан гэдгийг хэлмээр байна. 2> Бүтэн нэр, Имэйл, болон Хаяг .

Эхлээд Өгөгдлийн багц2 хүснэгтийг ажиглацгаая.

Энд Сүүлчийн нүдний доорх хуудас байна.

Энд би хуулах мужийг Өгөгдлийн багц2 хүснэгтийг Сүүлчийн нүднээс доош гэхдээ эхний хоосон нүднээс.

Эхлэхийн тулд Хөгжүүлэгч таб >> Visual Basic

Дараа нь Microsoft Visual Basic for Applications-ийг нээнэ.

Дараа нь нээнэ үү. Оруулах >> Модуль -г сонго.

А Модуль нээгдэх бөгөөд нээгдсэн Модуль -д дараах кодыг бичнэ.

9394

Энд би Дэд процедурыг зарлалаа Хуулбар_муж_доорхСүүлийн эсийн_өөр нэг хуудас

Эхлээд би хуудсыг сонгов Dataset2 ба дараа нь Мөр аргыг ашиглан Сүүлчийн мөр -ийг тоолж, тоологдсон мөрийг lr -д хадгалсан.

Дараа нь авсан. муж A2:C & lr одоо байгаа хуудаснаас очих хуудасны нэр рүү хуулахын тулд Сүүлчийн нүдний доор .

Дахин хэлэхэд Мөрийн аргыг Сүүлийн хэсгийг тоолоход ашигласан. Өөр хуудасны мөр Сүүлчийн нүдний доор нэртэй бөгөөд тоологдсон мөрийг lrAnotherSheet -д хадгалсан.

Энд би Хуулбарлах аргыг ашигласан. сонгосон мужийг хуулах ба AutoFit арга нь өгөгдсөн багануудыг A:C автоматаар тохируулах болно.

Эцэст нь Хадгалаад кодоо буцаана уу. ажлын хуудас руу.

Дараа нь Харах таб >> Макрос