Příspěvky uživatele
< návrat zpět
Budu se opakovat.
Tak si proměnnou převeď na text !
ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=CStr(1), To:=CStr(Konec), copies:=1, collate:=True
Tak si proměnnou převeď na text.
=IF(OR("B"=PISMENA);"Pravda";"Nepravda")
Samozřejmě maticově.
Ano.
http://wall.cz/index.php?m=topic&id=45633&page=2#posts
V odkazu je kód na zpracování Optionbuttonu, tak si ho uprav pro Checkbox
Případně si z odkazu stáhni poslední soubor je tam druhá varianta kódu.
Ještě mě napadla jedna možnost - koncept.
???
Jen takový nápad.
Máš zatrženo: ?
Vše podstatné již napsal AL.
Takže jen přikládám upravený soubor.
Něco takového:?
Edit: Vyměněna příloha, pokud byla buňka C4 prázdná docházelo k chybě.
Hele pokud chceš aby Ti někdo poradil s kódem, tak napiš jak to má CELÉ fungovat.
To že chceš kopírovat blok dat (kterým říkáš tabulka) do jakého si formuláře "Prohlášení" mi samozřejmě došlo.
Tvůj kód nekopíruje poslední řádek! V cyklu kopíruje jednotlivé řádky, ale vkládá je do STEJNÉHO umístění, tedy dochází k přepisování jednotlivých hodnot.
Jinak počet řádků v excelu je 1048576
Kopírovat buňky po jedné je blbost, pokud to budeš dělat ručně taky nebudeš kopírovat po jedné, ale vybereš celý blok dat.
Podle jakého klíče se rozhoduješ, který blok dat se má zkopírovat?
Mají všechny bloky dat stejný nebo menší počet řádků než je počet řádků ve "formuláři"?
Pokud je počet řádků v bloku dat větší než je počet řádků ve formuláři, co se má stát?
Co ostatní položky formuláře?
Z jakého listu se má provádět kopírování a jak se bude definovat?
atd...
"Kdybych ty data kopíroval na stejný list, tak mi to funguje"
Ne, nefunguje.
"ale nedokáži, aby se ty data kopírovali na jiný list do stejného místa pokaždé"
A to se právě děje.
"jen neznám potřebný kod"
Ano, s tím by se dalo souhlasit.
Kopírování dat jako takové je ptákovina. Otázkou je jak to má celé fungovat!
Nedokázal byste mi někdo pomoc?
Na základě Tebou poskytnutých dat?
No jasně, jen budeš muset počkat než se někomu vrátí křišťálová koule z garanční prohlídky.
Zadání:
Tady máte nějaký data, který nazývám tabulky i když tam žádný tabulky nejsou, nesmyslný kód + vágní popis funkce. A ukažte se fešáci.
Kdysi sem řešil podobný požadavek, přikládám dva způsoby co sem použil. Možná se to hodí jako inspirace.
Netuším proč zrovna trváš na vkládání vzorce přes VBA, ale budiž.
Netvrdím, že je to nejlepší řešení, ale je to to první co mě napadlo.
Věřím, že někdo z kolegů by to napsal jinak (lépe).
Každý z OptionButtonů je přířazen do skupiny (Vlastnosti -> GroupName) aby bylo možno vybírat ze 3 možností v rámci otázky.
Název této skupiny je předán makru Writeoption, kde dojde ke zpracování.
PS:
V modulu je přidán kód Reset2, má tu samou funkci jako Reset, jen je použit jiný způsob zápisu kódu.
Přidáním
obj.Object.Value = False
Tedy:
Sub Reset()
Application.ScreenUpdating = False
Dim obj As OLEObject
For Each obj In List1.OLEObjects
If TypeOf obj.Object Is MSForms.OptionButton Then
obj.Enabled = True
obj.Object.Value = False
End If
Next
Application.ScreenUpdating = True
End Sub
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články