:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
golden014
Member
Member
Posts: 6
Joined: Thu Jun 26, 2014 10:50 am

อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#1

Post by golden014 »

หน้า Sheet Form จะเอาไว้คีย์ข้อมูลลงไปเรื่อยๆครับ และพอคีย์เสดก็จะกด บันทึก และให้ข้อมูลไปโชว์อยู่ Sheet Database

รบกวนช่วยทีนะครับ ผมมือใหม่ :!:
You do not have the required permissions to view the files attached to this post.
Last edited by golden014 on Thu Jun 26, 2014 2:05 pm, edited 1 time in total.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: รบกวนช่วยทีครับ การบันทึกจากอีก Sheet ไปอีก Sheet

#2

Post by snasui »

:D สำหรับการใช้งาน VBA ให้ทำตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ :roll:

อ่านกฎการใช้บอร์ดทุกข้อด้านบนอย่างระมัดระวัง คำว่า "เสด" ผิดกฎข้อ 1 ครับ
Top
golden014
Member
Member
Posts: 6
Joined: Thu Jun 26, 2014 10:50 am

Re: รบกวนช่วยทีครับ การบันทึกจากอีก Sheet ไปอีก Sheet

#3

Post by golden014 »

ต้องขอโทษด้วยครับ พอดีเป็นงานด่วนแล้วไม่รู้จะแก้ยังไง

ผมได้ลองเขียนเองแล้ว

Code: Select all

Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
        Sheets("Database").Range("a" & Rows.Count) _
            .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues  << ติด error บรรทัดนี้อ่ะครับ
        Sheets("Form").Range("G2:G1673,H2:H1673,I2:I1673,J2:J1673") _
            .SpecialCells(xlCellTypeConstants).ClearContents
        MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
Else
    MsgBox ("ãÊèàÅ¢ 1 ·ÕèªèͧÊÕá´§à¾×èÍ·Ó¡ÒÃÂ×¹Âѹ¡ÒÃá¡éä¢")
End If
End Sub
ตามนี้เลยครับแต่มันติด Error "1004" PasteSpecial Method of Range Class failed
Last edited by golden014 on Thu Jun 26, 2014 2:10 pm, edited 2 times in total.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#4

Post by snasui »

:D แนบไฟล์ล่าสุดที่มีการในใส่ Code ตามด้านบนเข้าไปแล้วมาด้วย

สำหรับการโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านดูตัวอย่างที่นี่ครับ viewtopic.php?f=3&t=1187
Top
golden014
Member
Member
Posts: 6
Joined: Thu Jun 26, 2014 10:50 am

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#5

Post by golden014 »

แนบไฟล์มาให้ดูแล้วครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
bank9597
Guru
Guru
Posts: 3868
Joined: Wed Aug 17, 2011 11:49 am

Re: รบกวนช่วยทีครับ การบันทึกจากอีก Sheet ไปอีก Sheet

#6

Post by bank9597 »

golden014 wrote:ต้องขอโทษด้วยครับ พอดีเป็นงานด่วนแล้วไม่รู้จะแก้ยังไง

ผมได้ลองเขียนเองแล้ว

Code: Select all

Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
        Sheets("Database").Range("a" & Rows.Count) _
            .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues  << ติด error บรรทัดนี้อ่ะครับ
        Sheets("Form").Range("G2:G1673,H2:H1673,I2:I1673,J2:J1673") _
            .SpecialCells(xlCellTypeConstants).ClearContents
        MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
Else
    MsgBox ("ãÊèàÅ¢ 1 ·ÕèªèͧÊÕá´§à¾×èÍ·Ó¡ÒÃÂ×¹Âѹ¡ÒÃá¡éä¢")
End If
End Sub
ตามนี้เลยครับแต่มันติด Error "1004" PasteSpecial Method of Range Class failed
:D เวลาทำเสร็จแล้วต้องบันทึกไฟล์เป็น .xlsm น่ะครับ

