Questione : Ciclo attraverso per rimuovere tutti gli stili della tabella

Può chiunque contribuire a fare questo lavoro, sto provando a collegare attraverso ogni strato nel libro di esercizi e su ogni ciclo dello strato attraverso ogni tabella ed a rimuovere lo stile della tabella.  Sto usando eccello il class= " lineNumbers " >
1 del >

Sub codeBody TryThis " del prettyprint " " del class= del id= " codeSnippet969097 del >


On dell'estremità Sub



  
  class= del

Risposta : Ciclo attraverso per rimuovere tutti gli stili della tabella

Dovete installare l'enumerazione questo senso:

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

TryThis secondario ()
oSh fioco come manuale
oLo fioco come ListObject
oWb fioco come libro di esercizi

Regolare il oWb = ActiveWorkbook

Per ogni oSh in oWb.Worksheets
    Per ogni oLo in oSh.ListObjects
        oLo.TableStyle = ""
    oLo seguente
oSh seguente

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us