:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ค้นหา / แก้ไข ข้อมูล

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

ค้นหา / แก้ไข ข้อมูล

#1

Post by mmnck »

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

#ในส่วนของการเพิ่มข้อมูล ทำเสร็จเรียบร้อยแล้วคะ ยังติดตรงการค้นหา / แก้ไขข้อมูลคะ
You do not have the required permissions to view the files attached to this post.
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#2

Post by mmnck »

รบกวนช่วยสอนวิธีการค้นหาข้อมูลต่างจาก Form ด้วย ID หรือ ชื่อ แล้วขึ้นข้อมูลต่าง ๆ ให้แก้ไข

อยู่ในชีทแรก ในส่วนของเมนู ค้นหาพนักงานคะ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#3

Post by snasui »

:D Code ที่เขียนสำหรับการค้นหาคือ Procedure ใด ติดขัดบรรทัดใดครับ หากยังไม่เขียนให้เขียนมาก่อนแล้วถามกันเฉพาะที่ติดปัญหาครับ :?:
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#4

Post by mmnck »

ค้นหาจากรหัสพนักงาน ทำได้แล้วค่ะ แต่ในช่อง no ต้องการให้ป้อนได้ทั้งชื่อ และ รหัส พนักงานต้องปรับตรงไหนบ้างค่ะ
** ตอนนี้ในช่อง no ใส่ได้แค่รหัสพนักงานที่มีตัวอักษรนำหน้าคะ
** และบางฟิลด์ที่เป็นวันที่ เวลาค้นหา วันที่ไม่มาคะ แต่จะมาในรูปแบบของตัวเลขจำนวนเต็ม
code จะอยู่ใน Userform ชื่อ searchper คะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#5

Post by snasui »

:D ตัวอย่างการปรับ Code ครับ

Code: Select all