ส่วนโค๊ด ลองปรับตามนี้
ที่ชีท Form เซลล์ N1 คีย์ =COUNTA(G2:G1673) เพื่อนับจำนวนข้อมูล (แล้วแต่ว่าจะนับที่คอลัมน์ไหนเป็นสำคัญ) ที่จะบันทึกเก็บ

โค๊ด :ard:

Code: Select all

Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
        Sheets("Form").Range("G2:J1673") _
            .Resize(Sheets("Form").Range("N1"), 4).Copy
        Sheets("Database").Range("a" & Rows.Count) _
            .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Sheets("Form").Range("G2:J1673").ClearContents
        MsgBox ("Finish")
Else
    MsgBox ("Error")
End If
End Sub
You do not have the required permissions to view the files attached to this post.
Forum Rules
  1. อย่าใช้ภาษาแชทในการตอบ-ถาม
  2. ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
  3. ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
  4. ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
  5. หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
  6. แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
Top
golden014
Member
Member
Posts: 6
Joined: Thu Jun 26, 2014 10:50 am

Re: รบกวนช่วยทีครับ การบันทึกจากอีก Sheet ไปอีก Sheet

#7

Post by golden014 »

bank9597 wrote:
golden014 wrote:ต้องขอโทษด้วยครับ พอดีเป็นงานด่วนแล้วไม่รู้จะแก้ยังไง

ผมได้ลองเขียนเองแล้ว

Code: Select all

Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
        Sheets("Database").Range("a" & Rows.Count) _
            .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues  << ติด error บรรทัดนี้อ่ะครับ
        Sheets("Form").Range("G2:G1673,H2:H1673,I2:I1673,J2:J1673") _
            .SpecialCells(xlCellTypeConstants).ClearContents
        MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
Else
    MsgBox ("ãÊèàÅ¢ 1 ·ÕèªèͧÊÕá´§à¾×èÍ·Ó¡ÒÃÂ×¹Âѹ¡ÒÃá¡éä¢")
End If
End Sub
ตามนี้เลยครับแต่มันติด Error "1004" PasteSpecial Method of Range Class failed
:D เวลาทำเสร็จแล้วต้องบันทึกไฟล์เป็น .xlsm น่ะครับ

ส่วนโค๊ด ลองปรับตามนี้
ที่ชีท Form เซลล์ N1 คีย์ =COUNTA(G2:G1673) เพื่อนับจำนวนข้อมูล (แล้วแต่ว่าจะนับที่คอลัมน์ไหนเป็นสำคัญ) ที่จะบันทึกเก็บ

โค๊ด :ard:

Code: Select all

Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
        Sheets("Form").Range("G2:J1673") _
            .Resize(Sheets("Form").Range("N1"), 4).Copy
        Sheets("Database").Range("a" & Rows.Count) _
            .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Sheets("Form").Range("G2:J1673").ClearContents
        MsgBox ("Finish")
Else
    MsgBox ("Error")
End If
End Sub
ได้แล้วครับ แต่ถ้าผมจะดึงเอาข้อมูลพวกรายชื่อบริษัทไปด้วย ตอนกดบันทึก ผมลองทำดูแล้วแต่มันเรียกมาไม่ครบอ่ะครับมาแค่ column A B C D E F

Code: Select all

Sub DataRecord()
If Sheets("Form").Range("M1") <> "" Then
        Sheets("Form").Range("A2:J1673") _
            .Resize(Sheets("Form").Range("N1"), 10).Copy
        Sheets("Database").Range("a" & Rows.Count) _
            .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Sheets("Form").Range("G2:J1673").ClearContents
        MsgBox ("Finish")
Else
    MsgBox ("Error")
End If
End Sub
code ที่ผมแก้ตามนี้เลยครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#8

Post by snasui »

:D ลองแนบไฟล์ล่าสุด อธิบายเพิ่มเติมมาด้วยว่าข้อมูลต้นทางเป็นอย่างไร ต้องการข้อมูลปลายทางเป็นอย่างไร จะได้เข้าใจตรงกันครับ
Top
golden014
Member
Member
Posts: 6
Joined: Thu Jun 26, 2014 10:50 am

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#9

