teď se to chová přesně jak potřebuji, jinak doufám že jsem vás tím ElseIf moc nepohoršil...
moc díky
Dobrý den,
ve VBA formuláři mám textbox, v němž chci např. při stisknutí klavesy šipka nahoru, zvednout hodnotu a 1, při stisknutí klávesy šipka dolů, snížit hodnotu o 1, . Vytvořil jsem si na to tuto proceduru:
Private Sub T1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If T1.Value = "" Then T1.Value = 0
If KeyCode = 38 Then ' šipka nahoru
T1.Value = T1.Value + 1
ElseIf KeyCode = 40 Then ' šipka dolů
T1.Value = T1.Value - 1
ElseIf KeyCode = 46 Then ' delete
T1.Value = 0
ElseIf KeyCode = 8 Then ' backspace
T1.Value = 0
End If
End Sub
při stisku šipky nahoru, mi to funguje, ale při stisku šipky dolů mi kurzor ujede na další prvek ve formuláři, podařilo se mi akorát vypozorovat, že když v textboxu přesunu myší kurzor před číslo, tak se stisk šipky dolů zachytí, procedura proběhne a kurzor se přesune na konec, při dalším stisku šipky dolů už ale zase ujede na další prvek formuláře? nevíte někdo co s tím?
vzorový sešit přikládám
díky, Michal
jde o spuštění makra, které zpracuje data na příslušném řádku, kde je odkaz, teď to řeším makrem, které zpracuje data na řádku, kde je aktivní buňka, makro mám pod doplňkem, říkal jsem si, že kdybych to makro mohl spustil odkazem, který by byl jako první na řádku, bylo by to takový pohodlnější pro uživatele. Ale pokud by to mělo být nějak komplikovaný a hlavně nespolehlivý, tak to asi nestojí za to.
FollowHyperlink mi nepomůže, nebo alespoň nevím jak.
každopádně díky
Dobrý den,
možná je to blbej dotaz, ale nevíte, jestli je nějaký způsob, jak pomocí hyperlinku v buňce spustit nějaké makro?
děkuji,
Michal
děkuji za rady, vyřešil jsem to pomocí Application.StatusBar, použití kukátka by pro moje využití bylo krkolomné, ale dík za připomenutí, že kukátko existuje :)
Zdravím, chtěl bych se zeptat, zda někdo nevíte o možnosti, jak do stavového řádku v excelu, dostat nějaký vlastní vzorec. Např. aby se mi tam trvale zobrazoval součet z vzorce SUMA(X2:X2000) aktivního listu. Je to nějak možné?
díky,
Michal
Děkuji, mrknu na to
Dobrý den,
mám jeden vytvořený sešit , ve kterém mám určitou databázi apod, tetno sešit automatisky po otevření a před uzavřením spouští nějaká makra. Já bych ale z jiného sešitu potřeboval přistupovat k datům na jednom z listů výše uvedeného sešitu tak, aby se makra po otevření a před uzavřením nesputtila, lze toto nějak ošetřit? díky moc za rady
Zdravím, mám prosbu, nevíte někdo, kde by se dala sehnat databáze psč německa? zatím to do formuláře doluju ze stránek /http://www.geonames.org/postal-codes/ [url]
Dobrý den, mám prosbu, potřeboval bych nasměrovat, jak začít když chci docíli následujícího:
Z banky mi chodí maily, kdykoliv je na účtu nějaká příchozí platba, potřeboval bych nějak makrem docílit toho, aby:
při stažení pošty byly prověřeny nově stažené maily, pokud jsou zaslány z adresy info@kb.cz,
tak z těla mailu vytáhnout variabilní symbol otevřít seznam vystavených faktur, překontrolovat částku platby a zapsat datum úhrady.
v Excelu se s makrama celkem poperu, ale v outlooku vůbec nevím jak začít, potřeboval bych nasměroval s tučně označenou částí dotazu, zbytek snad zvládnu.
Děkuji moc za všechny rady, Michal
taky jsem se s tím nedávno trápil, v příloze máš funkčí sešit s tlačítkem pro odeslání jako PDF
napadá mě řešení makrem:
Sub počet()
Dim oblast, bunka As Range
Dim pocet As Byte
Set oblast = Range("A1:G50")
pocet = 0
For Each bunka In oblast
pocet = pocet + Len(bunka)
Next bunka
MsgBox pocet
End Sub
jako oblast si zvol bunky kde máš text
tak konečná verze, máš tam přidaný tlačítko, který ti tabulku zkopíruje za poslední tabulku v listu 3, v listu 1 si formát uprav dle potřeby, jak to upravíš, tak se ti to bude kopírovat do listu 3
formát listu, do kterého se zapisují hodnoty si libovolně uprav, jen nemaž sloupce nebo řádky, to by udělalo paseku v makru. Ještě si s tím pohraju. A co bys potřeboval měnit? pokud ti jde o to abys mohl třeba přidal uživatele, tak by tam šlo udělal rezervní řádky, abys pak nemusel měnit kód. V příloze máš další soubor, zjistil jsem že to nepočítalo vše tak jak jsi chtěl, tak jsem to opravil
ještě jsem to trochu opravil, pod tlačítkem dole je makro, které otevře soubory, ze kterých chceš počítat a spočítá rozdíly a zapíše je do tabulky, výstup do statistiky udělanej neni. aby to fungovalo musíš povolit makra, nejsou tam ještě ošetřené případné chyby
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.