MS Excel

Ahoj, mám problém s chápaním collection, ktorá by mala obsahovať unikátne hodnoty. Jednotlivé hodnoty načítam zo stĺpca B z tabulky Druha v abecednom poradí. Potom data v tabulke Druha zotriedim abecedne podľa stĺpca B a nechám vypísať hodnoty z collection. Na moje prekvapenie dochádza k ich zmene napriek tomu, že (aspoň sa teda domnievam) jednotlivé položky collection nijak nemením. Dokáže mi niekto vysvetliť, prečo sa tak deje? Vzorový súbor prikladám.
Data z collection som síce pred triedením dat v tabulke Druha schopný zapísať do nejakého poľa a ďalej pracovať miesto collection s novým poľom, mňa by ale zaujímalo, ako je možné, že položky collection, ktoré boli na začiatku unikátne, po triedení dat v tabulke Druha sú zrazu duplicitné.

Zaslat odpověď >

Strana: 1 2 3 další »

Opičák(9.8.2014 12:43)#020974

Nejsem si jistý, ale podle mě to je správně. Položky jsou duplicitní jen podle sloupce B, ale při třídění bere v úvahu celou oblast DRUHA a tam jsou např. u hodnoty "a" (ve sloupci B) jiná čísla ve sloupcích C a D. Takže ač název se zdá být stejný, nejsou stejné hodnoty. Takže podle mě není "a" jako "a" protože se liší sloupcem C a D.

hmmm, tak asi to tak není

citovat

Dingo(9.8.2014 13:05)#020975

Zajímavé, navíc když jsem si nechal vypsat položky potřetí po kopii na konci makra, jsou zase 3 unikátní.
Ale nepomůžu, nevím. Snad něco se zdrojem colection držené v paměti??citovat

AL(9.8.2014 13:16)#020978

@ Opičák: Do collection načítam len hodnoty zo stĺpca B. Majú to byť 3 položky: aa, bb, cc. Vôbec mi nie je jasné, prečo by sa mali nejak zohľadňovať dáta v stĺpcoch C a D. Inými slovami, príliš Tvojmu vysvetleniu nerozumiem.

@ Dingo: Zajímavé, navíc když jsem si nechal vypsat položky potřetí po kopii na konci makra, jsou zase 3 unikátní. Áno, viem, na čo upozorňuješ, ale: Copy na konci makra slúži k púhemu obnoveniu pôvodnej tabuľky 2, aby sa to dalo znovu celé spustiť, takže Tvoj postreh mi bohužiaľ neosvetľuje nič.
Ja som práve žil v domnení, že pomocou collection si vytvorím zoznam unikátnych hodnôt, s ktorými budem môcť v kóde ďalej pracovať, ale zrejme to tak nie je, resp. niečo mi uniká...citovat

AL(9.8.2014 13:38)#020979

No, tak si pripadám ako blbec, páč som na niečo predsa len nakoniec prišiel:
Niekoľkokrát v minulosti som narazil na radu, že sa jeden nemá spoliehať na to, že pokiaľ potrebuje v kóde získavať hodnotu z bunky, tak miesto cell, je bezpečnejšie písaťcell.value, napriek tomu, že value je defaultná vlastnosť bunky a ako taká v kóde uvádzaná byť nemusí. Proste, pokiaľ sa do kódu zapíše cell, tak kód vráti hodnotu. Očividne to vždy neplatí, takže riešenie je nasledujúce: Správne má byť: On Error Resume Next
For Each cell In myRng
If MyCol.Count = 0 Then
MyCol.Add cell.Value, CStr(cell)
Else:
For i = 1 To MyCol.Count
If cell < MyCol(i) Then
MyCol.Add cell.Value, CStr(cell), i
Exit For
End If
MyCol.Add cell.Value, CStr(cell)
Next i
End If
Next cell
On Error GoTo 0 Pred včerom som strávil dosť času, než som to opravil spôsobom "škrabem sa nohou za uchom". Záver: Vždy, pokiaľ chcem, aby kód vracal .value, toto doňho písať a nespoliehať sa na to, že kód hodnotu vráti, keď .value neuvediemcitovat

marjankaj(9.8.2014 14:52)#020981

@AL
Práve som na to prišiel, a vidím, že ty o hodinu skôr.

citovat

AL(9.8.2014 14:55)#020982

@marjankaj
Tak to ma mrzí, že si sa s tým trápil takpovediac zbytočne

citovat

marjankaj(9.8.2014 15:12)#020983

No tak zase až tak zbytočne nie. Aspoň som sa naučil používať okno IMMEDIATE

citovat

AL(9.8.2014 15:18)#020984

@marjankaj:
v tom prípade si odo mňa dostal cennú radu, páč Immediate je v procese ladenia kódu k nezaplateniu

Okrem hore uvedeného použitia si v ňom môžeš priamo nechávať zobrazovať napr. hodnotu premenných, pokiaľ do okna napíšeš príslušnú inštrukciu začínajúcu znakom ? s medzerou, či priamo písať jednotlivé inštrukcie, ktoré chceš testovať; ovšem v prípade, že ich je naraz viacero, musia byť vždy všetky zapísané naraz do jedného riadku, oddelené navzájom dvojbodkou.
Pre ilustráciu:
Inštrukcia ? [B2] zapísaná v Immediate vráti hodnotu bunky B2.
Inštrukcia [B8].FONT.BOLD=TRUE: [C18].FONT.BOLD=TRUE nastaví tučné písmo v bunkách B8 a C18.citovat

marjankaj(9.8.2014 15:24)#020985

@AL
No zatiaľ som si to vedel aj inak zabezpečiť.

citovat

eLCHa(9.8.2014 18:37)#020987

@AL
Okrem hore uvedeného použitia si v ňom môžeš priamo nechávať zobrazovať napr. hodnotu premenných

ehm - neslouží k tomuto náhodou Watches?citovat

Strana: 1 2 3 další »

Téma: Fungovanie Collection

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje