2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #5833 ulrik19 tag Pá #5832
    Új Válasz #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

    :D 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