Question

使用Excel VBA的Ultra Newb。工作表数据来自用户表单，用户输入的信息包括按日期使用的信息，该信息进入C列。我在sheet1上有一个ActiveX按钮，我想在今天的日期之前搜索C列中的所有日期，并在7天内将任何内容剪切并粘贴到第3页。

如果不够具体，我会提前道歉。我也很感激任何和所有的意见！

Answer 1

你的问题有点广泛，有意义地回答。请参阅How to create a Minimal, Complete, and Verifiable example

但是对于你所描述的内容，你可以使用很多资源：

如果您遇到困难或者有更具体的问题我们可以回答，我们会回答它。

Answer 2

我发现代码完成了我的目标。这是：

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

根据日期复制粘贴

2 个答案: