通過日期自動填充

我有一本工作簿，我試圖弄清楚如何做我想做的事情。宏不是一個問題，我肯定我將不得不使用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

通過日期自動填充

回答

相關問題