Dim j As Integer
Private Sub cmd_next_Click()
j = j + 1
Txt_shu.Text = "0"
lab_ming.Caption = Sheet4.Cells(j, 1)
Txt_shu.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Luru()
Sheet4.Cells(j, 3) = Txt_shu.Text
End Sub
Private Sub Txt_shu_Change()
Luru
End Sub
Private Sub UserForm_Initialize()
j = 2
End Sub
请各位vba高手给讲讲是什么意思!多谢谢了!