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

• #5833 ulrik19 tag Pá #5832

  Új Válasz 2009-12-11 18:39:39 #5833

  Ú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 Pá #5832 üzenetére

  megoldható ez is.

  Ez némileg másképp működik. Meg kell adni egy cellában, hogy melyik cellákba kell szétosztani, és milyen arányban. Gondolom, ez előre rögzíthető, vagyis általában ugyanazt a dolgot ugyanabban az arányban ugyanazokra a ktghelyekre osztasz szét.

  Pl. legyen egy cella tartalma ez: N12=20;N16=30;N21=10;N26=40
  Itt százalékban van megadva, hogy melyik cellára mekkora rész menjen. Nem vizsgálja a program, hogy az összeg 100%-e! Persze azt is bele lehet szőni... Fontos az egyenlőségjel, és az is, hogy ;-vel kell elválasztani az elemeket.

  Állj rá erre az egy cellára. Majd indítsd a makrót:

  Public Sub ktgelosztas2()
  Dim osszeg As Integer, i, strAr, strAr2
  
  osszeg = Int(Val(InputBox("Felosztandó összeg:")))
  
  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) + osszeg * Val(strAr2(1)) / 100
  Next i
  End Sub

  Ezzel a módszerrel egyébként több költségallokációs módot tudsz tárolni. De azon a sheet-en kell tárolni, ahol az adatok vannak.

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