ช่วยด้วยกดบันทึกแล้วไม่มา code ผิดหรือเปล่าค่ะ

[bubblebee]

เรียน อาจารย์ทุกท่าน

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

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub KeepDonor()
    If Sheets("Input").Range("C10") <> "" Then
        Sheets("Database").Range("B3:AQ3").Copy
        Sheets("Database").Range("B" & Rows.Count) _
            .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            MsgBox "¢Íº¤Ø³¤èзÕè¡Ã͡Ẻ»ÃÐàÁÔ¹"
    Else
            MsgBox "No"
    End If
    Application.CutCopyMode = False
End Sub

[bubblebee]

อาจารย์ค่ะ ดิฉันแก้ code ตามที่อาจารย์บอก แต่พอบันทึก sheet database มีข้อมูลแค่บางตัวค่ะ ไม่ทราบว่าเป็นเพราะอะไรค่ะ ขอบคุณค่ะ

[snasui]

เป็นเพราะว่า Code นั้นสั่งให้บันทึกแค่ B3:AQ3 ครับ ต้องการให้บันทึกจากช่วงเซลล์ไหนสามารถเปลี่ยนได้ตามต้องการครับ

[bubblebee]

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

[snasui]

อาจารย์ค่ะ ดิฉันแก้ code ตามที่อาจารย์บอก แต่พอบันทึก sheet database มีข้อมูลแค่บางตัวค่ะ ไม่ทราบว่าเป็นเพราะอะไรค่ะ ขอบคุณค่ะ

ไม่ทราบว่าที่ต้องการให้บันนั้นมีขอบเขตจากไหนไปไหนครับ

ตาม file คำว่า B3:AQ3 ไม่ได้หมายความว่าให้บันทึก ตั้งแต่ B3จนกระทั่งถึง AQ3 หรือค่ะ

เมื่อกำหนดว่าเป็น Range("B3:AQ3") ก็เป็นการให้นำข้อมูลจาก B3:AQ3 ไปบันทึกครับ

[bubblebee]

เรียน อาจารย์ค่ะ

จาก sheet input ข้อมูลที่กรอกคั้งแต่ C10 - C51 อยากให้ไปบันทึกที่ sheet database ตั้งแต่ B3:AQ3 แต่ข้อมูลที่บันทึกโผล่เป็นช่วงๆ ไม่ทราบเพราะสาเหตุใด ต้อง ขอโทษ อาจารย์ด้วยค่ะ เพราะมือใหม่จริงๆ พอทำไปแก้ไขก็ งงๆ ค่ะ ยังไงรบกวนอาจารย์อีกครั้งนะค่ะ ขอบคุณค่ะ

[bubblebee]

เรียน อาจารย์

พอหาสาเหตุเจอแล้ว sheet database ตั้งแต่ F3 มันไม่ขึ้นเป็นตัวเลข มันขึ้นเป็น =Input!C14 ผลมันเลยไม่บันทึกให้ตัว Code ถูกแล้ว และขอถามต่อค่ะ ทำไมมันไม่ขึ้นเป็นตัวเลขค่ะ ทำไมมันเป็น =Input!C14 รบกวนด้วยค่ะ ขอบคุณค่ะ

[bank9597]

ลองกดบันทึกใหม่อีกครั้งครับ แล้วจะรู้ว่าข้อมูลที่สั่งบันทึกไปนั้น เริ่ม บันทึกตั้งแต่ B12 เป็นต้นไปครับ หาใช้ที่ F3 แต่อย่างใด

โค๊ดระบุว่า

Code: Select all

PasteSpecial xlPasteValues

นั่นก็หมายความว่า ให้วางค่าอย่างเดียว ไม่มีทางจะเป็นสูตรไปได้ครับ

[bubblebee]

ขอบคุณค่ะ แล้วแก้อย่างไรค่ะ ช่วยหน่อยค่ะ ว่าจะต้องแก้อย่างไร งมโข่งจนมึนแล้วค่ะ

