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

• #18087 sztanozs veterán Geryson #18086

  Új Válasz 2013-05-16 12:08:45 #18087

  Ú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

  

  sztanozs

  veterán

  válasz Geryson #18086 üzenetére

  Makróval:

  Public Function Kerekit5(Value) As Integer
  If Not (IsNumeric(Value)) Then
  Kerekit5 = 0
  Exit Function
  End If
  Value = Round(Value, 0)
  lv = Value Mod 10
  Select Case lv
  Case 0 To 2
  Value = Value - lv
  Case 3 To 7
  Value = Value - lv + 5
  Case 8 To 9
  Value = Value - lv + 10
  End Select
  Kerekit5 = Value
  End Function

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