各位大神们求助

正宗新手

因为工作需要，自己花了两周时间写了一个小工具，现在就剩下窗体的联动（这部分没涉及到）求大神们帮助，其他的自己捣鼓出来了。


窗体的需求在sheet2表中

shiruiqiang

ScrollBar1这个键没必要，listview1内数据多的话自动有

shiruiqiang

CheckBoxes，只能第一列，除非自己写

prome3

模块7第53行：

ws_result.Cells(ws_result.Cells(Rows.count, "A").End(xlUp).Row + 1, "A").Value = ws_monitor.Cells(i, "S").Value

建议改为：
With ws_result
    .Cells(.Rows.count, "A").End(xlUp).Offset(1, 0).Value = ws_monitor.Cells(i, "S").Value
End With

注意 Rows.count 前面有个点。

另外，建议多用 With ... End With 代码块。比如 UserForm2 模块中，Private Sub UserForm_Initialize() 可以写得更简洁一点。
ListView1.Width 可以先放到一个局部变量里面再用。

正宗新手

prome3 发表于 2024-3-25 19:34
模块7第53行：

ws_result.Cells(ws_result.Cells(Rows.count, "A").End(xlUp).Row + 1, "A").Value = ws ...

好的，我也是东查一点资料，西查一点资料，拼起来的

正宗新手

shiruiqiang 发表于 2024-3-25 19:06
CheckBoxes，只能第一列，除非自己写

好的，谢谢，我也是网上查的资料，东拼西凑的，现在还在学习中，谢谢了

tanglf188

监控表为空，调整功能没做

正宗新手

tanglf188 发表于 2024-3-26 09:56
监控表为空，调整功能没做

感谢大佬，我在一些地方做了调整