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

512

Ää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. Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille

      Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest
      Maailman menoa
      27
      5297

    2. Yritystuet pois ja työeläkevaroilla maksettava valtion velka pois

      Nyt on teille kerrottu keino kuinka Suomen velkaongelmasta päästää eroon kertalaakista. Älkää saatanat enää minulle tul
      Maailman menoa
      88
      4703

    3. Suomen kansa puhunut: Purra huonoimpia ministereitä

      Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden
      Maailman menoa
      286
      3735

    4. Ylen juttu sisäministeristä oli selvän tarkoitushakuinen

      haluttiin vielä vuoden loppuun saada joku "kohu". (Olisiko Yle tehnyt jutun jos sisäministerinä olisi esim. RKP:n, jota
      Maailman menoa
      123
      3170

    5. Suomalaista yrittäjää ei kommunistista erota

      Muualla maailmassa yrittäjät elävät asiakkaiden rahoilla, Suomessa palkansaajien maksamilla veroilla. Palkansaajahan ma
      Maailman menoa
      47
      2699

    6. Käykö tiekarhu tasapuolisesti Hyrynsalmen teillä??

      Mitä olette mieltä?
      Hyrynsalmi
      25
      2038

    7. Ulkoministeriön konsulipäällikkö arvostelee rajusti Haavistoa: "Täällä on pelon ilmapiiri"

      "– Täällä on ministerin toimien takia aivan selvästi pelon ilmapiiri. Jos sellaisen annetaan pesiytyä virkamieskulttuuri
      Maailman menoa
      10
      1877

    8. Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?

      Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed
      Maailman menoa
      106
      1874

    9. Mikä on pahinta

      Mitä kaivattusi voisi tehdä sinulle?
      Ikävä
      246
      1813

    10. Pyydän anteeksi etten osannut ratkaista

      Mitään muuta kuin lähtemällä. Et oikein tullut vastaan etkä kuunnellut. Tuntui että minun piti koittaa sopia ja sovitell
      Ikävä
      72
      1720
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt