A táblázatok a VBA-ban

Vetoy cikkben fogunk létrehozni programmukotoraya fog illeszteni a dokumentum Wordtablitsu. Meg persze azt fogja mondani: Miért van szükségem erre a programot, ha eststandartnaya, nem rosszabb, mint ez. és budeshkak mindig rossz. Végtére is, ebben a cikkben akkor nem csak ismereteket szerezni VBA, de nauchishsyapisat és gyakorlat ActiveXkomponenty.

Eslity nem ismeri programozás naVBA, akkor olvassa el a cikket „IspolzovanieUserForm VBA”. Ez egy rövid leírás nyelv párhuzamot von mezhduVBA és VB, hogy hasonlóságokat és különbségeket.

SozdanieActiveX alkatrész

Ur. Itt az ideje, hogy írjon az ActiveX komponent.Pisat ez mi lesz VisualBasic „e És így kezdjük Run BASIC, előtted van egy ablak Új projekt, válassza ki azt ..” ActiveX Control „Mielőtt kell poyavitsyatakaya formájában .:

A táblázatok a VBA-ban

Ez hasonló a obychnuyuformu akinek tulajdonát BorderStyle = 0 - Nincs. Nuladno, megy előre. Dobj ide tekstovoepole, Text tulajdonság értéke 1, Locked = True tulajdonság (chtobynelzya volt be szöveget bele tekstovoepole). Tegyen két gombok alatt. Az ingatlan Caption = 1 "gombot<", свойство Caption 2 кнопки = ">„Szabása mérete User Control” gomb alatt a itekstovoe területen. Most nadopereimenovat a projekt, és a User Control. Adjunk nevet Mein projekt UserContol „y” Spin „az ActiveX dolzhenvyglyadet mint ez .:


Miután bejelentette, hogy mozog ksobytiyu Inicializáljon User Control „egy, és vezessen be tudasleduyuschy kód:

Private Sub UserControl_Initialize ()
Száma = 1
End Sub

Zdesmy rendelni változó száma value1. Most megy a Click eseményt pervoyknopki, és vezessen be az alábbi kódot:

Private Sub Command1_Click ()
Ha Number> Ezután 1
Száma = szám - 1
Text1.Text = száma
End If
End Sub

Rákattint egy azt ellenőrizzük a változó száma, ha ez nagyobb, mint 1 1 kivonása azt, vtekstovoe mező szúr etoyperemennoy. A Click esemény a második knopkivstavlyaem kód:

Private Sub Command2_Click ()
Ha száma <100 Then
Száma = szám + 1
Text1.Text = száma
End If
End Sub

Onanalogichen kód első gombot, csak zdesvse fordítva. változó be van jelölve, esliona kevesebb, mint száz, hogy az ár-érték pribavlyaetsyapo 1 minden alkalommal a második gombot. Mivel vyzametili számtartománnyal a szövegmezőbe a 1do 100.

Minden, a létrehozása ActiveX befejeződött, tolkootkompilirovat hagyta az OCX fájl. Mert etogozahodim Fájl klikk Make Mein.ocx, válassza ki a megfelelő könyvtárat, hogy inazhimaem OK.

VisualBasic összeállításához nyilvántartások OCX „sy rendszerekben, ezért ezt a fájlt budetavtomaticheski hozzá a listához az ActiveX” ovprogramm MS Office csomagot. És ispolzovat projektek VisualBasic „a rá kell kattintani a Projekt> Alkatrészek> Böngészés. Kotoroynahoditsya megnyit egy mappát a kívánt OKX és kattintson rá 2-szer.

Sozdanieprogrammy szóra „A

A táblázatok a VBA-ban

Kidaemdva ilyen eszköz a mi formában odinpod mások a bal put címkék, felső-label tulajdonság Caption = „Chislostolbtsov” az alsó „sorok számát” .Nizhe mindez fel két gomb uverhney ingatlan Name = cmdNewTables, Caption = „létrehozása tulajdonság táblázat "a nizhneysootvetstvenno Name =" cmdCancel "Caption =" Mégsem ". A jobb ha nem tud leybls a program leírását. Ön dolzhnopoluchitsya valahogy így:

A táblázatok a VBA-ban

Sinterfeysom programot rendezni, és ez, hidd el olvasó, hogy nem a végső szakaszban malo.Pristupaem nasheystati, írjon kódot nasheyprogrammy. Ő nem egy bonyolult blagodaryatomu hogy ActiveX komponensek. Kezdjük, mielőtt ez a kis zakatimrukava, így csak abban az esetben, hogy nem zavaró :))). Kattintsunk kétszer a gombot cmdNewTables, és adja meg a következő kódot:

Private Sub cmdNewTables_Click ()
homályos myrange
Set myrange = ActiveDocument.range (0, 0)
Selection.Tables.Add tartomány: = myrange, numrows: = Spin2.Number, _ NumColumns: = Spin1.Number
Selection.Collapse Irányban: = wdCollapseEnd
Kirak Me „eltávolítja az ablakunk
End Sub

Ondostatochno egyszerű és nem fogok zaostryatvnimanie minden sorában a program (eslity, amit nem lehet megérteni posmotretspravku, minden benne van részletesen) és lishobyasnyu ActiveX komponens csatlakozás, illetve annak két példányban.

Private Sub cmdCancel_Click ()
UNLOAD Me „kirak az ablakot
End Sub

. Ostalsyaposledny bar -, hogy a mi program MS Word szerszámok napanel „Mert etogosozdaem egy új modult (ő sozdaetsyaanalogichno formában adja meg a nevét modTables Ivpisyvaem az alábbi kódot :.

Posleredaktirovaniya ablak bezárás gomb „Beállítások”, majd kattintson az Új gombra. Ha minden sdelalipravilno, meg kell nyitni egy ablakot, amely mydelali felett.

Vse.V ezt a cikket, megtanultuk, hogyan kell írni ActiveXkomponenty, helyezzen be egy táblázatot dokumentWord „, és az Ön igényei, észrevételeit és így tovább, küldje el nekem a szappan [email protected] nem szabad elfelejteni, hogy nézze meg a honlapom: .. Www.worldvb.narod.ru mint én. megtalálható ICQ: 347384533.

Spasibochto olvasta a cikket. ))).

Kapcsolódó cikkek