Mikä on oikea kaava?

Pähkäillyt

Olen yrittänyt pähkäillä oikeaa kaavaa, mutta nyt nuo kaavat eivät vain tunnu onnistuvan. Voisiko joku nero auttaa.

A1 sarakkeeseen kirjoitetaan luku, ja sen pitäisi tulostua B1 sarakkeeseen. Tämä ei ollut vaikea, mutta kun siihen tuleekin poikkeuksia. Eli jos kirjoitan A1 sarakkeeseen 25, pitäisi, B1 tulostua 25 jne., mutta kun kirjoitan luvun 27, pitäisi nyt B1 sarakkeeseen tulostua 24 tai jos kirjoitan 35, pitäisi luku sarakkeeseen tulostua 30. Eli kaavassa ei ole mitään säännöllisyyttä. Kaikki muut luvut pitäisi tulostua sellaisenaan paitsi nämä muutama poikkeus on. Ja jottei tästä tulisi ihan helppo. Pitäisi vielä tuo B sarake pystyä laskemaan yhteen.

A1 kirjoitettava luku
B1 luku joka siirtyy A1:stä
E1 =27, F1 =24
E2 =35, F2 =30
E3 =66, F3 =60

Onkohan tehtävä mahdoton tai minulle se ainakin on.

Kiitän jo etukäteen, jos joku pystyisi auttamaan minua ongelmassa.

7

494

