[已解决]求助帮忙了...最后步出错

shadowmoonys

证书统计1.zip (34.31 KB, 下载次数: 3)

2014-3-11 10:03 上传

点击文件名下载附件 做了个表格，其他都搞完了，最后添加了按钮和LISTVIEW后出现未知错误了...添加了批量搜索命令按钮弹出LISTVIEW结果现实为(A3 B3 C3 F3 G3 I3论坛非法字符不给写 详见表内文字) 搜索条件为60天 不知道为啥就运行不了 请各位大侠帮忙看下 出哪了问题，，帮忙补完下吧

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-11 11:17

把If DateDiff("d", Replace(arr(i, 7), ".", "-"), Date) >= 60 Then
改成
If arr(i, 7) >= 60 Then

跳转到最佳答案楼层

hwc2ycy

shadowmoonys

hwc2ycy 发表于 2014-3-11 10:09

版主帮忙改改呢- - 不会弄了 头晕了都

hwc2ycy

For i = 2 To UBound(arr)
得从3开始计数。

1. Private Sub UserForm_Initialize()
   
2.     Dim arr, i&, n%
   
3.     Me.Caption = "证件到期提醒"
   
4.     arr = Sheets("Sheet1").Range("A2").CurrentRegion
   
5.     With ListView1
   
6.         .ColumnHeaders.Add , , arr(1, 1), .Width / 4, lvwColumnLeft
   
7.         .ColumnHeaders.Add , , arr(1, 2), .Width / 4, lvwColumnCenter
   
8.         .ColumnHeaders.Add , , arr(1, 3), .Width / 4, lvwColumnCenter
   
9.         .ColumnHeaders.Add , , arr(1, 4), .Width / 4, lvwColumnCenter
   
10.         .View = lvwReport
    
11.         .Gridlines = True
    
12.         .FullRowSelect = True
    
13.         For i = 3 To UBound(arr)
    
14.             If DateDiff("d", Replace(arr(i, 4), ".", "-"), Date) >= 365 Then
    
15.                 With .ListItems.Add(Text:=arr(i, 1))
    
16.                     For j = 1 To 3
    
17.                         .SubItems(j) = arr(i, j + 1)
    
18.                     Next
    
19.                 End With
    
20.             End If
    
21.         Next
    
22.     End With
    
23. End Sub

复制代码

hwc2ycy

证书统计1.rar (34.78 KB, 下载次数: 4)

2014-3-11 10:15 上传

点击文件名下载附件

shadowmoonys

修改了您给的代码后 显示的结果不对啊- -

hwc2ycy

用附件的，那个代码没改完了，

shadowmoonys

打开你的附件...我悲剧了....

shadowmoonys

hwc2ycy 发表于 2014-3-11 10:22
用附件的，那个代码没改完了，

怎么办哦？

hwc2ycy

你把库重新引用下，或者重新画个LISTVIEW