lebanhan113
Thành viên mới
- Tham gia
- 5/1/20
- Bài viết
- 32
- Được thích
- 5
Em muốn dựa vào 9 kí tự đầu tiên (D6) của Sheet1 dò với 9 kí tự đầu tiên (A7) của Sheet2. Nếu chưa khớp em nào thì sẽ điền vào cột E của Sheet 1 vắng.
Code của em:
Option Explicit
Sub Diem_Danh()
'Phan khai bao bien
Dim DsHs(), i As Long, MeetHS(), Ma_So As Long, tmp As String, Lop As String
'On Error Resume Next
With Sheets("Sheet1")
DsHs = .Range("A6", .Range("A65536").End(3)).Resize(, 4).Value 'lay DS HS
End With
With Sheets("Sheet2")
MeetHS = .Range("A7", .Range("A65536").End(3)).Resize(, 5).Value 'Lay du lieu de xu ly
End With
For i = 1 To UBound(MeetHS) ' duyet tung dong cua du lieu Chat
If MeetHS(i, 1) = Lop Then 'neu cot 2 dung ten lop
If MeetHS(i, 2) <> Empty Then 'neu cot 4 co du lieu
tmp = MeetHS(i, 4)
tmp = Right(Left(tmp, 10), 2)
'Ma_So = TachSo(tmp)
DsHs(Ma_So, 4) = "V"
End If
End If
Next
Sheets("Sheet1").Range("A6").Resize(UBound(DsHs), UBound(DsHs, 2)) = DsHs
MsgBox "Da Xong.", 64
End Sub
Code của em:
Option Explicit
Sub Diem_Danh()
'Phan khai bao bien
Dim DsHs(), i As Long, MeetHS(), Ma_So As Long, tmp As String, Lop As String
'On Error Resume Next
With Sheets("Sheet1")
DsHs = .Range("A6", .Range("A65536").End(3)).Resize(, 4).Value 'lay DS HS
End With
With Sheets("Sheet2")
MeetHS = .Range("A7", .Range("A65536").End(3)).Resize(, 5).Value 'Lay du lieu de xu ly
End With
For i = 1 To UBound(MeetHS) ' duyet tung dong cua du lieu Chat
If MeetHS(i, 1) = Lop Then 'neu cot 2 dung ten lop
If MeetHS(i, 2) <> Empty Then 'neu cot 4 co du lieu
tmp = MeetHS(i, 4)
tmp = Right(Left(tmp, 10), 2)
'Ma_So = TachSo(tmp)
DsHs(Ma_So, 4) = "V"
End If
End If
Next
Sheets("Sheet1").Range("A6").Resize(UBound(DsHs), UBound(DsHs, 2)) = DsHs
MsgBox "Da Xong.", 64
End Sub
Bài đã được tự động gộp:
Hoàng Tuấn 868.
Anh xem giúp em với.
Lần chỉnh sửa cuối: