Dim j As Integer

来源：百度知道 编辑：UC知道 时间：2024/06/15 00:03:24
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高手给讲讲是什么意思！多谢谢了！

把各个控件 说一下啊

每按下Next按钮，那个lab_ming（名字？实验室名字？）标签的内容就往下滚动一条（显示为下一个单元格的内容，j作为变量储存单元格是第几行的） 而录入则可以把txt_shu这个文本框内容替代现在那一条记录

这个VBA小程序是一个简单的录入的程序！

Dim j As Integer ‘定义一个变量J

Private Sub cmd_next_Click() ’这个属于点击的累加功能
j = j + 1 ‘累加变量J相应的加1操作
Txt_shu.Text = "0" ’初始值，文本框归0
lab_ming.Caption = Sheet4.Cells(j, 1) ；Label标签的内容等于工作表的SHEET4单元格的第1行第j列

Txt_shu.SetFocus‘输入文本框得到焦点，以便执行LURU子过程

End Sub

Private Sub CommandButton2_Click()
Unload Me ’点击命令按钮2突出程序

End Sub

Private Sub Luru() ‘录入子过程
Sheet4.Cells(j, 3) = Txt_shu.Text ；吧TXT_SHU的内容填入工作表中的SHEET4的第3行第j列
End Sub

Private Sub Txt_shu_Change() ’只要输入的信息由变化就会激活LURU子过程
Luru

End Sub

Private Sub UserForm_Initialize()
j = 2

End Sub
执行过程：
Initialize()-->cmd_next_click()-->txt_shu_change()-->Luru(0-->CommandButton2_click()