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

Příspěvky uživatele

Private Sub CheckBox3_Click()
If CheckBox1.Value = True Then
Sheets("vzor").Rows("31:34").Hidden = False
Else
Sheets("vzor").Rows("31:34").Hidden = True
End If
End Sub

Pod Checkboxem 3 se odkazuješ na první, viz tučné písmo.

Líbí se mi tohle řešení pomocí makra. Prostuduj
http://www.makra.webz.cz/02Faktura/faktura.htm

Ahoj, reaguju na předposlední příspěvek. Je použit maticový vzorec (zadání se ukončí trojkombinací CTRL+SHIFT+ENTER)

Pomocí maticového vzorce

Musíš označit (odstranit) celou matici - všechny vzorce v řádcích.

PS: koukni do meilu

Možnosti jsou dvě. Buď ručně editovat vzorce v jednotlivých řádcích nebo si někam zkopírovat vzorec z první pozice, celou matici vymazat a vzorec vložit znovu a roztáhnout.

Jo jo klidně soubor pošli.

Někde ve vzorci musíš mít ještě chybku, u mě to funguje jak má. Pokud dám vyhledat jméno, které není v seznamu tak vzorec/ce vrací prázdnou hodnotu.

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje