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

• #3643 Delila_1 veterán Ősember #3642

  Új Válasz 2008-06-08 08:41:58 #3643

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

  G1-be írom a szorzót (123), H1-be a hozzáadandó értéket (5). A számok az A oszlopban, A1-től kezdődően vannak, a kerekített eredményt a B oszlopban kapom meg. A C-be beíratom a (A+H1)*G1 értéket, hogy ellenőrizni lehessen a kerekítést. Ha erre az utóbbira nincs szükség, töröld a Cells(sor,3)=sz sort.

  Sub KerekOtven()
  sor = 1
  Do While Cells(sor, 1) <> ""
  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
  sor = sor + 1
  Loop
  End Sub

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