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

• #21112 alfa20 senior tag

  Új Válasz 2014-03-27 15:51:41 #21112

  Ú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

  

  alfa20

  senior tag

  Sziasztok,

  Most kicsit ismerkednék a 'Select Case'-el, a feltételnél a képletet, hogy kell megadnom?

  egy egyszerű példa:
  Ha "A1" cella páros, akkor legyen "B2" szövege "Páros".
  Ha "A1" cella páratlan, akkor legyen "B2" szövege "Páratlan".

  sub paros_paratlan
  Select Case Cells(1, 1)
  Case Is = IsEven(" & Cells(1, 1) & ")
  Cells(1, 2) = "Páros"
  Case Else
  Cells(1, 2) = "Páratlan"
  End Select
  end sub

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