Differences

This shows you the differences between two versions of the page.

--- tanszek:oktatas:muszaki_informatika:vba_tutorial [2024/04/09 20:14] – [Sztringek kezelése] knehez
+++ tanszek:oktatas:muszaki_informatika:vba_tutorial [2025/04/09 11:09] (current) – [Alapvető Típusok] knehez
@@ Line 2: / Line 2: @@
 Az Excel VBA (Visual Basic for Applications) egy eseményvezérelt programozási nyelv, amely lehetővé teszi az Excel alkalmazások automatizálását és testreszabását. Ebben a részben az Excel VBA alapvető nyelvi elemeit mutatjuk be, beleértve a változók deklarálását, az alapvető típusokat és a vezérlési elemeket.
+==== Makrók engedélyezése =====
+A Fájl/Beállítások/Adatvédelmi központ-nál állítsuk be a makrók engedélyezését és utána zárjuk be a munkafüzetet és indítsuk újra.
+{{:tanszek:oktatas:muszaki_informatika:pasted:20240222-080952.png}}
+Fejlesztőeszközök (Developer) bekapcsolása:
+Fájl → Beállítások → Menüszalag testreszabása → Pipáljuk be a **Fejlesztőeszközök**-et.
+{{:tanszek:oktatas:muszaki_informatika:pasted:20250408-181524.png}}
+Válasszuk ki a "Fejlesztőeszközök" fület, majd a "Makrók" gomb megnyomása utána felugró ablakban a jobb egérgombbal megjelenő menüben illesszünk be egy új modult:
+{{:tanszek:oktatas:muszaki_informatika:pasted:20240409-051647.png}}
+Definiáljunk egy teszt függvényt ami visszaad egy konstans értéket.
+{{:tanszek:oktatas:muszaki_informatika:pasted:20240409-051836.png}}
+<sxh vb>
+Function teszt()
+   teszt = 1
+End Function
+</sxh>
+használata: írjuk be egy cellába **=teszt()**
 ==== Változók Deklarálása ====
@@ Line 8: / Line 36: @@
   * **Példa**: Egyszerű változó deklaráció
-<code>
+<sxh>
 Dim szam As Integer
 Dim szoveg As String
-</code>
+</sxh>
 ==== Alapvető Típusok ====
@@ Line 23: / Line 51: @@
   * **String**: Szöveges típus
   * **Boolean**: Logikai típus (Igaz vagy Hamis)
+  * **Byte**: 0-255-ig egész szám
+==== Kör területének számítása ====
+<sxh>
+Sub Test()
+   Dim r As Double
+   Dim area As Double
+   r = InputBox("Kérem a kör sugarát")
+   area = r * r * Application.WorksheetFunction.Pi
+   MsgBox area
+End Sub
+</sxh>
 ==== Vezérlési Elemek ====
@@ Line 29: / Line 72: @@
   * **If...Then...Else**
-<code>
+<sxh>
 If szam > 10 Then
     MsgBox "A szám nagyobb, mint 10."
@@ Line 35: / Line 78: @@
     MsgBox "A szám 10 vagy annál kisebb."
 End If
-</code>
+</sxh>
   * **For Next Ciklus**
-<code>
+<sxh>
 For i = 1 To 5
     MsgBox "Szám: " & i
 Next i
-</code>
+</sxh>
 Itt fontos megjegyezni hogy a szövegeket //&// jellel adjuk össze, nem a plusz operátorral!
   * **Do While Loop**
-<code>
+<sxh>
 i = 1
 Do While i <= 5
@@ Line 53: / Line 96: @@
     i = i + 1
 Loop
-</code>
+</sxh>
+----
 ==== Sztringek kezelése ====
@@ Line 128: / Line 173: @@
   // 0, ha a stringek egyenlőek
-  result = StrComp("Hello", "hello", vbBinaryCompare) // Nem egyenlő
+  result = StrComp("Hello", "hello", vbTextCompare) // egyenlő, hiába H != h
   result = StrComp("Hello", "Hello", vbBinaryCompare) // Egyenlő
 </sxh>
-==== Összefoglalás ====
-Ez a fejezet bevezetést nyújtott az Excel VBA alapjaihoz, beleértve a változók deklarálását, az alapvető típusokat és a vezérlési elemeket. A bemutatott kódpéldákkal könnyebbé válik az alapvető programozási koncepciók megértése és alkalmazása.
+----
-==== Makrók engedélyezése =====
+==== Vektorok, tömbök kezelése ====
-A Fájl/Beállítások/Adatvédelmi központ-nál állítsuk be a makrók engedélyezését és utána zárjuk be a munkafüzetet és indítsuk újra.
+<sxh>
+  Dim szamok(0 To 4) As Integer
+</sxh>
-{{:tanszek:oktatas:muszaki_informatika:pasted:20240222-080952.png}}
+Ez egy 5 elemű tömb (indexei: 0, 1, 2, 3, 4), amely egész számokat tárol.
+<sxh>
+Sub FixMeretuTomb()
+    Dim szamok(0 To 2) As Integer
+    szamok(0) = 10
+    szamok(1) = 20
+    szamok(2) = 30
-Válasszuk ki a "Fejlesztőeszközök" fület, majd a "Makrók" gomb megnyomása utána felugró ablakban a jobb egérgombbal megjelenő menüben illesszünk be egy új modult:
+    MsgBox szamok(1)  ' Kiírja: 20
+End Sub
+</sxh>
-{{:tanszek:oktatas:muszaki_informatika:pasted:20240409-051647.png}}
+Változó méretű tömb:
-Definiáljunk egy teszt függvényt ami visszaad egy konstans értéket.
+<sxh>
+Sub DinamikusTomb()
+    Dim tomb() As String
+    ReDim tomb(1 To 3)
-{{:tanszek:oktatas:muszaki_informatika:pasted:20240409-051836.png}}
+    tomb(1) = "alma"
+    tomb(2) = "banán"
+    tomb(3) = "citrom"
-<sxh vb>
+    MsgBox tomb(2)  ' banán
-Function teszt()
+End Sub
-   teszt = 1
-End Function
 </sxh>
-használata: írjuk be egy cellába **=teszt()**
+Tömb különböző típusú elemekkel:
+<sxh>
+Sub FixMeretuTomb()
+   Dim arr(5)
+   arr(0) = "1"           'Number as String
+   arr(1) = "VBScript"    'String
+   arr(2) = 100           'Number
+   arr(3) = 2.45          'Decimal Number
+   arr(4) = #10/7/2033#   'Date
+   arr(5) = #12:45:00 PM# 'Time
+   MsgBox ("Value stored in Array index 0 : " & arr(0))
+   MsgBox ("Value stored in Array index 1 : " & arr(1))
+   MsgBox ("Value stored in Array index 2 : " & arr(2))
+   MsgBox ("Value stored in Array index 3 : " & arr(3))
+   MsgBox ("Value stored in Array index 4 : " & arr(4))
+   MsgBox ("Value stored in Array index 5 : " & arr(5))
+End Sub
+</sxh>
+Tömb bejárása ciklussal:
+<sxh>
+Sub TombBejarasa()
+    Dim i As Integer
+    Dim szamok(1 To 5) As Integer
+    For i = 1 To 5
+        szamok(i) = i * 10
+    Next i
+    For i = 1 To 5
+        Debug.Print szamok(i)
+    Next i
+End Sub
+</sxh>
+//megjegyzés:// ilyenkor az immediate ablakban jelenik meg a kimenet a szerkesztőben.
+A tömb határainak lekérdezése:
+<sxh>
+Dim tomb(3 To 7) As Integer
+MsgBox LBound(tomb)  ' alsó határ (3)
+MsgBox UBound(tomb)  ' felső határ (7)
+</sxh>
+Ez alapján a TombBejarasa() szubrutint dinamikusabbá tehetjük:
+<sxh>
+Sub TombBejarasa()
+    Dim i As Integer
+    Dim szamok(1 To 5) As Integer
+    For i = LBound(szamok) To UBound(szamok)
+        szamok(i) = i * 10
+    Next i
+    For i = LBound(szamok) To UBound(szamok)
+        Debug.Print szamok(i)
+    Next i
+End Sub
+</sxh>
 ----
+==== Gyakorló feladatok ====
 Adjunk össze két számot.
@@ Line 216: / Line 336: @@
     For Each cella In tartomany
-        If IsNumeric(cella.Value) Then
+        If IsNumeric(cella.Value) And Not IsEmpty(cella.Value) Then
             osszeg = osszeg + cella.Value
             db = db + 1