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

Příspěvky uživatele

Podle toho, jaxte se zeptal, tak přesně tak, jaxte to napsal

tedy
=104,29/25%

pokud jste myslel 25% ze 104,29
tak to napsal zEjnik
=104,29*25%

@MiraKA
Definujte pojem "první číslo" ;)))
Jinak zajímavá teorie ;)

maticový vzorec je zbytečný
=SUMIF($A$2:$A$20;D$1;$B$2:$B$20)

Pokud to potřebujete jednorázově tak bych to dělal takto

protože je to bez přílohy tak si budu myslet, že máte data ve sloupci A

do B1
=HYPERTEXTOVÝ.ODKAZ("http://www.mujweb.cz/"&A1)

zkopírovat
pokud je třeba, skrýt sloupec A

ano - vzorec z úvodního příspěvku funguje

nebo bez pojmenované oblasti

maticový
=INDEX(A:A;MAX(ŘÁDEK(A:A)*NE(JE.PRÁZDNÉ(A:A))))

A druhý dotaz, v Userform mám jeden Textbox a tlačítko na potvrzení myší, jak mám udělat aby když napíšu text do Textboxu a zmáčknu Entr došlo k zápisu

co si představujete pod pojmem "k zápisu" - odeslat furmulář?
Události KeyUp, KeyDown, KeyPress (ne v tomto případě)

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
'kód (Call btnSend_Click)
End If
End Sub

Jedná se o dynamickou oblast, ve které se mění její šířka (počet sloupců)

array - ten je fixne nastaveny na prvu az stu bunku. To mi este dava vyznam. Lists!$1:$100
Ne buňku, ale řádek - tedy v excelu 2007 A1:XFD100


row_num - odkazuje sa na posledny riadok rozsahu. Hodnota 100. Preco tu je hodnota 100?
Protože autor vzorce chce, aby dynamická oblast končila na řádku 100 (a protože začíná na druhém, má tedy výšku 99 - proto je v mé funkci POSUN těch 99)

COUNTA(Lists!$1:$1)
vrátí, jaxte napsal počet neprázných buněk v 1. řádku (A1:XFD1)
tedy když v A1 bude něco a v B1 bude něco, vrátí už 2, když v C1, vrátí 3 atd.
To je ta dynamická část oblasti. Mění se šířka podle potřeby

Přečtěte nápovědu k funkci POSUN (OFFSET) a používejte jí místo tohoto.

Oblast začíná na buňce A2 a končí na 100. řádku listu Lists a na sloupci X, kde X je dáno počtem neprázdných buněk v 1. řádku listu (s tím, že v prvním řádku nesmí být vynechána žádna buňka, jink to nebude fungovat správně).

Aby to k něčemu bylo musíte to dát např do fce SUMA, PRŮMĚR atp.

Je to totéž, jako
=POSUN($A$2;0;0;99;POČET2($1:$1))

@Stalker
Excel neumí pracovat (počítat) se záporným časem.

http://wall.cz/index.php?m=topic&id=13108&page=2#post-13132

Abyste mohl vložit přílohu, je třeba se zaregistrovat.

Jestli jsem to dobře pochopil, tak se chcete přesouvat v očíslovaných buňkách, podle pořadí. To by se dalo udělat, ale zřejmě jen pomocí VBA. Samotný excel to asi neumožňuje nebo o tom nevím - pouze co jsem popsal výše.

Nicméně 1. dojem z toho souboru je, že si to zbytečně komplikujete těmi checkboxy - nahradil bych je ověřením dat - seznam, ale to jen tak na okraj.

Buňky propojené na checkboxy můžete umístit na skrytý list.

Nicméně - bez přílohy nemám představu, jak to vypadá.

Navrhnul jsem si v excelu kalkulátor který spočítá cenu zboží po zadání určitých parametrů.
Pomocí VBA nebo jen v excelu?

Zamkněte všechny buňky kromě těch, které chcete procházet a zamkněte list.
Pak pomocí TAB budete přecházet pouze mezi odemčenými buňkami

Popř. při zamykání můžete odškrtnout volbu vybrat zamčené buňky a mělo by to jít i pomocí ENTER.

Vyzkoušejte.

Vyzkoušejte na jiných PC - pokud tam bude v pořádku, je to pravděpodobně chyba excelu, pokud ne může být chyba v souboru

Souhlasím - POZVYHLEDAT = ŘÁDEK - pěkné řešení

pokud by se chtělo bez skrytých sloupců tak maticově
=SUMA(($B$1:$B$30=$F$6)*IFERROR((POZVYHLEDAT($A$1:$A$30;KDYŽ($B$1:$B$30=$F$6;$A$1:$A$30);0)=ŘÁDEK($A$1:$A$30));0))

For i = 3 To lstrow

Pokud jste si neupravil
xdir = "C:\Users\User\Test"
na existující adresář, taxe nic nevytvoří, protože neví kde ;)

Zkusil jsem přepsat váš kód, ale nemůžu otestovat - bez přílohy
Sub VyvorSlozku()
Dim xdir As String
Dim lstrow As Long
Dim i As Long
lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "D").End(xlUp).Row
For i = 1 To lstrow
xdir = "C:\" & Range("D" & i).Value & " - " & Range("F" & i).Value
On Error Resume Next
MkDir xdir
If Err.Number = 0 Then 'když existuje, jde dál
MkDir xdir & "\SubFolder"
End If
On Error GoTo 0
Next
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse