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

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odskok v makru jinam

PavDD • 13.5. 9:03

odskok v makru jinam

Barth • 13.5. 7:25

číslování

Kalous • 12.5. 20:50

odskok v makru jinam

marjankaj • 12.5. 20:43

číslování

r13 • 12.5. 20:23

číslování

r13 • 12.5. 20:19

číslování

Kalous • 12.5. 19:46