welke functie heeft shapes.rectangle115

[wim135]

Ik probeer wat code te begrijpen van enkele programma´s en kwam hetvolgende tegen en heb geen idee wat regel 1 betekent

ActiveSheet.Shapes("Rectangle 115").Select
If Selection.Characters.Text = "Tel.nrs. AF" Then
Columns("D").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Shapes("Rectangle 115").Select
Weet iemand daar uitleg over het is geen naam van een sheet in het programma

 

[Wigi]

Je kan vormen zoals rechthoeken, cirkels, enz toevoegen aan een blad.

Zie de Werkbalk Tekenen / Drawing.

Wigi

 

[etri]

Zoals Wigi aangeeft kun je allerlei 'vormen' ('shapes') tekenen, zoals rechthoeken, cirkels, etc.

De code selecteert een vorm van het type rechthoek met als naam "Rectangle 1". Vervolgens wordt de tekst in de rechthoek bekeken, en als die gelijk is aan de tekst "Tel.nrs. AF" dan wordt een bepaald kolom verborgen.

 

[wim135]

shapes rectangle

Ja moeilijk geprogammeerd en ik ben er nu al uren mee aan het stoeien om dat teken spul er uit te gooien om dan met een gewone toggle knop dat verbergen of zchtbaar maken van een kolom te resliseren met 2 knoppen is het geen probleem maar ik wil het ook juist met 1 knop of hij voert de makro kompleet uit en dan is er dus niks gebeurd of hij verbergt alleen en het zichtbaar maken wil dan niet meerDus ik ben er nog lang niet uit hoe ik dat nu lekker werkend moet krijgen
M.vr gr. Wim

 

[etri]

Probeer anders eens dit, heb ik gebruikt voor een project:

Public Sub HideShowColumns()
    Dim bCurStatus As Boolean
    Dim bNewStatus As Boolean
    
    bCurStatus = Worksheets("Sheet1").Columns(11).Hidden
    bNewStatus = Not (bCurStatus)
    
    Worksheets("Sheet1").Range(.Columns(11), .Columns(15)).Hidden = bNewStatus

End Sub

Edit: Ik check dus met kolom 11 of de kolommen verborgen zijn of niet, en kolommen 11 t/m 15 worden dan al dan niet verborgen...

 

[wim135]

toggle knop en code

Uiteindelijk en met behulp van zoeken op internet heb ik de toggleknop werkend gekregen zodat hij kolommen verbergt of laat zien die ik wil
De code die ik van u kreeg krijg ik niet werkend in combinatie met de toggleknop
compileerfoutmeldingen en het woord columns staat dan in het blauw maar ik heb geen idee wat ik daaraan nog moet wijzigen
m.vr.gr.
Wim

 

[etri]

Zou je dan jouw code ook willen posten? Dan kan ik (maar ook andere mensen) er iets van leren

 

[wim135]

hierbij deCode toggle button kolommen verbergen/zichtbaar

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
'This area contains the things you want to happen
'when the toggle button is not depressed
Columns("D").Select
'hier staat dus D dubbele punt D snap niet warom die smily er in komt bij de 2e D
Selection.EntireColumn.Hidden = True
'Rows(4).EntireRow.Hidden = True
'Rows(5).EntireRow.Hidden = False

Else
'This area contains the things you want to happen
'when the toggle button is depressed
Columns("c:e").Select
Selection.EntireColumn.Hidden = False
'Rows(4).EntireRow.Hidden = False
'Rows(5).EntireRow.Hidden = True

End If
Range("a1").Select
End Sub

 

[etri]

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        'This area contains the things you want to happen
        'when the toggle button is not depressed

        'Hide column D (= column 4)
        With Worksheets("Sheet1")
            .Range(.Columns(4), .Columns(4)).Hidden = True
        End With
    
    Else
        'This area contains the things you want to happen
        'when the toggle button is depressed

        'Unhide columns C to E (= column 3 to 5)
        With Worksheets("Sheet1")
            .Range(.Columns(3), .Columns(5)).Hidden = False
        End With
    
    End If
    Range("a1").Select
End Sub

Mijn eerdere code werkte inderdaad niet... De "With ... End With" vergeten...

Waarom verberg je kolom D en maak de kolommen C, D en E zichtbaar? C en E worden toch niet verborgen?

 

[wim135]

Nee ik selecteer kolom c tot e en daar zit d tussen en die wordt dan weer zichtbaar zo doe je dat handmatig maar ik denk dat nu het via een de VBA code loopt ook wel alleen d kan zijn