[已解决]Excel 2003 VBA 问题

grf1973

基本没什么问题，看来你已经能看懂原代码了。只不过没有要求判断最后一类只录入两列的问题，可以少套一个if.

lkk0063

grf1973 发表于 2017-1-13 13:26
基本没什么问题，看来你已经能看懂原代码了。只不过没有要求判断最后一类只录入两列的问题，可以少套一个if ...

grf1973 你好,
仍有两个问题想询问你,问题如下:
For j = 5 To 35 Step 5
-> 从A栏抓取资料至AM, 程式码怎么不是For j = 5 To 39 Step 5
k = (j - 2) / 5
-> k = j / 5 与 k = (j - 2) / 5 差异为何?

grf1973

1、5 TO 35 Step 5 可以从5一直管到35列，每5列一间隔。我只要定位每5列的第一列，并在此基础上考虑后4列。当然写39也不会错。
2、k是根据源表的列数转换成要输出的行数，当J=5(表示第5--9列），k=j/5=1，输出第1行；J=10，k=2，。。。。
    原来的j-2可能是每3列一组的关系吧。

lkk0063

grf1973 发表于 2017-1-13 14:18
1、5 TO 35 Step 5 可以从5一直管到35列，每5列一间隔。我只要定位每5列的第一列，并在此基础上考虑后4列。 ...

grf1973 你好,
谢谢, 学习到了!

lkk0063

grf1973 发表于 2017-1-13 14:18
1、5 TO 35 Step 5 可以从5一直管到35列，每5列一间隔。我只要定位每5列的第一列，并在此基础上考虑后4列。 ...

grf1973 你好,
刚刚测试档案时发现新的bug, 当"输入表"只有一笔资料时(pic-1), 按下"巡检表"内的搜寻批号,无法显示批号(pic-2), 能协助Debug 一下, 谢谢!

grf1973

出错原因是窗体初始化用数组方式取得下拉框的，而数组只有一个单元格时（range("a6:a6"))会出错。把range("a6:a"...)改为range("a6:b"....)即可。

lkk0063

grf1973 发表于 2017-1-13 21:34
出错原因是窗体初始化用数组方式取得下拉框的，而数组只有一个单元格时（range("a6:a6"))会出错。把range(" ...

grf1973 你好,
谢谢, 可以使用