• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Function UDF_DATUM_SUBORU(Subor As String) As Date
Application.Volatile
UDF_DATUM_SUBORU = FileDateTime(Subor)
End Function
alebo
Function UDF_DATUM_SUBORU2(Subor As String) As Date
Application.Volatile
UDF_DATUM_SUBORU2 = CreateObject("Scripting.FileSystemObject").GetFile(Subor).DateLastModified
End Function
A do bunky si dajte obdobný vzorec, kde E1 je cesta a E12 je súbor:
=UDF_DATUM_SUBORU(E1&E12)

A čo Vám bráni odpovedať na to, na čo sa pýtam ?
Kde je teda reálna príloha ?
Ten vzorec, čo som dal, nieje jednoduchý, a preto, aby sa dal ľahšie čítať sa používa Definovaný názov, ale kľudne si to môžete spojiť do jediného supervzorca, to je na Vás. Rovnako ako reakcie...
Aby ste vedel, ako sa dá vnímať rôznymi spôsobmi to, čo popisujete, tak mrknite na prílohu, čo všetko človek môže z popisu-nepopisu vydedukovať.

Šmarjá ... to je zas iný popis ako na začiatku, a príloha, čo so začiatkom nekorešponduje, a navyše nepriekazná (chýbajú tie "iné stĺpce" čo spomínate).

Hmm, no ono "nahradiť" tú čiarku dvojbodkou tak, aby vznikol správny zamýšľaný čas nieje problém, rozdelením desatinnej a nedesatinnej časti a použitím TimeSerial(). Ale vidím tam problém, čo ak niekto zadá čas v korektnom formáte 8:25 (nie 8,25)? Vy nájdete v procedúre Worksheet_Change desatinné číslo, ktoré už zodpovedá desatinnému číslu skutočného času, ale to neviete, lebo pre makro to bude zase iba číslo, ktoré treba zmeniť na "správnu" formu čísla času - teda ten čas pokaká. Zatiaľ ma nenapadá možnosť, ako zistiť či bolo zapísané desatinné číslo 8,25, alebo čas 8:25, lebo v oboch prípadoch dostanete až výsledok = desatinné číslo.
Ak ten oddeľovací znak bude iný ako čiarka, tak sa to bude dať identifikovať a spracovať. Ale zase nesmie to byť bodka na EN Office, lebo tá je desatinným oddeľovačom na EN.

No tak to Vám potom z toho všetkého stačí len tá jednoduchá funkcia UDF:
Function UDF_OBSAH_SUBORU(Cesta As String, Subor As String) As String
Dim F As Integer
Application.Volatile
F = FreeFile
Open Cesta & Subor For Input As #F
UDF_OBSAH_SUBORU = Replace(Input(LOF(F), F), vbCrLf, vbNullString)
Close #F
End Function

Iný príklad...

No a ktorá predstava bola tá správna ???
Zoznam súborov a obsahov v liste?
Výberový zoznam a následný VLOOKUP?
Výberový zoznam a následná UDF na obsah?
ListBox v liste naplnený definovanou oblasťou?
ListBox so súbormi vo formulári, a po kliku načíta do TextBoxu obsah súboru?
ListBox s obsahmi vo formulári?
...
Ani ste si nevšimol, že je tam viacero príkladov použitia?

S tým sa dá v makre dobre vyblbnúť

PS: Nieje to ošetrené ešte na chyby, napr. neexistencia súboru a pod. Možno neskôr po upresnení, či sa niečo z toho bude hodiť. Pretože, ako vždy, nechápem čo fortes chce

Worksheet_Change je procedúra vyvolaná pri zmene hodnoty nejakej bunky. Či už v jednom liste, alebo aj v celom zošite. Makro máte vložené v procedúre Worksheet_Change listu "1", ale máte tam aj "pokus nakopírovania" tohto makra v globálnej procedúre Worksheet_Change celého zošitu. Tam je to samozrejme nefunkčné, lebo globálna má o 1 parameter, ktorý určuje práve menený list, naviac.
Celé to píšem preto, že z Vášho popisu nieje zrejmé, ako to má fungovať.
Na prvom liste má byť zoznam mien listov A1:A6 ?
Kontrola zmeny bunky sa má diať práve a len na prvom liste, a podľa týchto hodnôt v A1:A6 sa premenujú listy ?
Bude vždy presne 6 listov ?
Alebo kontrola zmeny nejakej bunky má prebiehať v celom zošite, na každom liste ?
Ak áno, tak na každom liste sa kontroluje bunka s rovnakou adresou, napr. A1 ?
Ak áno, prečo pole adries obsahuje raz stĺpec A a inokedy stĺpec TA ?
Ak nie vždy rovnaká bunka, aký je kľúč na určenie adresy kontrolovanej bunky v každom liste ?
...

