Snasui Excel Forum

Posted: **Tue Apr 12, 2011 8:57 am**

ถ้าsheet1
a1=10 b1=15 c1ใช้สูตร =a1+b1 ซึ่งจะได้ 25

มีวิธีนำผลลัพธ์ในc1 ไปเก็บที่sheet2 ได้เลยไหมครับ แล้วถ้า a1 กับ b1 เปลี่ยนค่าไป อยากให้คำตอบที่ได้นำไปเก็บต่อเรียงกันไปที่sheet2ครับ ได้ไหมครับหรือควรนำไปทำบนvbaทั้งหมดครับ

Posted: **Tue Apr 12, 2011 3:12 pm**

ใช VBA ทำแบบนี้พอได้ไหมครับ

สร้าง Modul ขึ้นมา 1 อันฝังโค๊ดนี้ลงไป

Code: Select all

Sub RecordData()
Dim rSource As Range
Dim rTarget As Range
Application.ScreenUpdating = False
Set rSource = Sheets("Temp").Range("A1:A1")
Set rTarget = Sheets("Sheet2"). _
    Range("A65536").End(xlUp).Offset(1, 0)
        rSource.Copy
        rTarget.PasteSpecial xlPasteValues
        Application.ScreenUpdating = True
        MsgBox "บันทึกเรียบร้อยแล้ว"
End Sub

ที่ SHEET1 สร้างปุ่มสำหรับบันทึก 1 อัน แล้ว set macro เป็น RecordData()
ทดลองใส่ข้อมูล กดบันทึกดูผลลัพธ์

Posted: **Mon Apr 18, 2011 9:44 am**

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

คำตอบและตัวอย่างนี้ขอนำไปทดลองใช้ก่อนครับ ถือว่าเป็นคำตอบที่ตรงกับความต้องการผมมากๆครับ( ขอบคุณมากครับคุณJoo)

Snasui Excel Forum

ถามครับ ขอวิธีนำผลลัพธ์จากsheet1 ไปเก็บที่sheet2 ครับ

ถามครับ ขอวิธีนำผลลัพธ์จากsheet1 ไปเก็บที่sheet2 ครับ

Re: ถามครับ ขอวิธีนำผลลัพธ์จากsheet1 ไปเก็บที่sheet2 ครับ

Re: ถามครับ ขอวิธีนำผลลัพธ์จากsheet1 ไปเก็บที่sheet2 ครับ