εισαγωγη κουμπιων εμφανησης/αποκρυψης excel

[Xor]

καλησπέρα.

 

θέλω να εισάγω 4 κουμπιά, πρόκειται για πρόγραμμα εργασίας και το κάθε 1 κουμπί αντίστοιχα κρύβει/εμφανίζει 7 μέρες τις εβδομάδας στο excel.

έχω φτάσει στο 2ο κουμπί και δεν λειτουργεί ανεξάρτητα από το 1ο δηλαδή πρέπει να πατήσω πρώτα απόκρυψη της 1 εβδομάδας για να αποκρύψω την 2 και για να την εμφανίσω πρέπει να κάνω το ίδιο αντίστροφα (πρώτα εμφάνιση της 1ης εβδομάδας κλπ.).

 

αυτός είναι ο κώδικας που χρησιμοποιώ

Private Sub ToggleButton1_Click()

Dim xAddress As String

xAddress = "H:N"

If ToggleButton1.Value Then

    Application.ActiveSheet.Columns(xAddress).Hidden = True

    ToggleButton1.Caption = "Show Column"

Else

    Application.ActiveSheet.Columns(xAddress).Hidden = False

    ToggleButton1.Caption = "Hide Column"

End If

End Sub

 

Private Sub ToggleButton2_Click()

Dim xAddress As String

xAddress = "AQ:BC"

If ToggleButton1.Value Then

    Application.ActiveSheet.Columns(xAddress).Hidden = True

    ToggleButton1.Caption = "Show Column"

Else

    Application.ActiveSheet.Columns(xAddress).Hidden = False

    ToggleButton1.Caption = "Hide Column"

End If

End Sub

 

 

Μπορει να βοηθησει καποιος;

[MastroGiannis]

Μάλλον πρόκειται για τον δαίμονα του Copy-Paste.

Η ρουτίνα του ToggleButton2 λαμβάνει υπόψη την κατάσταση του ToggleButton1.

	Private Sub ToggleButton2_Click()
	Dim xAddress As String
	xAddress = "AQ:BC"
	If ToggleButton1.Value Then
	    Application.ActiveSheet.Columns(xAddress).Hidden = True
	    ToggleButton1.Caption = "Show Column"
	Else
	    Application.ActiveSheet.Columns(xAddress).Hidden = False
	    ToggleButton1.Caption = "Hide Column"
	End If
	End Sub
	

[Xor]

εχεις δικιο! σε ευχαριστω πολυ!

[Xor]

@MastroGiannis αγαπητε τα καταφερα χωρις μεγαλη δυσκολια. Λυσε μου αλλη μια απορια αν μπορεις. Ενω βαζω ονομα σε καθε κουμπι, μετα το πρωτο πατημα αλλαζει σε show ή hide αναλογως;

 

 

[MastroGiannis]

Συγγνώμη αλλά απ'  το ερώτημα δε γίνεται σαφές το ζητούμενο.

Η λεζάντα του κουμπιού ελέγχεται από την έκφραση ToggleButton1.Caption = ... βάσει της κατάστασης του κουμπιού (TRUE/FALSE).

Αν δε θέλεις να γίνεται αυτό, απλά διαγράφεις την εν λόγω έκφραση απ' τον κώδικα του κουμπιού.