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

• #5834 ulrik19 tag ulrik19 #5833

  Új Válasz 2009-12-11 18:46:02 #5834

  Ú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

  

  ulrik19

  tag

  válasz ulrik19 #5833 üzenetére

  hmmm, egy picit módosítanom kellett:

  Public Sub ktgelosztas()
  Dim osszeg As Double, i, strAr, strAr2
  
  osszeg = Int(Val(InputBox("Felosztandó összeg a kijelölt cellák között:")))
  
  strAr = Split(Selection.Value, ";")
  For i = 0 To UBound(strAr)
  strAr2 = Split(strAr(i), "=")
  Range(Trim(strAr2(0))).Value = Val(Range(Trim(strAr2(0))).Value) + Int(osszeg * Val(strAr2(1)) / 100)
  Next i
  End Sub

  Ha nem egész százalékra van szükséged, akkor tizedespontot kell használni. Pl. harmadoláshoz: 33.3333

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