不错!
提个建议,既然“学号”和“姓名”是自动填写的,何不在填写完考号时先自动填写?,否则修改考号后学号姓名对不上!
添加如下语句:
Private Sub TextBox1_AfterUpdate()
With Sheets(ComboBox1.Value)
r = .Range("A" & .Cells.Rows.Count).End(xlUp).Row
Brr = .Range("C2:R" & r).Value
End With
For i = 1 To UBound(Brr)
If Brr(i, 1) = TextBox1.Value Then GoTo Y
Next
MsgBox "此班级中无此考号。": Exit Sub
Y:
TextBox2 = Brr(i, 2)
TextBox3 = Brr(i, 3)
End Sub