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

Příspěvky uživatele

Čo má tlačítko robiť vieme, čo ale nevieme je kde to má robiť.
-Ten navi-program vytvorí súbor XLSX, kde nebude nič iné len obdobná tabuľka? Ak je to inak popíšte ako.
-Tá tabuľka je v dobe prepočtu zasadená aj do iných číselných dát (je niečo kdekoľvek okolo nej) ?
-Je rovnako rozmiestnená a koncipovaná, teda vždy 10 bodov v stĺpcoch po piatich so zlúčením 3-och riadkov v čísle bodu, vynechaním jedného riadku medzi uzlom a míľou, je rovnako odsadená od okrajov listu, rovnako sa volá list, ... ?
-Ak je vždy iná, ako ju máme identifikovať ? Vyhľadaním "Otočný bod" ?
-Konvertované majú byť na inom liste - teda je jednoduchšie urobiť kópiu prvého listu, kvôli tomu že netreba potom riešiť opätovné formátovanie, zlučovanie a pod. Je to možné takto robiť, alebo je ten list na nové hodnoty, už prichystaný aj s niečím iným okolo ?
To je spústa a ešte viac nejasností...

luky81: Zmenil ste zadanie, nie ? Nemal ste tam najskôr každý 5-ty stĺpec ?
mepexg: ten Váš mi ale nefachá ani na každom 5, ani 8 (EDIT: aha tak Vy chcete riešiť aj transponovanie, mi to až teraz došlo:) )

Na každom 8-om mi fachá tento:
=INDEX(List1!$5:$5;;(ROW(A1)-1)*7+1)
=INDEX(List1!$5:$5;;(ŘÁDEK(A1)-1)*7+1)

tipujem:
=INDEX(List1!$1:$1;;ROW(A1)*5-5)
=INDEX(List1!$1:$1;;ŘÁDEK(A1)*5-5)

Napadajú ma hneď 4 možnosti ako to urobiť. A neviem, či som si nezvolil zrovna tú najhoršiu na programovanie :)
No skúste.

V tých súboroch sú iba 4 stĺpce, že? Tie ostatné si tam iba Vy vytvárate ako pomôcku. Tie tam byť nemusia a ani nemajú ? Alebo sa majú potom do tých pootváraných súborov poukladať tie vzorce v F:M ? Do toho spoločného súboru sa majú vkladať ktoré dáta z tých zdrojových ? Ktoré stĺpce A:D ? Alebo aj tie pomocné vzorcové F:M ? Koľko má každý súbor +- riadkov ?

Tú Vašu najnovšiu prílohu som nepozeral, ale na to nepotrebujete makro. To je ako robené pre PowerQuery (Excel 2010 a vyšší). A to podotýkam, že v PQ robiť neviem.
EDIT: Tabuľku stačí iba dať Obnoviť (karta Údaje - Obnoviť)

XLSM musíte zabaliť do ZIP aby šiel nahrať.

V súbore XLSX nikdy žiadne makro byť nemôže. Na to je XLSM. Takže makro nevidíme. Toto je hlavný súbor, či ten dielčí ? Čo znamená "príhoda" ? To je akýkoľvek záznam v riadku spĺňajúcom v F:F nejaký dátum? Dielčie súbory sú v jednej samostatnej zložke ? Treba preskúmať všetky, ktoré v danej zložke sú ? Majú premenlivý názov listu asi, však ? Počet listov je rovnaký ? ...

Tak moment, čo Vy chcete vlastne vypísať?
-všetky ovládacie prvky formu bez MultiPages a bez Pages
-všetky ovládacie prvky formu aj s názvami MultiPages ale bez názvov Pages
-všetky ovládacie prvky formu aj s názvami MultiPages a Pages
-rozdeliť všetky ovládacie prvky formu tak ako patria do Multipages
-rozdeliť všetky ovládacie prvky formu tak ako patria do Multipages a príslušných Pages
-vypísať iba názvy všetkých MultiPages na forme
-vypísať iba názvy všetkých Pages na forme
-vypísať názvy všetkých MultiPages na forme a im zodpovedajúce Pages

Proste uveďte presne ako má vyzerať výsledok v tomto konkrétnom prípade.

Nemôžete testovať len Controls. Veď tá podstránka je Page, nie Control. Teda musíte prejsť všetky Pages v objekte ktorý má typ MultiPage, a v každom cykle kontrolovať Controls až v tej Page. Ale vidím, že sa jedná o niekoľkonásobné vnorenie MultiPage, teda bude potrebné urobiť rekurzívnu metódu. Zvládnete to ?

Pre prepočet viac ako jednej bunky:
Selection = Evaluate("=" & Selection.Address & "*1.852")

a pre prepočet viac ako jednej bunky, ale s ničnerobením keď je prázdna:
Selection = Evaluate("=IF(" & Selection.Address & "="""",""""," & Selection.Address & "*1.852)")

Samozrejme sa bavíme o súvislej oblasti (viacriadkovej alebo viacstĺpcovej alebo oboje), nie o oblasti "hocikde". Ak chcete tak, povedzte, tam sa musí urobiť cyklus pre všetky podoblasti Areas.

EDIT: Pre hocijakú oblasť nesúvislú, to je fuk, mení iba čísla, prázdne a nečíselné bunky nie:
Sub PrevodAreas()
Dim ARE As Range, Adr As String
For Each ARE In Selection
Adr = ARE.Address
ARE = Evaluate("=IF(ISNUMBER(" & Adr & ")," & Adr & "*1.852," & Adr & ")")
Next ARE
Set ARE = Nothing
End Sub

lopi007: on testuje či je Outlook otovrený obdobne:
...
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
IsCreated = True
End If
OutlApp.Visible = True
On Error GoTo 0
...

Nomi: "...se to zasekne..." - Na ktorom riadku ?

Skôr si myslím, že je problém v tom čo sa tu spomínalo len pár týždňov dozadu (sa mi nechce hľadať tú tému), a to, že staršie Office pristupujú k obj. modelu Outlook inak.

Dim objOL as Object
Set objOL = CreateObject("Outlook.Application")
vs
Dim objOL as Outlook.Application
Set objOL = New Outlook.Application

Prípadne pridať referenciu na Microsoft Outlook xx.x Object Library.

Mne to na Office 2016 funguje, tak ako chcete. Akú máte verziu, možno tam bude problém.

Trochu sa nad tým pozastavujem, lebo neviem načo pridávať ďalší riadok každý deň. Veď keď prídem po max 31 tak musím pridať nový stĺpec každý mesiac. Teda určite nezačínam ďalší mesiac na 32-om dátovom riadku. Ja by som si vytvoril 31 riadkovú tabuľku, nešpekuloval s pridávaním riadkov a vypĺňaním vzorcov, ale vzorce by som ošetril napr. na nevypisovanie hodnoty, a pridával by som len mesiac - teda stĺpec. V prvom momente ma to netrklo, ale teraz v tom pridávaní riadkov nevidím logiku.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse