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

489

Ää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. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      83
      2814

    2. Kerro mistä alkaen

      Se ihastuminen alkoi? Mikä vuosi?
      Ikävä
      65
      1088

    3. Suomea odottaa karu kohtalo

      Mitäs menitte uhkailemaan ja leikkimään kovaa. Ei mitään mahdollisuuksia Venäjää vastaan.
      Maailman menoa
      200
      942

    4. Tosiaankin, jos julkaisette täällä henkilötietoja

      Minkäänlaisia, se on poliisiasia. VPN, proxy- tai julkinen yhteys ei salaa mitään. Poliisi pystyy jäljittämään ja saamaa
      Ikävä
      85
      876

    5. Bachelor-Joonas tapasi Monican isän - "Appiukko" antoi koulutusta vävypojalle - Katso kuvat tästä!

      Joonas ja Monica ovat pitäneet yhtä Bachelor Suomi -kuvausten jälkeen. Tämä todistaa, että tosi-tv:ssä voi syntyä rakkau
      Suomalaiset julkkikset
      4
      855

    6. Olet upea nainen

      Upea nainen oot.
      Ikävä
      34
      840

    7. Gallup: Mitä mieltä olet uudesta Putous-kaudesta: hyvä, keskinkertainen, huono?

      Putous on saanut kuraa niskaan mm. kaksimielisistä jutuista. Ohjelma on lasten suosikki ja lapset toistelevat hokemia ti
      Tv-sarjat
      39
      839

    8. Onko yhtään ikävä

      Vai ei?
      Ikävä
      52
      826

    9. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      43
      805

    10. Kaipaatko yhtään

      Tai odotatko näkemistä?
      Ikävä
      41
      788
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt