< návrat zpět
MS Excel
Téma: Tlačítko skrýt odkrýt
Zaslal/a Naturis 5.3.2015 20:36
Dobrý den, Potřebuju pomoct s vytvořením tlačítka na skrytí sloupců H-J, kde jsou jen nuly, tak aby se mi ve finále(Chybí poslat (Backlog) zobrazila jen objednávka. Jde to i pomocí filteru zobrazit vetší hodnoty než 0, ale zamlouvá se mi to tlačítko, kdy prostě jen kliknu na skrýt a po druhé na zobrazit.Ušetřilo by nám to v práci čas. Díky
Dream(6.3.2015 5:36)#023995 Dobrý den,
Pokud nedáte přílohu nelze řešit,ale použijte záznamník maker a poté vytvořte tlačítko
citovat
Dream(6.3.2015 5:37)#023996 Dobrý den,
Pokud nedáte přílohu nelze řešit,ale použijte záznamník maker a poté vytvořte tlačítko
citovat
Naturis(6.3.2015 6:20)#023999 Omlouvám se, měl jsem přiložený soubor, ale nějak mi zmizel z tématu. V práci mi nejde odeslat příspěvek se souborem, zkusím to doma.
citovat
Naturis(6.3.2015 15:17)#024006 Pardon za zdržení.
Příloha: 24006_tlacitko.rar (25kB, staženo 32x) citovat
fudy(29.3.2015 9:28)#024310 jestli potřebuješ schovat jen sloupce, tak tady je možné řešení
Příloha: 24310_tlacitko.zip (25kB, staženo 53x) citovat
elninoslov(29.3.2015 15:14)#024314 Ak by bolo z nejakého dôvodu treba používať VBA tak :
Sub Tlačidlo1_Kliknúť()
Dim B As Excel.Button, s As String
ActiveSheet.Columns("H:J").Hidden = Not ActiveSheet.Columns("H:J").Hidden
If ActiveSheet.Columns("H:J").Hidden Then s = "Odkryť" Else s = "Skryť"
Set B = ActiveSheet.Buttons(Application.Caller)
ActiveSheet.Buttons(B.Name).Caption = s
End Sub
potrebný je iba jeden riadok, ostatné sú tam pre zmenu popisu tlačítka
ActiveSheet.Columns("H:J").Hidden = Not ActiveSheet.Columns("H:J").Hiddencitovat