kaavaongelma

öökll

Minulla on suora viittaus prosenttisoluun ja haluaisin saada numerosolusta annetulla prosenttimäärällä sen annetun prosenttimääräisen muutoksen siihen numerosoluun.

Esim.

Luku 10

Kaava esim. A1*$B1$

Ongelma on, että saa muutosta tuohon numerosoluun, tällöin excel vain viittaa että on kehäviittaus.

Saan toki lukumuutoksen viereiseen soluun, mutta tarvetta olisi siis että annetulla prosenttiarvolla tietystä numerosolusta saadaan uusi numeroluku perustuen siis annettuun prosenttiin.

4

531

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      ensiviikolla palaan asiaan...
      piece of cake pari rivia koodia

      • kunde

        taulukon moduuliin...
        nyt solussa A1 muutos ja solussa prosentti

      • ...
        kunde kirjoitti:

        taulukon moduuliin...
        nyt solussa A1 muutos ja solussa prosentti

        koodi näyttää olevan läpinäkyvällä musteella kirjoitettu.

      • kunde
        ... kirjoitti:

        koodi näyttää olevan läpinäkyvällä musteella kirjoitettu.

        taulukon moduuliin...
        tietämättä tarkemmin tarvettasi niin tossa nyt 3 eri variaatiota
        vain yksi saa olla käytössä kerrallaan

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("B1")) Is Nothing Then
        Range("A1") = Range("A1") * Range("B1") / 100
        End If
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("A1") = Range("A1") * Range("B1") / 100
        End If
        Application.EnableEvents = True
        End Sub

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("B1")) Is Nothing Then
        Range("A1") = Range("A1") * Range("B1") / 100
        End If
        Range("B1") = ""
        Application.EnableEvents = True
        End Sub

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("A1") = Range("A1") * Range("B1") / 100
        End If
        Application.EnableEvents = True
        End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      640
      2944

    2. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      109
      1582

    3. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      72
      1556

    4. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1400

    5. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      116
      1307

    6. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      138
      1276

    7. Miltä ne katseet tuntui?

      😇
      Ikävä
      105
      1147

    8. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      138
      1061

    9. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      970

    10. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      949
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt