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
Teksti soluun mikäli toisen solun arvo on....
Tsädämm
6
428
Vastaukset
- 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 =) 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ä ?
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ä.
Luetuimmat keskustelut
Porvarimediat paniikissa demareiden huiman kannatuksen vuoksi
Piti sitten keksiä "nimettömiin lähteisiin" perustuen taas joku satu. Ovat kyllä noloja, ja unohtivat sen, että vaalit876042KATASTROFI - Tytti Tuppurainen itse yksi pahimmista kiusaajista!!!
STT:n lähteiden mukaan SDP:n eduskuntaryhmän puheenjohtaja Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti3285240Huono 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 ja202668Mikä siinä on ettei persuille leikkaukset käy?
On esitetty leikkauksia mm. haitallisiin maataloustukiin, kuin myös muihin yritystukiin. Säästöjä saataisiin lisäksi lei512615Lääppijä Lindtman jäi kiinni itse teosta
Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-2000011780852841865Juuri 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 STT1041682- 1121546
Puolen vuoden koeaika
Voisi toimia meillä. Ensin pitäis selvittää "vaatimukset" puolin ja toisin, ennen kuin mitään aloittaa. Ja matalalla pro171521seurakunnan 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 osaa1211430Olen ihmetellyt yhtä asiaa
Eli miksi naiset ovat niin pelokkaan tai vaitonaisen oloisia minun seurassani. Se sai minut ajattelemaan, että olen epäm1331393