วิธีคัดลอกสูตรไปยังชีต Excel VBA อื่น

Excel VBA เป็นเครื่องมือที่มีประสิทธิภาพมากที่ช่วยให้คุณสามารถคัดลอกสูตรจากชีตหนึ่งไปยังอีกชีตหนึ่งโดยทางโปรแกรม ในบทความนี้ เราจะแสดงวิธีใช้ Excel VBA เพื่อคัดลอกสูตรไปยังชีตอื่น

ก่อนอื่นเราจะสร้างมาโครอย่างง่ายที่จะคัดลอกสูตรจากเซลล์หนึ่งไปยังอีกเซลล์หนึ่งบนแผ่นงานเดียวกัน จากนั้นเราจะแก้ไขแมโครเพื่อคัดลอกสูตรไปยังชีตอื่น

เริ่มต้นใช้งาน

เมื่อคุณบันทึกแมโคร Excel จะสร้างรหัส VBA โดยอัตโนมัติซึ่งคุณสามารถใช้เพื่อทำซ้ำการกระทำที่คุณบันทึกไว้ คุณยังสามารถเขียนโค้ด VBA ด้วยตนเองเพื่อให้ได้ผลลัพธ์เดียวกัน ในบทความนี้ เราจะแสดงวิธีทำทั้งสองอย่าง

การบันทึกมาโคร

เมื่อต้องการบันทึกแมโคร ให้ทำตามขั้นตอนเหล่านี้:

1. เปิดสมุดงานที่มีแผ่นงานพร้อมสูตรที่คุณต้องการคัดลอก

2. กดปุ่ม "บันทึกมาโคร" บนแท็บ "นักพัฒนา" หากคุณไม่เห็นแท็บ “นักพัฒนาซอฟต์แวร์” คลิกที่นี่เพื่อเรียนรู้วิธีเพิ่ม

3. ป้อนชื่อสำหรับมาโครของคุณและเลือกปุ่มทางลัดหากต้องการ

4. คลิก “ตกลง”

5. เลือกเซลล์ที่มีสูตรที่คุณต้องการคัดลอก

6. กด “Ctrl” + “C” เพื่อคัดลอกเซลล์ที่เลือก

7. เลือกเซลล์ที่คุณต้องการวางสูตรที่คัดลอก

8. กด “Ctrl” + “V” เพื่อวางสูตรที่คัดลอก

9. กดปุ่ม "หยุดการบันทึก" บนแท็บ "นักพัฒนา"

มาโครของคุณพร้อมใช้งานแล้ว! หากต้องการเรียกใช้ เพียงกดปุ่มทางลัดที่คุณกำหนดให้ หรือคลิกปุ่ม "มาโคร" บนแท็บ "นักพัฒนา" แล้วเลือกมาโครของคุณจากรายการ

การเขียนโค้ด VBA ด้วยตนเอง

คุณยังสามารถบรรลุผลลัพธ์เดียวกันได้ด้วยการเขียนโค้ด VBA สองสามบรรทัด โดยทำตามขั้นตอนเหล่านี้:

1. เปิดสมุดงานที่มีแผ่นงานพร้อมสูตรที่คุณต้องการคัดลอก

2. กด “Alt” + “F11” เพื่อเปิด Visual Basic Editor

3. คลิก “แทรก” > “โมดูล”

4. ป้อนรหัสต่อไปนี้ในโมดูล:

สูตรคัดลอกย่อย ()

Dim sourceRange เป็นช่วง

Dim targetRange เป็นช่วง

ตั้ง sourceRange = Range(“A1”) 'เปลี่ยน A1 เป็นเซลล์สูตรของคุณ

ตั้ง targetRange = Range(“B1”) 'เปลี่ยน B1 เป็นเซลล์วางที่คุณต้องการ

targetRange.Formula = sourceRange.Formula

จบซับ

5. กด “F5” เพื่อรันโค้ด

ตอนนี้สูตรของคุณควรถูกคัดลอกไปยังเซลล์ที่ต้องการแล้ว!

การแก้ไขมาโครเพื่อคัดลอกสูตรไปยังชีตอื่น

มาโครที่เราบันทึกไว้ในส่วนก่อนหน้าจะคัดลอกสูตรภายในชีตเดียวกันเท่านั้น อย่างไรก็ตาม คุณสามารถแก้ไขเพื่อคัดลอกสูตรไปยังชีตอื่นได้อย่างง่ายดาย โดยทำตามขั้นตอนเหล่านี้:

1. เปิดสมุดงานที่มีแผ่นงานพร้อมสูตรที่คุณต้องการคัดลอก

2. กด “Alt” + “F11” เพื่อเปิด Visual Basic Editor

3. ดับเบิลคลิกที่มาโครของคุณในรายการทางด้านซ้ายของหน้าจอ รหัสสำหรับมาโครของคุณจะปรากฏทางด้านขวา

4. ค้นหาบรรทัดของรหัสต่อไปนี้:

ตั้ง targetRange = Range(“B1”) 'เปลี่ยน B1 เป็นเซลล์วางที่คุณต้องการ

5. เปลี่ยน “B1” เป็นเซลล์บนแผ่นงานอื่นที่คุณต้องการวางสูตรโดยใช้รูปแบบนี้: SheetName!CellAddress ตัวอย่างเช่น ถ้าคุณต้องการวางสูตรลงในเซลล์ B2 บนแผ่นงานชื่อ "Sheet2" คุณต้องเปลี่ยนรหัสดังนี้:

ตั้งค่า targetRange = Sheets(“Sheet2”).Range(“B2”)

6. กด “F5” เพื่อรันโค้ด ตอนนี้สูตรของคุณควรคัดลอกไปยังแผ่นงานอื่นแล้ว!

ความคิดสุดท้าย

หลังจากอ่านบทความนี้แล้ว ตอนนี้คุณควรรู้วิธีคัดลอกสูตรไปยังแผ่นงานอื่นโดยใช้ Excel VBA คุณสามารถใช้มาโครที่บันทึกไว้ตามที่เป็นอยู่ หรือปรับเปลี่ยนให้เหมาะกับความต้องการของคุณ หากคุณต้องการเรียนรู้เพิ่มเติมเกี่ยวกับ Excel VBA โปรดดูบทความอื่นๆ ของเราในหัวข้อนี้!

นี่คือจุดสิ้นสุดของบทช่วยสอน