Příspěvky uživatele

;)

neopravím na SpecialCells, protože tady to nebude to pravé. Tady to konečně asi bude ten Set. Nebo mně napadá, že by šlo možná využít Autofilter+Pouze viditelné buňky (a bude to bez kódu), ale to by bylo třeba vidět data ;).
A budu rychlejší ;)))

Nevím, proč vymýšlet nějaké doplňky či dvojité lišty.
Klikněte na ty šipky pro výběr listu (vlevo dole vedle prvního ouška listu) pravým tlačítkem a vyjede vám seznam listů
Pokud dáte Další listy ... vyskočí dialog s listboxem a seznamem všech listů
Tedy integrovaná věc v excelu - není třeba nic vymýšlet.

@Opičák
nestudoval jsem ten kód, ale asi to nebude listbox v pravém slova smyslu ;)
Já bych na to šel takhle (ranní trénink na připomenutí pár věcí ;))) )

Asi jste na to přišel sám, ale xlThick rozšiřuje UsedRange nahoru a dolů. Dle mého názoru je to chybné chování, protože pokud by bylo chtěné (netuším proč by mělo být), tak by se oblast musela rozšiřovat i doleva a doprava.

Nicméně je pravda, že použití Cells a UsedRange (a ještě k tomu vaše oblíbené Select), tak jak jej v tom kódu požíváte se nedá označit jinak, než jako prasárna ;)

Cells - tady v žádném případě, v tu chvíli zbytečně pracujete se 17mld buněk, když vlastně chcete pracovat jen s 10!

UsedRange - používat jedině ve výjimečných případech, tady přesně vidíte proč. V tomto kódu by se dalo pouvažovat o nahrazení za Cells, protože chcete vymazat formátování v celém listu, na to UsedRange postačí.
Pokud vím s jakou oblastí pracuji, tak použiji přece ji a ne UsedRange.

Select - no fuj!!!

Ten dotaz je napsán poněkud nesrozumitelně, ale pokud jsem pochopil
ComboBox1.Style = fmStyleDropDownListdovolí vybrat pouze ze seznamu položek v CB

Ano - to je pravda, ale ty bychom asi nepotřebovali objektově orientovaný jazyk ;)
Když už ho máme a ty objekty s vlastnostmi a metodami tady jsou, tak je používejme ;)

A to by se měli začínající naučit, než získají špatné návyky ;))
Prostě stačí přemýšlet - když bych to dělal bez kódu, tak bych to udělal tak a tak. Mno a teď to jenom napsat.
;)

:))

mno to už jsme trochu mimo dotaz, ale pokud to potřebujete bez cyklu, tak se tady nabízí automatický filtr + pouze viditelné buňky
ale to jen v případě, že je chcete naplnit stejnou hodnotou nebo vzorcem
pokud mají mít různou hodnotu, taxe bez cyklu asi neobejdete

Mno nebudu dále trápit

pokud jsou to jen konstanty (všechny typy):SrchRngu.SpecialCells(xlCellTypeConstants).EntireRow.Delete

pokud jsou to jen vzorce (všechny typy):SrchRngu.SpecialCells(xlCellTypeFormulas).EntireRow.Delete

pokud chci všechny neprázdné buňky, tak to napíšu takto:Union(SrchRngu.SpecialCells(xlCellTypeConstants), SrchRngu.SpecialCells(xlCellTypeFormulas)).EntireRow.Delete

Jinak např. jen číselné a textové budou takto:
.SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues)

Mno jste blízko, ale není to ono

ale hledalo vyplněné buňka?

Tady už ani tak nejde o rychlost, ale o přehlednost a délku kódu.
Co se týče rychlosti - integrovaná věc bude vždy rychlejší než VBA

Už jsem to tu psal
Zkusím napovědět
CTRL+G

Ani Set není potřeba

Je to pořád dokola to samé - stačí trošku hledat

@Palooo, marjankaj
Taky byste už mohli zareagovat na to co tu sem tam píšu. :(
Proč cyklus.

Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Range("D4:D2000"), Target).Address = Range("D4:D2000").Address Then
...
End If
End Sub

Mno já bych řekl, že žádný problém nenastane - názvy fcí se automaticky přeloží do angličtiny

jediné, co mně napadá, je formát
češi mají rok v některých verzích přeložený jako např. dd.mm.rrrr a slováci tipuju dd.mm.yyyy

je tu slováků dost - vytvořte nějaký testovací soubor s obsahem podobným tomu co chcete poslat a nechte si to ověřit tady

Nahrál jsem krátké video ;)

http://www.youtube.com/watch?v=fEN-aZPjdmU&feature=youtu.be

Mám na listu rozbalovací menu, ve kterém toto dělám ;)
Kód vám tu nedám, ale princip prozradit můžu ;)

Ano je lepší využít modul třídy, protože jinak byste musel vytvářet událost pro každý label.
Abyste nemusel cyklem projíždět všechny labely pokaždé, když pohnete myší, uložte si někde název labelu, kterému jste barvu změnil (na kterém zrovna jste) - nestačí totiž např říci, že když jedu z jednoho labelu na druhý, tak jsou to vždy ty vedle sebe, při rychlém pohybu můžete nějaký přeskočit - vyzkoušeno ;)
mno a potom je to jednoduché - zjistíte, na kterém labelu jste, ten obarvíte a tomu starému vrátíte původní barvu ;)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje