terve. Nyt on muisti ruostunut ja apuja otettaisiin vastaan...
Banaanikauppaa käydään määrästä riippuvin hinnoin:
Solussa E1 on euromäärä, olkoon 2,4€, joka minulla on taskussani.
Soluissa A1 on euromäärä 2€ ja solussa B1 1kg
Soluissa A2 on euromäärä 3€ ja solussa B2 3kg
kysymys: kuinka saan soluun E2 tiedon, kuinka paljon banaaneja saan rahoillani?
Logiikka on hallussa, mutta ohjelmointi puuttuu..
Banaanikauppaa käydään määrästä riippuvin hinnoin:
Solussa E1 on euromäärä, olkoon 2,4€, joka minulla on taskussani.
Soluissa A1 on euromäärä 2€ ja solussa B1 1kg
Soluissa A2 on euromäärä 3€ ja solussa B2 3kg
kysymys: kuinka saan soluun E2 tiedon, kuinka paljon banaaneja saan rahoillani?
Logiikka on hallussa, mutta ohjelmointi puuttuu..
Vastaukset 4
Vanhimmat
Jos et pelleile, niin selitä vähän tarkemmin.
Mikä maksaa, paljonko maksaa..jne..
hei!
Tämä ei ole pila, vaan kyseessä on materiaalin ominaisuuksien lineaarinen approximaatio / ( 1. asteen) extrapolointi fem-analyysiä varten. Saatujen pisteiden avulla muostetaan kuvaaja materiaalin käyttäytymisestä lämpötilan mukaan f(t).
Lähinnä nyt alkuun kiinnostaisi materiaalin emissiivisyys ja konduktio.
Olen tehnyt jonkinlaisen sovelluksen (vba-makro?) noin vuosi sitten, mutta nyt en kirveelläkään löydä sitä ja ajattelin että ei tarvitsisi ihan tehdä pyörää uusiksi...
Eli antamani banaanien hinta on periaatteessa sama funktio, tunnetaan muutama piste, mutta halutaan laskea lineaarinen väliarvo niiden välille.
Löydänkyllä vlookup -toiminnolla arvolleni 2.4€ osuman sarakkeesta A1 ja funktio palauttaa arvon B1.
Ongelma: minun pitää saada tietää myös mitä on solussa
A1=match: halutaan match 1 rivi alaspäin (=x€)
ja myös
B1= matchcolumn2 yksi rivi alas = yKg
delta (An,An 1) ei ole vakio, joten en voi päätellä mikä solussa A2 nyt on, vaan sekin on luettava. Jos se olisi aina 1€, voisin hakea uudellen vlookup(E1 1€), mutta nyt se ei siis käy.
Nyt voin sitten laskea vaikkapa apusoluja käyttäen
E3 = A2-A1 = delta €
E4 = B2-B1 = delta kg
E5 = E1-A1 = osuman A1 ja rahamäärän erotus
E2 = B1 (E5/E3)*E4
Sama arvot sijoitettuna
E3 = 2-1=1
E4 = 3-1=2
E5 = 2.4-2=0.4
E2 = 1kg (0.4€/1€)*2kg = 1.8kg
miten siis saan tiedot solusta A2 ja B2..
Tällä pääset alkuun
Sub Hae()
Dim Solu As String
Dim Paikka As Variant
Dim HakuAlue As Range
Dim vika As Double
On Error GoTo virhe
vika = Range("A65536").End(xlUp).Row
Set HakuAlue = Range("A1:A" & vika)
Range("E2:E5") = ""
Paikka = WorksheetFunction.VLookup(Range("E1"), HakuAlue, 1)
Solu = HakuAlue.Find _
(What:=Paikka, After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Address
Range("E5") = Range("E1") - Range(Solu)
Range("E4") = Range(Solu).Offset(1, 1) - Range(Solu).Offset(0, 1)
Range("E3") = Range(Solu).Offset(1, 0) - Range(Solu)
Range("E2") = Range(Solu).Offset(0, 1) (Range("E5") / Range("E3")) * Range("E4")
Exit Sub
virhe:
MsgBox "Virheellinen syöttö", vbInformation, "Virhetianne"
Range("E1").Select
End Sub
tuo muistuttaa hieman sitä aiemmin näpräämääni, juuri offset(jotakin) oli kyseessä.
.. homma on tällä puoleksi jo pulkassa, joten Kiitos.