On Error Resume Next
With Worksheets(2)
    If Application.CountIf(.Range("a4", .Range("a" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
        Set myRange = .Range("A:P")
    ElseIf Application.CountIf(.Range("b4", .Range("b" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
        Set myRange = .Range("B:P")
    End If
End With
'Other code...
Field ที่เป็นวันที่หากต้องการจะให้มาในรูปแบบของวันที่จะต้องจัด format เข้ามาช่วยครับ เช่น Application.Text(txtBox100.text,"dd/mm/yyyy")) เป็นต้น
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#6

Post by mmnck »

ทำการปรับเปลี่ยนในส่วนของการค้น หาในเรื่องของชื่อละรหัสแล้วคะ แต่พบปัญหาเลยเอาเงื่อนไขทั้งหมดมาใส่ไว้ด้วย จากนั้นมีปัญหาในส่วนของการ save คะ code จะอยู่ใน User form = SearchPer คะ

ไม่แน่ใจว่าอาจจะใส่ หรือ ปรับเปลี่ยน ตรงไหนผิดรึป่าวคะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#7

Post by snasui »

:D ค่อย ๆ ถามตอบกันไปครับ

ก่อนจะไปปัญหาในการ Save ให้ชี้แจงมาว่าเกิดปัญหาใดกับการใช้ Code ด้านบนครับ

Code ทีผมเขียนไว้ให้เขียนติดกันตามที่ผมโพสต์ไป โดยวางไว้หลังจากบรรทัด On Error Resume Next ส่วน Code ที่เหลือก็เรียงต่อกันด้านล่าง ให้ปรับมาตามนี้ก่อน ติดตรงไหนค่อยถามกันต่อครับ
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#8

Post by mmnck »

ในส่วนของการปรับ ติดปัญหาตรงที่
1.ค้นหาจากรหัสได้คะ แต่ต้องขึ้นต้นด้วยตัวอักษร ในส่วนของชื่อ ไม่สามารถกดค้นหาได้
2.ในส่วนของวันที่ ดึงค่ามาตามรูปแบบเดิมได้ แต่พอกดบันทึกส่งค่ากลับไปยังหน้า excel เดือนกับวันที่สลับกันอยู่คะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#9

Post by snasui »

:D จาก Code ในไฟล์ที่แนบมา ให้ Mark บรรทัดหลัง With ให้เป็น Comment เพราะเป็นการ Assign ค่าซ้ำครับ

ตัวอย่าง Code จะได้เป็นด้านล่าง

Code: Select all

On Error Resume Next
With Worksheets(2)
    If Application.CountIf(.Range("a4", .Range("a" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
        Set myRange = .Range("A:P")
    ElseIf Application.CountIf(.Range("b4", .Range("b" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
        Set myRange = .Range("B:P")
    End If
End With
'Set myRange = Worksheets(2).Range("A:P")
การส่งค่ากลับไปอยู่ที่ Procedure ใด บรรทัดใดแจ้งมาด้วยเสมอครับ
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#10

Post by mmnck »

ขอบคุณคะ ตอนนี้สามารถค้นหาจากชื่อได้ แต่ติดปัญหาตรงที่แต่ช่องจะขึ้นไม่ตรงกันคะ

> ค้นหาจากรหัส ข้อมูลขึ้นมาตรง
> ปัญหาตรงการค้นหาจากรายชื่อ ชื่อพนักงานไปอยู่ในช่องของรหัสพนักงาน
code ส่วนค้นหามูลจะอยู่ใน user form "searchPer" ภายใต้ปุ่ม Search

และบันทึกข้อมูลในวันที่ไม่ได้คะ
> ตอนดึงเข้ามาเพื่อแสดงข้อมูล เข้ามาได้ปกติ พอกดบันทึกค่าของวันที่และเดือนจะสลับกันคะ
code ส่วนบันทึกของมูลจะอยู่ใน user form "searchPer" ภายใต้ปุ่ม Save
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#11

Post by snasui »

:D ทำให้ผ่านไปทีละฟังก์ชั่นครับ

ตัวอย่างการปรับ Code สำหรับการ Search ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim l As Long
    On Error Resume Next
    With Worksheets(2)
        If Application.CountIf(.Range("a4", .Range("a" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
            'Set myRange = .Range("A:P")
            l = Application.Match(TextBox13.Text, .Range("a:a"), 0)
        ElseIf Application.CountIf(.Range("b4", .Range("b" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
            'Set myRange = .Range("B:P")
            l = Application.Match(TextBox13.Text, .Range("b:b"), 0)
        End If
        'Set myRange = Worksheets(2).Range("A:P")
        TextBox14.Value = .Cells(l, 1).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 1, False)
        TextBox2.Value = .Cells(l, 2).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 2, False)
        ComboBox1.Value = .Cells(l, 3).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 3, False)
        ComboBox3.Text = .Cells(l, 4).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 4, False)
        ComboBox2.Text = .Cells(l, 5).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 5, False)
        ComboBox4.Text = .Cells(l, 6).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 6, False)
        TextBox3.Value = .Cells(l, 7).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 7, False)
        TextBox9.Value = .Cells(l, 8).Value ' Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 8, False)
        TextBox4.Value = .Cells(l, 9).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 9, False)
        TextBox10.Value = .Cells(l, 10).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 10, False)
        TextBox5.Value = .Cells(l, 11).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 11, False)
        TextBox6.Value = .Cells(l, 12).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 12, False)
        TextBox11.Value = .Cells(l, 13).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 13, False)
        TextBox7.Value = .Cells(l, 14).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 14, False)
        TextBox8.Value = .Cells(l, 15).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 15, False)
        TextBox12.Value = .Cells(l, 16).Value 'Application.WorksheetFunction.VLookup(TextBox13.Text, myRange, 16, False)
        TextBox12.Value = .Cells(l, 17).Value 'Application.Text(TextBox12.Text, "dd/mm/yyyy")
        'Other code
    End With
End Sub
หากผ่านแล้ว ในส่วนของการ Save อธิบายมาด้วยว่าโค้ดบรรทัดใดที่มีปัญหาตามที่กล่าวมาครับ
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#12

Post by mmnck »

ชในส่วนของการค้นหา ยังติดในเรื่องของการดึงวันที่มา

> เมื่อป้อนรหัส / ชื่อ ข้อมูลมาตรงทุกอย่าง แต่ติดปัญหาที่วันที่ โดยที่ วันที่ และ เดือน จะสลับกันอยู่คะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#13

Post by snasui »

:D ดูตัวอย่าง Code เดิมที่ผมเคยปรับไปให้ว่าเป็นเช่นไรแล้วลองปรับมาก่อน ติดตรงไหนค่อยถามกันต่อครับ
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#14

Post by mmnck »

Code: Select all

TextBox12.Value = Application.Text(TextBox12.Text, "dd/mm/yyyy")
ลองปรับโดยการเอา Textbox12 ที่ใช้ในการเก็บวันที่เพื่อใช้ดึงในการค้นหาและการบันทึกแล้ว แต่วันที่ก็ยังเพี้ยนอยู่เลยคะ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#15

Post by snasui »

:D ลองปรับเป็นด้านล่างครับ

Code: Select all

TextBox12.Value = Application.Text(.Cells(l, 17).Value2,"dd/mm/yyyy")
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#16

Post by mmnck »

วันที่ก็สลับกันอยู่คะ

จะใส่ วันที่ 10 / 7/ 2537
แต่เวลาบันทึกลง excel จะได้ 7 / 10 / 2537

code ของการบันทึกจะอยู่ใน searchPer ในปุ่ม Save
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#17

Post by snasui »

:D การดึงค่ามาแสดงกับการบันทึกกลับไปต้องจัดการแยกต่างหากจากกาัน ตามโพสต์ด้านบนเป็นการจัดการกับปุ่ม Search เท่านั้น เมื่อได้คำตอบในขั้นตอนนี้แล้วควรแจ้งผลมาด้วยครับ

กรณีบันทึกกลับไปยัง Worksheet ก็ต้องปรับ Code ใหม่ การดึงมาถูกตามรูปแบบที่ต้องการแล้วก็ไม่ใช่ว่าจะบันทึกกลับไปแล้วจะยังได้รูปแบบตรงกับที่ต้องการครับ

ตัวอย่าง Code ดูที่ Link นี้ครับ http://www.snasui.com/viewtopic.php?t=9562#p59774
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#18

Post by mmnck »

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

ค้นหาจากชื่อพนักงาน จะมีปัญหาในการบันทึกคะ
Code จะอยู่ใน searchPer ในส่วนของปุ่ม Save คะ


Code: Select all

Private Sub CommandButton3_Click()
 Dim Row As Long
    Row = Application.Match(TextBox13.Text, Sheets(2).Range("a:a"), 0)
    With Sheets(2)
        .Cells(Row, 1).Value = TextBox13.Text
        .Range("a" & Row).Value = TextBox14.Text

       .Cells(Row, 2).Value = TextBox2.Text
       .Cells(Row, 3).Value = ComboBox1.Text
       .Cells(Row, 4).Value = ComboBox3.Text
       .Cells(Row, 5).Value = ComboBox2.Text
       .Cells(Row, 6).Value = ComboBox4.Text
       .Cells(Row, 7).Value = TextBox3.Text
       .Cells(Row, 8).Value = TextBox9.Text
       .Cells(Row, 9).Value = TextBox4.Text
       .Cells(Row, 10).Value = TextBox10.Text
       .Cells(Row, 11).Value = TextBox5.Text
       .Cells(Row, 12).Value = TextBox6.Text
       .Cells(Row, 13).Value = TextBox11.Text
       .Cells(Row, 14).Value = TextBox7.Text
       .Cells(Row, 15).Value = TextBox8.Text
       .Cells(Row, 16).Value = WorksheetFunction.Text(TextBox12.Value, "dd/mm/yyyy")
             
    End With
    MsgBox ("Save Complete")

End Sub
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหา / แก้ไข ข้อมูล

#19

Post by snasui »

mmnck wrote:ขอบคุณมากคะ ตอนนี้บันทึกลงในรูปแบบของวันที่ได้แล้วคะ
แต่เวลาแก้ไข หากแก้ไขโดยค้นหาจากรหัส สามารถบันทึกได้ปกติคะ

ค้นหาจากชื่อพนักงาน จะมีปัญหาในการบันทึกคะ
Code จะอยู่ใน searchPer ในส่วนของปุ่ม Save คะ
:D มีปัญหาลักษณะใดช่วยอธิบายรายละเอียดประกอบ จะได้ตอบต่อไปจากนั้นครับ
mmnck
Member
Member
Posts: 13
Joined: Thu Aug 10, 2017 12:44 am

Re: ค้นหา / แก้ไข ข้อมูล

#20

Post by mmnck »

ถ้าค้นหาจากรหัสพนักงาน แล้วเปลี่ยนแปลงข้อมูล สามารถบันทึกได้

แต่ เมื่อค้นหาจากชื่อของพนักงาน แล้วแก้ไขข้อมูล Code Errorไม่สามารถบันทึกได้คะ

Code: Select all

Private Sub CommandButton3_Click()
 Dim Row As Long
    Row = Application.Match(TextBox13.Text, Sheets(2).Range("a:a"), 0)
    With Sheets(2)
        .Cells(Row, 1).Value = TextBox13.Text
        .Range("a" & Row).Value = TextBox14.Text

       .Cells(Row, 2).Value = TextBox2.Text
       .Cells(Row, 3).Value = ComboBox1.Text
       .Cells(Row, 4).Value = ComboBox3.Text
       .Cells(Row, 5).Value = ComboBox2.Text
       .Cells(Row, 6).Value = ComboBox4.Text
       .Cells(Row, 7).Value = TextBox3.Text
       .Cells(Row, 8).Value = TextBox9.Text
       .Cells(Row, 9).Value = TextBox4.Text
       .Cells(Row, 10).Value = TextBox10.Text
       .Cells(Row, 11).Value = TextBox5.Text
       .Cells(Row, 12).Value = TextBox6.Text
       .Cells(Row, 13).Value = TextBox11.Text
       .Cells(Row, 14).Value = TextBox7.Text
       .Cells(Row, 15).Value = TextBox8.Text
       .Cells(Row, 16).Value = WorksheetFunction.Text(TextBox12.Value, "dd/mm/yyyy")
             
    End With
    MsgBox ("Save Complete")

End Sub
Code จะอยู่ใน searchPer ในส่วนของปุ่ม Save คะ
You do not have the required permissions to view the files attached to this post.
Post Reply