Příspěvky uživatele

Napr. stránku wall.cz v Google Chrome?Sub test()
Shell "C:\Documents and Settings\al057494\Local Settings\Application Data\Google\Chrome\Application\chrome.exe http://wall.cz/", vbNormalFocus
End Sub

=SMALL(IF(A2:A12="párky"; B2:B12); 1)
=MIN(IF(A2:A12="párky"; B2:B12))
maticovo, pochopiteľne
edit: aha, tak pozíciu, nie hodnotu (rovnaká zraková vada ako u opičáka

). Takže, pozíciu takto:=MATCH("párky"&SMALL(IF(A2:A12="párky"; B2:B12); 1); A2:A12&B2:B12; 0)
=MATCH("párky"&MIN(IF(A2:A12="párky"; B2:B12)); A2:A12&B2:B12; 0)
zase maticovo, pozícia počítaná od riadku 2!! Nie je treba zoradiť.

@Paloo: ale asi v spravnej prilohe mate event pri otvoreni dokumentu ze ma urobit nejaku zmenu Do prílohy som nepozeral, ale: OP píše, že tam má nejaký kalendár s aktuálnym dátumom. Ten zrejme zapisuje cez funkciu TODAY() alebo NOW(). Volatilita funkcie spôsobuje "zmenu" súboru po otvorení, preto sa excel pri zavieraní súboru dotazuje, či sa majú zmeny uložiť.

Vytvor vzor s jedinečným zoznamom, vlož ho sem ako prílohu a ja, keď si nájdem chvíľu, ti tam ten zvyšok dorobím...

Bez prílohy môžem iba hádať, ale bez VBA to asi v popísanom prípade nepôjde. Riadok kódu bude vyzerať nejak nasledovne:
If [F2] = "" And [Y2] <> "" Then [F2] = [Y2]Pokiaľ to nie je ono, tak bez prílohy ja osobne už nenapíšem do tohto vlákna ani slovo

No, jadrom problému bude generovať zoznam unikátnych položiek z prvého stĺpca. To sa dá buď:
1. makrom
2. kontingenčkou
3. rozšíreným filtrom
4. odstránením duplicít
5. nejakým obskurným vzorcom (existujú, nájdeš googlom)
6. dotazom MS query
7. určite i nejak inak
Pokiaľ sa rozhodneš pre jeden z uvedených spôsobov, tak ten zvyšok, t.j. doplnenie príslušnej hodnoty z druhého a tretieho stĺpca už je brnkačka.

Mne vŕta hlavou, čo vlastne lopi007 chce. Z jeho ostatných príspevkv nemám dojem, že by bol úplne mimo, tak je možné, že príde s vysvetlením, ktoré prekvapí. Mne sa ten vzorec zatiaľ zdá veľmi podivný a chcelo by to buď lepšie vysvetliť alebo to, čo sa tu rieši stále dokola, totiž, že najlepšie je dávať rovno prílohu.

@marjankaj: Ak je splnená podmienka, tak výsledok bude TRUE alebo FALSE.
No to práve, že nie; pokiaľ výsledok podmienky (prvý argument fn KDYŽ) je TRUE, tak vzorec vracia FALSE

. Hlavne, že sa ti vzorec páči

.
Uznávam, že logike vzorca nerozumiem, nechám si rád vysvetliť od odborníkov

Pokiaľ chce pán odborník na vzorce zapísať do F2 hodnotu z Y2, tak môže predsa rovno do F2 napísať:
=KDYŽ(Y2="";"";Y2)

No, hlavne, to čo máš, nie je vzorec, ale, ako by som sa slušne vyjadril, aby som neurazil

Ty sa radšej budeš niekoľko hodín moriť a tvrdiť, že to nefunguje, než by si sem dal prílohu, že? Pokiaľ nutne potrebuješ vzorec v nematicovom tvare vložiť do SVYHLEDAT (to asi nebude ideálne riešenie, ale ako hovorím, bez prílohy ťažko radiť), tak nematicovo cez skalárny súčin:=SUMPRODUCT(1/COUNTIF(DATA; ""&DATA))-(COUNTIF(DATA; "")>0)
=SUMPRODUCT(1/COUNTIF(DATA; ""&DATA))

Nezmysel, zvýraznená časť =SUM(1/COUNTIF(DATA; ""&DATA))-(COUNTIF(DATA; "")>0) práve delenie nulou ošetruje. Ale prílohu, v ktorej ti to môžem predviesť, za teba fakt vytvárať nebudem, nehnevaj sa.

Som si na 100% istý, že funguje.

Povedzme, že tú oblasť daných 1000 záznamov máš pomenovanú ako DATA. Vzorec pre počet jedinečných záznamov po eliminácii prázdnych hodnôt:
=SUM(1/COUNTIF(DATA; ""&DATA))-(COUNTIF(DATA; "")>0)
pokiaľ majú byť i prázdne bunky zahrnuté (za prázdne bunky sa pripočíta jednička k celkovému súčtu unikátnych neprázdnych), tak:
=SUM(1/COUNTIF(DATA; ""&DATA))
oba vzorce je treba vložiť v maticovom tvare

@adosl: A jak mam proverit to target.row?
Ja neviem, čo si mám predstaviť pod "zmenou hodnoty v určitej oblasti", nie som jasnovidec a tým pádom nevidím prílohu, ktorú si sem nedal. Ale to preverenie sa deje nejako takto napr. Predpokladajme, že chceme testovať zmenu buniek v oblasti A1:B10. Potom test bude vyzerať nasledovne:

V module:Public x As Long
V kódovom okne Sheetu:Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range
Set myRng = ActiveSheet.[A1:B10]
If Not Intersect(Target, myRng) Is Nothing Then x = Target.Row
End Sub

Do premennej x sa uloží hľadaná hodnota riadku.

V cykle potom:
for i = x + 1 to x - 1 step -1

Vo worksheet_change udalosti otestuj Target.Row (to dá to číslo 15 v uvedenom príklade), potom cyklus môže byť napr.
for i = Target.Row + 1 to Target.Row - 1 step -1

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje