🚀 go-pugleaf

On Jun 24, 12:43 pm, InDesign Scripts <indesignscri...@gazeta.pl>
wrote:
> > Jezeli zadeklaruje array jako zmienna typu variant, czy moge wtedy
> > przechowywac w takiej tabeli date w postaci dd/mm/yyyy?
> > Pytanie pewnie proste, ale dopiero zaczynam z tabelami i cos mi nie
> > chce wyjsc.
>
> no to napisz co i jak robisz, że Ci nie wychodzi ;)
> będzie łatwiej Ci pomóc
>
> robin

Witam,

Błąd był banalny, nie chciało działać bo zapomniałem że muszę zmienić
rozmiar tabeli (ReDim Preserve).
Ale teraz mam problem taki:

Mam arkusz i chcę znaleźć ile różnych dat mam w kolumnie 1.
Zrobiłem coś takiego, ale gdzieś jest błąd. Jak mam np. 20 rekordów i
20 różnych dat to liczy fajnie, ale jak na końcu rekordy są takie same
(2 lub więcej) to je liczy podwójnie (jako 2 różne elementy).

Ktoś ma pojęcie gdzie jest błąd albo jak to zrobić inaczej?
Kod poniżej

Sub give_day_arr()

Dim qday() As Date
Dim rng As Range
Dim cell As Object
Dim i As Integer, rc As Integer, x As Integer
Dim item As Variant

rc = Cells(1, 1).CurrentRegion.Rows.Count
Set rng = Range(Cells(1, 1), Cells(rc, 1))
i = 1
For Each cell In rng
    ReDim Preserve qday(i)
    qday(i) = cell.Value
    For x = 1 To i - 1
        If qday(i) = qday(x) Then
            i = i - 1
        End If
    Next x
    i = i + 1
Next

For Each item In qday
    Debug.Print item
Next

End Sub