*nambo ciek ..* Kalau mau mengexplorasi keperluan seperti ini, coba juga* ToggleButton * Control ToggleButton seperti CommandButton tetapi *punya dua nilai* setiap di klik nilainya berubah ( False -> Tru -> False -> True dst) Nilai ToggleButton dapat kita jadikan* Logicaltest*-nya (dlm struktur IF - Then)
IF *ToggleButton1* Then '--*'gini*-- Else '--*'gitu*-- End If [image: ToggleButton.PNG] 2011/8/19 Mr. Kid <[email protected]> > ** > > Bisa juga untuk kebutuhan lihat tabel, pake CommandButton2 aja tanpa > commandbutton1, dengan event kliknya berbunyi : > Private Sub CommandButton2_Click() > If Len(CommandButton2.Caption) > 5 Then > CommandButton2.Caption = "Bakul" > Range("c6:f56").EntireRow.Hidden = True > Else > CommandButton2.Caption = "Hide Bakul" > Range("c6:f56").EntireRow.Hidden = False > End If > End Sub > > Kid. > > > 2011/8/18 STDEV(i) <[email protected]> > >> dear bung utang.. >> lihat jawaban langsung di sheet1 & modules di VBE >> Private Sub CommandButton1_Click() >> Rows("6:56").Select >> Selection.EntireRow.Hidden = True >> CommandButton1.Visible = False >> CommandButton2.Visible = True >> End Sub >> >> Private Sub CommandButton2_Click() >> Range("c6:f56").Select >> Selection.EntireRow.Hidden = False >> CommandButton1.Visible = True >> CommandButton2.Visible = False >> End Sub >> >>
<<ToggleButton.PNG>>
<<attachment: ToggleButton.PNG>>
