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

• #21113 Delila_1 veterán alfa20 #21112

  Új Válasz 2014-03-27 15:58:04 #21113

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

  Sub mm()
  Select Case Cells(1) Mod 2
  Case 0
  Cells(1, 2) = "Páros"
  Case Else
  Cells(1, 2) = "Páratlan"
  End Select
  End Sub

  A Mod 2 a maradékot adja cellának 2-vel történő osztásakor.

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