OFFSET/POSUN nepôjde do zatvoreného súboru. Ak by išlo o číselné hodnoty, a bol by to rozumne veľký dopredne určený rozsah, tak som to očúral takto:
=INDEX('Z:\MATICA\[MATICE.xlsx]List1'!$D$3:$AM$1000;MATCH($C$2;'Z:\MATICA\[MATICE.xlsx]List1'!$B$3:$B$1000;0);MATCH($C$3;INDEX(1*'Z:\MATICA\[MATICE.xlsx]List1'!$D$3:$AM$1000;MATCH($C$2;'Z:\MATICA\[MATICE.xlsx]List1'!$B$3:$B$1000;0));0)+1)

=INDEX('Z:\MATICA\[MATICE.xlsx]List1'!$D$3:$AM$1000;POZVYHLEDAT ($C$2;'Z:\MATICA\[MATICE.xlsx]List1'!$B$3:$B$1000;0);POZVYHLEDAT ($C$3;INDEX(1*'Z:\MATICA\[MATICE.xlsx]List1'!$D$3:$AM$1000;POZVYHLEDAT ($C$2;'Z:\MATICA\[MATICE.xlsx]List1'!$B$3:$B$1000;0));0)+1)

no a ak by to bol všetko text
=INDEX('Z:\MATICA\[MATICETEXT.xlsx]List1'!$D$3:$AM$1000;MATCH($D$2;REPT('Z:\MATICA\[MATICETEXT.xlsx]List1'!$B$3:$B$1000;1);0);MATCH($D$3;INDEX(REPT('Z:\MATICA\[MATICETEXT.xlsx]List1'!$D$3:$AM$1000;1);MATCH($D$2;REPT('Z:\MATICA\[MATICETEXT.xlsx]List1'!$B$3:$B$1000;1);0));0)+1)

=INDEX('Z:\MATICA\[MATICETEXT.xlsx]List1'!$D$3:$AM$1000;POZVYHLEDAT ($D$2;OPAKOVAT('Z:\MATICA\[MATICETEXT.xlsx]List1'!$B$3:$B$1000;1);0);POZVYHLEDAT ($D$3;INDEX(REPT('Z:\MATICA\[MATICETEXT.xlsx]List1'!$D$3:$AM$1000;1);POZVYHLEDAT ($D$2;OPAKOVAT('Z:\MATICA\[MATICETEXT.xlsx]List1'!$B$3:$B$1000;1);0));0)+1)

Priložte reálnu prílohu a podľa času Vám určite niekto pomôže sa s tým popasovať...

Príklad ako môžete získať aj názvy výsledkov alebo aj samotné výsledky, bez makra, maticovým vzorcom.

Toto žiaľ nemôže byť koniec. Zabudli ste na častú možnosť, otvorenia súboru bez povolenia makier. V takomto prípade sa to rieši tak, že pri uložení sa schovajú všetky listy, len sa odkryje jeden s logom, na ktorom je napísané, aby sa makro kvôli funkcionalite zaplo, potom sa list schová a ostatné sa zobrazia.
Pri Uložení treba zase uložiť listy ako schované, a iba list s logom ostane.

??? Neviem či rozumiem správne dotazu. Za prvé to nebude fungovať na zatvorený súbor MATICA.xlsm, ale iba keď je otvorený spolu so súborom, v ktorom chcete zobrazovať výsledok. Za druhé neprehľadávajte celé stĺpce a celé riadky. Snáď má tá podivnosť nejaké medze, nie ?
Ak som mimo, tak nič. Ale prílohu (prílohy ak sa jedná o viac súborov) priložte tak či tak.

Lebo v jednej tbl je Celezávodní a v druhej Celozávodní

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse