Příspěvky uživatele
< návrat zpět
No tak skúste toto.
Tak tam skúste napísať:
EN/SK verzia
=RAND()*100+ROW(A1)/1000
CZ verzia
=NÁHČÍSLO()*100+ŘÁDEK(A1)/1000
PS: A ešte dodatok, ak máte EN Office tak oddeľovač parametrov ";" nahraďte ",". Uveďte teda akú máte jazykovú verziu, a čo znamená "nefunguje".
Ale ako si tak čítam, tak RANDBETWEEN bude fungovať v 2003 až po nahodení doplnku "Analysis ToolPak"
https://www.uvm.edu/~bnelson/computer/excel2003/loadexcelsanalysistoolpak.html
Doplnte do stĺpca D názov listu "Hárok6", uvidíte prepočet. Len dopĺňate názvy listov v D. Doplniť názov neznámeho listu, inak ako ručne, je možno iba cez makro. Zatiaľ je to nastavené na 10 listov v D, a 100 riadkov v každom liste. Rozsah si ľahko zmeníte. Názvy listov sa čítajú v Definovanom názve.
PS: Omluva za predošlú omylom odoslanú prílohu.
Riešenia od "marjankaj" uvedené do praxe:
Stačí takto ? Máte tam 2 listy, s 2 riešeniami.
Dopíšte si časov koľko chcete, a potom označte v stĺpci s výsledkom poslednú doteraz vypočítanú bunku, a za pravý dolný roh tejto bunky ju potiahnite myšou na taký počet riadkov, koľko časov ste si napísala, alebo koľko časom plánujete napísať.
Ak sa Vás to čo teraz napíšem dotkne, tak to v žiadnom prípade nieje cieľom, tak sa prosím neurazte.
Vy sa pýtate, aká je to funkcia, asi na to posledné "=B1-A1", čo "marjankaj" napísal, že ? V tom prípade by ste mali docela pouvažovať nad pár hodinami na YouTube či Google o tom, čo je to vzorec, čo sú bunky.
Ak sa pýtate na ten prvý vzorec, v tom prípade Vám odporúčam nápovedu Excel pre jednotlivé funkcie NAJÍT, ZLEVA, ZPRAVA, DÉLKA.
Ak sa pýtate na preklad ekvivalentných názvov CZ-EN, tak Vám ich tam kolega napísal (okrem DÉLKA=LEN).
Ak dobre pozerám na Váš vzorec, tak ten výpočet
(((AF13-AE13)*24)-0,5)-((AL13-AK13)*24)
sa vykoná iba a len v prípade, ak je Z13="". Tak nemôžete chieť aby bolo v Z13="J", ak tam musí byť "" aby výpočet prebehol. To je prvá vec.
Druhá je to, že či je v Z13="D" alebo Z13="S", výsledok je 7,1. Toto sa dá zlúčiť do jedného OR/NEBO. Tu rovnako nemôžete chcieť pripočítať k tejto hodnote 7,1 hodnotu 7 na základe Z13="J", keď v Z13 musí byť "D" alebo "S" aby to malo tú hodnotu 7,1.
A za tretie, mi vychádza že stačí iba nahradiť posledné "" vo vzorci týmto
IF(Z13="J";7;0)
pretože za iných okolností nieje možné "pripočítať" číslo 7, keď výsledok je stále "" - prázdna bunka (nie 0). Ani teraz sa nepripočíta, iba sa vloží.
Neviem, či to "skúmam" správne, ale nejako mi to nesedí...
Tu je čiastočné riešenie jednej časti problému, a to odchytenie kliku na bod:
https://social.msdn.microsoft.com/Forums/office/en-US/4f9abc39-149e-4f4e-9f62-56d38a93d02f/start-code-when-clicking-in-excel-chart, ale nefunguje to tak ako by bolo treba. Prvý klik je iba označenie série, druhý klik je vypísanie bodu. Zatiaľ neviem, ako to poriešiť.
Po úprave s Terminate, sa to u mňa už neprejavuje.
Keď budete niekomu faktúrovať 1 mld, tak to bude mať škaredo napísané ako tisíc miliónov : 1000.000.000,00
Ak v makre nastavíte separator pri otváraní súboru, tak prejde ten formát od AL:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.UseSystemSeparators = True
End Sub
Private Sub Workbook_Open()
With Application
.UseSystemSeparators = False
.DecimalSeparator = ","
.ThousandsSeparator = "."
End With
End Sub
EDIT: O minútu skôr Vovka, vynikajúce riešenie.
Premennú xlApp ruším až v BeforeClose udalosti. To som ju iba teraz pre testovanie rušil v behu makra, ako ste písal, aby som vyvolal situáciu, že čo sa stane, keď ju po dlhšej nečinnosti zruší Excel sám. A nič sa nestane. Excel si ju vytvorí. Žiadna inštancia mi nikde nevisí. Ale s prepáčením už kašlem na to. Je to, ako ste podotkol, zbytočné.
Nemáte tie dáta náhodou stiahnuté ? Ak áno pridajte ich ako prílohu. ŠÚSR asi minul málo mega na svoje stránky. Vo všetkých prehliadačoch sú u mňa nedostupné.
EIDT: No na tablete cez mobilný internet mi susr ide, na pevnom internete nie. No nič.
Môžete bližšie popísať (nie tak, že Vy viete o čom hovoríte, ale aby sme vedeli my o čom hovoríte), presne ktoré tabuľky máte na mysli, kde pribudne prázdny riadok, ktorý štát chcete s čím priradiť...
Ja Vás chápem, čo máte na mysli. Ale môj Excel ak má xlApp=Nothing, tak si ho sám vytvorí a použije. Ak nieje Nothing, tak ho nevytvorí ale iba použije. Jedine ma napadá, že to Excelácke "zabudnutie" nenastaví premennú na Nothing, ale kompletne zabudne aj deklaráciu. Proste urobí niečo iné ako len set Nothing. Pretože zo stavu set Nothing sa bez problémov sám dostane.
Rozširujúca otázka, myslíte, že cez RecordSet ADODB by to bolo riešiteľné ?
Ale k vytvoreniu novej inštancie predsa neprichádza pri každom teste. Vytvorí sa iba:
1. pri otvorení súboru
2. ak ju Excel zruší, alebo ju zrušíme my manuálne (Quit+Nothing), tak ako ste dal príklad, tak pri najbližšom použití premennej xlApp, si ju Excel vytvorí sám, a iba jednu. Nech pozerám do Správcu úloh ako chcem, tak tam vidím "Microsoft Excel" iba raz. Druhý proces "Microsoft Excel" je už samotný súbor v ktorom pracujeme. Takto sa to správa na mojom Excel 2013. Takže podľa Správcu úloh, žiadneho úbytku pamäti, rýchlosti vykonávania, si nemyslím, že každé volanie vytvára inštanciu, ani nieje u mňa problém pri zmazaní inštancie.
Ak sa to dá overiť ešte inak, pls poraďte.
Podstatné zlepšenie výkonnosti makra spočíva v nevytváraní Excel.Application pri každkom prepočítaní listu pre každú bunku, ale použiť globálnu premennú, a tú v Before.Close zrušiť. Riziko pádu aplikácie a toho, že ostane v pamäti vysieť inštancia Excelu, je rovnaké ako v predošlom prípade, ale neporovnateľne svižnejšia odozva. Takto sa to používať dá.
A ak by niekoho ešte zaujímalo prečo to ExecuteExcel4Makro najskôr mne nešlo sprevádzkovať, tak to bolo práve v tom, že som nepoužil novú inštanciu Excel.Application. Vo funkcii to bez toho nefunguje v procedúre áno.
Dotaz znel, porovnať stĺpec A jedného súboru so stĺpcom C druhého súboru. Presne takú odpoveď dostal. Podľa mňa sa tým už Vážne nemusíme zaoberať. Ale keď sa Vám ešte chce, tak prečo nie. Vždy je sa čo učiť.
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