Teksti soluun mikäli toisen solun arvo on....

Tsädämm

Eli jos solussa A1 on teksti appelsiini haluan A2 tulevan automaattisesti sana "hedelmä"

Mikäli A1 on sana kurkku haluaisin sanan "vihannes" soluun A2

ja vielä jos A1 on sana Limsa niin A2 tulee sana coca-cola

Ja jos A1 on joku muu sana jota ei ole määritelty niin A2 pysyy tyhjänä

Mieluiten tämä pitäisi totetuttaa visual basicilla kun noita kaavoja ei saisi tulla näkyviin

6

428

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • KaPo_31

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim rng As Range

      Set rng = Intersect(Range("A1"), Target)

      If Not rng Is Nothing Then
      On Error GoTo XIT
      Application.EnableEvents = False
      With rng
      Select Case LCase(.Value)
      Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
      Case "kurkku": .Offset(0, 1).Value = "Vihannes"
      Case "limsa": .Offset(0, 1).Value = "Coca-cola"
      Case Else: .Offset(0, 1).Value = " "



      End Select
      End With
      End If

      XIT:
      Application.EnableEvents = True

      End Sub

      Toimisiko tällainen... Voi olla että Kundelta tulee parempi aika nopeasti =)

    • kunde

      ihan hyvinhän sie oot oppinut.... ;-)
      Mutta jos saivarrellaan niin toi rng määrittely ja käyttö on turhaa, koska sisäisessä funktiossa on jo määritelty TARGET rangeksi ja sehän edustaa silloin A1 solua, jota voi käyttää, jos solussa A1 oli tapahtunut muutos...


      Option Explicit

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo XIT
      Application.EnableEvents = False
      If Not Intersect(Range("A1"), Target) Is Nothing Then
      With Target
      Select Case LCase(.Value)
      Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
      Case "kurkku": .Offset(0, 1).Value = "Vihannes"
      Case "limsa": .Offset(0, 1).Value = "Coca-cola"
      Case Else: .Offset(0, 1).Value = " "

      End Select
      End With
      End If

      XIT:
      Application.EnableEvents = True

      End Sub

      • Kiitos

        Mielenkiitoinen yhtälö. Voisiko Kunde neuvoa vielä miten tuon saisi toimimaan koko sarakkeessa, eli kaikissa soluissa rivikohtaisesti. Tarkoitan että jos esim A33 on appelsiini B33 on hedelmä. Ja jos esim A55 on kurkku B55 on vihannes ?
        Eli että se lukisi koko sarakkeen ja heittäisi aina vastineen samalle riville B sarakkeeseen missä se kohtaisi A sarakkeessa osuman.
        Koska en ymmärrä vba:ta niin mitä tarkoittaa Offset(0,1) ja pitääkö sen edessä olla nuo kaksi pistettä ?

    • kunde

      muuta rivi
      If Not Intersect(Range("A1"), Target) Is Nothing Then
      seuraavaksi
      If Not Intersect(Range("A:A"), Target) Is Nothing Then

      .Offset(0,1) tarkoittaa siirtymää altiivisesta solusta yhden solun verran oikealle (0- pohjainen-eli aktiivinen solu on (0,0)) vastaavasti vasemmalle solun verran olisi .Offset(0,-1)


      tässä tapauksessa pitää olla kaksoispisteet

      Select Case LCase(.Value)
      Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
      Case "kurkku": .Offset(0, 1).Value = "Vihannes"
      Case "limsa": .Offset(0, 1).Value = "Coca-cola"
      Case Else: .Offset(0, 1).Value = " "
      End Select

      mutta tässä ei...


      Select Case LCase(.Value)
      Case "appelsiini"
      .Offset(0, 1).Value = "Hedelmä"
      Case "kurkku"
      .Offset(0, 1).Value = "Vihannes"
      Case "limsa"
      .Offset(0, 1).Value = "Coca-cola"
      Case Else
      .Offset(0, 1).Value = " "
      End Select

      eli KaPo_31 oli lyhentänyt koodin yhdelle riville, siksi tarvitaan tuo ;-piste

      Keep EXCELing
      @Kunde

    • Kiitos

      Kiitos paljon kunde

    • Pomo vaatii

      Kuinkas tämä sama homma onnistuisi sitten kaavoilla?

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Porvarimediat paniikissa demareiden huiman kannatuksen vuoksi

      Piti sitten keksiä "nimettömiin lähteisiin" perustuen taas joku satu. Ovat kyllä noloja, ja unohtivat sen, että vaalit
      Maailman menoa
      86
      6023

    2. KATASTROFI - Tytti Tuppurainen itse yksi pahimmista kiusaajista!!!

      STT:n lähteiden mukaan SDP:n eduskuntaryhmän puheenjohtaja Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti
      Maailman menoa
      325
      5201

    3. Huono päivä

      Tänään on ollut tosi raskas päivä töissä. Tekis mieli itkeä ja huutaa. En jaksa just nyt mitään. Minä niin haluaisin ja
      Ikävä
      20
      2658

    4. Mikä siinä on ettei persuille leikkaukset käy?

      On esitetty leikkauksia mm. haitallisiin maataloustukiin, kuin myös muihin yritystukiin. Säästöjä saataisiin lisäksi lei
      Maailman menoa
      51
      2605

    5. Lääppijä Lindtman jäi kiinni itse teosta

      Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-2000011780852
      Maailman menoa
      83
      1842

    6. Juuri nyt! Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti

      Ai että mä nautin, Tytti erot vireille! "Käytös on kohdistunut avustajia ja toisia kansanedustajia kohtaan, uutisoi STT
      Maailman menoa
      103
      1669

    7. Onko kaivattusi

      liian vetovoimainen seksuaalisesti?
      Ikävä
      111
      1531

    8. Puolen vuoden koeaika

      Voisi toimia meillä. Ensin pitäis selvittää "vaatimukset" puolin ja toisin, ennen kuin mitään aloittaa. Ja matalalla pro
      Ikävä
      17
      1521

    9. seurakunnan talouspäällikön valinta meni perseelleen

      Nyt on ihan pakko kyseenalaistaa tuo Kemijärven seurakunnan päätös talouspäälliköstä. Valitulla ei ole talouspuolen osaa
      Kemijärvi
      120
      1420

    10. Olen ihmetellyt yhtä asiaa

      Eli miksi naiset ovat niin pelokkaan tai vaitonaisen oloisia minun seurassani. Se sai minut ajattelemaan, että olen epäm
      Ikävä
      133
      1393
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt