< návrat zpět

MS Excel

Téma: Skrytí řádků pomocí Tlačítka ne Checkboxu.. rss

Zaslal/a bim.jim 29.8.2013 9:01

Zdravím potřeboval bych radu se skrýváním řádků - ale pomocí Tlačítka, nikoli CheckBoxu.. zkoušel jsem to trošku upravit dle makra na checkbox, skryje mi to, ale při druhém kliknutí už se to logicky neotevře, ale nevím co tam mám zadat..
Díky:
Private Sub CommandButton1_Click()
'Skrýt řádky
If CommandButton1.Value = Click Then
Rows("2:9").EntireRow.Hidden = True
End
End If
'Zobrazit řádky
If CommandButton1.Value = Click Then
Rows("2:9").EntireRow.Show = True
End
End If
End Sub

stop Uzamčeno - nelze přidávat nové příspěvky.
icon eLCHa(29.8.2013 9:12)#014933
eLCHa
Private Sub CommandButton1_Click()
with Rows("2:9")
.Hidden = not .Hidden
end with 'Rows("2:9")
End Subcitovat
bim.jim(29.8.2013 9:12)#014934
avatar
Už to mám. jen se mi zdá že musím kliknout dvakrát na tlačítko aby se mi zobrazily řádky podruhé.. ale to je maličkost ;-)

Private Sub CommandButton1_Click()

If CommandButton1.Value = Click Then

Range("2:9").EntireRow.Hidden = Not Range("2:9").EntireRow.Hidden
End
End If

End Subcitovat
icon Poki(29.8.2013 9:14)#014935
Poki
nebo takto:
Private Sub CommandButton1_Click()
If Rows("2:9").EntireRow.Hidden = True Then
Rows("2:9").EntireRow.Hidden = False
Else
Rows("2:9").EntireRow.Hidden = True
End If
End Subcitovat
icon eLCHa(29.8.2013 9:19)#014936
eLCHa

bim.jim napsal/a:


If CommandButton1.Value = Click

Dejte to pryč, to je zbytečnostcitovat
bim.jim(29.8.2013 9:30)#014937
avatar
Děkuji pánové. ještě příkaz pro změnu názvu tlačítka at tam nemam CommandButton1? už to tady 5min hledam a nenacházím. Díky.citovat
icon Poki(29.8.2013 9:36)#014939
Poki
Aby bylo videt, co to udela:
Private Sub CommandButton1_Click()
If Rows("2:9").EntireRow.Hidden = True Then
Rows("2:9").EntireRow.Hidden = False
CommandButton1.Caption = "Skrýt řádky 2-9"
Else
Rows("2:9").EntireRow.Hidden = True
CommandButton1.Caption = "Zobrazit řádky 2-9"
End If
End Subcitovat
bim.jim(29.8.2013 9:42)#014940
avatar
Děkuji za odpověď, myslel jsem pouze název toho tlačítka - který tam zůstane pořád.. Např. Motorizace (kdyz jsem to chtel prepsat v Poli názvů tak to nefungovalo.. )citovat
icon eLCHa(29.8.2013 9:43)#014941
eLCHa

bim.jim napsal/a:

Děkuji pánové. ještě příkaz pro změnu názvu tlačítka at tam nemam CommandButton1? už to tady 5min hledam a nenacházím. Díky.


Private Sub CommandButton1_Click()
with Rows("2:9")
.Hidden = not .Hidden
CommandButton1.Caption=IIf(.hidden,"Zobrazit", "Skrýt")
end with 'Rows("2:9")
End Subcitovat
icon eLCHa(29.8.2013 9:51)#014942
eLCHa

bim.jim napsal/a:

Děkuji za odpověď, myslel jsem pouze název toho tlačítka - který tam zůstane pořád.. Např. Motorizace (kdyz jsem to chtel prepsat v Poli názvů tak to nefungovalo.. )


Název tlačítka se mění ve vlastnostech tlačítka (to je to okno co se vybere v editoru po stisku F4.
Je to vlastnost Name a poku ji změníte, nebude fungovat makro CommandButton1_Click. Musel byste ho přejmenovat na NovyNazev_Clickcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje