Ultra Newb使用Excel VBA。工作表数据来自用户表单，用户输入信息，其中包括按日期使用的信息，该信息进入C列。我在sheet1上有一个ActiveX按钮，我想像搜索C列之前的所有日期一样运行今天的日期以及7天之内的任何内容都可以剪切并粘贴到工作表3中。
如果这还不够具体，我预先表示歉意。我也将不胜感激！
我找到了执行我所追求的代码。这里是：
Private Sub cmd2_Click()
Dim sh As Worksheet, lr As Long, rng As Range, sh2 As Worksheet, lr2 As Long
Set sh = Sheets(1) 'Edit sheet name
Set sh2 = Sheets(3) 'Edit Sheet name
lr = sh.Cells(Rows.count, 1).End(xlUp).Row
Set rng = sh.Range("C2:C" & lr)
For Each c In rng
If DateValue(c.Value) <= DateValue(Date) Then
lr2 = sh2.Cells(Rows.count, 1).End(xlUp).Row + 1
c.EntireRow.Copy sh2.Range("A" & lr2)
End If
Next
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句