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

425

Ää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. Kuolemanrangaistus

      Mielestäni kuolemanrangaistus on väärin kaikissa tilanteissa. Vaikka joku olisi murhannut 10 ihmistä, hänen surmaaminen
      Laki ja rikos
      86
      6005

    2. Muistakaa persut, että TE petitte, ei kokoomus

      Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,
      Maailman menoa
      301
      5322

    3. Riikka Purra ei estä tehomaksun käyttöönottoa

      Sähkön hinnoittelua koskevan määräyksen on määrä astua voimaan vuoden 2029 alusta, Energiavirastosta kerrotaan. Määräyk
      Maailman menoa
      50
      3345

    4. Lopetan ikävöinnin

      Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään
      Ikävä
      10
      2916

    5. Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta

      joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina
      Maailman menoa
      106
      2729

    6. Jos kaikki lopulta kuolevat, onko edes pahimmillakaan rikoksilla mitään väliä?

      Kaikki kuolevat lopulta. Siksi ihmisten tekemillä rikoksillakaan ei lopulta ole mitään merkitystä. Joidenkin mielestä t
      Filosofia
      4
      1675

    7. Väestöstä vain vassarit vaihtuvat nopeammin kuin persut

      Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.
      Maailman menoa
      17
      1598

    8. Sinä olet minun forEver

      Sinä olet minun sielussain, sydämessäin, huulillain, sinä olet ain, Sinä olet vieressäin, kainalossain, sylissäin, ain,
      Ikävä
      21
      1520

    9. Vihervassarit

      Vihervassarit sitä, vihervassarit tätä. Minulla on paha mt-ongelma. Se tuli lobotomian jälkioireina. Vihervassarit tät
      Maailman menoa
      32
      1459

    10. Mies joka vetäytyy osoittaa teoillaan

      Ettei halua olla tekemisissä. Mies joka ei vastaa viesteihin, ei halua sua. Mies joka jättää sut epätietoisuuteen, ei
      Ikävä
      178
      1094
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt