2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #3635 Delila_1 veterán gazsiazasz #3609
    Új Válasz #3635
    Ú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 gazsiazasz #3609 üzenetére

    A makrót úgy írtam, hogy a 21. sor színeit, és a 22. sorban lévő IGAZ és HAMIS értékeket figyelje, azok alapján módosítsa a 41. sor valamelyik adatát. A linkelt képből nem derül ki világosan, hogy a 41-en kívül kell-e még máshol is változtatni.
    Előbb képletekkel szerettem volna megoldani, de nem sikerült, makróval viszont nem túl bonyolult.

    Sub Méretek()
    If Cells(41, 12) = 0 Then
    f = 0
    For oszlop = 3 To 11
    If Cells(22, oszlop) Then
    If Cells(21, oszlop).Font.ColorIndex <> 3 Then
    Cells(41, oszlop) = Cells(41, oszlop) - 1
    f = 1
    Else
    Cells(41, oszlop) = Cells(41, oszlop) + 1
    f = 1
    End If
    End If
    If f = 1 Then Exit For
    Next
    End If
    If Cells(41, 12) = 1 Then
    For oszlop = 2 To 11
    If Cells(22, oszlop) And f = 0 Then
    If Cells(21, oszlop).Font.ColorIndex <> 3 Then
    Cells(41, oszlop) = Cells(41, oszlop) + 1
    f = 1
    Else
    Cells(41, oszlop) = Cells(41, oszlop) - 1
    f = 1
    End If
    End If
    If f = 1 Then Exit For
    Next
    End If
    End Sub

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