Page 1 of 1

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

Posted: Mon May 23, 2011 4:48 pm
by sdmania
จากตัวอย่าง
form01 ผมจะดึงออกมา เพื่อ แก้ไข คำนำหน้า(นางสาวเป็นนาง ยศ)ชื่อลูกค้า สกุลลูกค้าครับ กะว่าให้แก้ที่ form01แล้วไปเปลี่ยนที่ data02 แต่มันขึ้น link วงกลมครับ ต้องทำยังไงดีครับ

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

Posted: Mon May 23, 2011 5:21 pm
by snasui
:D ปกติการแก้ไขข้อมูลที่มีอยู่แล้วสามารถจะ Filter ข้อมูลที่เกี่ยวข้องขึ้นมาแล้วเปลี่ยนเป็นข้อมูลที่สัมพันธ์กันให้ถูกต้องได้ครับ

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

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

Posted: Tue May 24, 2011 9:01 am
by sdmania
:shock: รบกวนอาจารย์ ยกตัวอย่าง vba ที่ว่าดึงขึ้นมาแก้ไข แล้วค่อยsave เก็บลงที่เดิมด้วยครับ
ตัวอย่างvba จากหนังสือที่ผมซื้อมา ไม่มีส่วนการ editข้อมูลเลยครับ หลักๆมีเพิ่มข้อมูล, ลบข้อมูล (ตอนแรกจะใช้ลบrowที่ผิด แต่มันชักช้าตรงที่ ต้องkey เข้าไปใหม่ทั้งแถว) ,ค้นหาข้อมูล เท่านี้น่ะครับ
ผมยังไม่เคยเจอ แก้ไขข้อมูล เมื่อแก้แล้วส่งไปsave ที่เซลเดิมครับ :mrgreen:

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

Posted: Tue May 24, 2011 9:33 am
by snasui
:D ลองดูตามไฟล์แนบครับโดยใช้ 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

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

Posted: Tue May 24, 2011 3:23 pm
by sdmania
ขอบคุณครับอาจารย์
:mrgreen: