ช่วยด้วยครับ linkเป็นวงกลมครับ

[sdmania]

จากตัวอย่าง
form01 ผมจะดึงออกมา เพื่อ แก้ไข คำนำหน้า(นางสาวเป็นนาง ยศ)ชื่อลูกค้า สกุลลูกค้าครับ กะว่าให้แก้ที่ form01แล้วไปเปลี่ยนที่ data02 แต่มันขึ้น link วงกลมครับ ต้องทำยังไงดีครับ

[snasui]

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

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

[sdmania]

รบกวนอาจารย์ ยกตัวอย่าง vba ที่ว่าดึงขึ้นมาแก้ไข แล้วค่อยsave เก็บลงที่เดิมด้วยครับ
ตัวอย่างvba จากหนังสือที่ผมซื้อมา ไม่มีส่วนการ editข้อมูลเลยครับ หลักๆมีเพิ่มข้อมูล, ลบข้อมูล (ตอนแรกจะใช้ลบrowที่ผิด แต่มันชักช้าตรงที่ ต้องkey เข้าไปใหม่ทั้งแถว) ,ค้นหาข้อมูล เท่านี้น่ะครับ
ผมยังไม่เคยเจอ แก้ไขข้อมูล เมื่อแก้แล้วส่งไปsave ที่เซลเดิมครับ

[snasui]

ลองดูตามไฟล์แนบครับโดยใช้ Code ด้านล่างเข้ามาช่วย Update ข้อมูลครับ

Code: Select all

Sub UpdateData()
Dim rs As Range, rt As Range
Dim i As Integer
Set rs = Worksheets("form01").Range("C4:E4")
i = Worksheets("form01").Range("C1")
Set rt = Worksheets("data02").Range("B1").Offset(i, 0)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Update Finish."
End Sub

[sdmania]

ขอบคุณครับอาจารย์