Post by golden014 »

แนบไฟล์มาให้แล้วครับ

ตอนนี้กด บันทึกข้อมูล ไม่ติด error แล้วแต่ข้อมูลไม่ขึ้นใน Sheet Database เลย งงมากไม่ติด error แต่ข้อมูลไม่ขึ้น
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#10

Post by snasui »

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

Code: Select all

Sub DataRecord()
    Dim iCount As Integer
    With Sheets("Form")
        If .Range("A2") <> "" Then
            iCount = .Range("a2", .Range("a" & .Rows.Count) _
                .End(xlUp)).Count
            Sheets("Database").Range("a2").Resize(iCount, 10).Value _
                = .Range("a2").Resize(iCount, 10).Value
        Else
            MsgBox ("Error")
        End If
    End With
End Sub
Top
golden014
Member
Member
Posts: 6
Joined: Thu Jun 26, 2014 10:50 am

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#11

Post by golden014 »

ได้แล้วครับ ขอบคุณมากๆเลยนะครับ :thup:
Top
User avatar
bank9597
Guru
Guru
Posts: 3868
Joined: Wed Aug 17, 2011 11:49 am

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#12

Post by bank9597 »

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

Code: Select all

Sub DataRecord()
    Dim iCount As Integer
    With Sheets("Form")
        If .Range("A2") <> "" Then
            iCount = .Range("a2", .Range("a" & .Rows.Count) _
                .End(xlUp)).Count
            Sheets("Database").Range("a2").Resize(iCount, 10).Value _
                = .Range("a2").Resize(iCount, 10).Value
        Else
            MsgBox ("Error")
        End If
    End With
End Sub
:roll: อาจารย์คนควนตอบซะเคลียร์เลย แบบว่าประกาศตัวแปรเรียบร้อย

แต่ผมตอบแบบทื่อๆมาก รู้สึกแย่กับตนเองมากเลย ตอบไม่เรียบร้อยสวยงาม :cry:
Forum Rules
  1. อย่าใช้ภาษาแชทในการตอบ-ถาม
  2. ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
  3. ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
  4. ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
  5. หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
  6. แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31257
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#13

Post by snasui »

bank9597 wrote:รู้สึกแย่กับตนเองมากเลย ตอบไม่เรียบร้อยสวยงาม
:shock: มีคำกล่าวที่น่าสนใจว่า แมวจะมีสีขาวหรือดำขอให้จับหนูได้เป็นพอครับ เพราะฉะนั้น ขอเน้นเรื่องการทำงานได้ก่อนเป็นหลัก ส่วนการเขียนให้กระชับ รัดกุม เรียบร้อยสวยงามค่อยมาทีหลังก็ได้ครับ :mrgreen:
Top
User avatar
bank9597
Guru
Guru
Posts: 3868
Joined: Wed Aug 17, 2011 11:49 am

Re: อยากทราบ การบันทึกจากอีก Sheet ไปอีก Sheet

#14

Post by bank9597 »

snasui wrote:
bank9597 wrote:รู้สึกแย่กับตนเองมากเลย ตอบไม่เรียบร้อยสวยงาม
:shock: มีคำกล่าวที่น่าสนใจว่า แมวจะมีสีขาวหรือดำขอให้จับหนูได้เป็นพอครับ เพราะฉะนั้น ขอเน้นเรื่องการทำงานได้ก่อนเป็นหลัก ส่วนการเขียนให้กระชับ รัดกุม เรียบร้อยสวยงามค่อยมาทีหลังก็ได้ครับ :mrgreen:
:mrgreen: :mrgreen: :mrgreen:
Forum Rules
  1. อย่าใช้ภาษาแชทในการตอบ-ถาม
  2. ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
  3. ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
  4. ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
  5. หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
  6. แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
Top
Post Reply

Return to “Excel Formulas & Functions”