Excel Forum

ขอบคุณค่ะ

คือว่าปกติต้องทำการ Copy ไฟล์ให้มี 2 อันก่อน และลบข้อมูลไป 1 อันเพื่อใช้งานในเดือนถัดไป และอีกอันต้องเก็บเป็นข้อมูลของเดือนนี้ (ใช้บันทึกเวลาเข้า-ออกงาน) ลืม Copy มีไฟล์เดียวลบข้อมูลไปแล้วและบันทึกข้อมูลใหม่ทับไปแล้ว ต้องการขัอมูลที่ถูก save ทับไปแล้วมีวิธีบ้างหรือเปล่าค่ะ ไฟล์นามสกุล.xlsm คะ พิมพ ...

ขอโทษค่ะคิดว่าแนบ file ผิด file แนบถูดอันแล้วคะ

ผิดอันคะ

ลงปรับ Code ใหม่คะ ตอนนี้ค้นหาจาก Hn.ใช้งานได้ปกติคะ แต่ค้นหาจากชื่อ MsgBox แจ้งไม่พบข้มูล ช่วยดู code ให้ทีคะไม่ขึ้น error ได ๆ แต่เหมือน Code ไม่ทำงาน ไม่รู้ว่าผิดอะไร ตรงไหนคะ รบการชวยทีคะ
Public Sub search_mode()
Dim id_search As String
Dim id_check As String
Dim data_row As Single
Dim i As ...

Dim name_search As String
Dim name_check As String
Dim data1_row As Single
Dim i1 As Single
Dim rall1 As Range, r1 As Range
With Sheets("db_student")
Set rall1 = .Range("b2", .Range("a" & .Rows.Count).End(xlUp))
End With
With entry_form
For Each r In rall
If r.Value = .name_txtbox.Text Then ...

Public Sub entry_mode()
Dim blank_row As Single
blank_row = Worksheets(db_sheet).Cells(1, 1).End(xlDown).Row + 1
With Worksheets(db_sheet)
.Cells(blank_row, id_col).Value = entry_form.id_txtbox.Value
.Cells(blank_row, name_col).Value = entry_form.name_txtbox.Value
.Cells(blank_row, surname_col ...

แนบ file ผิดคะต้องอันนี้คะ

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

file แนบคะ

แก้ไข Code ตามที่แนะนำแล้ว ขอบคุณมากคะ รบกวนถามอีกปัญหาคะ คือเพิ่ม List box เข้าไป เมื่อพิมพ์ HN.ลงไป แล้วคลิกค้นหา ในช่อง List box จะขึ้นข้อมูลที่ค้นหาด้วย แต่ตอนนี้ขึ้นแค่บันทัดเดียว เช่น รหัส 490001 มีข้อมูลอยู่ 2 บันทัดต้องการให้ เมื่อใส่รหัสข้อมูลที่ list box ขึ้นตามที่มีข้อมูลอยู่ คือ 2 บันท ...

ขอบคุณสำหรับคำตอบที่แล้วคะ ตอนนี้พบปัญหาว่าเมื่อกรอกข้อมูลที่ช่อง Hn. และคลิกปุ่มค้นหา ในกรณีที่ไม่มีข้อมูลตามที่ค้นหาจะขึ้น Error ที่ id_check = Worksheets(db_sheet).Cells(data_row, id_col).Value
Public Sub search_mode()
Dim id_search As String
Dim id_check As String
Dim data_row As Single
Dim i ...

ขอถามเพิ่มอีกข้อคะ ต้องการให้พิมพ์ HN.ลงไปถ้ามีข้อมูลอยู่แล้วให้ MsgBox แจ้ง "มีข้องมลูอยูแล้ว" ช่วยดู Code ให้หน่อยคะ พิมพ์ซ้ำ MsgBox ก็ไม่เห็นแจ้งคะ
Private Sub id_txtbox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim db_student As Worksheet
Dim sdLR As Long, y As Long, x As Long
Set db_student ...

ขอบคุณมากค่ะ และขอโทษเรื่อง โพสต์ Code ด้วยคะ

file แนบค่ะ

รบกวนค่ะ สร้างฟอร์มสำหรับกรอกข้อมูลและค้นหาข้อมูล ค้นหาใช้งานได้ แต่เมื่อกดปุ่ม เพิ่ม จะ Error ที่ vblnformation คะ ไม่รู้เพราะอะไรรบกวนช่วยดูให้ทีหาอยู่หลายวันแล้วคะ
Public Sub entry_mode()
Dim blank_row As Single
blank_row = Worksheets(db_sheet).Cells(1, 1).End(xlDown).Row + 1
With Worksheets(db ...

=IF(VLOOKUP($A$2,$A$4:$AA$34,4,0)="",0,IF(VLOOKUP($A$2,$A$4:$AA$34,5,0)>TIME(0,10,0),2,IF(VLOOKUP($A$2,$A$4:$AA$34,4,0)>TIME(0,0,0),1)))สูตรเดิมที่ยังไม่แก้ Error ค่ะ

รบกวนดู code ค่ะ เดิมพยายามแก้ N/A ตอนนี้ขึ้น #VALUE จะต้องแก้ code อย่างไรค่ะ

ขอบคุณค่า