Programozási formák VBA - VBA programozás (iroda)
Létrehozása VBA-kódot
Tekintsük a programokat hoztak létre, amelyek közvetlenül az előállított formában.
Hozzon létre egy űrlapot, ahol beírja a nevét a szövegmezőbe után az OK gombra kattint, egy üdvözlő üzenetet kapnak, amely a címke formájában „nevet, hello! Ma - a dátum és az idő, hogy indítsa el a programot. "
Egy program olvasás értéke a beviteli mezőbe eltávolítja a megfelelő elem egy adott értéket, és tovább használja a vezérlő kimeneti függvénye az időnek és a program kezdési időpont.
teljesítmény technológia
Bármilyen fejlesztés VBA program kíséri a fejlődését a forma, amely közvetlenül kapcsolódik a létrehozott programot. Ezért a jelen példában kerül részletezésre eljárás a munkát végző.
1. lépés. Tervezése a mintaprogram
Mintaprogram nyitottnak kell lennie a képernyőn egy új ablakban jelenik meg neki egy üdvözletet, valamint a dátumot és az időt (az üzenet). Az ablak marad, amíg a felhasználó rákattint az OK gombot.
Miután részletes leírást a probléma, lehet meghatározni, melynek elemei legyen az alakja, hogy kölcsönhatásba lép a fejlett programot. Feltételei szerint a példa program egyetlen egyéni párbeszédpanelt, így meg kell, hogy hozzon létre egy egységes formában (UserForm). Formák igényel két ellenőrzés - a címke az üzenetet, és egy gombot az OK gombra. Azt is el kell, hogy hozzon létre a kódot a két eljárást: az egyik - a címke, ahol szeretne üzenetet, és a többi -, hogy kilépjen a program, amikor a felhasználó rákattint az OK gombot.
2. lépés. A projekt megvalósítása
Befejezni ezt a lépést, kövesse az alábbi lépéseket.
A formában, például tervező módban
Címke hozzáadása az űrlap
Ahhoz, hogy a szavak egy egyéni formában, kövesse az alábbi lépéseket.
- Ellenőrizze, hogy a forma aktív, kattintson rá. A vezérlő sáv csak akkor látható, ha az űrlap aktív.
- Kattintson a gombra A (címke) a vezérlő elemek.
- Vigye az egérmutatót a formában, ahová az üzenetet.
- A Tulajdonságok ablakban (Properties - a bal alsó panel az ablak), válassza ki a Caption tulajdonság és írja be a vonal „Adjon meg egy nevet”, ez a tulajdonság a második tag üresnek kell lennie kezdeni Label2 címke programban nem volt észlelhető.
- Változás a címet a formában is. Ehhez kattintson a fejléc sáv alakú ablakok. A változó tulajdonságai ablakban megtalálja a Caption tulajdon és változtassa meg a „time”. Az új cím megjelenik a címsorban az űrlapot.
A kód hozzáadása
Mert mi program létre kell hoznunk két eljárást, és ezek kapcsolódó eseményeket, melyek során a program végrehajtása. Az első eljárás az, hogy ha rákattint az Üzenet gombot a kívánt üzenetet, és a második - a teljes program, ha valaki rákattint az OK gombot.
- Duplán kattintson az OK gombra. A felugró ablakban kóddal betakarítási eljárás jelenik meg. Az első sor létrehozza a kód Private Sub CommandButton2_Click ().
Mindenesetre VBA eljárás, az első sorban a kód határozza meg az eljárás típusát (ebben az esetben az eljárás típusa Sub, azaz szubrutin) és egy eljárás neve. Private Sub és olvassa el a VBA kulcsszavakat, azaz a szavak és szimbólumok, amelyek egy részét a VBA. Ebben az esetben a VBA kínál CommandButton2_Click eljárás nevét, amely kombinációja a gomb nevét és az esemény típusát.
Az utolsó sorban az automatikusan generált kód End Sub.
Ez a vonal végén minden típusú Sub eljárásokat. Ez azt mondja VBA, hogy a végrehajtás az eljárás befejeződik.
Ahhoz, hogy az első eljárás (formazáráshoz) a kódot kell írni az üres:
Leterhelő operátor eltávolítja az objektumot a memóriából. Van egy tárgy hívott, különleges jelentéssel bírnak a VBA-ban. Ebben az esetben ez azt jelenti, a forma és az összes kódot.
- Hozzon létre egy eseménykezelő az „üzenet” gombra, duplán kattintson az újonnan létrehozott gombot, és sorolja fel a kódot:
Dim ima As String
Label2.Caption = ima „Hello! Ma Formátumot (most, «dddddd, hh h. Mm min.")
A második eljárás, amely megjeleníti a képernyőn megjelenő üzenet, egy kicsit nehezebb az első. Az első nyomtatott sor
Dim ima As String
Ez létrehoz egy változó nevű ima és határozza meg, mint egy húr, vagyis sorozata szöveges karaktert.
A második sorban ennek változó kap egy olyan karakterlánc megadott érték TextBox1 elem (szövegdoboz lehet „olvasni” csak a szöveges érték). A harmadik sorban az üzenet formájában Label2 elhelyezett címke, amely meghatározza Caption tulajdonság szoftvert és egy string értéket. Format függvény megadja a dátumot és az időt.
3. lépés. vizsgálati program
- Kattintson vagy doboz formájában, illetve a kód mezőbe, hogy a megfelelő ablak aktívvá válik.
- Prokompiliruyte program: menü + hibakeresés + összeállításához projekt.
- Indítsuk el a programot a végrehajtás (F5).
Forma Például, működő
Ez fontos!
Ha elkezd formálja a jelentések szerint a túlzott védelem makró alkalmazásokat, azaz külső beavatkozás, hajtsa végre a következő lépéseket:
Figyelmeztetés a nagy védelmi alkalmazások
Amely lehetővé teszi az alacsony biztonsági üzemmód
Vegyünk egy egyszerű példát dolgozik formák
Használata esetén utasítást, hogy hozzon létre egy programot, amely attól függően, a bemeneti változó értékét, és gyárt különféle számítási változók b és c. Ha a változó értéke a nem esik egybe a programot, akkor az üzenet az „Engedély nem érték”.
Minden változó lépett szöveges mezők. Ha rákattint a gombra, az „Eredmények” használják, hogy válassza ki a műveletet, és megjeleníti az értékeket formájában egy külön címkét.
teljesítmény technológia
Dim a, b, c, d As Integer
Private Sub CommandButton1_Click ()
Label4.Caption = «Eredmény: d =» d
Label4.Caption = «Eredmény: d =» d
Label4.Caption = «Eredmény: d =» d
Label4.Caption = «adja meg az értéket”
Forma például a Design Mode
A program megfelelően működjön, meg kell fordítani minden szöveges értékek lépnek be a szövegmezőbe a numerikus. Erre előírt átalakítani kód: a = Val (TextBox1.Text) stb Ezután a program már fut számértékek.
Ha a program végre kiadja az érték egyik típusát (numerikus vagy string), az eredmény kimenet írhat végén minden Case blokk. Ebben a példában a számértékek (d), majd a szöveg ( „Engedély nem érték”) jelenik meg először. Ezért az eredmény kimenet kell biztosítani minden ága ügyben.
Az eredményeket az ábrán mutatjuk be.
Néhány példa eredményeinek forma
Készítsen programot, amely segítségével a felhasználó (forma) párbeszédpanelen hajtsa végre a következő lépéseket: amikor belép a három változót szöveges mezők, beolvassa az adatokat, és összehasonlítja azt az első változó. Az eredményt az alábbi formában lévő címkén.
Példák az űrlapot tervező módban és üzemképes állapotban
például Listing
Private Sub CommandButton1_Click ()
Dim a, b, c As Integer
Ha a> b és a> c Aztán
Label1.Caption = «érték a> b és a> c»
Label1.Caption = «érték helyett mindig nagyobb és b» End If End Sub
Készítsen programot, amely segítségével az űrlapot, végrehajtja a következő lépéseket: a bemeneti változó szöveges mező, beolvassa az adott értéket, majd intézkedik a ciklusban egy pitch értéke 5, ahol az egyes lépések változó értéke b egyenlő lesz a változó értékét egy plusz növekmény . Összegzi a kapott értéket a kapott érték és b értéke lépett. Az eredményt az alábbi formában lévő címkén.
Példák az űrlapot tervező módban és üzemképes állapotban
például Listing
Dim a As Variant
Dim b As Integer
Dim c As Integer
Private Sub CommandButton1_Click ()
I = 1-től 12 5. lépés
Label1.Caption = egy "+" b "=" c
Készítsen programot, amely az alábbi tevékenységeket végzi: a hurok minden jogutódai b, a programban bejelentett, az utolsó érték a tömb által meghatározott program. Ezután jön a számítások javasolt a program:
- címke kiadott címke2 növekedésének eredményeként kapott változó értékét az első tömb elem;
- címke kiadott Label3 növelése révén összeget az érték a második elem a tömb;
- címke kiadott Label4 növelése révén összeget az érték a harmadik tömb elem;
- címke kiadott Label6 a növekvő kapott összeg az értékét az utolsó elem a tömbben.
Az eredményt az érthetőség kedvéért a különböző címkéket formájában.
Példák az űrlapot tervező módban és üzemképes állapotban
például Listing
Dim b As Variant
Private Sub CommandButton1_Click ()
Dim d (1-től 4) Mivel Variant
A Mindegyik b A d
Label2.Caption = «d (1) = ' d (1) «B =» b
Label3.Caption = «d (2) = ' d (2) «B =» b
Label4.Caption = «d (3) =” d (3) «B =» b
Label6.Caption = «d (4) = ' d (4) «B =» b
Megjegyzés. For Each ... Next ciklus használ egy számlálót. Hurkok Minden ... Tovább távon ahányszor vannak olyan elemei egy adott csoport, például objektumok gyűjteménye vagy egy tömb. Más szóval, a hurok For Each ... Next egyszer lefut minden eleme a csoportban. Melyben az aktív ciklus főleg a konkrét tevékenységek, mint például a keresést szükséges lemez összegyűjtésére alkalmas eszközökkel, és így tovább, és nem használják megoldásában egyszerű problémákat.
Feladatok rögzítő anyag
Készítsen programot, amely segítségével az adatok olvasható a szöveges formában mezőket, a gombra kattintva megjelenik a következő üzenet:
„Hello, a név, amelyet a hallgató csoport számát a csoport neve, a speciális szakterület!”.
ahol a beírt név - az érték az első mezőbe;
Csoport száma - az érték a második szöveges mező;
Neve az specialitás - az érték a harmadik mezőbe.
Készítsen programot, amely segítségével az adatokat olvasni a szöveget mezők, hajtsa végre a következő lépéseket: Ha a beírt szöveg ugyanaz, akkor az üzenet „value1 egybeesett znacheniem2”, ha a beírt szöveg nem azonos, akkor a kijelzőn a „value1 nem egybeesett znacheniem2”, ahol value1 és value2 - megadott szavak.
Megjegyzés. A program kidolgozása jobb használni az üzemeltető Like.
Forma Például, a működési mód
További információ
Minden formája a programozás a PHP - védelem, elméleti alapjait és letöltés valós példákat
Módszerek leírása és adatbázis programozási technikák az adatok, valamint a szükséges kérelmeket erre
A cikk foglalkozik a fő előnye a formázó kódot programozás Python
A leírás, amit a programozás, amelyre szükség van, és milyen programozási nyelv van,