Új hozzászólás Aktív témák

• #7836 Delila_1 veterán Jarod1 #7834

  Új Válasz 2010-08-01 09:02:17 #7836

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Jarod1 #7834 üzenetére

  Azt kell figyeltetni, aminek következtében a cella értéke felveszi a Bizonyos szót.
  Pl. ha a B10 értéke akkor lesz Bizonyos, ha a C10-be beírsz egy 1-est, akkor a makró:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 And Target.Value = 1 Then _
  Rows(Target.Row).Interior.ColorIndex = 4
  End Sub

  Ebben most két új érdekesség van. Ha a feltételhez (IF) nem tartozik hamis ág (Else), akkor egy sorba írhatod a feltételt, és azt, hogy mi történjen, ha ez teljesül, nem kell End If-fel lezárni.
  A másik, hogy a hosszúra sikerült sorokat meg lehet törni úgy, hogy egy szóköz után egy alsó kötjelet teszünk, és folytatjuk a következő sorban az utasítást. Jobban áttekinthető lesz a makró, nem kell hozzá görgetni a képernyőt. A fordító program, ami a Visual Basic-ből gépi nyelvre ülteti át az utasításokat, hogy értelmezhető legyen a gép számára, soronként fordítja az utasításokat. Ezeket a megtört sorokat 1 sorként értelmezi, egyszerre ülteti át gépi kódba. Nagyobb programoknál észrevehető a gyorsabb futás.

Új hozzászólás Aktív témák