UserForm - Tạo list xem bảng điểm (1 người xem)

[khongaicanobody]

Kính gửi các anh chị
Mình có thông tin 1 data về điểm học sinh. Mình muốn tạo một Userform hoặc listbox để xem xét từng học sinh trên phiếu điểm. và khi mình muốn lấy học sinh nào trên phiếu điểm thì nhấn nút OK sẽ được phiếu điểm với thông tin HS đó.

Mong nhận được chỉ giáo của anh chị

Xin cám ơn

 

[jack nt]

Option Explicit

Const C_HOTEN = 1, C_LOP = 2, C_TOAN = 3, C_LY = 4, C_HOA = 5
Const ADDRESS_HOTEN = "L6", ADDRESS_LOP = "L7"
Const ADDRESS_TOAN = "K12", ADDRESS_LY = "L12", ADDRESS_HOA = "M12"
Const R_DAU = 3, R_CUOI = 10

Private Sub ListDiem_Change()
Dim Index As Integer
Index = ListDiem.ListIndex
If Index > -1 Then
With ListDiem
Range(ADDRESS_HOTEN) = .List(Index, 0)
Range(ADDRESS_LOP) = .List(Index, 1)
Range(ADDRESS_TOAN) = .List(Index, 2)
Range(ADDRESS_LY) = .List(Index, 3)
Range(ADDRESS_HOA) = .List(Index, 4)
End With
End If
End Sub

Private Sub ListDiem_GotFocus()
Dim i As Integer, Index As Integer
ListDiem.Clear
For i = R_DAU To R_CUOI
If Cells(i, C_HOTEN) <> vbNullString Then
ListDiem.AddItem
Index = ListDiem.ListCount - 1
With ListDiem
.List(Index, 0) = Cells(i, C_HOTEN)
.List(Index, 1) = Cells(i, C_LOP)
.List(Index, 2) = Cells(i, C_TOAN)
.List(Index, 3) = Cells(i, C_LY)
.List(Index, 4) = Cells(i, C_HOA)
End With
End If
Next
End Sub

(xem file đính kèm)