Snasui Excel Forum

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

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

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

เวลาทำเสร็จแล้วต้องบันทึกไฟล์เป็น .xlsm น่ะครับ

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

โค๊ด

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

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

snasui wrote: ตัวอย่างการปรับ 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

bank9597 wrote:รู้สึกแย่กับตนเองมากเลย ตอบไม่เรียบร้อยสวยงาม

snasui wrote:

bank9597 wrote:รู้สึกแย่กับตนเองมากเลย ตอบไม่เรียบร้อยสวยงาม

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