Page 1 of 1
ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 5:17 pm
by SuchadaChai
เรียน ขอคำแนะนำในการเขียน VBACode เพื่อทำการปรับบปรุงค่าจากการที่กรอกไปแล้ว โดยไม่ต้องเพิ่ม Record ใหม่ค่ะ ทั้งนี้ลองเขียนมาดู แต่ไม่สำเร็จในการเขียน x6j, Update ขอความอนุเคราะห์แนะนำหน่อยนะคะ เปิดดู Youtube มาหลายอันแล้วแต่ไม่ผ่าน
ขอบคุณมากนะคะ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 6:24 pm
by snasui
ใช้ค่าใดเป็นหลักในการที่จะพิจารณาว่าจะ Update หรือจะเพิ่มบรรทัด กรุณาให้รายละเอียดมาด้วยครับ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 7:15 pm
by SuchadaChai
ใน 1 record มีการกรอกข้อมูลรายละเอียดโครงการเท่าที่มีไปก่อนในรอบแรก
หลังจากนั้น เจ้าของโครงการสามารถเลือก Record ชื่อโครงการ จากการ Serch
แล้วทำการปรับค่าที่กรอกข้อมูลไปได้ทุกช่องค่ะ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 7:41 pm
by snasui
แสดงว่าใช้ชื่อโครงการเป็นหลักในการที่จะเปลี่ยนค่าเดิมหรือเพิ่มบรรทัดใหม่ ใชหรือไม่ครับ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 8:43 pm
by SuchadaChai
ขออนุญาตตถามเป็น 2กรณีนะคะ
1 ใช้ชื่อโครงการเป็นตัวค้น แล้วทำการปรับค่าในช่องอื่นๆ
2 ถ้าใช้ค่าจากช่องใดก็ได้ค้นหา record แล้วทำการปรับค่าในช่องต่างๆลงไป
ทั้ง 2 ทางเขียน code ต่างกันไหมคะ เพื่อลงในปุ่ม update
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 8:46 pm
by snasui
เขียน Code ต่างกันแน่ครับ อยู่กับเงื่อนไขว่าจะใช้ค่าใดเป็นหลักในการค้น ใช้แค่ค่าเดียว สองค่า สามค่า หรือ ร้อยค่า เขียน Code ต่างกันครับ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 9:03 pm
by SuchadaChai
เรียน อ นสุย
งั้นขอรบกวนในทางเลือกที่ 2 นะคะ ว่าถ้าเลือกค้นด้วยค่าใดเมื่อเจอ record ที่ต้องการแล้ว สามารทำการปรับปรุงค่าในช่องต่างๆได้เลยคะ ไม่ต้องสร้างเป็น recordใหม่คะ ขอบคุณมากนะคะ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 9:13 pm
by snasui
หากจะเรียกชื่อผม กรุณาเรียกให้ถูก นามสกุลผมก็ไม่ได้เขียนเช่นนั้น หากจะเรียกชื่อ Login ให้เขียนชื่อ Login ครับ แก้ไขข้อความมาใหม่ครับ
ค่าที่ว่านั้นคือค่าใด ให้ระบุมาให้ชัดเจน หากจะใช้ค่าใดก็ได้ ไม่ใช่ลักษณะของการเขียนที่ควรทำ เพราะอาจผิดบรรทัดได้สูงมากครับ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Tue Mar 07, 2017 10:18 pm
by SuchadaChai
เรียนคุณ snasui
ขออภัยทีนะคะ ที่เขียนชื่อ นามสกุลไม่ถูกต้องนะคะ
เนื่องจากเพิ่งลองเขียนครั้งแรก ดิฉันอาจไม่รู้ว่าต้องระบุคำใดในการขอความช่วยเหลือนะคะ
น่าจะเริ่มต้นที่ว่า
1 เมื่อค้นหาชื่อโครงการแล้ว
2 หากต้องการระบุค่าหรือแก้ไขค่าในช่องอิ่นๆของโครงการนั้น ก็สามารถจะทำการปรับปรุงได้เลย และทำการบันทึกทับค่าเดิมโดยไม่ได้ สร้าง recordใหม่
ขอบคุณคะ และขอโทษในเรื่องการระบุชื่อนะคะ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Wed Mar 08, 2017 5:04 am
by 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 นี้ครับ
Re: ขอคำแนะนำการเขียน VBA Code เพื่อ Updated ค่า
Posted: Sat Mar 11, 2017 6:29 am
by SuchadaChai
ขอบพระคุณมากๆนะคะ