Sub TestArray()
Dim Array_Temp() As Variant
End Sub
Dim Array_Final() As Variant
Sub TestArray()
Dim Array_Temp(1 To 1000, 1 To 2) As Variant
Dim i As Integer
Dim iets As Date
Do Until i = UBound(Array_Temp)
i = i + 1
Array_Temp(i, 1) = DateAdd("d", i, "04/02/2016")
Cells(i, 1) = Array_Temp(i, 1)
Loop
For i = 1 To UBound(Array_Temp)
iets = Cells(i, 1)
Array_Temp(i, 2) = DateAdd("d", -1, DateSerial(Year(iets), Month(iets), 1))
Cells(i, 2) = Array_Temp(i, 2)
Next i
For i = 1 To UBound(Array_Temp)
If Array_Temp(i, 2) > #12/31/2016# Then
Cells(i, 3) = Array_Temp(i, 2)
End If
Next
'Dim Array_Final() As Variant
End Sub
For i = 1 To 1000
la_date = DateAdd("d", i, "04/02/2016")
Cells(i, 1) = la_date
Cells(i, 2) = DateSerial(Year(la_date), Month(la_date), 0)
If Year(Cells(i, 2)) > 2016 Then Cells(i, 3) = Cells(i, 2)
Next
array_final = Columns(3).SpecialCells(xlCellTypeConstants)
For i = 1 To UBound(array_final)
MsgBox array_final(i, 1)
Next
Dim trouve As Long
For i = 1 To 1000
la_date = DateAdd("d", i, "04/02/2016")
Cells(i, 1) = la_date
Cells(i, 2) = DateSerial(Year(la_date), Month(la_date), 0)
If Year(Cells(i, 2)) > 2016 And trouve = 0 Then trouve = i
Next
array_final = Range("B" & trouve & ":" & "B1000")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question