Private Sub Xoa_Click()
' Khai báo các biến sẽ sử dụng:'
Dim last As Long, i As Long, last1 As Long, j As Long, tmp As String
'tmp = "= upper(sheet6.cells(5,6))" '
' Dòng cuối có dữ liệu thuộc cột 'B' bắt đầu từ 'B4' của sheet1 gán vô biến Last1:'
last1 = Sheet1.Range("B4").End(xlDown).Row
' Dòng cuối có dữ liệu thuộc cột 'B' bắt đầu từ 'B6' của sheêt gán vô biến Last:'
last = Sheet6.Range("B6").End(xlDown).Row
'Tạo vòng lặp từ 6 cho đến giá trị trong biến Last:'
For i = 6 To last
'Nếu dữ liệu trong ô có tọa độ dòng 5, cột 6 = ô thuộc dòng 9i) cột 2 thì:'
If Sheet6.Cells(i, 2) = Sheet6.Cells(5, 6) Then
' Nếu hộp thoại Xóa được khẵng định, thì:'
If MsgBox(" Ban co that su muon xoa?", vbQuestion + vbYesNo) = vbYes Then
'Chọn dòng thứ (i) của Sheet6:'
Sheet6.Rows(i).Select
'Xóa dòng được chọn & đôn lên:'
1 Selection.Delete shift:=xlUp
'Tạo vòng lặp theo j từ 4 cho đến giá trị trong biến Last1:'
For j = 4 To last1
' Nếu dữ liệu trong sheet6 thuộc dòng (i) cột 2 = dữ liệu trong sheet1 _
thuộc dòng (j), côt5, thì: '
2 If Sheet1.Cells(j, 5) = Sheet6.Cells(i, 2) Then
' Chuỗi "Phòng này đã thay đỗi" đem gán vô ô thuộc dòng (j), cột 7 của sheet1:'
Sheet1.Cells(j - 1, 7) = " Phong nay da thay doi"
3 End If
'Thoát vòng lặp theo j:'
Next j
End If
If i = last Then
Exit Sub
Else
Sheet6.Range("A" & i - 1).Select
Selection.AutoFill Destination:=Range("A" & i - 1 & ":A" & i), _
Type:=xlFillDefault
Sheet6.Range("A" & i - 1 & ":A" & i).Select
End If
Exit Sub
End If
Next i
If i > last Then MsgBox "Ten phong ban nhap vao khong ton tai", , "Thong bao:"
End Sub
