Questione : VBA per la creazione multipla della tabella using SheetsFound

Ciao, ho bisogno di un certo esperto che advice.

I attualmente hanno fatto un foglio elettronico in cui la i ha immesso alcuni dati da un rapporto esterno; una macro allora è funzionata per analizzare i dati e trasferisce qualche cosa che non risponda ai test di verifica dell'insieme a Sheet2 & le specie nella macro di order.
The quindi genera le linguette per ciascuno dei nomi differenti del cliente elencati all'interno di sheet1, nel ordine data (mentre il rapporto realmente mostra gli obiettivi durante un mese). il

I ora ha attaccato poichè avrei gradetto una macro che avrebbe generato automaticamente i grafici di spargimento all'interno di ciascuna delle linguette che mostrano che la prestazione del cliente durante il mese - non posso sembrare fare questo con qualche cosa ma lo strato attivo - e la macro deve lavorare alla base non conoscerà quanti strati (così dovrà collegare) o i nomi di questi strati (significato sta andando dovere completare uno sheetfound). il

I ha attaccato un esempio di come lo strato osserverebbe una volta la macro aveva funzionato al punto di dove sono aiuto di now.

Any notevolmente sarei apprezzato. nome di schedario " " vuoto " >

Example.xlsm " fileSize " > (34 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari) del >
Example
Example.xlsm " di http://filedb.experts-exchange.com/incoming/2010/07_w30/328920/Example.xlsm„„ del href= (34 Kb) il Javascript„ del href= " " dei attachmentDetails del class= di (tipo di lima particolari) del >
Example
Example.xlsm " di http://filedb.experts-exchange.com/incoming/2010/07_w30/328920/Example.xlsm„„ del href= (34 Kb) il Javascript„ del href= " " dei attachmentDetails del class= di (tipo di lima particolari) il class= di >Example
del >
class= del

Risposta : VBA per la creazione multipla della tabella using SheetsFound

Approvazione, ho preso il vostro valore sheet1 dal vostro libro di esercizi allegato e lo ho messo in un nuovo libro di esercizi.  Allora ho copiato il vostro codice e lo ho fatto funzionare.  Ha funzionato con successo con un msgbox “fatto„.  Ha generato gli strati Client2 e Client3 di Client1 con i dati.  Tuttavia, nessun di questi strati hanno valori nella colonna di D.

Allora ho fatto funzionare il mio sommergibile qui sotto.  Ha disposto le tabelle su ogni manuale del cliente using il A2: A32, D2: D32 come il datasource su ciascuno.

Forse sto comprendendo male….

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
Tabelle secondarie ()
Sht fioco come manuale
Wb fioco come libro di esercizi
  
Regolar wb = ActiveWorkbook
Per ogni sht in wb. Strati
    Se InStr (1, sht. Nome, “cliente„) > 0 allora
        Con sht.ChartObjects.Add (lasciato: =100, larghezza: =375, parte superiore: =75, altezza: =225)
            . Fonte di Chart.SetSourceData: =sht. Gamma (“A2: A32, D2: D32„)
            . Chart.ChartType = xlXYScatter
        Estremità con
    Concluder se
Dopo
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us