Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  4 5 6 7 8 9 10 11 12   další » ... 69

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 7
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 1

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

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.


Strana:  1 ... « předchozí  4 5 6 7 8 9 10 11 12   další » ... 69

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35