• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

A btw - přidám se k těm, co nejen Vám poradí (i když Vy už to teď víte)
Vždy uvádějte, co chcete s objektem provádět ;)))

Mně se dokonce nezamlouvají ani ty Vámi používané hranaté závorky místo Range, ale proti tomu nemám argument (kdysi jsem někde něco, ale uží nevím kde a co) a pokud Vám to vyhovuje - alespoň si poznáte vlastní kód ;))

Niekoľkokrát v minulosti som narazil na radu, že sa jeden nemá spoliehať na to, že pokiaľ potrebuje v kóde získavať hodnotu z bunky, tak miesto cell, je bezpečnejšie písaťcell.value,

@AL
ano je to nezvyklá doba, proto jsem četl jen vaše vlákno a to jen tak letmo a náhodou jsem zaregistroval immediate+proměnná - proto ten výkřik ze tmy mimo téma (problém s Collection jsem nestudoval)

ano samozřejmě - jedná se o VBE Watches a prostudujte pořádně - nezapomeňte na funkcionalitu zastavit při změně hodnoty ;)))
já mám v editoru 4 podokna
samozřejmě podokno s kódem
immediate
watches
locals - také doporuřuji, pokud nepoužíváte - je to podobné watches, kde se zobrazují všechny proměnné definované v právě aktuálním modulu (nemám spuštěné, snad jsem to popsal správně, pokud je to jinak, určitě pochopíte sám)

(holt, stále je čo sa učiť, akurát, že toto asi bude závislé od lokalizácie)
pokud sem tam čtete mé příspěvky, tak už jsem zde použil několikrát - pomocí Evaluate snadno využijete maticový vzorec ve VBA - není závislé od lokalizace, ve VBA je třeba ve spojení s Evaluate vždy použít anglické názvy funkcí

@AL
Okrem hore uvedeného použitia si v ňom môžeš priamo nechávať zobrazovať napr. hodnotu premenných

ehm - neslouží k tomuto náhodou Watches?

Není třeba, zcela jistě to vyřešíte plně ke své spokojenosti a snad se to bude líbit i kolegům ;))

Vždycky mně zajímá, co kdo kutí ;))

Mno - navíc mně právě zajímalo, jestli se Vám podařilo nastavit příčky bez výběru oblasti a to se nepovedlo, protože goto tu oblast taky vybírá. Takže moc nevidím v tomto případě rozdíl mezi Select a Goto. Ale to nevadí, pže to máte vyřešené ;)))

Jen mně napadlo jaxem to četl, jestli by nebylo lepší místo dvou oken u listu 2 ho pouze rozdělit (nevím, jaxe to jmenuje a nechce se mi to hledat, takže jsem našel nějaký odkaz:
http://www.tipypropc.cz/rozdelte-si-okno-ve-wordu-nebo-v-excelu/
Ale jinak Vám do toho samozřejmě frflat nebudu ;)))

Mno - já mám sice offline nápovědu a mám to před sebou

Remarks

This method differs from the Select method in the following ways:

If you specify a range on a sheet that’s not on top, Microsoft Excel will switch to that sheet before selecting. (If you use Select with a range on a sheet that’s not on top, the range will be selected but the sheet won’t be activated).
This method has a Scroll argument that lets you scroll through the destination window.
When you use the Goto method, the previous selection (before the Goto method runs) is added to the array of previous selections (for more information, see the PreviousSelections property). You can use this feature to quickly jump between as many as four selections.
The Select method has a Replace argument; the Goto method doesn’t.

já myslel rozdíl pro Vás ;))
myslel jsem, že nechcete nastavovat kurzor ;)

Btw - když už na to koukám - musím kouknout na
PreviousSelections property - jestli to k něčemu nevyužiju ;)

Application.Goto jsem nikdy nepoužil a nezkoumal, ale když se rychle kouknu:
Je nějaký rozdíl mezi Select a Application.Goto?

Jestli to jde najednou to nevím, ale zatímSub subGridlines()
Dim wv As WorksheetView
For Each wv In ActiveWindow.SheetViews
wv.DisplayGridlines = Not wv.DisplayGridlines
Next
Set wv = Nothing
End Sub

Není třeba cyklus, protože není třeba VBA ;)
viz příloha

lubův kód určitě funguje, pro zajímavost přikládám své řešení, pokud by se chtělo VBASub subUniqueRnds()
Dim col As New Collection

Dim i As Integer
For i = 1 To 1000
col.Add i
Next i

Dim iRandoms(999) As Integer
Dim iRnd As Integer
For i = 0 To 999
iRnd = Int(Rnd * col.Count) + 1
iRandoms(i) = col(iRnd)
col.Remove iRnd
Next

Range("A1:A1000").Value = Application.Transpose(iRandoms)
End Sub

mimochodem - napsání kódu mi trvalo o dost déle než řešení bez kódu

a nebo možná tady - proklikejte si
strejda gúgl, hned první odkaz
http://msdn.microsoft.com/en-us/library/office/aa221100(v=office.11).aspx

Do okna Immediate v editoru VBA napište např? xlDialogNewstiskněte ENTER a zobrazí se 119

Buď Pavlusovo řešení nebo pokud je to jednorázová akce a těch možných hodnot je pár (jak to vypadá, tak časově to bude skoro stejně) tak ručně:
automatický filtr
vyfiltrovat hodnotu
označit oblast a vybrat pouze viditelné buňky
napsat požadovanou hodnotu a stisknout CTRL+ENTER

jenom jsem tu nakoukl a moc jsem to nečetl, ale zkuste místoActiveCell.FormulaActiveCell.FormulaLocalPokud jsem mimo, taxe omlouvám a zase mizím ;))

@pawson
lubovo řešení má minimálně jedno nebezpečí - nesmíte stisknout CTRL+ENTER ;))

já bych doporučil marjankajovo řešení:
zamknout všechny buňky v listu
vybrat dotyčné buňky a odemknout je
zamknout list
mezi buňkami nepřecházet entrem, ale tabem

možností je více, asi bych použil řešení od cmucha nebo=RANDBETWEEN(0;10)/100

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse