Příspěvky uživatele
< návrat zpět
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
Víme, chybějící uvozovky. Tedy:
ActiveCell.FormulaLocal = "=KDYŽ(A(AV12=1;AW12=1);""jsou tam 1 a 1"";""není to 1 a 1"")"
Ale to už Ti psal Joke v předchozím vlákně.
Ano, šlo.
Přidáno makro na tvorbu Checkboxů.
Tak s tímhle nemám zkušenost, nikdy se mi to nestalo.
Tak jen co sem našel:
https://excelmacromastery.com/vba-arraylist/#VBA_ArrayList_Automation_Error
Někde ve 4 kapitole uvádí, že je chyba způsobena absencí NET Frameworku 3.5
Můžeš zkusit.
elninoslov napsal/a:
Namiesto
For Each Bunka In Selection
musí byť
For Each Bunka In Q
a namiesto
Q.Resize(ArrList.Count).Value = ...
zase
Q.Offset(0, 1).Value = ...
Netuším jak to myslíš.
Selection je zdrojová oblast tedy v tomto případě sloupec A (např. řádky 3 až 7) podle toho co si označíš.
Q je cílová buňka do které se bude kopírovat, tedy počáteční buňka do které/od které se zapíší hodnoty z pole, proto resize.
Offset je k prdu.
???
GeorgeK napsal/a:
veny napsal/a:když budu mít buňku a v ní hodnotu 20 a formát třeba hodiny tak do buňky zapíšu 20 a ukáže se 20 hod.
a GeorgeK chce aby makro vzalo z této buňky její obsah tzn. "20 hod." a překopírovalo to do jiného sloupce kde bude formát Obecný ale bude vidět "20 hod." (Pravděpodobně jako text)
BINGO
Já Ti nevím, ale v původním dotazu nevidím o VBA ani zmínku.
Jedna rychlovka, vybereš (označíš) požadované buňky a klikneš na tlačítko.
A to makro spouštíš odkud?
Pokud to má být Excel, tak na to je kód na konci stránky.
Asi sem blbej, ale stále nechápu co se tu řeší?
CTRL+C -> vložit jinak -> Hodnoty a formáty čísla.
Taky nevyhovuje?
Co takto?
Písmo je Webdings
Nejjednodušším řešením je, vůbec do kolekce duplicity nezapisovat. Použiješ k tomu další parametr funkce ADD a to key, který se zadává jako string (proto ta fce Cstr) viz soubor. Pokud se pokusíš do kolekce načíst dva stejné klíče dojde k chybě, proto je cyklus vložen mezi On Error ....
V editoru si zobraz okno Locals a kontroluj, jakých hodnot nabývají proměnné.
Zaměřil bych se na Rng.
O jakých číslech mluvíš? v MyArrList máš text.
Jinak MyArrList.Sort
Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2)
Nahraď tímto:
Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2), Preview:=True
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