有条件地添加到列表框
品种组合
今天我实际上已经奋斗了大约8个小时，试图使它正常工作，但似乎无法解决我要去的地方。
我有listbox1，并希望使用超过14天的帐号进行填充。
A列保留帐号J列保留日期
这是我到目前为止正在使用的代码，请提供给我，我整天都在修改它，但没有成功
Private Sub UserForm_Initialize()
Dim I As Integer
Dim maxRow As Integer
maxRow = 100
ListBox1.Clear
For I = 1 To maxRow
If (DateDiff("d", Now, Range("J" & I).Value) > 14) Then
ListBox1.AddItem Range("A" & I)
End If
Next I
End Sub
我还提供了指向我的文档的链接，因此您可以查看其是否可能导致其无法正常工作的任何其他编码。
先感谢您
拉尔夫
也许这将为您工作：
Private Sub UserForm_Initialize()
Dim I As Long
Dim maxRow As Long
ListBox1.Clear
With Worksheets("Sheet1")
maxRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For I = 1 To maxRow
If IsDate(.Range("J" & I).Value) Then
If Now() - .Range("J" & I).Value2 > 14 Then
Reporting.ListBox1.AddItem .Range("A" & I).Value2
End If
End If
Next I
End With
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
定义列表时有条件地将项目添加到列表？
- 2
有条件地添加到jQuery .when
- 3
有条件地添加到地图
- 4
Spark：有条件地将列添加到数据框
- 5
R - 如何有条件地将连续列添加到数据框？
- 6
有条件地将选项添加到列表
- 7
自动映射器-有条件地添加到列表
- 8
有条件地将文件添加到C ++项目中的库
- 9
MATLAB查找数组元素并有条件地添加到常量
- 10
有条件地在Rails中将一个类添加到link_to
- 11
有条件地将JSF组件添加到翻译字符串中
- 12
有条件地添加到字典中而不更新元组值
- 13
有条件地将target =“ _ blank”添加到Angular JS的链接
- 14
有条件地将字段添加到JSON输出
- 15
Woocommerce重定向有条件地添加到购物车按钮
- 16
Scala：将项目添加到序列中或有条件地合并序列
- 17
打字稿：有条件地将项目添加到对象
- 18
Python Pandas Dataframe有条件地仅添加到负数
- 19
有条件地将12小时添加到列中
- 20
有条件地将标签选项参数添加到select2
- 21
jQuery：无法有条件地将类添加到子元素
- 22
有条件地将文件添加到C ++项目中的库
- 23
有条件地将多个类添加到元素
- 24
有条件地将JSF组件添加到翻译字符串中
- 25
Woocommerce重定向有条件地添加到购物车按钮
- 26
有条件地将类添加到父类
- 27
有条件地通过jQuery将类添加到图像
- 28
使用Polymer将CSS类有条件地添加到元素
- 29
有条件地将字母添加到字符串
我来说两句