เพื่อมุ่งให้เกิดคุณภาพจากการอบรมสูงสุด Excel Expert Training ให้การอบรม Excel กลุ่มเล็กๆ ไม่เกิน 6 คนทุกคนสามารถเรียนรู้ Excel อย่างใกล้ชิด จะมาคนเดียวหรือมาเป็นกลุ่มแล้วนัดวันอบรมแบบส่วนตัวก็ได้ ผู้เข้าอบรมทุกคนสามารถติดตามเนื้อหาที่อบรมได้อย่างชัดเจนจากจอภาพด้านหน้าของตัวเอง
Page 3 of 3 FirstFirst 123
Results 21 to 22 of 22

Thread: รบกวนสอบถาม code vba copy ข้อมูลข้าม sheet

  1. #21
    pichartyapan
    Guest
    ตอบอย่างนี้ครับ
    อ้างอิง: ดิฉันได้ลองเปลี่ยน code และ เพิ่ม sheet ใน excel file เพื่อให้สอคคล้องกับรายงานที่ทำอยู่ดังนี้คะ
    1. เพิ่ม sheet "F", และ sheet "test" พอเพิ่ม sheet test code ทำการ copy ให้ตามปกติ แต่เกิด error ค่ะ
    sheet "test" เป็นส่วนหนึ่งของ file นี้ แต่ไม่ต้องการให้ copy ไปที่ sheet "Report" คะ
    ดิฉันพยายามแก้ไข โดยใส่ code " on error resume next " แต่ก็ไม่ได้ผลคะ รบกวนแนะนำด้วยคะ
    ตอบครับ การเพิ่มชีท F ไม่มีปัญหาครับ เพราะชื่อชืท F มีอยู่ในrow ที่4 ของ Sheet 1 ส่วนชีท Test ทำให้เกิด error เพราะ สูตร match ไม่เห็น คำว่า Test ใน cell ใด ๆ ของ row#4 ของ sheet 1 นั่นเองครับ ฉะนั้นจึงต้องสร้างเงือนไขเพิ่มเติมว่าจะให้เอาค่า shName ไปหาก็ต่อเมื่อ shName<> ทั้ง "Sheet 1" และ "Test" ครับ ก็จะได้โค้ดบรรทัดนี้ดังนี้ครับ
    ----------------------------------------------------------------------------------------------
    If sh.Name <> Report And sh.Name <> "Test" Then
    ----------------------------------------------------------------------------------------------
    อ้างอิง: 2. ดิฉันเปลี่ยน code จาก sheets("Report") เป็น sheet1 คะ เพราะต่อไปอาจจะต้องมีการแก้ไขชื่อ sheet Report เป็นชื่อ sheet อื่น ๆ ดิฉันพยายามปรับเปลี่ยน code ตรงนี้เพื่อไม่ให้เฉพาะเจาะจงคำว่า "Report" แต่พอเปลี่ยน code จะ error คะ
    ตอบครับ ที่ error เพราะโค้ดหาชื่อชีท Sheet 1 ไม่เจอครับ คุณน่าจะลืมเปลี่ยนชื่อชีทให้เป็น sheet 1 ด้วย มันจึงเกิด error ครับ...
    'เพื่อความยืดหยุ่นในการตั้งชื่อชีท ผมจึงกำหนดตัวแปรขึ้นมาอีก1ตัวเพื่อเก็บค่าของชื่อชีทนี้ โดยระบุชื่อชีทนั้นแทนคำในเครื่องหมายคำพูดข้างล่างนี้ (ในที่นี้ชีท report จะถูกเปลี่ยนเป็นคำว่า DisplayBySelectedMth)
    Report = "DisplayBySelectedMth"


    อ้างอิง: 3. ดิฉันแก้ไข code จาก "Cells(16,...)" เป็น Cells(1555,...)" เพราะมีจำนวนแถวประมาณ 1555 row คะ
    ตอบ ครับไม่มีปัญหา

    ลองดูไฟล์แนบเพิ่มเติมครับ

  2. #22
    kuhnnachupb
    Guest
    จากคำแนะนำของทั้ง 2 ท่าน ได้ผลลัพธ์ตามที่ต้องการคะ ดิฉันอาจจะตอบช้าหน่อยเพราะต้องศึกษาและทำความเข้าใจ code แต่ละตัวว่าคืออะไร (ต้องเข้าไป search ใน google เพื่อดูความหมายแต่ละ code ที่ยังไม่เข้าใจคะ) และดิฉันจะนำความรู้ที่ได้ไปปรับใช้กับงานอื่น ๆ ต่อไป แต่ดิฉันยอมรับว่าเกี่ยวกับเรื่อง code vba ยังต้องใช้เวลาศึกษาอีกนาน เพราะตอนนี้ยังเพิ่งเริ่มคะ ถ้าจะเปรียบกับการเขียนประโยคในภาษาไทยก็ยังเป็น "อาไปนา อามีนา" อะไรประมาณนี้คะ

    ขอบคุณมากสำหรับความพยายามให้ความช่วยเหลือของทุกๆ ท่านที่มีให้แก่ดิฉัน (ทั้งที่ตอนแรกไม่มี file แนบ ก็พยายามแกะคำอธิบายจนสร้างเป็น file ได้)

    ยินดีและปลามปลื้มใจมากที่มี web ดี ๆ แบบนี้คะ

    ขอบคุณมากคะ

Similar Threads

  1. code VBA เพื่อ copy ข้อมูลข้าม sheet
    By kuhnnachupb in forum Excel Expert Forum Library 2012 - 2007
    Replies: 7
    Last Post: 21 Jul 2012, 15:20
  2. สอบถาม code VBA เพื่อ copy ข้อมูลข้าม file
    By kuhnnachupb in forum Excel Expert Forum Library 2012 - 2007
    Replies: 3
    Last Post: 8 Jun 2012, 22:16
  3. สอบถาม code VBA เพื่อ copy ข้อมูลข้าม sheet
    By kuhnnachupb in forum Excel Expert Forum Library 2012 - 2007
    Replies: 4
    Last Post: 7 Jun 2012, 12:42
  4. รบกวนช่วยดู Code VBA เรื่องการ Copy ไฟล์ข้าม Sheet
    By ลูกปลาน้อย in forum Excel Expert Forum Library 2012 - 2007
    Replies: 6
    Last Post: 7 Feb 2011, 20:29
  5. อยากทราบ วิธี sum ข้อมูลข้าม Sheet
    By singster in forum Excel Expert Forum Library 2012 - 2007
    Replies: 2
    Last Post: 18 Dec 2009, 12:57

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •