Institute of Information Science - University of Miskolc

User Tools

Site Tools

Trace: • lecture_notes • matlab_octave_feladatok • vba_feladatok • raylib • basics_of_the_hypertext_markup_language • raylib_vis_functions • modern_data_integration_based_on_protocol_buffer • java_example_for_blocking_and_non-blocking_socket • java_example_for_blocking_and_non-blocking_socket • vba_tutorial
tanszek:oktatas:muszaki_informatika:vba_tutorial

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
tanszek:oktatas:muszaki_informatika:vba_tutorial [2025/04/08 19:00] – [Vektorok, tömbök kezelése] kneheztanszek:oktatas:muszaki_informatika:vba_tutorial [2025/04/09 11:09] (current) – [Alapvető Típusok] knehez
Line 51: Line 51:
   * **String**: Szöveges típus   * **String**: Szöveges típus
   * **Boolean**: Logikai típus (Igaz vagy Hamis)   * **Boolean**: Logikai típus (Igaz vagy Hamis)
 +  * **Byte**: 0-255-ig egész szám
  
 ==== Kör területének számítása ==== ==== Kör területének számítása ====
Line 197: Line 198:
 </sxh> </sxh>
  
 +Változó méretű tömb:
  
 +<sxh>
 +Sub DinamikusTomb()
 +    Dim tomb() As String
 +    ReDim tomb(1 To 3)
 +
 +    tomb(1) = "alma"
 +    tomb(2) = "banán"
 +    tomb(3) = "citrom"
 +
 +    MsgBox tomb(2)  ' banán
 +End Sub
 +</sxh>
 +
 +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 ==== ==== Gyakorló feladatok ====
tanszek/oktatas/muszaki_informatika/vba_tutorial.1744138823.txt.gz · Last modified: 2025/04/08 19:00 by knehez