Äänestä

    Vastaukset 7

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      taulukon moduuliin...

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      Select Case Target
      Case 27
      Target = 24
      Case 35
      Target = 30
      Case 66
      Target = 60
      'JNE..
      Case Else
      End Select
      End If
      End Sub

      • ap

        Kiitos kun yritit auttaa... Minun on vain todettava, että tunnen itseni entistä tyhmemmäksi.
        Nyt se on sitten jostain yritettävä kalastaa jokin aloittelijan opas tuohon VBA:han, kun sitä en hallitse ja en tiedä yhtään mistä puhutaan. Luultavasti löydän jostain tuolta VBA:sta paikan mihin tuon ohjelmapätkän sitten copy/Paste :) mutta sitä ennen se on minulle utopiaa. Kiitos on kuitenkin paikoillaan, kun viitsit yrittää vääntää minulle rautalankaa.

      • ap.

        Onnistuin selvittämään VBA:n käyttöä ja koodi hässäkkä toimii hyvin, mutta ei ihan niin kuin halusin.

        Eli tuo A1 sarakkeeseen kirjoitettava luku 27 pitäisi näkyä siinä A1 sarakkeessa eli sen pitää jäädä siihen, mutta luvun 24 pitää tulostua B1 sarakkeen jne. Entäs jos haluan saman kaavan seuraavalle riville eli A2 jne.

        Kiitos taas etukäteen.

      • kunde

        olinpas lukenut huolimattomasti kyssärin...
        kopioi oikealle
        Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case Target
        Case 27
        Target.Offset(0, 1) = 24
        Case 35
        Target.Offset(0, 1) = 30
        Case 66
        Target.Offset(0, 1) = 60
        'JNE..
        Case Else
        Target.Offset(0, 1) = Target
        End Select
        End If
        End Sub

        ja alaspäin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case Target
        Case 27
        Target.Offset(1, 0) = 24
        Case 35
        Target.Offset(1, 0) = 30
        Case 66
        Target.Offset(1, 0) = 60
        'JNE..
        Case Else
        Target.Offset(1, 0) = Target
        End Select
        End If
        End Sub

      • Haltioissaan
        kunde kirjoitti:

        olinpas lukenut huolimattomasti kyssärin...
        kopioi oikealle
        Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case Target
        Case 27
        Target.Offset(0, 1) = 24
        Case 35
        Target.Offset(0, 1) = 30
        Case 66
        Target.Offset(0, 1) = 60
        'JNE..
        Case Else
        Target.Offset(0, 1) = Target
        End Select
        End If
        End Sub

        ja alaspäin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case Target
        Case 27
        Target.Offset(1, 0) = 24
        Case 35
        Target.Offset(1, 0) = 30
        Case 66
        Target.Offset(1, 0) = 60
        'JNE..
        Case Else
        Target.Offset(1, 0) = Target
        End Select
        End If
        End Sub

        Kiitos ei ole koskaan pahitteeksi joten,
        Tuhannesti kiitoksia avustasi.
        Olet kyllä kultainen kun autat tällaisia tavallisia taatelintallaajia.

    • tuttumies

      Solussa B1 kaava
      =OFFSET(G1;A1-1;0 )

      Sarakkeessa G arvot 1, 2, ...maksimi (arvot saa vetämällä) ja rivillä 27 arvo 24 ja rivillä 35 arvo 30, jotka joutuu kirjoittamaan käsin.
      Solun A1 arvo toimii siis hakuindeksinä.

      Toimii, jos luvut ovat kokonaislukuja

      • tuttumies

        Dollari jäi pois, jos sitä koko sarakkeelle käyttää, eikä vain ylimmälle riville. Suomeksi Offset on Siirtymä.
        =SIIRTYMÄ (G$1;A1-1;0 )

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mitä on mietteissäsi

      Tänään?
      Ikävä
      67
      788

    2. En olis uskonu

      et kuulut tollaseen porukkaan
      Ikävä
      113
      752

    3. Mikä on hulluinta?

      Mitä ikäväsi kohde on tehnyt?
      Ikävä
      37
      706

    4. Meiltä löytyy kyllä älliä

      Vai mitä oot mieltä...
      Ikävä
      130
      667

    5. En haluaisi sanoa tätä

      Mutta olet sokea sille, mitä sinulla jo on! Jos minä olisin sinä, pyrkisin tekemään kaikkeni kohentaakseni nykyistä pari
      Ikävä
      40
      609

    6. Et taida olla ihan varma

      Päätöksestäsi?
      Ikävä
      67
      589

    7. Vasemmiston aloite

      Pyhäjärvellä, ihan hyvä aloite. Toteutus ja puhdistus pitäisi alkaa ihan omasta pesästä. Näkeehän tuon sokeakin mitä ja
      Pyhäjärvi
      58
      493

    8. Miltä tuntuu

      olla erossa kaivatustasi?
      Ikävä
      27
      485

    9. Koska Sofia kertoo totuuden, että ovat eroneet miljonääri miehen kanssa?

      Eikö olisi hänelle itselleen helpotus, kun voisi kertoa totuuden. Miksi salata asiaa ja pitkittää sitä harmaan tulevaisu
      Kotimaiset julkkisjuorut
      142
      469

    10. Onko suhtautuminen kaivattusi

      Fyysiseen vetovoimaan muuttunut? Jos, mihin suuntaan? Tunnetko enemmän vai vähemmän vetoa häneen fyysisesti kuin silloin
      Ikävä
      35
      468

    11. Miksi vihainen

      Miksi olet vihainen mulle?
      Ikävä
      41
      432

    12. Tunnistan mun rakkaan

      Kirjoituksen heti kun se on täällä. Mä vaan tiedän sen ja tunnen 🤗
      Ikävä
      68
      430

    13. Näyttää siltä ettet edes sinä.

      Kukaan ei uskalla kohdata aitoa ja syvää sielun rakkautta. Hyvin harvat vain. Ihmisten on turha tavoitella sitä oikeaa
      Ikävä
      30
      408

    14. Maajussille morsian: Farmiviikon voittajat ja häviäjät - Itkua ja pettymystä ei salattu

      Maajussille morsian -suosikkisarjassa farmiviikolla selviää, onko ilmassa "sitä jotakin". Rakkauden etsintä on täynnä i
      Maajussille morsian
      0
      405

    15. Hei, alettaisko oleen yhdessä?

      Miltä tuntuisi jos joku ihminen josta tykkäät sanoisi haluavansa yhteen asumaan? Ajattelisitko menettäväsi vapauden, pys
      Sinkut
      65
      398

    16. Miten oletkin noin

      osaamaton kaikin tavoin :)
      Ikävä
      35
      393

    17. Jos olen aiheuttanut pahaa, pyydän anteeksi

      Jos olen omalla kirjoittelullani aiheuttanut täällä jollekin pahaa mieltä tai sotkenut asioita, niin pyydän sitä anteeks
      Ikävä
      58
      387

    18. Muistelen lämmöllä

      Se oli vaikein päätös, jonka olen joutunut tekemään. En pidä valehtelusta, mutta näin sait päätöksen asioille. Rakasti
      Ikävä
      27
      384

    19. Kun asiat pitkittyy niin ne mutkistuu

      Mutkaista jo on, ei nämä enää selviä.
      Ikävä
      29
      374

    20. Tyrkytät ittees liian

      tasokkaille :)
      Ikävä
      44
      373
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt