Příspěvky uživatele
< návrat zpět
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
Co tohle:
Sub Tisk()
Dim TiskovaSestava(1 To 2, 1 To 2)
Dim i As Integer
TiskovaSestava(1, 1) = Array("Titulní strana", "1. strana")
TiskovaSestava(1, 2) = 1
TiskovaSestava(2, 1) = "Kniha jízd"
TiskovaSestava(2, 2) = 5
For i = LBound(TiskovaSestava, 1) To UBound(TiskovaSestava, 1)
Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2)
Next i
Erase TiskovaSestava
End Sub
@Milan-158
https://wall.cz/excel-navod/prizpusobeni-pasu-karet-ribbon-vlastni-pas-karet
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