Crearea de aplicații pentru ms excel

  1. Familia WorkSheets.
  2. Obiect WorkSheet
  3. exemplu

Obiectul WorkSheet și familia WorkSheets.

În ierarhia Excel, obiectul WorkSheet urmează imediat obiectul din registrul de lucru și prezintă foaia de lucru.

MS Excel vă permite să lucrați cu mai multe tipuri de coli:

• foi de lucru care conțin celule. Aceste foi sunt reprezentate de obiectul WorkSheet.

• Foi de diagrame care conțin diagrame. Aceste foi sunt reprezentate de un obiect Chart.

• Proprietățile obiectului foilor de lucru

• Application - când este utilizată fără un specificator de obiect, această proprietate returnează un obiect Application. care reprezintă aplicația Microsoft Excel.

• Când este utilizat cu un specificator de obiect, această proprietate returnează un obiect Application care reprezintă creatorul obiectului specificat (puteți utiliza această proprietate cu obiectul Automation OLE pentru a returna aplicația obiectului respectiv).

• Numai pentru citire.

• Count - Returnează valoarea Long. care reprezintă numărul de obiecte din colecție (adică numărul de coli și diagrame).

• Creator - Returnează un întreg pe 32 de biți care indică aplicația în care a fost creat obiectul. Doar pentru citire.

• HPageBreaks - Returnează colecția HPageBreaks, care reprezintă pauze orizontale ale paginii pe foaie. Read-only.

• foi de lucru (1). HPageBreaks

• Articol - Returnează un singur obiect din colecție

• Fișe de lucru (1) .Item (Index)

• Parametri: Index - Numele sau indexul obiectului.

• Exemplu: Următoarele două linii ale programului sunt echivalente

VPageBreaks - Returnează colecția VPageBreaks. care reprezintă pauze verticale ale paginii pe foaie. Read-only.

Foaie de lucru (1). VPageBreaks

Acest exemplu afișează numărul total de pauze de pagină verticale ale zonei întregi și ale zonei imprimabile.

Pentru fiecare pb în foile de lucru (1) .VPageBreaks

Dacă pb.Extent = xlPageBreakFull Apoi

cFull = cFull + 1

cPartial = cPartial + 1

MsgBox cFull "Pauze de pagină pe ecran complet" cPartial _

»Pauze de pagină de imprimare«

Vizibil - Specifică vizibilitatea unui obiect

Posibile opțiuni. Valse și True

Fișe de lucru (1) .Visible = Adevărat

Parent - Returnează obiectul parental pentru obiectul specificat. read-only

Metode din familia WorkSheets.

Adăugați - creează o foaie de lucru nouă.

objWorkSheets.Add (Înainte, După, Număr, Tip)

Parametrul Înainte specifică foaia înaintea căreia va fi plasată noua foaie de lucru.

Parametrul After specifică foaia după care va fi plasat noul lucrător. Dacă sunt omiteți argumentele Înainte și După, foaia nouă este plasată înaintea foii active.

Parametrul Count este numărul de coli pe care trebuie să le adăugați, acesta fiind implicit la 1

Parametrul Type specifică tipul de foaie de adăugat. Valorile valide sunt: ​​xlWorksheet (implicit), xlExcel4MacroSheet și xExEx1 IntlMacroSheet.

De exemplu: introduceți o foaie nouă înainte de foaia activă din registrul de lucru activ.

ActiveWorkbook. Foi de lucru. adăuga

Ștergere - șterge foaia de lucru.

Înainte - foaia în fața căreia va fi plasată foaia copiată.

După - foaia, după care foaia copiată va fi plasată.

Nu puteți defini Înainte. dacă definiți După și pe rând. Dacă nu specificați sau Înainte. decât sau După, Excel Microsoft va crea un registru de lucru nou care conține foaia copiată

Acest exemplu copiază foaia1, plasând o copie după Sheet3.

FillAcrossSheets - Copiază intervalul selectat în aceeași zonă în toate celelalte foi de lucru din colecție.

Fișe de lucru ("Sheet1"). FillAcrossSheets (Range, Type)

Interval - Intervalul care trebuie copiat în foile de lucru din colecție. Intervalul trebuie să fie din foaia de lucru din cadrul colecției.

Tip - Specifică modul de copiere a intervalului.

Acest exemplu umple intervalul A1: C5 în Sheet1, Sheet5 și Sheet7 cu conținutul aceluiași interval din Sheet1.

x = Array ("Sheet1", "Sheet5", "Sheet7")

Foi (x) .FillAcrossSheets _

Foaie de lucru ("Sheet1"). Interval ("A1: C5")

Mutare - Mută ​​foaia de lucru într-o altă locație din registrul de lucru.

Foaie de lucru ("Sheet1") Mutați (Înainte, După)

Înainte de foaia în fața căreia va fi plasată foaia mobilă.

După - foaia, după care se va plasa foaia mutată.

Nu puteți determina Înainte dacă definiți După și invers. Dacă nu specificați nici înainte, nici după. Excel Microsoft va crea un registru de lucru nou care conține foaia mutată.

Acest exemplu deplasează Sheet1 după Sheet3 în registrul de lucru activ.

Foaie de lucru ("Sheet1") Mutați după: = Foile de lucru ("Sheet3")

PrintOut - Imprimați obiectul.

Foaie de lucru ("Sheet1"). PrintOut (De la, la, copie, previzualizare, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)

Din - Numărul de pagini pentru a începe să tastați. Dacă acest parametru este omis, acesta este tipărit din prima pagină.

Pentru - Numărul ultimei pagini care va fi imprimat. Dacă acest parametru este omis, acesta este imprimat pe ultima pagină.

Copii - Numărul de copii de imprimat. Dacă acest parametru este omis, este imprimată o copie.

ActivePrinter - Specifică numele imprimantei active.

PrintToFile - Este adevărat să imprimați la un fișier. Dacă nu este definită PrToFileName, Excel Microsoft solicită utilizatorului numele fișierului de ieșire.

Collate - Este adevărat să se potrivească mai multe copii.

PrToFileName - Dacă PrintToFile este setat la True, acest parametru specifică numele fișierului la care doriți să imprimați.

IgnorePrintAreas - Este adevărat să ignorați zona de imprimare și să imprimați întregul obiect.

Acest exemplu imprimă foaia activă.

Foi de lucru ("Sheet1"). PrintPreview (EnableChanges)

Selectați - Selectează obiectul.

Foaie de lucru ("Sheet1") Selectați (Înlocuire)

Înlocuiți - (se utilizează numai cu coli). Adevărat. Pentru a înlocui selecția curentă cu obiectul specificat. Fals. Pentru a extinde selecția curentă pentru a include orice obiecte selectate anterior și obiectul specificat (selectați mai multe obiecte).

Nume - returnează numele foii de lucru.

Exemplu: Prima foaie a cărții de lucru este denumită "lecție1"

Visible - true (foaia de lucru este afișată), false (foaia de lucru nu este vizibilă, adică ascunsă, dar poate fi afișată pe ecran cu comanda Format ® Sheet ® display (Format.Sheet.Show) și xlVeryHidden ascuns și poate fi afișat pe ecran numai programat).

StandardHeight - returnează înălțimea standard a tuturor rândurilor din foaia de lucru.

Exemplu: setează înălțimea standard de 3 rânduri.

ActiveCell - returnează celula activă din foaia de lucru activă.

Intersecte - returnează un interval care este intersecția mai multor intervale.

Intersecția (intervalul 1, răul 2, ...)

Exemplu: o intersecție a intervalelor A 1: D 3 și C 3: D 4 este aleasă, adică interval C 3: D 3.

Uniune - returnează o gamă care este uniunea mai multor game.

Uniune (intervalul 2. intervalul)

Exemplu: este selectată o combinație a două intervale A 1: B 2 și C 3: D 4.

Activare - activează foaia de lucru.

Protect - protejează foaia de lucru de modificările aduse acesteia.

Protect (parola, DrawingObjects, Conținut, Scenarii, UserInterfaceOnly)

Parolă-Un șir este folosit ca parolă pentru protejarea colii

DrawingObjects-Valori acceptabile. true (obiectele grafice sunt protejate) și false (obiectele grafice nu sunt protejate). Valoarea implicită este falsă.

