根据日期复制粘贴

Question

使用Excel VBA的Ultra Newb。工作表数据来自用户表单，用户输入信息，其中包括按日期使用，进入C列。 我在工作表1上有一个ActiveX按钮，我希望像查找C列之前的所有日期那样运行到今天的日期以及7天内的任何时间被剪切并粘贴到表3.

如果这不够具体，我很抱歉。 我也很感激任何和所有的输入！

Answer 1

我找到了我之后做过的代码。这里是：

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 

Answer 2

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

但对于你所描述的有很多资源可以使用：

• Userforms
• Getting Started with VBA in Excel
• Macros, Worksheets, Loop, Arrays ... (a bit of everything)

如果您遇到问题或有任何更具体的我们可以回答，我们会回答。