Institute of Information Science - University of Miskolc

User Tools

Site Tools

Trace: • jatek_prototipusok • strukturak_c-ben • vba_tesztkerdesek • http_protokol • alapveto_diagrammok • vba_gyakorlas • matrixok_kezelese • matlab_octave_feladatok
tanszek:oktatas:muszaki_informatika:vba_gyakorlas

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_gyakorlas [2025/04/16 05:50] – kneheztanszek:oktatas:muszaki_informatika:vba_gyakorlas [2025/04/16 06:12] (current) – knehez
Line 1: Line 1:
 ==== Feladat ==== ==== Feladat ====
 +
 +Írja ki az A1, B1 és C1 cellákba: "Neptun kód", "Pont", "Jegy" egy szubrutin segítségével.
 +
 +----
 +<sxh>
 +Sub Feladat()    
 +    Cells(1, "A").Value = "Neptun kód"
 +    Cells(1, "B").Value = "Pont"
 +    Cells(1, "C").Value = "Jegy"
 +End Sub    
 +</sxh>
 +
 +----
  
 Írjon VBA függvényt ami olyan kódokat generál véletlenszerűen, ami 6 karakterből áll és minden karakter nagybetű lehet. Írjon VBA függvényt ami olyan kódokat generál véletlenszerűen, ami 6 karakterből áll és minden karakter nagybetű lehet.
Line 23: Line 36:
 ---- ----
  
-Töltse fel az A1 és A5 közötti cellákat ezekkel a véletlen string-ekkel egy subrutinnal:+Töltse fel az A1 és A15 közötti cellákat ezekkel a véletlen string-ekkel a korábbi szubrutinhoz hozzáadva a kódot:
  
 <sxh> <sxh>
Line 29: Line 42:
     Dim i As Integer     Dim i As Integer
          
-    For i = 1 To 5+    Cells(1, "A").Value = "Neptun kód" 
 +    Cells(1, "B").Value = "Pont" 
 +    Cells(1, "C").Value = "Jegy" 
 +     
 +    For i = 1 To 15
        Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus        Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
     Next     Next
 +End Sub
 +</sxh>
 +
 +----
 +
 +A B2 cellától lefelé generáljon 15 ZH pontot 0-100 ig.
 +
 +<sxh>
 +Sub Feladat()
 +    Dim i As Integer
 +    
 +    Cells(1, "A").Value = "Neptun kód"
 +    Cells(1, "B").Value = "Pont"
 +    Cells(1, "C").Value = "Jegy"
 +    
 +    For i = 2 To 15
 +       Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
 +       Cells(i, "B").Value = Int(Rnd() * 100)
 +    Next
 +End Sub
 +</sxh>
 +----
 +
 +Írjon egy függvényt, ami a 50 pont fölötti pontokat "megfelelt"-nek jelzi a "C" oszlopban, a többit "Elégtelen"-nek.
 +
 +<sxh>
 +Function osztalyoz(pont As Integer)
 +    If pont > 50 Then
 +        osztalyoz = "Megfelel"
 +    Else
 +        osztalyoz = "Elégtelen"
 +    End If
 +End Function
 +</sxh>
 +
 +Majd építse bele a Feladat() szubrutinba a függvényt:
 +<sxh; highlight:[11]>
 +Sub Feladat()
 +    Dim i As Integer
 +    
 +    Cells(1, "A").Value = "Neptun kód"
 +    Cells(1, "B").Value = "Pont"
 +    Cells(1, "C").Value = "Jegy"
 +    
 +    For i = 2 To 15
 +       Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
 +       Cells(i, "B").Value = Int(Rnd() * 100)
 +       Cells(i, "C").Value = osztalyoz(Cells(i, "B").Value)
 +    Next
 +End Sub
 +</sxh>
 +
 +----
 +
 +Menjen végig egy külön ciklussal a "C" oszlopon és jelölje zöld színnel a "Megfelelt" jegyeket
 +
 +<sxh; highlight:[14-23]>
 +Sub Feladat()
 +    Dim i As Integer
 +    
 +    Cells(1, "A").Value = "Neptun kód"
 +    Cells(1, "B").Value = "Pont"
 +    Cells(1, "C").Value = "Jegy"
 +    
 +    For i = 2 To 15
 +       Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
 +       Cells(i, "B").Value = Int(Rnd() * 100)
 +       Cells(i, "C").Value = osztalyoz(Cells(i, "B").Value)
 +    Next
 +    
 +    Dim eredmeny As String
 +    
 +    For i = 2 To 15
 +        eredmeny = Cells(i, "C")
 +        If eredmeny = "Megfelel" Then
 +          Cells(i, "C").Interior.Color = RGB(0, 255, 0)
 +        Else
 +          Cells(i, "C").Interior.Color = RGB(255, 0, 0)
 +        End If
 +    Next
 +    
 End Sub End Sub
 </sxh> </sxh>
tanszek/oktatas/muszaki_informatika/vba_gyakorlas.1744782633.txt.gz · Last modified: 2025/04/16 05:50 by knehez