2014-10-02 41 views
-1
Sub retrieveFutureDates() 
counter = 0 
For i = 1 To 200 
    If Cells(i, 4).Value <> "" And modDate(Cells(i, 4).Value) Then 
      Cells(counter + 1, 6).Value = Cells(i, 4).Value 
      Cells(counter + 1, 7).Value = Cells(i - 1, 1).Value 
      counter = counter + 1 
    End If 
Next 

末次如何寫入數據VBA之前做我排序按時間順序

目前我有這個功能循環下來日期的一列,並應用最新的值,如果日期的股票的股票在7天內(更新)。但是,如果在列表中的日期不符合規定,分會寫入10/8,10/7,10/6。有沒有什麼方法可以按順序編寫這個文件,或者有什麼方法讓書本打開時按工作表/書籍的日期自動排序?

回答

0

通過將代碼放入ThisWorkbook對象的Workbook_Open事件中,您可以放置​​一個宏,該工作簿將打開工作簿時對範圍進行排序。

+0

請問這是在VBA編輯器中還是隻是宏記錄在Excel中? – 2014-10-02 19:16:54

+0

在VBA編輯器中。你永遠不想使用宏記錄器來處理任何會投入生產的事情。它會產生速度慢,效率低的代碼。但是,您可以使用宏錄製器來學習如何通過錄制動作來執行某個動作,然後在VBE中查看它。 – 2014-10-02 19:19:04

相關問題