Olvassa el a könyvet excel
Az eredmény alkalmazása a makro ábrán látható. 3.20.
Az ábra azt mutatja, hogy a sejt tartományban határolt keret és a rács benne képviseli, mint szaggatott vonalak.
Ábra. 3.20. Keret és rács
Gyors beillesztése nevek tisztviselők a dokumentumban
A trükk, amely megbeszéljük ebben a szakaszban lehetővé teszi, hogy helyezze be gyorsan, bárhol a dokumentum szövegét előre meg van. Egy ilyen lehetőség akkor hasznos, például, hogy helyezze be a dokumentumot, és tegye a nevét a rendező és főkönyvelő (vagy más alkalmazottak). Ezt a célt úgy érjük el, segítségével egy makró, a kód listán látható 3,67.
Listing 3.67. Szöveg beszúrása a dokumentumba
„Kitöltése az aktuális cella
ActiveCell = «Főigazgató»
„Az utolsó három oszlop a jobb helyzetben
A sejteket (ActiveCell.Row, ActiveCell.Column + 3) lehetőségre.Válassza
ActiveCell.FormulaR1C1 = «A. B. Rublev "
„Sejtből»főkönyvelő«a három oszlop balra _
és három sor a cella alatt a nevét a rendező
A sejteket (ActiveCell.Row + 3, ActiveCell.Column - 3) lehetőségre.Válassza
ActiveCell = «főkönyvelő”
„Az utolsó három oszlop a jobb helyzetben
A sejteket (ActiveCell.Row, ActiveCell.Column + 3) lehetőségre.Válassza
ActiveCell = «T. S. Kopeikin "
Végrehajtása után a makró megfelelő szöveget beszúrja a dokumentumba, ahol a kurzor (ábra. 3.21).
Ábra. 3.21. Szöveg beszúrása a dokumentumba
Nyilvánvaló, hogy lehet beilleszteni a makro fenti az aktuális dokumentum tetszőleges szöveget.
Felhívás a betűtípus-beállítások ablakban
A kis makró okozhat a betűtípus beállításait tartalmazó ablakot. A kód makró így néz ki (lásd a lista 3,68).
Listing 3.68. betűtípus-beállítások ablakban
„Hívd a szabványos Windows betűtípus-beállításokat az aktuális cella
Futtatása után megnyílik egy ablak a Format Cells, amely elvégezte a szükséges intézkedéseket. Meghatározott ebben az ablakban, a beállítások az a sejtben, amelyben a kurzor áll.
Információkat jelenít meg az aktuális dokumentum
Ahhoz, hogy gyorsan megjeleníti az információkat a neve az aktuális fájl, az aktuális munkalap neve és a lapok számát a jelenlegi munkafüzetet, akkor a makró, a kód listán látható 3.69.
Listing 3.69. Információ az aktuális dokumentum
Dim i As Integer
„Nevét jeleníti meg a munkafüzet fájl
„Nevét jeleníti meg az adott lap
„Pin rendszámtáblák
I = 1 To ActiveWorkbook.Sheets.Count
ActiveSheet.Cells (i, 3) = i
Az eredmény a makro ábrán látható. 3.22.
Ábra. 3.22. Információ az aktuális fájlt
Ebben az esetben az A1 cella nevét jeleníti meg az aktuális fájl, a B1 cellába - a név az aktív munkalap és a C oszlop - Információ száma munkalapot a jelenlegi könyv.
Következtetés A számítások eredményei egy külön ablakban
Performing egyszerű trükk képes megjeleníteni a számítás eredménye nyert képletek egy külön információs ablakban. Ehhez, akkor létre a különböző makrók (bonyolultságától függően a számítás, a tartalmát a sejtek és képletek, és így tovább. D.). Listing 3,70 mutat egy példát egy ilyen makrók.
Listing 3.70. Az ablak a számítás eredménye
Fordítsa az első levél
„Kerül a cella adatok
„Kimenetre számítás eredménye
MsgBox tartomány ( «A3»). Képlet + "=" + str (tartomány ( «A3»). Érték)
Az eredmény a makro ábrán látható. 3.23.
Ábra. 3.23. A képlet és az eredmény
Ezen túlmenően, miután a makró értéke jelenik meg az A2 cellában 5, és A3 cellában - 8.
Kimeneti felbontás
Listing 3.71. monitor felbontás
Állapítsa Funkció GetSystemMetrics Lib «User32» _
(ByVal nIndex As Long) As Long
„A állandók vezetjük keresztül a funkciója, hogy meghatározza _
vízszintes és függőleges képméretet
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Dim lngHorzRes As Long
Dim lngVertRes As Long
„Elkészítése szélessége és magassága a kép a monitoron
MsgBox „A jelenlegi felbontás:” lngHorzRes "X" lngVertRes
Futtatása után a makró (a makró kiválasztás mezőbe, hogy fogják hívni GetMonitorResolution), egy ablak jelenik meg a képernyőn, amely megmutatja a jelenlegi kijelző felbontását.
Amely nyitott ebben a pillanatban?
Amikor dolgozik a nagyszámú munkafüzetek néha kell, hogy gyorsan látni, hogy melyek nyitott abban a pillanatban. A probléma megoldására segít a következő makró (Listing 3,72).
Listing 3,72. nyitott fájlt
Dim könyv As Object
„Nevét jeleníti meg az egyes munkafüzet
Minden olyan könyv munkafüzetek
Listing 3.73. „Swipe” Könyvek
Dim lap As Object
„Mutasd meg a nevét, minden lap az aktív munkafüzet
Mert minden egyes lap In ActiveWorkbook.Sheets
Elindítása után a makró, a képernyőn megjelenik ugyanaz az ablak, mint az előző makró. Ez jelenik meg a neve az első munkalap aktuális könyv, majd mindegyik után nyomja meg az OK - nevek későbbi lap.
Létrehozása görgetés szöveges
Lehet létrehozni egy Excel görgetés? Igen, akkor, és segít nekünk a kódot listában bemutatott 3.74.
Listing 3.74. Létrehozása görgetés szöveges
Dim intSpacesLeft As Integer „A helyek száma elején
„Állítsa be a kezdeti helyek száma
„Az első funkció hívás ticker
Ha intSpacesLeft> = 0, akkor
Tartomány ( «A1»). Value = Tér (intSpacesLeft) "Hi!"
intSpacesLeft = intSpacesLeft - 1
„Excel jelezve, hogy ezt az eljárást kell hívni a _
Application.OnTime most + TIMEVALUE ( «00:00:01»)
Miután a Start-makro sejt Al megmutatja görgetés szöveget a szöveg Hello!.
villogó sejt
Tekintsük elég érdekes trükk, amivel lehet, hogy a vaku (azaz színváltásra felváltva) minden cella egy bizonyos ideig.
Tegyük fel, hogy szükségünk van egy sejt, amely 10-szer 5 másodpercenként változik a háttér színe pirosról zöldre. Hogy oldja meg ezt a problémát, akkor az alábbi makrót (Listing 3,75).
Listing 3.75. villogó sejt
Statikus intCalls As Integer „Counter száma villog
„Ha a cella pislogott legalább 10-szer, majd módosítsa _
ismét a szín
Ha intCalls <10 Then
intCalls = intCalls + 1
„Az, hogy mi színt kell telepíteni
Ha tartomány ( «A1»). Interior.Color <> RGB (255, 0, 0) Ezután
„Cell színe nem piros, így most hozzá _
ez piros
Tartomány ( «A1»). Interior.Color = RGB (255, 0, 0)
„Hozzárendelése a cella zöld
Tartomány ( «A1»). Interior.Color = RGB (0, 255, 0)
„Ez az eljárás szükséges, hogy hívja 5 másodperc után
Application.OnTime most + TIMEVALUE ( «00:00:05»)
Elindítása után a makro BlinkingCell villog Al cella. Azáltal, hogy a megfelelő módosításokat az adott makró állíthatja a ciklus időtartama és változtatni a háttér színét a saját.
forgó alakzatok
Kaphatok egy alakzat forgatása? Kiderül, hogy tudja, és ez nem olyan nehéz, mint amilyennek látszik első pillantásra. Ebben a részben, megvitassák, hogyan lehet, hogy a lépés, míg a forgatás csak két alakzat.
Listing 3.76. forgás AutoShapes
Statikus fRunning Ahogy logikai
„Ellenőrizze, hogy a makró már fut
Ha fRunning Aztán
„Amikor újraindítja leállít minden futó makrók
„Azt hangsúlyozzák, hogy a makró fut
Dim cella tartomány „munka sejt
Dim intLeftBorder As Long „bal határa a cella
Dim intRightBorder As Long „A jobb szélét a cella
Dim intTopBorder As Long „A felső határ a cella
Dim intBottomBorder As Long „Az alsó határ a cella
Dim alngVertSpeed (1 vagy 2) As Long „Array értékekkel
Dim alngHorzSpeed (1 vagy 2) As Long „vízszintes és függőleges
Dim ashShapes (1 vagy 2) az alak „array szállított
Dim i As Integer
„Fill tömb AutoShapes
Set ashShapes (1) = ActiveSheet.shapes (1)
Set ashShapes (2) = ActiveSheet.shapes (2)
„Kihasználtság a tömb:
„Az első szám
„A második szám
„Kezd dolgozó cellaszegélyek
Állítsa cell = tartomány ( «B2»)
intRightBorder = cell.Left + cell.Width
intBottomBorder = cell.Top + cell.Height
„Teljesítmény forgás és elmozdulás számok
„A helyzet az egyes alakzat
„Control eléri a jobb széle a sejt
Ha .Left + .Width + alngHorzSpeed (i)>
Bal = intRightBorder - .Width
„Irányának megváltoztatása a vízszintes sebesség _
„Control eléri a bal széle a sejt
Ha .Left + alngHorzSpeed (i) „Irányának megváltoztatása a vízszintes sebesség _ „Control elérése alsó széle a sejt Ha .Top + .Height + alngVertSpeed (i)> Top = intBottomBorder - .Height „Irányának megváltoztatása a függőleges sebesség _ „Control eléri a cella tetején határ Ha .Top + alngVertSpeed (i) „Irányának megváltoztatása a függőleges sebesség _ Bal = .Left + alngHorzSpeed (i) Top = .Top + alngVertSpeed (i) „Forgatás AutoShapes (változása forgásirány _ történik minden alkalommal, amikor változtasson _ Adj Excel parancs fogantyú felhasználói Most B2-es cellába kell létrehozni bármely két alakzat (azelőtt, hogy a sejt B2 jelentősen növelni kell, ami nagyjából akkora, mint egy negyede a képernyőn, hogy van egy hely, forgatni alakzatok). Most, a makró futtatásához, és élvezze a munkájuk eredményeként - AutoShapes fog forogni, és egyidejűleg mozog a megadott cella. Ha szükséges, akkor a színes alakzat különböző színekben, és állítsa be néhány hátteret a cellában. Ha szükséges, hívja a szín asztal és a megfelelő ingatlan értéke Colorlndex (ez a tulajdonság adja kitöltőszínének indexelt szerint színpaletta). Ehhez létre és futtathat a következő makró (Listing 3,77). Dim intColor As Integer „Megalakult a táblázat fejlécében Tartomány ( «B1»). Value = «Property Value ColorIndex» A intColor = 1 és 56 „Foltos sejt»A«oszlop az aktuális színnel Olvasta a könyvet? Keress meg! Írjon a rendszergazda csoport - Sergei Makarov - leveletHívjon színtáblázat
Listing 3,77. Bemutatás színtáblázatból