Cuprins - valori valide. adevărat (celulele sunt protejate) și false (celulele nu sunt protejate). Valoarea implicită este adevărată.

Scenarii - valori valide. true (scripturile sunt protejate) și false (scripturile nu sunt protejate). Valoarea implicită este adevărată.

UserInterfaceOnly - Valorile valide sunt adevărate (foaia este protejată de modificări de utilizator, dar nu de subrutina VBA) și false (foaia este protejată de modificările din partea utilizatorului și a subrutinei VBA). Valoarea implicită este falsă.

În acest exemplu, este stabilită protecția completă a foii de lucru active de orice modificări din partea utilizatorului:

ActiveSheet.Protect Password: = "Secret", DrawingObjects: = true, Cuprins: = true, Scenarios: = true

Dezinstalare - eliminarea protecției din foaia de lucru.

Parolă - Un șir folosit ca parolă pentru protejarea colii

Eliminarea protecției din foaia de lucru activă

ActiveSheet. Parola neprotejată: = "Secret"

Mutare - mutați foaia de lucru într-o altă locație din registrul de lucru.

Mutați (Înainte)

Înainte - o foaie de lucru, în fața căreia aceasta

După - foaia după care sunt inserate aceste date

În același timp, este permis doar un singur argument.

În exemplu, Sheet1 a elementului de lucru activ este mutat înainte de Sheet 3 din același registru de lucru:

Foi de lucru ("foaia 1"). Mutare înainte: = foi de lucru ("foaia 3")

Evaluare - Convertește o expresie la un obiect sau la o valoare. Folosit la introducerea formulelor și a celulelor din casete de dialog.

MsgBox CStr (valoare) "Afișează valoarea citită în caseta de dialog

După aceea, introduceți o expresie aritmetică în câmpul de introducere al următoarei casete de dialog, de exemplu A 3 * A 4. Procedura va calcula valoarea acestei expresii și va afișa ea în caseta de dialog.

function = InputBox ("introduce numele celulei")

valoare = Evaluare (funcție)

MsgBox CStr (valoare)

Pentru a crea o procedură de procesare a evenimentelor pentru o anumită foaie de lucru, selectați această foaie în fereastra proiectului și apoi selectați WorkSheet din lista de zone generale. Apoi mergeți la lista de descrieri și marcați evenimentul a cărui procedură doriți să o creați.

Calculează după ce s-au efectuat calculele pentru toate celulele din foaia de lucru.

Schimbare - apare după ce utilizatorul modifică conținutul celulei din foaia de lucru. Procedura Change handling handling conține un parametru Target. care este un obiect Range. conținând celulele modificate.

Notă: evenimentul nu apare. Dacă celulele se schimbă ca urmare a recalculării. precum și eliminarea celulelor.

SelecțiaChange - apare de fiecare dată când modificați în continuare selecția pe foaia de lucru. Procedura de modificare a modului de gestionare a evenimentelor conține un parametru Target. care este un obiect Range. conținând celulele selectate.

Înainte de închidere, când registrul de lucru este închis

Înainte de imprimare, înainte de a imprima un registru de lucru

Înainte de a salva registrul de lucru, înainte de ao salva

Dezactivați când registrul de lucru pierde focalizarea

NewSheet adăugând o foaie nouă

Deschideți când deschideți un registru de lucru

SheetActivate când activezi orice foaie de lucru

SheetDeactivat când foaia de lucru este focalizată

Sarcina: există o masă, este necesar să se transmită celulele și dacă acestea sunt egale cu orice standard, atunci întreaga linie este copiată în altă foaie.


Acest script trece prin toate celulele dimensiune 10x10 tabel, o celulă (1, 2) are o anumită valoare, care este comparat cu conținutul fiecărui celulei testat dacă se potrivește, atunci întregul rând unde este această celulă, este necesar să se recopiez o foaie nouă Rezultat. Astfel, se va crea o tabelă nouă pe foaia nouă, în care sunt create doar liniile de care avem nevoie.

Dim i ca intreg

Dim j ca Integer

Dim k ca Integer

La reluarea erorii următoare

Setați NewSheet = Fișe de lucru.Add

Articole similare