Příspěvky uživatele
< návrat zpět
To samé, akorát s InputBoxem .-).
P.
Viz příloha:
Možný postup:
Zjistit jaké je číslo před dvojtečkou, vynásobit jej šedesáti, přičíst k číslu mezi dvojtečkou a čárkou, následně jej vypsat (spolu s částí od čárky dále, to se měnit nebude).
Ve VBA k tomu využij textové funkce: Len - délka řetězce, Mid - vrátí počet znaků od určitého místa, InStr - vrátí pozici začátku řetězce v jiném řetězci.
P.
Overflow = přetečení.
Tzn. že do proměnné ukládáš např. vyšší číslo, než pro které je definována. V tvém případě tam máš např. definovaný řádek jako Integer, což znamená, že jeho hodnota nesmí překročit hodnotu 32 767.
Řešení je jednoduché, změň datový typ. Lze využít třeba Long (až do 2 147 483 647)...
P.
1.) Skrytí řádku dle podmínky se tady řešilo několikrát. Prolistuj si fórum.
Např.:
http://wall.cz/index.php?m=search&root=1&art=1&post=1&_security_token=0a179fbb4ae66d8ad3471fd0ec86f753&q=skryt%C3%AD+%C5%99%C3%A1dku
2.) Aktualizovat číslo dokladu určitě lze. Pokud to má být nějaký pevný neměnný řetězec, tak je vhodné využít VBA.
P.
Jj, mě se tam např. nastavil vlastní formát na "d.m.rrrr h:mm".
Příště přidej přílohu .-)...
P.
Zkoušel jsem to a dělá to přesně to, co chceš.
Popsal jsi problém správně? .-)
P.
Trochu si s tím pohrej :-).
Poslední obsazený řádek lze nalézt např. takto.
P.
Př.:
posledni_obsazeny_radek = ActiveSheet.Range("b1048576").End(xlUp).Row
Předpokládám, že to má čistě informativní charakter, protože když to nacpeš do jedné buňky, tak se s tím pak bude dost těžko pracovat .-)...
To abecední pořadí jsem neřešil, listy se v mém případě zapisují tak, jak jdou po sobě.
P.
Viz příloha:
Ano, lze to.
Nepíšeš si sice o radu, ale jen o potvrzení, že je to možné :-), ale přidám i možný kód... Ten příkaz Select tam není nutný, ale po dvojkliku se normálně otevře buňka pro editaci, vyřešil jsem to právě tímto příkazem.
Kód vlož do Listu, ve kterém chceš, aby to fungovalo.
P.
Př.:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 2 Then
Rows(ActiveCell.Row).Delete
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
End If
End Sub
Pohraj si trochu s nastavením popisků (případně i grafu) a rozmysli si, zda je v tom popisku skutečně vše důležité...
Např.:
a) Graf více roztáhni do šířky.
b) Odstraň datum, který tam je stejně zřejmě zbytečně, lze snadno vyčíst z osy grafu.
P.
Viz příloha:
Nejjednodušší je asi funkce SVYHLEDAT, je tam ale předpoklad, že se vyhledává hodnota v levém krajním sloupci tabulky.
P.
Upřímně, je to tam celé nějaké divné .-).
Kód je pro mě naprosto nepřehledný, takže jsem to nějak moc nezkoumal, ale objevil jsem toto:
1) Nemáš tam dost často definované proměnné, případně je máš definované někde uprostřed kódu apod. Každou proměnnou definuj - na začátku funkce nebo procedury a přiřaď jí datový typ.
2) Využívej tabulátory a s "designem" kódu si trochu pohraj...
3) Problém, který ti to zřejmě způsobuje je v té proceduře "Zlava", kterou máš v modulu. Máš tam "Sub Zlava(riadok)", ale proměnná "riadok" tam absolutně v tom kódu chybí, navíc jí musíš přiřadit datový typ...
Mrkni se, jak se ve VBA vytvářejí procedury.
P.
Místo těch středníků ve VBA udělej čárky...
P.
Přidej přílohu.
P.
K čemu to bude dobré?
P.
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