• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

Protože prohledávaná data začínají na řádku 10 (A10) je třeba odečíst 9 předchozích ("prázdných") řádků. Pokud tedy v novém sešitu začínají data na řádku 48 je třeba tedy odečíst předchozích 47 řádků. Prostě ta 9 se přepíše na 47.

Pomocí maticového vzorce.

Nebo takto:
Private Sub CheckBox1_Click()
If List1.CheckBox1 = True Then
Range("E1,G1,Y1").EntireColumn.Hidden = True
Else
Range("E1,G1,Y1").EntireColumn.Hidden = False
End If
End Sub

Takto?

Použita fce SVYHLEDAT i INDEX s vnořenou fcí POZVYHLEDAT

To je přeci jedno, že se ceny shodují. Důležité je aby hodnoty (výrobky) podle kterých se hledá byly jedinečné.
Další možnou alternativou k funkce Svyhledat je využít funkcí Index a Pozvyhledat.

Koukni se zde:
http://www.contextures.com/xlcomments03.html

Co tady?

Netuším proč excel odmítá obarvit řádky, ale změnou formátu se to spravilo. Změnil sem podbarvení na žlutou a už to šlo, poté zpět na červenou. Vyzkoušej

Tak vlož přílohu, takhle se těžko hádá v čem je zrada

"nevím jaké mezery máš na mysli"
Mám na mysli ty mezery např. ve zkratkách týmů "BUF ". Nevím jestli ten převod jednotek z yardů na metry neměl být spíš pomocí funkce, to samé platí i pro to zaokrouhlování - použít funkci místo vlastního formátu. Ale hodnoty jsou správné tak to snad projde.
Na listu "Přehledy za týmy" máš v některých buňkách místo vzorce "natvrdo" vloženou hodnotu (=0). Proč? [vlastně vím] co když dojde ve zdrojových datech ke změně? Výsledek bude špatně! Raději bych upravil vzorec a využil služeb funkce IFERROR.
V zadání 7 použiješ podmíněné formátování pomocí vzorce. Využiješ k tomu funkci A.
v zadání 10 bych si sečetl hodnoty "průměr na běh v yardech" pro daný tým a to samé pro "průměr na zachycení v yardech" a z těchto dat vytvořil graf.

To zadání (sešit) jsi dostal od vyučujícího? Ty přebytečné mezery tam jsou schválně? Můžeš to zadání (data) upravit - odstranit mezery nebo musí být použita funkce?

takto:

Vyzkoušej:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Sledovana_oblast As Range

Set Sledovana_oblast = Range("A1,A3,A5:A10") 'kontrolované buňky ve sloupci A
If Target.Cells.Count > 1 Then Exit Sub 'proti hromadnému vkládání dat (do více buněk současně)
If Not Intersect(Target, Sledovana_oblast) Is Nothing Then
With Target(1, 2) 'první řádek slupce B
.Value = Now
.EntireColumn.AutoFit 'automatická šíře sloupce
End With
End If

End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje