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

507

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ensiviikolla palaan asiaan...
      piece of cake pari rivia koodia

      • 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.


      • ... 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ä.

    Luetuimmat keskustelut

    1. Jaaha, sitä on vasemmistoryhmä käynyt häiriköimässä Purran kodin vieressä

      On näköjään iso lakana levitetty puiden väliin, jossa lukee mm. "Haista vi*** Riikka Purra". Tunkekaa leikkaukset pers..
      Maailman menoa
      215
      6530
    2. Päivi Räsänen vs. Abbas Bahmanpour

      (Bahmanpour on imaami Helsingissä) Syyttäjä siis jahtaa edelleen Räsästä tämän H-puheista, joissa hän on ilmeisesti vaa
      Maailman menoa
      106
      4948
    3. Demokratian uhka: Perussuomalaiset ja polarisoiva "me ja muut" -ajattelu

      Laurence Rees varoittaa, kuinka demokratian heikkeneminen ja autoritaaristen liikkeiden nousu voidaan liittää "me ja muu
      Maailman menoa
      115
      4684
    4. "Rauhanomainen" miekkari hesassa: "Eläköön aseellinen vastarinta" - lakana

      Kyseessä on Suomen Palestiinalaisten yhdistyksen viime perjantaina järjestämä ”Hiljainen kynttiläkulkue Palestiinalaiste
      Maailman menoa
      39
      3188
    5. Palkansaajan oikeus nauttia työuransa hedelmistä

      Työeläkejärjestelmä on verrattavissa pyramidihuijaukseen, jossa alemmat tasot, eli nykyiset palkansaajat, toimivat maksa
      Maailman menoa
      100
      2847
    6. En koskaan tule sinulle tätä kertomaan

      Kun kirjoitin sinulle viimeisintä viestiä, huomasin kyynelten valuvan poskiani pitkin.
      Ikävä
      64
      2283
    7. Saatoin tehdä elämäni isoimman virheen

      Otsikko kertoo kaiken. Miksei kaikki voi olla yksinkertaisempaa?
      Ikävä
      133
      1767
    8. Joroinen räjähdys

      Ja siellä räjähti sähköpakettiauto,joka teki suuret tuhot.
      Hybridi- ja sähköautot
      66
      1759
    9. odotatko vielä viestiä minulta...

      Mies...? En tiedä mitä sanoa 😔 auta vähän naista ja tule enemmän vastaan
      Ikävä
      139
      1684
    10. Kova ikävä parittelukumppania täällä korvessa

      Mutta muuten kyllä on rauhallista.
      Ikävä
      57
      1517
    Aihe