Příspěvky uživatele
< návrat zpět
marjankaj napsal/a:
No jeden by si myslel, že DANÝ výraz(8ciferné číslo) je napríklad "12345678". No potom teda tento HĽADANÝ reťazec("12345678") proste vypíše.
No ale keď má niekto problém s vyjadrovaním....
Omlouvam se, v zavorce vypadlo slovicko "jakekoli" 8mi ciferne cislo.
Velmi dekuji syd, presne pochopil, jak jsem to myslel a funguje bezvadne
To, ze to umim otestovat, znamena, ze umim dostat logickou hodnotu True , False podle toho, zda nekde v textu v bunce je obsazeno jakekoli 8mi ciferne cislo, jen jsem to cislo neumel pak vypsat.
Bunka obsahuje dlouhy text (vcetne mezer) a ja potrebuji z tohoto textu vypsat retezec odpovidajici danemu regularnimu vyrazu (8ciferne cislo), pokud jej bunka skutecne obsahuje. Jakym prikazem toho docilim ve VBA? Umim to otestovat, ale neumim to vypsat?
Moc diky
Díky , funguje
Zdravím, poradí někdo, jak smazat tu část textu buňky, která se nachází za lomítkem (včetně tohoto lomítka)? Je jedno jestli makrem nebo funkcí.
Příklad textu z buněk -
2.6 / 2.5 (1%)
3.8 / 3.75 (-3%)
8.85 / 7.5 (15%)
11 / 10 (6%)
28 / 21 (28%)
9.2 / 8 (11%)
64.66 / 41 (51%)
Díky
David
Ano, diky, Timer funguje.
Pozadovane 2/10s jsou pak reprezentovany hodnotou
Timer + 0.2
David
do while Cells(1,1) <> "STOP"
DoEvents
Result = Cells(2,4)+Cells(2,5)
'obsah bunek se meni
'posila to do nich jina aplikace
If ""time.pokrocil.o.2.desetiny"" then
J=J+1
Cells(J,2)=Result
endif
Loop
Myslim ze to pujde resit pomoci funkce Timer. Ta vraci pocet vterin od pulnoci s presnosti na nejake ty desetiny.
Diky, ale myslim ze potrebuju neco jineho. Nesmim zastavit beh makra na xy ms, ale chci vzdycky, kdyz cas pokroci o hodnotu xy ms, vypsat hodnoty dane promenne.
David
Poradi nekdo, jak ve VBA zajistit vypis urcite promenne v pravidelnem intervalu kratsim nez 1s? Nemuzu se dopatrat funkce, ktera by umela pracovat s casy kratsimi nez 1s. Potrebuju vypis kazde 0.2s. Potreboval bych vypsat danou promennou a pak cas rovnez s presnosti na 0.2 s.
Predem diky
David
V makru potrebuju odstranit List,
Sheets(JmenoListu).Select
ActiveWindow.SelectedSheets.Delete
ale pri jeho behu musim manualne potvrdit, ze to myslim vazne. Je mozne se tohoto dialogu pri behu makra zbavit? Zpracovavam -li vice souboru najednou, je to velmi otravne a musim u toho sedet, aby to vubec bezelo.
Diky
David
Je jedno co to ma delat, kdyz mi to nefunguje ani na jednoduchem prikladu viz priloha.
Idea prikladu je takova, ze bezi, bezi, dokud se neco nezapise do cells(3,"K"). Jenomze ono to skonci pri zapisu z klavesnice cehokoli kamkoli.
Je pravda, ze k Stop se pak makro nedopracuje, proste ihned skonci, zrejme na popud DoEvents. Nevim, jestli je to normalni chovani teto instrukce. DoEvents tam je, aby jina aplikace mohla psat do tohoto sesitu, to funguje, ale v prikladu to neni.
Při kliknutí na .xls soubor se mi vždy spustí "nový Excel", tedy 3 otevřené soubory = tři Excely. Potřebuji ale, aby to byla tři okna v rámci jednoho Excelu. Důvodem je, že propojení dat mezi jednotlivými sešity za použití vzorce v prvním případě nefunguje.
Díky za pomoc, na diskusích jsem nic kloudného nenašel a pokud něco, pak spíše snahu přejít do stavu, který já potřebuji opustit.
Palooo napsal/a:
to len hadam :) to makro neskonci len zamrzne obrazovka ale makro pokracuje dalej
Nikoli, naprosto regulerne skonci. Obrazovka nezamrzne.
Při použití DoEvents vše běží jak má, jiná aplikace posílá do sešitu data a tato jsou zpracována. Makro ovšem nečekaně skončí, pokud manuálně vepíšu do jakékoli buňky cokoli z klávesnice. Samotný výběr buňky nevadí, ale jakmile vložím jakýkoli znak, makro končí... Nevíte někdo proč?
Sub MM()
PocetRadku = Cells(Rows.Count, 4).End(xlUp).Row
Do While Cells(3, "K") = ""
For I = 9 To PocetRadku
If Cells(I, 7) < Cells(I, 8) Then Cells(I, 12) = Cells(I, 7) + Cells(I, 8)
Cells(1, "K") = I Mod 1000
Next I
DoEvents
Loop
End Sub
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