通过日期自动填充

我有一本工作簿，我试图弄清楚如何做我想做的事情。宏不是一个问题，我肯定我将不得不使用vba来满足我的需求，但是不知道如何去做我想做的事情。通过日期自动填充

基本前提如下。我有一个两张工作簿，工作表1包含当前日期和两个字段一个用于#of Calls，另一个用于完成次数。对于所有日期，工作表2具有一系列日期（对于月份）和相同的2个字段构成工作表1。我想要发生的是，根据工作表1上的日期，工作表2将自动填写该日期的适当字段。留下所有其他领域独自一人。我无法将它放到离开剩下的spreedsheet单独的地方（不能将它们清空或放0），只填写正确的日期。我已经上传了一个示例spreed sheet here。如果任何人都可以向我提供任何方向，我会非常感激。如果有什么不清楚的地方，请要求澄清。先谢谢了。

STP

来源

2011-01-31 Shayne

请允许我欢迎你们来的StackOverflow，并提醒三件事，我们通常在这里做的：1）当你得到帮助，尽量给它太* *在您的专业领域回答问题2）[`阅读常见问题解答`]（http://tinyurl.com/2vycnvr）3）当您看到好的问答时，将它们投票[`使用灰色三角形]（ http://i.imgur.com/kygEP.png），因为系统的可信度基于用户通过分享知识获得的声誉。还记得接受更好地解决你的问题的答案，如果有的话，['通过按复选标记符号]（http://i.imgur.com/uqJeW.png） – 2011-01-31 22:23:05

您可以通过运行此宏：

Option Explicit 

Sub r() 
Dim c as Range 

For Each c In Worksheets("Sheet2").Range("A2:A999") 
If c.Value = Worksheets("Sheet1").Range("A2").Value Then 
    c.Offset(0, 1).Value = Worksheets("Sheet1").Range("b2").Value 
    c.Offset(0, 2).Value = Worksheets("Sheet1").Range("c2").Value 
End If 
Next c 

End Sub

来源

2011-01-31 22:21:10

这真是太棒了，你的代码没有工作非常简单的编辑。对我来说，这足以证明我的目的是进入最终的项目。荣誉。 – Shayne 2011-02-01 01:19:16

通过日期自动填充

回答

相关问题