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

Příspěvky uživatele

@AL
"Pokiaľ to riešiš maticovým vzorcom tak suma sa dá napísať i bez KDYŽ"
To máš sice pravdu, ale potom nemůže použít kritérium "Vše"
viz: Buňka F2 obsahuje název měsíce (nebo "vše")

Ten průměr se dá řešit i bez maticového vzorce jako
sumif/countif

=SUMIF(B2:B11;F2;C2:C11)/COUNTIF(B2:B11;F2)

Excel 2007 a výš
AVERAGEIF
AVERAGEIFS

http://pc.poradna.net/q/view/658968-excel-seznam-proklikavaci-odkazy-na-jiny-list

Umím to pouze za použití pomocného sloupce viz soubor.

Hodil by se vzorek dat. Na monitor ti nikdo nevidí a křišťálová koule má omezený dosah.

Bez vzorku dat se těžko radí.

Super , není za co.

Zkontroluj si výsledky. S fcí quartil nemám zkušenosti (nepoužívám). Pokud vzorec vrací blbosti tak sorry.

Použiješ funkce kam zadáš rozsah buněk (např. A1:A100). Pokud chceš sečíst hodnoty podle klíče NR, koukni se na funkci SUMIF.
Nebo pokud použiješ filtr tak je možnost použít funkci SUBTOTAL s parametrem který ignoruje skryté hodnoty.

Můžeš lépe popsat čeho se snažíš dosáhnout?

Ctrl="^"
SendKeys Ctrl & "P", True
Toto nefunguje, to bylo první co sem zkoušel než sem to sem vložil.

a tohleSendKeys Alt & "ST", True
při krokování (F8) vloží na řádek pod písmeno T a když nahradím Alt za Ctrl tak k tomu ještě vypne numlock.

Tenhle kód našel google, bohužel mi nechce tisknout. Možná to někdo znalejší rozchodí
Sub test()
Dim MyFile As String
Dim Enterkey As String
Dim Alt As String
Dim RetVal As Variant
'----------------------
MyFile = "C:\TEST.TXT"
Enterkey = "~"
Alt = "%"
'- open file in notepad
RetVal = Shell("notepad.exe" & " " & MyFile, vbNormalFocus)
If RetVal = 0 Then
MsgBox ("Problem opening Notepad.")
End
End If
'- send keystrokes to print
SendKeys Alt & "FP", True
'- wait 2 seconds for print to happen
Application.Wait Now + TimeValue("00:00:02")
'- close notepad
SendKeys Alt & "{F4}", True
End Sub

http://wall.cz/excel-navod/chyba-cislo-je-ulozeno-jako-text

Zjištění posledního plného řádku
Radek = Range("D1").End(xlDown).Row
For Each Convert In Range("D6:D" & Radek)

V pohodě, dneska si taky sedím na vedení
Hlavně, že funguje podle představ.
To rozmezí hodnot(pravá část žluté tabulky) sloupec D můžeš de facto vymazat není tam potřeba(pro funkci vzorce v A1).

?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje