程序运行不了

FXZ2015

名册.rar (214.51 KB, 下载次数: 6)

2024-8-7 15:40 上传

点击文件名下载附件
名册

各位老师，程序运行不了，以下代码出错。


Private Sub UserForm_Initialize()
    a = Array("户号", "户主关系", "姓名", "身份证号", "电话", "家庭住址", "年龄", "性别", "民族", "文化程度", "社保情况", "医保情况", "政治面貌", "婚姻状况", "子女情况", "身体情况", "类别1", "类别2", "类别3", "类别4", "类别5", "备注")
   
    For i = 0 To 21
        Me.Controls(a(i)).Value = Sheets("人员名册").Cells(t, i + 1)
        
    Next
End Sub
Private Sub 关闭_Click()
    Unload Me
End Sub

Private Sub 录入_Click()
    r = Sheets(1).Cells(Rows.Count, 2).End(3).row + 1
   
    For i = 0 To 21
        Sheets(1).Cells(r, i + 1) = Me.Controls(a(i)).Value
        
    Next
    Unload Me
End Sub

Private Sub 下一条_Click()
   
    t = t + 1
    For i = 0 To 21
        Me.Controls(a(i)).Value = Sheets(1).Cells(t, i + 1)
        
    Next
End Sub

Private Sub 修改_Click()
   
    For i = 0 To 21
        Sheets(1).Cells(t, i + 1) = Me.Controls(a(i)).Value
        
    Next
    Unload Me
End Sub

请各位老师帮忙。

小凡、、、

没细看 但是程序运行时 t是空值导致的报错，随表写了一个

FXZ2015

小凡、、、 发表于 2024-8-7 16:20
没细看 但是程序运行时 t是空值导致的报错，随表写了一个

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 3 Then
        t = Target.row
        居民名册.Show
    End If
End Sub

老师，当t=4时，这个没有运行

FXZ2015

小凡、、、 发表于 2024-8-7 16:20
没细看 但是程序运行时 t是空值导致的报错，随表写了一个

老师，当t=4时，双击姓名列，只显示窗体界面只显示第4行的内容。
正常应该是双击姓名列的第几行，窗体就应该显示第几行的内容。

小凡、、、

FXZ2015 发表于 2024-8-7 16:28
老师，当t=4时，双击姓名列，只显示窗体界面只显示第4行的内容。
正常应该是双击姓名列的第几行，窗体就 ...

自己看变量情况修改，那么长的代码，应该没有谁有精力被白嫖着排查问题

FXZ2015

小凡、、、 发表于 2024-8-7 16:31
自己看变量情况修改，那么长的代码，应该没有谁有精力被白嫖着排查问题

谢谢老师。

饮冰e士

程序能跑起来，至于数据是否正确，没有验证。

饮冰e士

加一句就可以跑起来了


信息表录入.zip (220.37 KB, 下载次数: 4)

2024-8-7 17:03 上传

点击文件名下载附件

FXZ2015

饮冰e士 发表于 2024-8-7 17:03
加一句就可以跑起来了

非常感谢。