Vraag : Lijn door om alle lijststijlen te verwijderen

Kan iedereen helpen dit werk maken, probeer ik aan lijn door elk blad in het werkboek, en op elke bladlijn door elke lijst en verwijder de lijststijl.  Ik gebruik uitblink 2007

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Sub TryThis ()
Schemerige oSh als Aantekenvel
Schemerige oLo als ListObject
Schemerige oWb als Werkboek

Reeks oWb = ActiveWorkbook

Voor Elke oSh in oWb
    oSh.Activate
        Voor Elke oLo in oSh
            ActiveSheet.ListObjects (oLo) .TableStyle = ""
        Volgende oLo
Volgende oSh

Eind Sub


On de lijn „voor Elke oSh in oWb“ ik krijg een fout zeggend het Voorwerp dit bezit of geen method steunt

Antwoord : Lijn door om alle lijststijlen te verwijderen

U hebt aan opstelling de opsomming nodig deze manier:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Sub TryThis ()
Schemerige oSh als Aantekenvel
Schemerige oLo als ListObject
Schemerige oWb als Werkboek

Reeks oWb = ActiveWorkbook

Voor Elke oSh in oWb.Worksheets
    Voor Elke oLo in oSh.ListObjects
        oLo.TableStyle = ""
    Volgende oLo
Volgende oSh

Sub van het eind
Andere oplossingen  
 
programming4us programming4us