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

• #3658 Delila_1 veterán Ősember #3657

  Új Válasz 2008-06-10 18:33:40 #3658

  Ú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 Ősember #3657 üzenetére

  Akkor ezt vidd be az előző helyett:

  Sub KerekOtven()
  usor = Range("A65536").End(xlUp).Row
  For sor = 1 To usor
  If Cells(sor, 1) > "" Then
  sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
  Cells(sor, 3) = sz
  ket = Fix(Right(sz, 2))
  Select Case ket
  Case Is <= 24
  sz = Left(sz, Len(sz) - 2) & "00"
  sz = Fix(sz)
  Case 25 To 74
  sz = Left(sz, Len(sz) - 2) & "50"
  sz = Fix(sz)
  Case Is >= 75
  sz = Left(sz, Len(sz) - 2) & "00"
  sz = Fix(sz) + 100
  End Select
  Cells(sor, 2) = sz
  End If
  Next
  End Sub

  Hogy a biztonsági szint magas voltára hivatkozott mindkét esetben, csak a szegényes szókincsére vall - eszerint. Hiányosan írták le a lehetséges hibákat.

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