ให้ระบบมีการตรวจสอบข้อมูล

[wisitsakbenz]

เรียน อาจารย์ครับ

อยากให้ระบบมีการตรวจสอบข้อมูล โดย

- ในช่วงวันและเวลาเดียวกัน เช่น วันที่ 10/07/2022 เวลา 06.00 จะมีการคีย์ห้องได้แค่ 6 ห้อง ถ้ามากกว่านั้น ระบบจะมีข้อความขึ้นมาว่า
"มีการจองห้อง 6 ห้องแล้ว"

ต้องปรับ Code อย่างไรครับ ขอบคุณครับ

Code: Select all

Dim x As Integer
Dim r As Integer
    
    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("มีการจองห้อง 6 ห้องแล้ว??", vbOKCancel, "แจ้งเตือน")
Else

[snasui]

ปัญหาของ Code ที่เขียนมาคืออะไร ติดขัดตรงส่วนใด ช่วยอธิบายเพิ่มเติมด้วยครับ

ถ้าติดขัดที่ 6 ห้อง คิดว่าตรวจสอบเองได้ไม่ยาก เปลี่ยน ...> 0 Then... เป็น ...> 6 Then... ครับ

[wisitsakbenz]

เรียน อาจารย์ snasui

ปรับเป็น ..>6 แล้ว แต่มันไม่แจ้งเตือน ไม่แน่ใจว่าผมทำผิดตรงไหนหรือไม่ครับ ขอบคุณครับ

[puriwutpokin]

แบบนี้หรือเปล่าครับ

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"), _
    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

[wisitsakbenz]

เรียน อาจารย์ puriwutpokin

ได้แล้วครับ ขอบคุณมากครับ