Formular de comandă pentru bunuri de birou
Să luăm în considerare o problemă similară.
Scopul nostru este de a dezvolta o aplicație convenabilă pentru elaborarea unei aplicații pentru papetărie pentru birou. În primul rând, vom crea un nou registru de lucru Excel și vom crea o listă de produse cu prețurile lor pe foaia a doua (Figura 2.8). Această listă este organizată destul de simplu - numele și alături de prețul său.
Acum, pe prima foaie de lucru, vom crea o formă convenabilă pentru introducerea informațiilor despre comandă (figura 2-9).
Să analizăm mai întâi etapele tehnice pentru proiectarea primei foi.
Mai întâi, eliminăm grila de pe ecran (această acțiune a avut deja loc mai sus). După aceea, vom formata coloanele A, B, C și D după cum urmează: setarea frontierelor externe, stabilirea limitelor interne, introducerea etichetelor coloanelor în celulele A3, B3, C3 și D3.
Acum treceți la aranjamentul comenzilor de pe foaie.
Cel mai potrivit element din această figură este caseta Combo. Numele acestui obiect va fi solicitat mai târziu și, prin urmare, pentru proprietatea Nume, se stabilește valoarea "noastră" - Spk.
În plus față de caseta combo de pe foaie există o inscripție deasupra căreia apare cuvântul Total în celula foii de lucru. Inscripția însăși este utilizată pentru a calcula suma. Numele său va fi folosit în procedurile ulterioare și, prin urmare, se va stabili valoarea Symma ca valoare a proprietății Nume.
Figura 2.8.
În partea de sus a ecranului există alte trei butoane - Clear, Recalculate și Print. Numele lor sunt alese în consecință de Clr, Calc și Prn.
La această interfață se finalizează proiectarea și putem trece la programare.
În primul rând, trebuie să vă asigurați că lista Spk este populate automat când deschideți cartea. Prin urmare, vom proceda formal la deschiderea cărții, după cum urmează (a se vedea Listing 2.10).
Listing 2.10. Procedură Workbook_Open
Private Sub Workbook_Open ()
'Numărarea numărului de înregistrări din lista de prețuri din foaia a doua
În timp ce foile de lucru (2) .Cells (N + 1, 1) .Value <> „“
Articole similare
Trimiteți-le prietenilor: