Příspěvky uživatele
< návrat zpět
upraveno
Například:
Cells(1, 2).Value = Year(Date)
Řešení pomocí makra. Oba soubory musí být ve společné složce, aby na sebe "viděly" a nebylo nutné při každém spuštění zdrojový soubor vybírat ručně.
Ne Jedině použít vlastní UserForm.
Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(1, 4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Možná kecám, nemám jak ověřit, sem na telefonu. Ale nějak se nemůžu zbavit dojmu, že proměnná musí být v ClassModule, aby byla viditelná ve všech modulech.
EDIT
Tak kecám 
Pro použití proměnné ve všech modulech stačí její deklaraci uvést jako PUBLIC nebo GLOBAL. Tedy na začátek modulu
GLOBAL globValue as long
To použití ClassModule bylo pro jiný případ (který si už samozřejmě nepamatuju), a nedaří se mi to dohledat.
Takže Ti nevadí, že makro pracuje pomalu a chceš ho ještě zpomalit?
Další varianta pomocí VBA
Tak sem si přečetl Jirkův kód, poposednul si a nejspíš pochopil záměr.
Výsledek je v příloze. Kód se nachází v modulu, místo jmen jednotlivých listů, jsou použity CodeName listů. Když se rozhodneš listy přejmenovat nebude to mít vliv na kód a nedojde k havárii.
PS: Na Jirkův popud upravená příloha 
Do sešitu sem se koukal, ale přiznám se, že sem vůbec nepochopil jak to má fungovat.
Tak jen k té deklaraci pole. Velikost pole se mění příkazem ReDim
Index pole začíná na indexu 0.
Tedy:
Dim MyArray()
Dim Pocet as Integer
Pocet = 4
ReDim MyArray (Pocet) 'vytvoří pole o pěti "položkách" (0 až 4)
myarray = Sheets("List1").Range("A1:A5").Value
https://wall.cz/excel-navod/proc-a-jak-pouzit-dve-znamenka-minus-ve-vzorci
https://wordmvp.com/FAQs/MacrosVBA/ManipulateClipboard.htm
Konkrétně:
The DataObject object is a part of the Forms library in VBA. In order to make this code work, you must do one of two things.
1) Have at least one UserForm in your project, or
2) in the VBA editor, go to Tools, References, and set a reference to the "Microsoft Forms 2.0 Object Library"
Objekt DataObject je součástí knihovny Forms v jazyce VBA. Aby tento kód fungoval, musíte udělat jednu ze dvou věcí.
1) mít v projektu alespoň jeden UserForm, nebo
2) v editoru VBA přejít do nabídky Nástroje, Odkazy a nastavit odkaz na "Knihovnu objektů Microsoft Forms 2.0".
U mě zafungoval bod 1, bod 2 nemám v nabídce referencí, office 2019
viz soubor
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