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

Příspěvky uživatele

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

Jednou z možností je toto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = "1" Then
Cells(Target.Row, Target.Column + 1).Value = Now
End If
End Sub

kód se vloží do modulu listu ve kterém chceš "kontrolovat" datum zápisu. Platí pro sloupec A, do sloupce B se ukládá datum a hodina

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje