Oon tuossa viimenin saanut valmiiksi VBA:lla tehdyn koodin. Nyt pitäisi saada ohjelmaan vielä sellainen toiminto, että ohjelmassa olevat muuttujat voitaisiin määrittää Excel -taulukon puolelta. Eli olen määritellyt esimerkiksi A3 soluun alasvetovalikon, josta löytyy arvot. Kun valitsen tietyn arvon, koodi hakisi kyseisen luvun A3 -valikosta. Eli ideana on että Excel taulukosta valitaan n. kymmenen muuttujaa, jonka jälkeen ohjelma laskee kyseisillä arvoilla tuloksen. Tuossa on pätkä koodia ja tähdellä merkityt pitäisi saada määriteltyä excelin puolella:
...
kokoaika = 10 *
dt = 0.03 'aika-askel
imax = kokoaika / dt
dx = 0.01
paksuus = 0.25*
...
Kiitoksia jo etukäteen
Excel VBa -koodaus
VBA koodaaja
1
272
Vastaukset
laita moduuliin oma funktio
määrittelet vain muuttujille oikeat tyypit samoin kuin funktion palautusarvolle
esim.
Function Kuutiontilavuus(Leveys As Double, Syvyys As Double, Korkeus As Double) As Double
Kuutiontilavuus = Leveys * Syvyys * Korkeus
End Function
ja sitten soluun kaava esim. =Kuutiontilavuus(A1;B1;C1)
siinäpä se yksinkertaisimmallaan...
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1824180
- 331538
Minulta loppuu aika
Halusin olla täydellinen. Nyt näyttää siltä että viimeinen kiristys jää puolitiehen, sillä h-hetki on jo ihan kohta käsi391447Syvälliset keskustelut
Olisivat tärkeintä ensisijaisesti hänen kanssaan Tulisi sellainen hetki, mutta kaikki meni pieleen211433Olisipa sitä henkisesti eheämpi ja rohkeampi
mikään maallinen mammona ei itseäni kiinnosta, eikä sen menetys kiinnostus. Mutta kun kohtaa jonkun sykäyttävän ihmisen,171332- 1071249
Kyllähän tämä vähän kirpaisee
Mutta oman sisäisen rauhan vuoksi jätän sinut nyt historiaan. Todennäköisesti olet jo sinäkin mennyt eteenpäin. Olipah381167Moi, nainen
Tunnustan, olen heikkona sun hymyyn, ja sekään ei auta yhtään, että sulla on täydellinen nenä. Joten ensi kerralla, kun301150- 121067
Sulla on uskomaton luonne
Saat minut hetkessä iloiseksi, tai sanotaan nyt niin, että ajatus sinusta saa sydämeni hyppimään riemusta. En vain saa s441008