2015-09-11 174 views
0

我想創建一個從2014年6月30日到2015年6月30日的全年開始日曆表。也有應該在某種程度上被分配到的那些日子裏每個人在這一年的變量的15個值: 列1 = C1,列2 = C2創建日曆表

C1 C2 
0 30/06/2014 
0 01/07/2014 
0 02/07/2014 
. . 
. . 
0 30/06/2015 
3 30/06/2014 
3 01/07/2014 
3 02/07/2014 
. . 
. . 
3 30/06/2015 
123 30/06/2014 
123 01/07/2014 
123 02/07/2014 
. . 
. . 
123 30/06/2015 

所以最好我的表是這樣的。 15個值乘以366天= 5490行。

我已經創建了一個數組,其值可以用於迭代。

StartDate = #6/30/2014# 
For i = 1 To 366 
    j = 4 

     Cells(i, 2) = StartDate 
     StartDate = DateAdd("d", 1, StartDate) 
     Cells(i, 1) = valuearray(j) 

Next i 

我手動更改了J的值,因爲我無法找到正確的方法來自動執行此過程。我應該如何安排我的循環和迭代來自動執行此過程的任何想法?

+0

你的15個值是什麼?他們之間是否有層次關係? – Balinti

+0

不,值之間沒有鏈接,更像名稱而不是其他任何東西。 – kostas

+0

在這種情況下,將所有值放入數組中,併爲此數組添加一個附加循環。如果您需要幫助,請將所有變量添加到問題中。 – Balinti

回答

1

我爲你的代碼添加了一個更多的循環與數組。見下:

Sub myArray() 

' 
Dim my(1 To 3) As Long 
my(1) = 10 
my(2) = 30 
my(3) = 50 



For k = 1 To 3 

StartDate = #6/30/2014# 
For i = 1 To 366 


     Cells((i + (k * 366)) - 366, 2) = StartDate 

     Cells((i + (k * 366) - 366), 1) = my(k) 



     StartDate = DateAdd("d", 1, StartDate) 


Next i 
Next k 
' 
End Sub 
+0

它的工作原理!謝謝你,小夥伴! – kostas