这段VBA联想输入问题、查询代码哪里有问题

深秋红叶2019

YZC51 发表于 2020-4-13 20:57
问：这个日期控件输入日期后，怎么在表格里自动补充时分秒呢
答： .Cells(xrow, "B") = 办卡时间.Value +  ...

好的老师，谢谢

YZC51

打开新增窗体

深秋红叶2019

YZC51 发表于 2020-4-14 14:48
打开新增窗体

谢谢老师，那个建档信息里的序号怎么生成呢，还有那个学员总数那里子么累计，根据激活日期和到期日期怎么计算出剩余天数到文本框了，谢谢老师

YZC51

请参考
建档信息里的序号怎么生成呢

深秋红叶2019

YZC51 发表于 2020-4-15 08:23
请参考
建档信息里的序号怎么生成呢

谢谢老师，剩余天数计算我知道了，还有那个建档表的控件名称会入录好像知道怎么回事了，就是总学员数怎么统计还不会，假设在会员办卡窗体的学员电话控件输入电话，其它控件自动从建档里补充其它信息到其它的控件怎么实现呢，感谢老师，老师辛苦了

YZC51

办卡学员名单

1. <blockquote>Private Sub Worksheet_Change(ByVal Target As Range)

复制代码

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    myr = Target.Row
    myc = Target.Column
    If myr < 2 Or myc <> 11 Then Exit Sub
    If Target(1, 2) = "" Then Target(1, 2) = Application.EDate(Target, 12)
    Cells(myr, 13) = "=L" & myr & "-TODAY()"
    Cells(myr, 1) = "=Row()-1"
End Sub

深秋红叶2019

YZC51 发表于 2020-4-15 08:43
办卡学员名单
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then ...

太感谢老师了，这次我想全部用窗体的形式做，我还没有做好窗体，学员名单我的构思是通过两个文本控件（日期、课程名称）两个条件筛选到列表框控件，然后做一个命令按钮，通过命令按钮新建工作簿并把筛选出的内容同时填到表格里，因为排版有可能是横的或者竖的，需要根据学员的多少排版，实在太感谢老师了，我还没提问题老师就帮解答了，［握手］［握手］，感激涕零，真心的感谢老师，我搜了很多lisrbox加标题的问题，貌似不太好找用起来不是很灵活，又不知道用什么控件好了，所以可能还是会考怒listview，还是很谢谢老师的建议

深秋红叶2019

YZC51 发表于 2020-4-15 08:43
办卡学员名单
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then ...

搞懵圈了，我看成是本期课程学员名单了，现在才反应过来，老师Sorry