Excel-sivuilla näyttää käyvän pätevää sakkia, joten rohkenen kysyä, miten ratkaisen seuraavan ongelman: Taulukossa yksi on solualue, johon kirjoitetaan tiettyjä arvoja. Vaihtoehtoisia arvoja on kymmeniä. Taulukossa kaksi on solu, johon tulisi saada tieto, että yhteen tai useampaan em. solualueen soluista on kirjoitettu jokin haluttu arvo. Tämä tieto tulisi olla esitettynä arvoilla 1 (tosi) tai 0 (epätosi).
Hakuapua
aukkoja sivistyksessä
5
390
Vastaukset
- paavali50
=JOS(LASKE.JOS(A:A;C6)>0;1;0)
- aukkoja edelleen
Ihan mukava kaava tuokin, mutta en näe siinä ratkaisua tähän ongelmaani. Taulukossa kaksi on vain yksi solu, jonka tulos olisi 1, mikäli yksi tai useampi ehdon täyttävä numero löytyy taulukon yksi solualueelta (esim. B6:C9). Muuten arvo olisi 0. Hakuehdot täyttäviä numeroita on kymmeniä.
Toisaalta kaavaksi voisi käydä myös sellainen, että mikäli taulukon yksi solualueella B6:C9 on yksikin kelpoisuusehdon täyttävä tieto, taulukossa kaksi olevan tulossolun arvona olisi 1, muuten arvona olisi 0.- ..................
=IF(SUM(Sheet1!B6:C9)>0;1;0)
- Aukot pienenevät...
Kumpikin kaavoista on hyödynnetty. Nokkela täytyy olla, että ymmärtää käyttää laskukaavaa, vaikka varsinaista laskutulosta ei haekaan ;)
Arrayhin haettavat luvut. Nyt "Tulos" taulukon soluun A1 vertailun tulos.
taulukon moduuliin...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Laskuri As Long
Dim Haettavat As Variant
Dim Loydettysolu As Range
Haettavat = Array(11, 22, 33, 44, 55)
With ActiveSheet
For Laskuri = LBound(Haettavat) To UBound(Haettavat)
Set Loydettysolu = .Range("B6:C9").Find(What:=Haettavat(Laskuri), MatchCase:=True)
If Loydettysolu Is Nothing Then
Sheets("Tulos").Range("A1") = 0
Else
Sheets("Tulos").Range("A1") = 1
Exit For
End If
Next Laskuri
End With
End Sub
Ketjusta on poistettu 1 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Putin lähti takki auki sotaan....
Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,1113634Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista
ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv2852499Ulkoistin makuaistini Yleisradiolle
Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,02150Sanna on pakottaja, domina
Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k431921Skodan hankintaan painostaminen toi potkut
Kylläpä on kovat keinot käytössä, kun on yritetty pakottaa hankkimaan Skoda painostuskeinoilla. Kyllä valinnan pitää oll91689- 1001162
Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua
Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle791090No onneks ei tartte sit olla
Mustis ku se ootki sinä itte 😂😂 Oon pelännyt että ehkä teille kehkeytyy jotain enemmän ku niin paljon yhteistä mut....5970Lahden kolarisuma ja automaattinen hätäjarrutusjärjestelmä
Olisiko uudehkojen autojen automaattinen hätäjarrutusjärjestelmä vähentänyt kolareiden määrää tuolla Lahden tiellä? Sumu77917- 51902