Příspěvky uživatele

Riešené napr. tu:
http://wall.cz/index.php?m=topic&id=25763
ďalší dotaz je na to už aj tu:
http://wall.cz/index.php?m=topic&id=25715
a ďalšie...

Využiteľnosť? No ľudia chcú mať "DB" v Exceli pre jeho relatívnu jednoduchosť, čo sa týka vkladania, úpravy, spracovania, výstupu a zrozumiteľnosti dát. Excel ale nieje DB. Na to je Access (a iné), ale to je zložitejšie. Ja som sa už s použitím Excelu ako "DB" stretol často, ale väčšinou v tom istom zošite.
Čítanie by nebol problém, ale zápis je už iná káva. Hovoríme stále o zatvorenom súbore.

@eLCHa: a nefungovalo by to aj bez pomocného stĺpca ?
=IF(B1-A1<0;"-";"")&TEXT(ABS(B1-A1);"h:mm")
@Michal83: ktorý že to používate súbor ? Dajte link.

No neviem, neviem, urobil som asi 20 zápisov, a začalo to byť pomalé :(.
Máte tam chybku, v druhom Application.DisplayAlerts = False, má byť True.
Aby Open okno nepreblikovalo treba ešte pridať Application.ScreenUpdating = False. Veľmi to spomaľuje zvolený druh výpočtu počtu riadkov. Nerieši sa tam ešte to ID. Treba ošetriť kliknutie na prvý riadok. Prenáša sa aj slovo "klik".
Takže asi by som to upravil takto:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim a(), r As Long
If Target.Row > 1 And Target.Column = 9 Then
With Application
.ScreenUpdating = False
On Error GoTo Chyba
Workbooks.Open ThisWorkbook.Path & "\obj.xlsx"
With Worksheets("objednavka")
a = ThisWorkbook.Worksheets("seznam").Rows(Target.Row).Resize(1, 8).Value
r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
a(1, 1) = Format(r - 1, "000")
.Rows(r).Resize(1, 8).Value = a
End With
.DisplayAlerts = False
ActiveWorkbook.Close True
Chyba:
.DisplayAlerts = True
.ScreenUpdating = True
End With
End If
End Sub

Predpoklad je dúfam to, že PSČ je vždy 5 miestne číslo > 10000 a < 99999. Použil som maticovú metódu opajcnutú od eLCHa
=IFERROR(RIGHT(A1;LEN(A1)-5-MIN(IFERROR(FIND(ROW($A$10000:$A$99999);A1);LEN(A1))));"")
Ak tam bude ale obec bez ulíc, a zapísaná s číslom domu po názve obci, tak to bude oveľa zložitejšie (napr. 45678 Haluškovo 11).

Tak toto by so vedel urobiť asi jedine tak, ako som teraz postoval kolegovi vo vedľajšom vlákne:
http://wall.cz/index.php?m=topic&id=25763
Čo ja viem, tak by sa to malo dať urobiť cez ADO, cez RecordSet, to ale žiaľ neovládam. Pozrite sa na to, či by Vám niečo podobné vyhovovalo, a keď bude viac času, snáď Vám to spravím.

To by malo ísť cez ADO, to Vám ale ja urobiť neviem, takže jedno "krkolomnejšie riešenie" cez Excel.Application. Musí to byť globálna premenná, ktorá je stále inicializovaná, lebo ak by sa vytvárala pri každom kliku, program by bol rýchlostne nepoužiteľný. Takto tú 0,5 sekundy pretrpíte len raz pri otváraní zošitu. Upravil som Vám formát 1000 riadkov na taký aký ste mali v prvých 2 v príklade. Rovnako aj automatické podmienené formátovanie na farbu a orámovanie, a aj vzorec do posledného stĺpca, ktorý vloží text upozorňujúci na kliknutie.

Ako to funguje ?
-pri otvorení seznnam.xlsm, sa vytvorí ešte jedna virtuálna inštancia Excel, v ktorej sa otvorí objednavky.xlsx. Vy to nevidíte, ale to v pamäti otvorené. Teraz nieje problém prenášať údaje.
-ak počas otvoreného seznam.xlsm budete chcieť otvoriť aj objednavky.xlsx tak Vás to upozorní, že zošiť je otvorený a môžete ho otvoriť iba na čítanie.
-kliknutie na bunku, potom len skopíruje data, nemusí vytvárať ani rušiť tú inštanciu Excel, tá sa zruší pri zatvorení zošitu seznam.xlsm automaticky.
-súbor objednavky.xlsx sa ukladá priebežne po každom kliku.
-ak by normálna aplikácia Excel spadla, zostane v pamäti proces Excel.exe, ktorý bude treba zrušiť v Správcovi úloh.

Vyskúšajte, či Vám to bude vyhovovať a stačiť.
Viac neviem pomôcť.

Nič také som sice nikdy nepoužil, ale myslím, že tu je obrázkový návod,
http://www.howtogeek.com/162219/how-to-change-the-automatic-calculation-and-multi-threading-features-in-excel-2013/

No ja som to pochopil tak, že sa majú pridávať ďalšie a ďalšie na koniec druhého listu. A to by som urobil asi nejak takto:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim R As Long
With Worksheets("seznam")
R = .Cells(Rows.Count, 2).End(xlUp).Row - 1
If R > 0 Then
If Not Intersect(Target, .Cells(2, 9).Resize(R)) Is Nothing Then
With Worksheets("objednavky")
R = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If R = 2 Then .Cells(R, 1) = "001" Else .Cells(R, 1) = Right("00" & CInt(.Cells(R - 1, 1) + 1), 3)
.Cells(R, 2).Resize(1, 7).Value = Worksheets("seznam").Cells(Target.Row, 2).Resize(1, 7).Value
End With
End If
End If
End With
End Sub
Doriešte si ešte formátovanie ďalších riadkov.

Zošit, do ktorého sa má obsah RZ_XXX zapísať, teda do zošitu Seznam, bude zatvorený ?

V TotalCommander nemôžete mať problémy s radením ?! Používam len ten, a nemám problém. Základ je, aby ste mali rovnaký zápis, teda napr.
1,01
1,02
2,00
alebo
001,01
001,02
002,00
alebo
00101
00102
00200
a zaručene Vám to zoradí správne, za to si dám odtrhnúť ruku. Treba myslieť dopredu na počet znakov, a preto ako je vidieť z príkladu, ten Váš návrh nieje šťastný, lebo keď pridáte za 9,00 ďalší, čiže 10,00, tak Vám to zoradí takto
1,01
1,02
10,00
2,00
...

Inak urobil som Vám to makro. Do políčka zadáte číslo (ono je to ale text, nie číslo) pred čiarkou (Váš oddeľovač), a všetky súbory *.pdf, ktoré majú na začiatku to číslo (text) + "," Vám otvorí. Snáď ste to myslel takto.
Samozrejme, je jedno, kam celý adresár nakopírujete, aplikuje sa vždy aktuálna cesta.

Slovné úlohy ... no to je odjakživa môj problém

Takže:

1. Vy chcete aby sa Vám po kliknutí na Hypertextový odkaz v stĺpci B, otvorili všetky súbory, ktoré sú v danej zložke na ktorú odkazuje tento Hypertext, a ktoré obsahujú v názve číslo, ktoré obsahuje názov súboru v stĺpci A ??? To je nezmysel, nie ? Hyperlink nemôže odkazovať na viac ako jeden súbor. To by sa dalo jedine makrom, ktoré by po kliknutí (označení) na bunku v B, vyhľadal napr. prvé číslo v A (v rovnakom riadku) a toto číslo hľadal medzi názvami súborov v adresári, kam odkazuje B, a všetky validné súbory postupne otváral.

2. Vy máte niekde okrem týchto názvov súborov v A, a hyperlinkov v B, ešte nejakú bunku do ktorej píšete len číslo, a napr. vedľa tlačítko, ktoré naštartuje vyššie opísaný proces prehľadávania a otvárania súborov? Hľadať sa bude číslo z tejto bunky.

1. Tento súbor premenovať na meno mailu (pred zavináčom)
2. Pri otvorení napíše chybu, že nemôže odoslať mail, samozrejme, lebo treba nastaviť ešte
3. V časti "With Flds" vyplniť celú mail adresu z ktorej sa bude odosielať mail, heslo, port, a smtp server.
4. V časti ".To =" zmeniť na konci doménu (za zavináčom) mailu, na ktorú sa pošle správa.
5. V časti ".From =" zmeniť zobrazované meno odosielateľa a mail odosielateľa
6. V časti ".HTMLBody" zmeniť Hyperlinkový odkaz a text
7. V časti "Chyba:" zabezpečiť, čo sa udeje, ak nebude možné odoslať mail.

To či je názov súboru mail celý alebo len pred @, a to či je ten názov súboru mail odosielateľa či príjemcu, si už snáď dokážete zmeniť.

Tu Vám posielam jedno riešenie. Zistil som, že počet tých kódov nieje rovnaký, a v nových je jeden navyše. Čiže je potrebné kontrolovať, ktoré kódy sú nové a pridať ich. Pridal som nové nakoniec. Potom sa Vám vložia už adekvátne čísla. Je to robené cez polia, a je to dostatočne rýchle.

No čítal som jeden zápis zo školenia mzdovej účtovníčky, a teda na SK vôbec nieje také jednoduché vypočítať dovolenku ako by ste si to predstavovala.
U nás je mnoho podmienok, a podľa mňa to bude v CZ obdobné.
Napr.
-musí byť min 60 dní odpracovaných
-koeficient sa mení podľa veku
-ak je začiatok aj koniec v jednom roku, tak sa to počíta z pracovných dní, ak je to cez rok, tak z kalendárnych mesiacov
-prevažná časť mesiaca sa takisto počíta s nejakou podmienkou.
-štátny podnik a súkromný sektor, je tiež rozdiel v počte dní dovolenky
...

Mne keď sa to pokúšala mzdová účtovníčka chvíľu vysvetľovať, tak som na to rezignoval

Jedine niekto naozaj zbehlý v tejto problematike Vám dokáže pomôcť.

Napadá ma pár otázok.

1. Tie položky v RZ_XXX!D4:D28 budú vždy v rovnakom poradí ako je poradie v Seznam!B1:Y1 ? Ak áno, stačí iba jedno Application.Transpose

Ak nie tak:
2. Tie položky v RZ_XXX! budú mať variabilný počet riadkov ?
3. Ak áno, tak čo sa má stať keď príde riadok, ktorý ešte nemá adekvátny stĺpec v Seznam! ?
4. V RZ_XXX! môže byť viac riadkov s rovnakým "kódom" ale napr inou cenou ?
5. Môže nastať, že cena v RZ_XXX! bude prázdna ?
6. Ak áno, tak čo sa má namiesto nej zapísať "" alebo 0 ?
7. Celý zápis prebieha v Seznam! vždy v jednom riadku, alebo sa riadok mení podľa toho koľko je v danom stĺpci zaplnených riadkov (to súvisí z predošlou otázkou a prípadným zápisom "")

Prosím odpovedzte na všetko, a keď večer prídem, snáď Vám na to mrknem.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje