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

• #21403 Delila_1 veterán alfa20 #21402

  Új Válasz 2014-04-27 14:58:54 #21403

  Ú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 alfa20 #21402 üzenetére

  A Select Case sorban adod meg, hogy mit figyeljen. Mivel előtte már az L1 változóba beadtad a Cells(a,1) értéket, itt a sort így is írhatod:

  Select Case L1

  A Case sorokban már nem kell megadni az L1-re történő hivatkozást, mert azt már tudja. Elég a
  Case >L1 (és itt automatikusan átíródik a sor Case Is >L1 -re)

  A helyfoglalásnál minden változóhoz meg kell adni a típust, ennek hiányában Variant-nak veszi, és nagyobb helyet foglal le a memóriában.

  A With - End With párost akkor szokás alkalmazni, mikor a With sorban meghatározott objektumra több paramétert adunk meg. 1 paraméternél, mint most a szín megadásánál, felesleges.

  A Select utasítást is kerüljük, ha lehet, mert lassítja a futást, anélkül is lehet hivatkozni egy cellára, sorra, bármire.

  Ezeknek megfelelően átírtam a makrót.

  Sub szelekt1()
  Dim c As Integer, i As Integer, a As Integer
  Dim L1 As Integer, L2 As Integer
  
  c = 4
  For i = 1 To 5
  Cells(i, 1) = i
  Cells(i, 2) = i + c
  c = c - 2
  Next
  
  For a = 1 To i - 1
  L1 = Cells(a, 1)
  L2 = Cells(a, 2)
  
  Select Case L1
  Case Is > L2
  Cells(a, 1).Interior.Color = 65535
  Case Is < L2
  Cells(a, 1).Interior.Color = 5287936
  End Select
  Next
  End Sub

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