< návrat zpět

MS Excel


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

Zaslal/a 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 #014933
eLCHa
Private Sub CommandButton1_Click()
with Rows("2:9")
.Hidden = not .Hidden
end with 'Rows("2:9")
End Sub
citovat
#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 #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 Sub
citovat
icon #014936
eLCHa

bim.jim napsal/a:


If CommandButton1.Value = Click

Dejte to pryč, to je zbytečnostcitovat
#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 #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 Sub
citovat
#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 #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 Sub
citovat
icon #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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09