ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า

[SuchadaChai]

เรียน ขอคำแนะนำในการเขียน VBACode เพื่อทำการปรับบปรุงค่าจากการที่กรอกไปแล้ว โดยไม่ต้องเพิ่ม Record ใหม่ค่ะ ทั้งนี้ลองเขียนมาดู แต่ไม่สำเร็จในการเขียน x6j, Update ขอความอนุเคราะห์แนะนำหน่อยนะคะ เปิดดู Youtube มาหลายอันแล้วแต่ไม่ผ่าน
ขอบคุณมากนะคะ

[snasui]

ใช้ค่าใดเป็นหลักในการที่จะพิจารณาว่าจะ Update หรือจะเพิ่มบรรทัด กรุณาให้รายละเอียดมาด้วยครับ

[SuchadaChai]

ใน 1 record มีการกรอกข้อมูลรายละเอียดโครงการเท่าที่มีไปก่อนในรอบแรก
หลังจากนั้น เจ้าของโครงการสามารถเลือก Record ชื่อโครงการ จากการ Serch
แล้วทำการปรับค่าที่กรอกข้อมูลไปได้ทุกช่องค่ะ

[snasui]

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

[SuchadaChai]

ขออนุญาตตถามเป็น 2กรณีนะคะ
1 ใช้ชื่อโครงการเป็นตัวค้น แล้วทำการปรับค่าในช่องอื่นๆ
2 ถ้าใช้ค่าจากช่องใดก็ได้ค้นหา record แล้วทำการปรับค่าในช่องต่างๆลงไป
ทั้ง 2 ทางเขียน code ต่างกันไหมคะ เพื่อลงในปุ่ม update

[snasui]

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

[SuchadaChai]

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

[snasui]

หากจะเรียกชื่อผม กรุณาเรียกให้ถูก นามสกุลผมก็ไม่ได้เขียนเช่นนั้น หากจะเรียกชื่อ Login ให้เขียนชื่อ Login ครับ แก้ไขข้อความมาใหม่ครับ

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

[SuchadaChai]

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

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()

    If Application.CountIf(Range("d:d"), Me.TextBox1.Text) Then
        emptyRow = Application.Match(Me.TextBox1.Text, Range("d:d"), 0)
    Else
        emptyRow = WorksheetFunction.CountA(Range("D:D")) + 1
    End If
    '...Other code...

...Other code... คือ Code เดิมที่เหลือทั้งหมดของ Procedure นี้ครับ

[SuchadaChai]

ขอบพระคุณมากๆนะคะ