🔊 โปรดทราบ Image
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
  2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
    1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
    2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
  3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
  4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
  5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ ==> กำหนดขนาดตัวอักษรใน Browser Image

ต้องการ Copy cells จากชีทที่ถูกซ้อน ไปอีกชีท โดยใช้ VBA

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
kio2002
Member
Member
Posts: 150
Joined: Thu Sep 20, 2012 8:40 am

ต้องการ Copy cells จากชีทที่ถูกซ้อน ไปอีกชีท โดยใช้ VBA

#1

Post by kio2002 » Tue Apr 26, 2016 8:21 pm

เรียนสมาชิกทุกท่านครับ
ผมต้องการ Copy cells จากชีทที่ถูกซ้อน ไปอีกชีท โดยใช้ VBA ครับ
ซึ่งข้อมูลต้นทางอยู่ Sheet2 และจะ copy ข้อมูลจากsheet2 ไปยังsheet1
โดยที่sheet2 จะถูกซ้อนไว้ครับ
ผมได้เขียน code VBA ไว้ตามนี้ครับ แต่มันใช้กับกรณีที่Sheet2ถูกซ้อนไม่ได้ครับ
จึงรบกวนสมาชิกทุกท่านช่วยแนะนำปรับ code ให้หน่อยครับ

Code: Select all

Sub สี่เหลี่ยมผืนผ้า1_Click()
        Sheets("sheet2").Select
        Cells.Select
        Selection.Copy
        Sheets("sheet1").Select
        Cells.Select
        ActiveSheet.Paste
End Sub
ผมได้แนบไฟล์ตัวอย่างมาให้ด้วยนะครับ
ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 22544
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ต้องการ Copy cells จากชีทที่ถูกซ้อน ไปอีกชีท โดยใช้ VBA

#2

Post by snasui » Tue Apr 26, 2016 8:51 pm

:D ตัวอย่าง Code ครับ

Code: Select all

Sub สี่เหลี่ยมผืนผ้า1_Click()
    Sheets("Sheet2").UsedRange.Copy Sheets("Sheet1").Range("a1")
End Sub
ความหมายคือให้คัดลอก Sheet2 เฉพาะพื้นที่ที่ใช้งานจริงไปวางที่ Sheet1 เซลล์ A1

kio2002
Member
Member
Posts: 150
Joined: Thu Sep 20, 2012 8:40 am

Re: ต้องการ Copy cells จากชีทที่ถูกซ้อน ไปอีกชีท โดยใช้ VBA

#3

Post by kio2002 » Tue Apr 26, 2016 9:30 pm

snasui wrote::D ตัวอย่าง Code ครับ

Code: Select all

Sub สี่เหลี่ยมผืนผ้า1_Click()
    Sheets("Sheet2").UsedRange.Copy Sheets("Sheet1").Range("a1")
End Sub
ความหมายคือให้คัดลอก Sheet2 เฉพาะพื้นที่ที่ใช้งานจริงไปวางที่ Sheet1 เซลล์ A1
ขอบคุณครับ ท่านอาจารย์ snasui ผมทดลองแล้วใช้ได้ครับ
แต่เวลา Copy มาแล้ว Column หรือ row ไม่ปรับขนาด column หรือ row ตามต้นฉบับ
ผมเลยเปลี่ยนจาก UsedRange เป็น Cells แทนครับ ก็ใช้ได้ตามที่ผมต้องการครับ
เดี๋ยวจะลองเอาไปปรับใช้จริงครับ หากติดตรงไหนจะมาสอบถามอีกที ขอบคุณมากครับ

Post Reply