Příspěvky uživatele
< návrat zpět
Tu ju máte použitú v maticovom vzorci od "lubo"
Šmarjá, čo je to zase za prílohu ? Kde je popis, ktoré bunky tam na čo máte ? Do ktorých Vy niečo vpisujete, do ktorých sa počítajú avizované "počítané dáta vzorcom" ? Nikde nevoláte Skok, to som už písal = zbytočná procedúra. Hneď prvý riadok
If Target.Column = 2 And Not Target.Address = "$A$1" Then
Ak je Column=2, tak už nikdy nemôže byť Address="$A$1".
Nefunkčné #ODKAZ vo vzorcoch, nerovnaké vzorce a formáty v stĺpcoch.
Písal ste o súčte vyplnených hodnôt v B:D, a tu vidím texty (ešte k tomu D zbytočný, ten sa môže zapísať naraz, veď predsa ak ide o test, nebudú ho robiť traja...), a navyše ide o Počet a nie Súčet.
Čo je to od A38 dole ?
Akože "musím klikat do jiného pole", tým myslíte ENTER po zápise niečoho do bunky ? To je predsa samozrejmé, tak funguje Excel. Vy chcete odchytávať stlačenie klávesu počas písania v bunke ? To určite nepôjde.
Píšete stále o A1, ale v A1 je slovo "Rychlometr".
A kde je voľba 15/30 otázok?
Čo Vám mám k tomu viac napísať ....
Super vedieť, že takéto niečo je riešiteľné. Srandovne to vyzerá pri krokovaní vzorca, keď v SUMIFS sú všade chyby "#HODNOTA" ale výsledok je OK 
Nie, nie. Zoberte prosím Váš hotový súbor, eliminujte citlivé data, v žiadnom prípade ale nemažte všetko a už vôbec nie meniť štruktúru, formát alebo usporiadanie. Ponechajte vzorce. Na konkrétnej ukážke (manuálne si vytvorte výsledok) mi tam ukážte ako to vyzerá pre makrom, a ako po makre. Slovný popis pre Váš problém nestačí! Rozhoduje maličkosť, napr. to že poviete, že tam máte vzorce. Čo znamená tam ? Vzorce vypĺňajú hodnoty, alebo ich sčítajú? To určuje rozdielnu metódu riešenia. Akých 15 hodnôt ? Vraveli ste o súčte 30, nie o počte 15/30. Nemôžete si vycucnúť pár riadkov z navrhnutého kódu, a použiť ich inak. Načo je napr. procedúra Skok, keď nieje volaná, ja som to v mojom makre robil inak... Takže to chce ukážkovú prílohu. Opäť je predpokladám čas, ktorý venujem opakovanému čítaniu toho čo ste napísal (aby som uhádol, čo chcete, ale teraz sa mi to nepodarilo), dlhší ako riešenie.
Inak UserName je niekoľko druhov. Application.UserName je meno čo je zapísané v nastavení Excelu. Environ("UserName") je meno prihláseného užívateľa Win.
MINIFS nieje ani v 2016 Pro. Pravdepodobne iba vo verzii 365 (raz to tu bolo spomínané tuším...)
Podľa toho, čo som čítal, tak sa INDIRECT/NEPŘÍMÝ.ODKAZ nedá používať v maticovom vzorci. A ako 3D (to iba predpokladám) tiež asi nie.
Možno sa mýlim...
Ale ja som napísal aj riešenie druhého problému. Nevolajte vytvorený objekt L1, ale Controls("L1"). Skúste si to napr. na vlastnosti .Caption. Ak dáte L1.Caption="abc" máte chybu, ale ak dáte Controls("L1").Caption="abc" prejde bez chyby.
Samozrejme skúšku robím na kóde s odstránenýi riadkami
D1 = DateAdd("d", Sheets("graf").Range("g30"), labelCounter - 1)
a
.Height = WorksheetFunction.SumIfs(škoda, jméno, Sheets("graf").Range("a5"), datum, D1) / 10
K nim nemáme podklady (prílohu)...
Posledný riadok
L1.Background = &HFFFFFF
alias
Controls("L1").Background = &HFFFFFF
Skúste hádať. Áno, správne, Label nemá vlastnosť Background.
Pozastavenie nieje možné, takže to obabreme nasledovne. Prvé stlačenie tlačítka prichystá prvú stranu.Ďalšie stlačenia tlačítka vytlačia Vami doplnenú stranu, a prichystajú nasledujúcu stranu. Tú zase upravíte a stlačením vytlačíte a pokračujete, až po vtedy, čo bude na tlačítku nápis Dokončiť. Vtedy bude mať tlačítko na starosti už len následné vytlačenie poslednej strany. Nože poskúšajte. Zrušiť to pôjde zatvorením súboru (či už s uložením alebo bez).
Príklad. Tlačí na aktuálne predvolenej tlačiarni. Takže pozor, ak stlačíte tlačítko, všetko vytlačí. Na vyskúšanie, je najlepšie si nainštalovať nejakú Free PDF tlačiareň. Tento príklad má 4 riadky, teda vytlačí 4 formuláre.
Keď nám vložíte prílohu, alebo podstatne lepšie popíšete čo znamená "doplňovat údaje ze seznamu na Listu 2", tak Vám určite pomôžeme. Teraz len z brucha napr VLOOKUP, HLOOKUP, MATCH, INDEX, (SVYHLEDAT, VVYHLEDAT, POZVYHLEDAT), alebo iba obyčajné "=List2!A1"... Nedá sa asi konkrétnejšie poradiť...
Ak pripadne posledný deň v mesiaci na So/Ne, urobí sa to v Pi. Pri otvorení po zadanom čase samozrejme.
Alebo chcete zapracovať aj sviatky ?
EDIT: Tak prílohu som vymenil za novú, kde sa to posunie aj ak to padne na sviatok. Pripadajú do úvahy v CZ aj v SK iba 3 sviatky na konci mesiaca.
PS: Pre SK si iba upravte jeden dátum v príkaze While vo VBA v procedúre Private Sub Workbook_Open()
z
...DateSerial(Y, 9, 28)...
na
...DateSerial(Y, 8, 29)...
a pre CZ opačne (teraz je to pre CZ)
To isté si upravte aj v skúšobnej procedúre Private Sub Workbook_Open_Test() v module Module1
Vzorcom by to išlo tiež. Ale na čo to je dobré ? Tie 2 "prázdne" bunky nie sú prázdne - je tam vzorec. Teda ak to chcete použiť tak, že tam potom chcete niečo dopisovať do tých prázdnych buniek, tak to musíte previesť na hodnoty (kopírovať - hodnoty).
??? To akože ide iba o podmienku IF ?
Function VYPOCET(Y As Integer, Opakuj As Integer)
Dim i As Integer
VYPOCET = 0
For i = 1 To Opakuj
If Y Mod 2 <> 0 Then
'Nepárne
VYPOCET = VYPOCET + Y
Else
'Párne
VYPOCET = VYPOCET + i * Y
End If
Next i
End Function
Pr. hárky 1-2 jeden vzorec, hárky 3-4 druhý vzorec, hárky 5-6 makro.
Napríklad. Plus si k tomu vytvorte dynamické oblasti, aby ste nemusel prepisovať vzorce, pri zväčšovaní.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články