EXCEL-VBA ONEPRO IT Objekt ActiveX-kontroller ActiveX-kontroller är en grupp verktyg som precis som formulärkontrollerna ska automatisera och förenkla inmatning och kommunikation med kalkylblad och arbetsböcker. Den stora skillnaden mellan formulär- och ActiveX-kontroller är att formulär knyts till specifika funktioner via statiska cellreferenser medan ActiveX-kontrollerna kan knytas till olika funktioner med hjälp av händelser och metoder i VBA-kod. Dessa blir alltså fristående objekt i Excel. Bägge typerna av kontrollera hittas på menyfliken Utvecklare och knappen Infoga. Klicka på den kontroll som ska användas och klicka sedan i kalkylbladet där kontrollen ska placeras. Kalkylbladet går automatiskt över i designläge så att justeringar av storlek och position kan ske. Innan kontrollen blir funktionell så måste designläget stängas av. Egenskaper Alla objekt i Excel (Active-X kontroller m.m.) har egenskaper som kan sättas via egenskapsrutan eller via VBA-kod. Direkt när en ActiveX-kontroll skapas bör man klicka egenskaper i menyfliken Utvecklare för att sätta grundläggande egenskaper beroende på vilken typ av kontroll det är. Genomgående är det viktigt att namnge kontrollerna på ett bra sätt så att man sedan i koden enkelt kan anropa respektive kontroll. Om kontrollen även innehåller en text sätts den med egenskapen Caption. Händelser – Metoder För att programmet ska veta när det ska utföra den kod vi skriver så knyter vi vår kod till en specifik händelse. Vilka händelser vi har att välja på beror på vilket objekt det är. En händelse är sedan något som utförs av användaren t.ex. genom att klicka på, markera, ändra eller kanske avmarkera ett objekt. Exempel: Om vi vill att en kod ska köras när någon avmarkerar en textruta som heter txtNamn så skapar vi en metod till just den händelsen Private Sub txtNamn_LostFocus() Vår kod… End Sub Om man högerklickar på det objekt som man vill knyta händelsen till och väljer Visa kod så skapar VBA-fönstret en Metod med en föreslagen händelse (se mer info om VBA-fönstret nedan) VBA-fönstret Tillgängliga objekt Händelse att knyta till objekten I VBA-fönstret skrivs den kod som skall köras i arbetsboken. Varje kalkylblad har sin ”kodsida” som man tar fram genom att dubbelklicka på respektive blad i navigationsfönstret på vänstra sidan. Den kod som skrivs på respektive kalkylblad är endast tillgänglig där. Förutom de olika kalkylbladen finns också en övergripande sida – ThisWorkbook, där kod kan skrivas för hela arbetsboken och en moduldel där makron och globala funktioner (kod som ska vara tillgänglig för hela arbetsboken) skapas. Variabler Variabler är tillfälliga objekt som kan skapas i koden. Variablerna syns aldrig fysiskt i kalkylbladen men dom kan innehålla värden och därmed sedan användas på olika platser i kalkylbladet/arbetsboken. En variabel skapas genom nyckelordet Dim följt av variabelns namn och vilken typ av data man vill kunna knyta till variabeln. Dim Age (Varibelns namn) As Integer (Datatyp) Namnet på variabeln är helt valfritt, det bestämmer kodskrivaren. Datatypen måste dock väljas från tillgängliga datatyper. Följande lista på datatyper är hämtad från VBA-hjälpen. Byte 1 byte 0 to 255 Boolean 2 bytes True or False Integer 2 bytes -32,768 to 32,767 Long (long integer) 4 bytes -2,147,483,648 to 2,147,483,647 Single (single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45 for negative values; 1.401298E-45 to 3.402823E38 for positive values Double (double-precision floating-point) 8 bytes -1.79769313486231E308 to -4.94065645841247E-324 for negative values; 4.94065645841247E-324 to 1.79769313486232E308 for positive values Currency (scaled integer) 8 bytes -922,337,203,685,477.5808 to 922,337,203,685,477.5807 Decimal 14 bytes +/-79,228,162,514,264,337,593,543,950,335 with no decimal point; +/-7.9228162514264337593543950335 with 28 places to the right of the decimal; smallest non-zero number is +/-0.0000000000000000000000000001 Date 8 bytes January 1, 100 to December 31, 9999 Object 4 bytes Any Object reference String (variable-length) 10 bytes + string length 0 to approximately 2 billion String (fixed-length) Length of string 1 to approximately 65,400 Variant (with numbers) 16 bytes Any numeric value up to the range of a Double Variant (with characters) 22 bytes + string length Same range as for variable-length String User-defined (using Type) Number required by elements The range of each element is the same as the range of its data type. Flera Variabler av samma datatyp kan skapas på en rad Dim Age, Years, Atid, Days As Integer Användarkommunikation MsgBox En Messagebox (meddelanderuta) används för att lämna information till användaren om t.ex. ett visst villkor uppfylls. Kombineras ofta med If-villkor (se nedan). Meddelandetexten skrivs som en textsträng inom en parantes. Exempel: Låt oss säga att koden skall utföra en beräkning men användaren har glömt att fylla i ett värde i cell A1 så att beräkningen inte kan göras korrekt. I stället för att då få ett felaktigt värde kan vi informera användaren om att värdet saknas. If Range(”A1”).Value = ”” Then MsgBox(“Det saknas värde I cell A1!”) … InputBox En InputBox (inmatningsruta) används för att hämta ett tillfälligt värde från användaren. Oftast är värdet knutet till en variabel som sedan kan användas i en beräkning. Meddelandetexten skrivs som en textsträng inom en parantes. Exempel: Vi vill veta användarens födelsedatum för att kunna räkna ut åldern och skapar en variabel kallad Birthdate.Vi hämtar variabelns värde med en InputBox Dim Birthdate As Date Birthdate = InputBox(”Ange födelsedatum”) Vanliga villkorsrutiner If, Else, ElseIf If-satsen används för att kontrollera om ett villkor uppfylls. Om så är fallet kan man be programkoden köra en programsats. Med utökningarna ElseIf och Else kan man utöka satsen för att få med fler villkorskontroller i samma sats. (Nyckelord: If, Then, ElseIf, Else, End If) Exempel: Låt oss säga att värdet i cellen A1 bestämmer värdet i cellen B1. Om värdet i A1 är större än 100 så ska B1 ha värdet 0,5. Annars ska värdet i B1 vara 0,25. If satsen ser ut så här If Range(”A1”).Value > 100 Then Range(“B1”).Value = 0.5 Else Range(“B1”).Value = 0.25 End If Om vi utökar med ett villkor till… Om värdet i cellen A1 är större än 200 ska värdet i B1 vara 0,75. Vi lägger då även till ett ElseIf-villkor. If Range(”A1”).Value > 200 Then Range(“B1”).Value = 0.75 ElseIf Range(”A1”).Value > 100 Then Range(“B1”).Value = 0.5 Else Range(“B1”).Value = 0.25 End If Select Case I en situation där vi vill ha många alternative beroende på ett värde så är oftast Select Case det smidigaste alternativet. Satsen bygger på att man anropar en egenskap och sedan bygger olika scenarion för denna egenskap. Vi tar föregående exempel där värdet i cell B1 är beroende utav värdet i cell A1. Men vi lägger till några ytterligare alternativ. Select Case Range(”A1”).Value Case Is > 200 Range(“B1”).Value = 0.75 Case Is > 150 Range(“B1”).Value = 0.65 Case Is > 120 Range(“B1”).Value = 0.57 Case Is > 100 Range(“B1”).Value = 0.5 Case Else Range(“B1”).Value = 0.25 End Select Do While, Do Until För att få programmet att upprepa något ända tills ett visst villkor uppfylls så används en Do While- eller Do Until-sats. While används för att upprepa något så länge ett villkor uppfylls och Until används för att upprepa något tills ett villkor uppfylls. Bägge kan oftast användas och får i så fall styra villkoret. Nyckelordet Loop avslutar för att upprepa händelsen. Vi har ett antal siffror i A-kolumnen med början i A1. Vi vill räkna upp alla värden med 1 men bara så länge det finns värden. Vi väljer att utöka värdet med 1 och sedan hoppa en cell nedåt ända tills vi träffar på en tom cell. Range(”A1”).Activate Do Until ActiveCell.Value = "" ActiveCell.Value = ActiveCell.Value + 1 ActiveCell.Offset(1, 0).Activate Loop For Next Do-satser används när man inte vet hur många gånger en upprepning ska ske. Om man däremot vet hur många gånger upprepningen ska ske används istället en For Next-sats. I det här fallet vill vi göra exakt samma sak som ovan men nu vet vi att det är området A1-A10 som skall uppdateras. Koden skall alltså upprepas 10 ggr. MyCounter nedan är namnet på räknaren vilket jag själv sätter. Range(”A1”).Activate For MyCounter = 1 to 10 ActiveCell.Value = ActiveCell.Value + 1 ActiveCell.Offset(1, 0).Activate Next MyCounter Loop Exempelkod från introduktionsövning - Räknare Private Sub cmdBerakna_Click() ' Bengt Nordström ' 2012-06-13 ' Deklarerar variabler (som heltal - integer) Dim Varde1 As Integer Dim Varde2 As Integer Dim Svar As Integer ' Tilldelar variablerna värden från textrutorna Varde1 = txtVarde1.Value Varde2 = txtVarde2.Value 'Kollar om det är tomt i textrutorna och skickar upp en meddelanderuta If txtVarde2.Value = "" Then MsgBox ("Det saknas värde i ruta 2!") ElseIf txtVarde1.Value = "" Then MsgBox ("Det saknas värde i ruta 1!") End If 'Kollar vilken Alt-knapp som är vald och väljer räknesätt If altPlus.Value = True Then txtResultat.Value = Varde1 + Varde2 ElseIf altSub.Value = True Then txtResultat.Value = txtVarde1.Value - txtVarde2.Value ElseIf altMul.Value = True Then txtResultat.Value = txtVarde1.Value * txtVarde2.Value ElseIf altDiv.Value = True Then txtResultat.Value = txtVarde1.Value / txtVarde2.Value End If Svar = txtResultat.Value MsgBox ("Reslutatet av beräkningen blir " & Svar) 'Använder en variabel i en meddelanderuta Range("A1").Activate 'Markerar en specifik cell 'Letar reda på första tomma cell i raden och markerar den Do Until ActiveCell.Value = "" ActiveCell.Offset(1, 0).Activate Loop ActiveCell.Value = Svar 'Tilldelar dn markerade cellen värdet från en variabel 'tömmer textrutorna txtVarde1.Value = "" txtVarde2.Value = "" txtResultat.Value = "" cmdBerakna.Caption = "Klart!" 'Ändrar knapptext txtVarde1.Activate 'Sätter markören i en taxtruta End Sub Private Sub cmdInput_Click() Dim Namn As String Namn = InputBox("Vad heter du? (Förnamn-Efternamn)") Range("B1").Value = Namn End Sub Private Sub cmdRensa_Click() Range("A:A").Value = "" 'tömmer ett cellområde End Sub Private Sub cmdUndo_Click() Range("A1").Activate Do While ActiveCell.Value <> "" ActiveCell.Offset(1, 0).Activate Loop ActiveCell.Offset(-1, 0).Value = "" End Sub Private Sub txtVarde1_Change() cmdBerakna.Caption = "Beräkna" End Sub Kalkylbladsobjekt från introduktionsövning 1 Bengt Nordström Klart! Ångra Rensa A-kolumnen Ansvarig © 2011 - OnePRO IT – Bengt Nordström
© Copyright 2024