Telefonszámunk: 1-472-0679

[Resolved] a sok “if” helyett valami egyszerűbbet…

Kezdőlap › Fórumok › Excel programozás › [Resolved] a sok “if” helyett valami egyszerűbbet…

Topic Resolution: Resolved
4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • 2023-03-12-13:03 #9759
    Potus
    Felhasználó

      Hello!

      van ez az alábbi makróm. Szeretném a lehető legegyszerűbb módon úgy kiegészíteni, hogy a kivonások eredményét csak akkor írja be a cellákba , ha azok nagyobbak vagy egyenlőek nullával. Ha kisebbek akkkor nullát írjon. Meg lehet úgy oldani, hogy ne kelljen sok „if”-et alkalmazni? előre is köszi!!!

      Sub Health_Data_Fresh()

      If Sheets(„service2”).Range(„bz2”) <> Sheets(„service2”).Range(„ca1”) Then
      Sheets(„service2”).Range(„bx6”) = Sheets(„service2”).Range(„bz3”) * Sheets(„service2”).Range(„ch6”)
      Sheets(„service2”).Range(„bx7”) = Sheets(„service2”).Range(„bz3”) * Sheets(„service2”).Range(„ch7”)
      Sheets(„service2”).Range(„bx8”) = Sheets(„service2”).Range(„bz3”) * Sheets(„service2”).Range(„ch8”)
      Sheets(„service2”).Range(„bx9”) = Sheets(„service2”).Range(„bz3”) * Sheets(„service2”).Range(„ch9”)
      Sheets(„service2”).Range(„bx10”) = Sheets(„service2”).Range(„bz3”) * Sheets(„service2”).Range(„ch10”)
      Sheets(„service2”).Range(„bx11”) = Sheets(„service2”).Range(„bz3”) * Sheets(„service2”).Range(„ch11”)
      Sheets(„service2”).Range(„ci6”) = Sheets(„service2”).Range(„ci6”) – Sheets(„service2”).Range(„bx6”)
      Sheets(„service2”).Range(„ci7”) = Sheets(„service2”).Range(„ci7”) – Sheets(„service2”).Range(„bx7”)
      Sheets(„service2”).Range(„ci8”) = Sheets(„service2”).Range(„ci8”) – Sheets(„service2”).Range(„bx8”)
      Sheets(„service2”).Range(„ci9”) = Sheets(„service2”).Range(„ci9”) – Sheets(„service2”).Range(„bx9”)
      Sheets(„service2”).Range(„ci10”) = Sheets(„service2”).Range(„ci10”) – Sheets(„service2”).Range(„bx10”)
      Sheets(„service2”).Range(„ci11”) = Sheets(„service2”).Range(„ci11”) – Sheets(„service2”).Range(„bx11”)
      End If

      Sheets(„service2”).Range(„bz3”) = Sheets(„service2”).Range(„ca1”)

      End Sub

      Potus

      2023-03-12-14:35 #9760
      delila
      Felhasználó

        Szia!

        Nem olyan sok, 6 IF kell hozzá. Viszont lehet egyszerűsíteni.

        Sub Health_Data_Fresh()
    With Sheets("service2")
        If .Range("bz2") <> .Range("ca1") Then
            .Range("bx6") = .Range("bz3") * .Range("ch6")
            .Range("bx7") = .Range("bz3") * .Range("ch7")
            .Range("bx8") = .Range("bz3") * .Range("ch8")
            .Range("bx9") = .Range("bz3") * .Range("ch9")
            .Range("bx10") = .Range("bz3") * .Range("ch10")
            .Range("bx11") = .Range("bz3") * .Range("ch11")
            If .Range("ci6") - .Range("bx6") <= 0 Then .Range("ci6") = 0 Else .Range("ci6") = .Range("ci6") - .Range("bx6")
            If .Range("ci7") - .Range("bx7") <= 0 Then .Range("ci7") = 0 Else .Range("ci7") = .Range("ci7") - .Range("bx7")
            'stb.
        End If
        .Range("bz3") = .Range("ca1")
    End With
End Sub

        Delila

        2023-03-12-15:48 #9761
        Potus
        Felhasználó

          Kedves Delila!

          ZSENIÁLIS!

          Köszönöm szépen!

          Potus

          2023-03-12-16:02 #9763
          delila
          Felhasználó

            Kedves egészségedre!

          • Szerző
            Bejegyzés
          4 bejegyzés megtekintése - 1-4 / 4
          • Be kell jelentkezni a hozzászóláshoz.