Realizarea unei diagrame din mai multe foi de lucru

Această carte este destinată utilizatorilor de Microsoft Excel și conține o descriere a tehnicilor și metodelor de lucru care, datorită specificității lor, nu sunt suficient de reprezentate (sau nu sunt reprezentate deloc) în documentația utilizatorului, referință și alte documente relevante. Studiul exemplelor prezentate în carte va permite cititorului să descopere caracteristicile necunoscute anterior ale programului Excel. Materialul propus este ușor de asimilat datorită faptului că este prezentat într-un limbaj accesibil și ușor de înțeles.







Carte: Excel. Trucuri și efecte

Realizarea unei diagrame din mai multe foi de lucru

Realizarea unei diagrame din mai multe foi de lucru

În procesul de lucru, este adesea nevoie de prelucrarea operațională a datelor stocate pe mai multe foi de lucru. După cum știți, o modalitate de a procesa informații este de a construi diagrame. În această secțiune, vom examina modul în care mai multe diagrame pot fi construite simultan, datele inițiale pentru care vor fi informații localizate pe mai multe foi de lucru.







Să presupunem că avem cinci tabele diferite care sunt situate pe cinci foi de lucru, iar numărul de rânduri din aceste tabele este diferit. Un astfel de tabel este prezentat în Fig. 4.8.

Realizarea unei diagrame din mai multe foi de lucru

Fig. 4.8. Exemplu de tabel

Pentru a construi diagrame bazate pe datele stocate în aceste tabele, puteți utiliza macroul afișat în Lista 4.11.

Listing 4.11. Crearea simultană a mai multor diagrame

Dim intTop cât de lung, intuitiv cât de lung

Dim int Height As Long, intWidth As Long

Fișă de dimensiune ca foaie de lucru

Dimineți primul rând cu date

Dim strErrorSheets As String "Lista foilor pentru care _

nu a reușit să construiască diagrame

intTop = 1 'Punctul de sus al primei diagrame

intLeft = 1 'Punctul stâng al fiecărui grafic

intHeight = 180 'Înălțimea fiecărui grafic

intWidth = 300 'Lățimea fiecărui grafic

"Desenarea unei diagrame pentru fiecare foaie, cu excepția celei curente

Pentru fiecare foaie în ActiveWorkbook.Worksheets

Dacă este listă <> ActiveSheet.Name Apoi







Trimiteți-le prietenilor: