窗体录入问题

54321shenyong

问题描述：
    1、窗体设置了空值提醒，点增加有提示。
    2、按理有空值提醒不应该有录入操作，现在在未录入数据的情况下点击确定有提示，但序列“B”列和金额“I”列会运行代码，两列都有录入操作。


现有代码结构：
    1、窗体录入代码在窗体“UserForm1”内
    2、序列“B”列自动填充、金额“I”列计算“元”为单位的代码在“Sheet7”《支出流水》工作表下
    3、有提示的项为必填项。

问题处理要求：
      1、在窗体提示范围内的必填项数据填充完成后点确定才统一录入。      2、缺少必填项不触发“B列”“I列”事件。


上传附件静等大佬！

   

54321shenyong

国庆到来，今天已是节前最后一天，希望大佬能关注一下这个帖子

dongjuwen

If 日期 = "" Then
MsgBox "请录入日期!", vbInformation, "友情提示"
后面加上"
日期.SetFocus
Exit Sub"
就可以退出过程了。

microyip

现在你写的代码有哪里不懂得怎么写呢？

54321shenyong

microyip 发表于 2019-9-30 09:03
现在你写的代码有哪里不懂得怎么写呢？

有些代码是在论坛里求助一些前辈大佬写的，然后在根据自身需要在论坛找了一些实用的组合而来，买了书一直没时间学习，所以有问题只有求助大佬

dongjuwen

控件多了，有的时候对应到单元格会出错，借助Array写入，代码简化的同时也把出错率降低了。仅供参考！
Private Sub CmdOk_Click()     '写入工作表
    ar = Array("日期", "当日单号", "一级类目", "二级类目", "三级类目", "对方单位", "概要", "所属项目", "经办人", "付款人", "资金来源")
    For i = 0 To UBound(ar)
        If Me.Controls(ar(i)) = "" Then
            MsgBox "请录入：" & ar(i), vbCritical, "友情提示"
            Me.Controls(ar(i)).SetFocus
            Exit Sub
        End If
    Next
   
    Dim xrow As Long                     '定义变量xrow，用来保存要输入数据的工作表行号
    xrow = Range("A4").CurrentRegion.Rows.Count + 3  '求工作表中第1条空行的行号
    For i = 0 To UBound(ar)
        Cells(xrow, i + 3) = Me.Controls(ar(i)).Value
        Me.Controls(ar(i)).Value = ""
    Next
End Sub

fanyoulin

我就随便提点建议，没有认真看代码，我个人不太喜欢窗体，看见窗体就头大：
1、“B”列“I”列的运行：你把这两列的处理代码放在if条件的后面了，也就是说放在条件的外面。你的代码：
     If 日期 = "" Then
        MsgBox "请录入日期!", vbInformation, "友情提示"
     elseif ......
        .....
     endif
     xrow = Range("A4").CurrentRegion.Rows.Count + 3
     很明显，不管if条件如何，最后一行都会运行的；
2、你窗体的代码还有很多其他问题，你应该是使用了字典，但这里并没有排错功能，比如在一级、二级、三级类目那三个地方随便乱输一通，代码就出错了，因为下级联动列表是依赖上级列表的。这个地方需要增加排错功能，需要排除掉字典中没有的信息；
3、这样设计后理论上应该是只能在窗体中录入而不能在单元格直接录入，要不然窗体就没有存在的价值。但事实上，表格中的单元格也是可以录入的，随便乱输一通大多数情况也都能通过；
4、我个人还是觉得窗体录入是一大障碍，对于你这个应用来说，窗体完全没存在的价值：
    1）字段数量不多，简单的横向排列就能很好的实现录入，不需要切屏，没必要用窗体；
    2）选项联动列表我认为数据有效性更好用，因为系统已经内置了排错功能，不需要额外代码；
    3）直接单元格录入兼顾录入和修改，而窗体就完全不是那回事，你还没有考虑修改的事情；
    4）单元格录入在界面上更友好，窗体存在于excel界面前端，不仅显得别扭，还需要频繁切换；
    可能还有更多，其实只要你一眼扫过去，多层叠加的窗口结构都远不如平铺的界面来的简介直观，就像浏览器，有时都没有分页，比如浏览图片，我认为这才是趋势；

54321shenyong

dongjuwen 发表于 2019-9-30 09:18
控件多了，有的时候对应到单元格会出错，借助Array写入，代码简化的同时也把出错率降低了。仅供参考！
Pri ...

优化的代码可用，不过问题依然存在，请配合标题下说明看截图

dongjuwen

窗体录入还用Worksheet_Change，这种“创意”佩服……

microyip

说白了，就是伸手党，没意思