[snasui]

เรียน อาจารย์

พอหาสาเหตุเจอแล้ว sheet database ตั้งแต่ F3 มันไม่ขึ้นเป็นตัวเลข มันขึ้นเป็น =Input!C14 ผลมันเลยไม่บันทึกให้ตัว Code ถูกแล้ว และขอถามต่อค่ะ ทำไมมันไม่ขึ้นเป็นตัวเลขค่ะ ทำไมมันเป็น =Input!C14 รบกวนด้วยค่ะ ขอบคุณค่ะ

แนบไฟล์นั้นมาดูกันครับ ผมไม่พบว่าไฟล์เดิมแสดงค่าเช่นนั้น

[bank9597]

าก sheet input ข้อมูลที่กรอกคั้งแต่ C10 - C51 อยากให้ไปบันทึกที่ sheet database ตั้งแต่ B3:AQ3 แต่ข้อมูลที่บันทึกโผล่เป็นช่วงๆ

ที่เป็นเช่นนั้น เพราะข้อมูลที่คุณดึงมาจากชีท Input นั้นไม่ครบครับ

ทำไมมันเป็น =Input!C14

ที่มันเป็นเช่นนั้น เพราะเราต้องการดึงข้อมูลในชีท Input มาจัดวางให้อยู่ในสถานะที่พร้อมต่อการสั่งบันทึกครับ

ลองดูตามไฟล์แนบครับ

ให้คุณทำความเข้าใจที่ B3 - AQ3 ชีท Database ครับ

เสร็จแล้ว รายงานผลด้วยครับ ว่าเข้าใจหรือไม่

[bubblebee]

ขอบคุณมากๆ ค่ะ คุณ bank9597 เข้าใจแล้วค่ะ ถ้าไม่ได้คงแย่แน่ๆ สะเพร่าเองค่ะ โล่งเยอะเลย ไม่รู้จะกล่าวคำขอบคุณอย่างไร ยิ้มออกแล้ว ขอบคุณนะค่ะ

[bubblebee]

เรียนสอบถามอีกข้อค่ะ
ถ้าเราตั้ง protect sheet database ไว้ และ sheet input เรากดบันทึกมันขึ้นเป็น debug ค่ะ ทำไมค่ะ ทั้งนี้ เพราะไม่ต้องการให้คนอื่นมาแก้ไขข้อมูลที่บันทึกเก็บไว้ใน database จะต้องทำอย่างไรค่ะ ขอบคุณค่ะ

[joo]

หลักการคือต้องสั่งปลดการป้องกันซีทก่อนที่จะบันทึกข้อมูล ลองแนบโค๊ดและตัวอย่างไฟล์ที่มีปัญหามาดูกันครับ เพื่อนสมาชิกจะได้ช่วยกันดู

[bubblebee]

ขอโทษด้วยค่ะ งานเยอะไม่มีเวลาเข้ามาดูเลย ตัว file ยังคงเป็น file แนบเดิม ดิฉันซ่อน sheet ไว้บางsheet และ ได้นำไปแชร์ไว้เพื่อให้เจ้าหน้าที่กรอก แต่เปิดได้เป็นบางเครื่อง บางเครื่องฟ้องว่า มาโครมีการป้องกันระดับสูงไม่สามารถแก้ไขและบันทึกได้ แต่บางเครื่องสามารถเปิดและแก้ไขบันทึกได้ตามปกติ ไม่ทราบว่าขึ้นอยู่กับส่วน IT หรือ file งานอย่างไรค่ะ หรือบางเครื่องไม่ได้เปิดการใช้งาน macro ค่ะ ต้องขอรบกวนด้วยค่ะ ขอบคุณค่ะ

[snasui]

คิดว่าเครื่องที่มีปัญหาไม่ได้เปิดการใช้งาน Macro ครับ

[bubblebee]

ขอบคุณมากค่ะอาจารย์ ทำได้แล้วค่ะ