Differences

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

--- tanszek:oktatas:muszaki_informatika:vba_feladatok [2024/04/23 19:52] – [8. A kiválasztott cellák képéként másolása] knehez
+++ tanszek:oktatas:muszaki_informatika:vba_feladatok [2024/04/24 11:12] (current) – [Hogyan Működik?] knehez
@@ Line 191: / Line 191: @@
 End Sub
 </sxh>
-==== Hogyan Működik? ====
-  * A makró a ''On Error GoTo Hibakezelo'' utasítással kezdődik, ami azt jelenti, hogy ha a makró futtatása során hiba történik, a vezérlés átugrik a ''Hibakezelo'' címkéhez.
-  * A példában szándékosan generálunk egy hibát az osztásnál, ahol az osztó értéke 0.
-  * Ha ez a hiba megtörténik, a makró a ''Hibakezelo'' részre ugrik, ahol egy üzenetablakban megjelenik a hiba leírása.
-  * Az ''Exit Sub'' utasítás biztosítja, hogy ha hiba nélkül eljutottunk a makró végére, ne ugorjunk a hibakezelő részre.
-  * A hibakezelő részben lehetőség van további tevékenységekre, mint például a hiba naplózása vagy speciális hibakezelési rutinok végrehajtása.
 ==== Hogyan Működik? ====
@@ Line 299: / Line 291: @@
 Például: adott egy számítás ami egy rendelés árát számolja ki, figyelembe véve az adót, a szállítási költséget.
-{{:tanszek:oktatas:muszaki_informatika:pasted:20240423-195032.png}}
+{{:tanszek:oktatas:muszaki_informatika:pasted:20240423-195630.png}}
-A példában 6500Ft-ot kell fizetni az áruért. De mit tudunk csinálni ha csak **6000Ft** van kéznél? Valahogy visszafelé kellene számolni.
+A példában 4000-ot kell fizetni az áruért. De mit tudunk csinálni ha csak **3500Ft** van kéznél? Valahogy visszafelé kellene számolni, hogy megtudjuk ekkor mekkora alap árat engedhetünk meg magunknak.
 <sxh vb>
@@ Line 311: / Line 303: @@
     Target = InputBox("Enter the required value", "Enter Value")
     Worksheets("Tartalomjegyzék").Activate
-    Rem ChangingCell = az alapár .... keressük az összesen = 'C9'-es cellát
+    Rem ChangingCell = az alapár .... keressük az összesen = 'B5'-es cellát
     Rem
-    With ActiveSheet.Range("C9")
+    With ActiveSheet.Range("B5")
         .GoalSeek _
         Goal:=Target, _
-        ChangingCell:=Range("C5")
+        ChangingCell:=Range("B1")
     End With
@@ Line 323: / Line 315: @@
 End Sub
 </sxh>
+{{:tanszek:oktatas:muszaki_informatika:pasted:20240423-195725.png}}
+A példában a B5 helyére az //'Összesen'// melletti cella, a //ChangingCell// pedig az alapár (B1).
+A szkript megadja hogy a 3500Ft-os bruttó ár, **787.40Ft**-os alapárhoz tartozik.