เรียน อาจารย์ครับ
อยากให้ระบบมีการตรวจสอบข้อมูล โดย
- ต้องการกำหนดให้ในช่วงวันและเวลาเดียวกัน เช่น วันที่ 10/07/2022 เวลา 06.00 จะมีการคีย์ห้องได้แค่ 6 ห้อง ถ้ามากกว่านั้น ระบบจะมีข้อความขึ้นมาว่า "มีการจองห้อง 6 ห้องแล้ว"
- ต้องการกำหนดให้ในช่วงวันและเวลาเดียวกัน เช่น วันที่ 10/07/2022 เวลา 07.00 จะมีการคีย์ห้องได้แค่ 4 ห้อง ถ้ามากกว่านั้น ระบบจะมีข้อความขึ้นมาว่า "มีการจองห้อง 4 ห้องแล้ว"
- ต้องการกำหนดให้ในช่วงวันและเวลาเดียวกัน เช่น วันที่ 10/07/2022 เวลา 08.00 จะมีการคีย์ห้องได้แค่ 4 ห้อง ถ้ามากกว่านั้น ระบบจะมีข้อความขึ้นมาว่า "มีการจองห้อง 4 ห้องแล้ว"
- ต้องการกำหนดให้ในช่วงวันและเวลาเดียวกัน เช่น วันที่ 10/07/2022 เวลา 09.00 จะมีการคีย์ห้องได้แค่ 5 ห้อง ถ้ามากกว่านั้น ระบบจะมีข้อความขึ้นมาว่า "มีการจองห้อง 5 ห้องแล้ว"
- ต้องการกำหนดให้ในช่วงวันและเวลาเดียวกัน เช่น วันที่ 10/07/2022 เวลา 10.00 จะมีการคีย์ห้องได้แค่ 5 ห้อง ถ้ามากกว่านั้น ระบบจะมีข้อความขึ้นมาว่า "มีการจองห้อง 5 ห้องแล้ว"
- ต้องการกำหนดให้ในช่วงวันและเวลาเดียวกัน เช่น วันที่ 10/07/2022 เวลา 11.00 จะมีการคีย์ห้องได้แค่ 6 ห้อง ถ้ามากกว่านั้น ระบบจะมีข้อความขึ้นมาว่า "มีการจองห้อง 6 ห้องแล้ว"
.
.
.
- ต้องการกำหนดให้ในช่วงวันและเวลาเดียวกัน เช่น วันที่ 10/07/2022 เวลา 23.00 จะมีการคีย์ห้องได้แค่ 6 ห้อง ถ้ามากกว่านั้น ระบบจะมีข้อความขึ้นมาว่า "มีการจองห้อง 6 ห้องแล้ว"
หมายเหตุ : ในแต่ละช่วงเวลาสามารถปรับเปลี่ยนการจองห้องได้ ว่าจะให้กี่ห้อง ต้องปรับ Code อย่างไรครับ ขอบคุณครับ
Code: Select all
Sub Save()
Dim x As Integer
Dim r As Integer
If Application.Sum(Application.CountIfs(Sheets("Data").Columns("h"), Array("OR01", "OR02", "OR03", "OR04", "OR05", "OR06", "OR07", "OR08"), _
Sheets("Data").Columns("i"), Worksheets("Input").Range("b6"), Sheets("Data").Columns("j"), _
Worksheets("Input").Range("b7"))) = 6 Then
MsgBox ("มีการจองห้อง 6 ห้องแล้ว")
Else
If Application.CountIfs(Sheets("Data").Columns("h"), Worksheets("Input").Range("b5"), _
Sheets("Data").Columns("i"), Worksheets("Input").Range("b6"), Sheets("Data").Columns("j"), _
Worksheets("Input").Range("b7")) > 0 Then
x = MsgBox("มีการจองข้อมูลในห้อง วันและเวลาดังกล่าวแล้ว??", vbOKCancel, "แจ้งเตือน")
Else
r = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Data").Cells(r, 1).Value = r - 1
Sheets("Data").Cells(r, 2).Value = Day(Date)
Sheets("Data").Cells(r, 3).Value = Month(Date)
Sheets("Data").Cells(r, 4).Value = Year(Date) - 2000
Sheets("Data").Cells(r, 5).Value = Sheets("Input").Range("B2").Value
Sheets("Data").Cells(r, 6).Value = Sheets("Input").Range("B3").Value
Sheets("Data").Cells(r, 7).Value = Sheets("Input").Range("B4").Value
Sheets("Data").Cells(r, 8).Value = Sheets("Input").Range("B5").Value
Sheets("Data").Cells(r, 9).Value = Sheets("Input").Range("B6").Value
Sheets("Data").Cells(r, 10).Value = Sheets("Input").Range("B7").Value
End If
End If
End Sub
You do not have the required permissions to view the files attached to this post.