Snasui Excel Forum

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

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