本人VBA小菜,l哪位老师帮忙优化下这个软件,十分感谢.

jolymrzhang

本人VBA小菜,l弄了好一阵子没有做到下面的要求,哪位老师帮忙优化下这个软件,十分感谢.

要求: 按从1到5扫描数据顺序
1、当文本框4开始扫描数据时，如果文本框4的字符长度〈15 ，那么自动生成数据按钮触发 ，TXT文本中只 录入文本框 1，2，3对应的数据，光标定位到TX1文本框，进行下一轮扫描
2、第4个文本框的字符长度>14时，5才开始扫描数据，如果文本框5的字符长度〈15 ，那么自动生成数据按钮触发 ，TXT文本中只 录入文本框 1，2，3，4对应的数据，光标定位到TX1文本框进行下一轮扫描
3、如果4和5文本框的字符长度〉=15，那么文本框12345的对应数据录入到TXT文件里。

砂海

要求中 所有的 " < " 都是 " > " 吧,否则逻辑上说不通.

jolymrzhang

砂海 发表于 2016-5-2 20:48
要求中 所有的 " < " 都是 " > " 吧,否则逻辑上说不通.

老师是这样的 ,扫描时前三个文本框都已经录入数据了鼠标到TEXt4时,如果文本框4的字符长度〈15 ，那么自动生成数据的按钮触发 ，只录入文本框 1，2，3对应的数据，光标重新定位到TX1文本框,进行下一轮操作,如果文本框4的字符长度>15时,不促发自动生成数据的按钮,光标会定位到TEXT5 进行数据判断。。。。。这样一直循环下去

砂海

If Len(TextBox5.Text) >= 15 Then
    Print #1, 情况3
Else
    If Len(TextBox5.Text) = 0 Then
        Print #1, 情况1
    Else
        Print #1, 情况2
    End If
End If
---------------------
假设你第3条要求 不是要求5条文本都是15+ 不知道你是不是这个意思

jolymrzhang

砂海 发表于 2016-5-2 22:04
If Len(TextBox5.Text) >= 15 Then
    Print #1, 情况3
Else

老师我的意思是：文本1，2，3没有要求，当文本框1，文本框2，文本框3都扫描了数据，到TEXT.BOX4扫完数据后对4文本框输入字符长度进行判断，如果4的字符长度〈14 的话，自动生成文本框1，文本框2，文本框3的数据到TXT文件里，光标重新定位到文本1，从文本1重新开始依次扫描数据，否则的话文本框5才能开始扫描数据，同时对5文本框输入的字符长度进行判断，如果5的字符长度〈14 的话，自动生成文本框1，文本框2，文本框3，文本框4的数据到TET文件里，同时光标重新定位到文本1，从文本1重新开始扫描数据，否则生成文本框1，文本框2，文本框3，文本框4，文本框5的扫描数据到TXT文件里，然后光标定位到文本1，从文本1重新开始依次扫描数据，    这里当扫描数据到TEXT.BOX4又按上面依次类推。