Minulla on kaava, jota täytyisi käyttää useampaan kertaan vaihtelevalle rivimäärälle. Kyseessä on siis urheilukilpailujen pisteytys, jossa käytettävä kaava on 1000-(kilpailijan aika - voittajan aika)/voittajan aika*1000. Kilpailijoita on joka viikko eri määrä ja kaava pitäisi saada toimimaan kahdelle eri sarjalle. Sarjat ovat taulukossa allekkain eli toisen sarjan paikka taulukossa riippuu ensimmäisen kilpailijamäärästä.
Olen saanut aikaan makron, jolla ensimmäisen sarjan pisteet saadaan laskettua. Kyseinen makro alkaa aina samasta solusta (koska ensimmäinen sarja alkaa aina samasta paikasta) ja pitäisi päättyä sitten kun se kohtaa tyhjän rivin. Tosin nykyisellään se päättyy aina yhden rivin liian aikaisin. Tässä väsäämäni makro, jonka ensimmäinen tulos tulee soluun F4:
Sub Testimakro_A()
Do While Not IsEmpty(ActiveCell.Offset(1, -2))
ActiveCell.FormulaR1C1 = "=1000-(RC4-R4C4)/R4C4*1000"
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Ongelmia aiheuttaa toisen sarjan pisteytys, sillä se alkaa aina eri kohdasta. Makron pitäisi siis alkaa valitusta solusta ja päättyä kohdatessaan tyhjän rivin. Millä keinolla makron saa alkamaan valitusta solusta?
Niin ja tuloksethan jakautuvat sarakkeisiin aina näin: A = sijaluku, B = Nimi, C = tyhjä, D = kilpailijan aika, E = ero voittajaan, F = pistemäärä.
Excel-makro hakusessa
8
933
Vastaukset
- jelppiä
Ehkä tuo edellinen oli turhan epäselvästi kirjoitettu, kun ei ole kuulunut vastauksia. Yritetäänpäs selvemmin.
Eli minulla on tuo ylläoleva kaava, jonka pohjalta yritän vääntää makroa. Ensimmäinen ja helpompi makro (joka sekin yllä) toimii hyvin, kunhan lisäsin siihen vielä loppuun yhden rivin.
Mutta harmaita hiuksia aiheuttaa toinen makro, jonka alkamispaikka määräytyy edellisen listan mukaan. Listojen välissä on aina 2 tyhjää riviä. Makron pitäisi siis osata aloittaa laskeminen valitusta solusta ja hyödyntää sarjan voittajan aikaa niin kauan, kunnes kohtaa tyhjän rivin. On muuten hankala selittää. Mutta kokeilen tehdä tälläisen mallikaavion:
A B C D E F
===== 3 riviä tekstiä ym. ======
1. nimi1 - aika1 - pisteet (=1000)
2. nimi2 - aika2 ero pisteet (=1000-(aika2-aika1)/aika1*1000)
3. nimi3 - aika3 ero pisteet (=1000-(aika3-aika1)/aika1*1000)
.........
x. nimiX - aikaX ero pisteet (=1000-(aikaX-aika1)/aika1*1000
====== 2 tyhjää riviä =========
1. nimi1 - aika1 - pisteet (=1000)
2. nimi2 - aika2 ero pisteet (=1000-(aika2-aika1)/aika1*1000)
3. nimi3 - aika3 ero pisteet (=1000-(aika3-aika1)/aika1*1000)
...........
x. nimiX - aikaX ero pisteet (=1000-(aikaX-aika1)/aika1*1000)
Ja nuo pisteet väleissä tarkoittavat, että tuloslista jatkuu aina x. sijaan asti.
Toivottavasti en sekoittanut enempää ja joku ymmärsi jotain. Apuja odotellessa.- jelppiä
Menipäs epäselväksi tuo kaaviokuva. Tuolla nimen ja ajan välissä olevat viivat tarkoittavat, että sarake C on siis tyhjä. Ja voittajen ajan ja pisteiden välillä oleva viiva taas, että kyseinen E-sarakkeen solu on tyhjä. Olispa kiva jos tänne vois lisäillä taulokoissa tavaraa, niin pysyisi järjestyksessä.
jelppiä kirjoitti:
Menipäs epäselväksi tuo kaaviokuva. Tuolla nimen ja ajan välissä olevat viivat tarkoittavat, että sarake C on siis tyhjä. Ja voittajen ajan ja pisteiden välillä oleva viiva taas, että kyseinen E-sarakkeen solu on tyhjä. Olispa kiva jos tänne vois lisäillä taulokoissa tavaraa, niin pysyisi järjestyksessä.
Sub Testimakro_A()
Dim vika As Long
Dim solu As Range
Dim aloitus As String
Range("F:F") = ""
aloitus = "F4"
Range("F4") = 1000
vika = Range("F4").Offset(1, -2).End(xlDown).Row
For Each solu In Range(aloitus & ":F" & vika)
solu = (Range(aloitus) - solu.Offset(0, -2)) / Range(aloitus) * 1000
Next
vika = vika 3
aloitus = "F" & vika
Range("F" & vika) = 1000
vika = Range("D" & vika).Offset(1, 0).End(xlDown).Row
For Each solu In Range(aloitus & ":F" & vika)
solu = (Range(aloitus) - solu.Offset(0, -2)) / Range(aloitus) * 1000
Next
End Sub
Keep Excelling
@Kunde- jelppiä
kunde kirjoitti:
Sub Testimakro_A()
Dim vika As Long
Dim solu As Range
Dim aloitus As String
Range("F:F") = ""
aloitus = "F4"
Range("F4") = 1000
vika = Range("F4").Offset(1, -2).End(xlDown).Row
For Each solu In Range(aloitus & ":F" & vika)
solu = (Range(aloitus) - solu.Offset(0, -2)) / Range(aloitus) * 1000
Next
vika = vika 3
aloitus = "F" & vika
Range("F" & vika) = 1000
vika = Range("D" & vika).Offset(1, 0).End(xlDown).Row
For Each solu In Range(aloitus & ":F" & vika)
solu = (Range(aloitus) - solu.Offset(0, -2)) / Range(aloitus) * 1000
Next
End Sub
Keep Excelling
@KundeKiitoksia kovasti Kundelle, nyt on jo sinnepäin, mutta pieni virhe tuostakin löytyy. Tuo kirjoittamasi makro tuntuu laskevan joka rivin vain kaavalla =1000 - kilpailijan aika / 1000 * 1000 eli lyhyemmin =1000 - Dx, jossa D on sarake ja x on käsiteltävä rivi.
Käyttämäni kaava on hieman monimutkaisempi eli =1000-(kilpailijan aika - voittajan aika)/voittajan aika*1000. Eli toisin sanottuna =1000 - (Dx - Dy) / Dy * 1000, jossa x on käsiteltävä rivi ja y voittajan tulosrivi.
Muuten makro toimii hyvin, eli laskee joka rivin ja osaa vaihtaa sarjan oikeassa paikassa.
Kiitos kun jaksat vaivautua auttamaan. jelppiä kirjoitti:
Kiitoksia kovasti Kundelle, nyt on jo sinnepäin, mutta pieni virhe tuostakin löytyy. Tuo kirjoittamasi makro tuntuu laskevan joka rivin vain kaavalla =1000 - kilpailijan aika / 1000 * 1000 eli lyhyemmin =1000 - Dx, jossa D on sarake ja x on käsiteltävä rivi.
Käyttämäni kaava on hieman monimutkaisempi eli =1000-(kilpailijan aika - voittajan aika)/voittajan aika*1000. Eli toisin sanottuna =1000 - (Dx - Dy) / Dy * 1000, jossa x on käsiteltävä rivi ja y voittajan tulosrivi.
Muuten makro toimii hyvin, eli laskee joka rivin ja osaa vaihtaa sarjan oikeassa paikassa.
Kiitos kun jaksat vaivautua auttamaan.eihän siinä tartte kuin muuttaa soluviittaukset kaavariville...
ei tietoa missä muodossa noi jutskat on.
Olit kuitenkin jo laskenut eron sarakkeeseen E joten kai sitä sitten olisi voinut käyttää nyt meni vahingossa sarakkeelle D ...
keep Excelling
@Kunde- jelppiä
kunde kirjoitti:
eihän siinä tartte kuin muuttaa soluviittaukset kaavariville...
ei tietoa missä muodossa noi jutskat on.
Olit kuitenkin jo laskenut eron sarakkeeseen E joten kai sitä sitten olisi voinut käyttää nyt meni vahingossa sarakkeelle D ...
keep Excelling
@KundeNyt meni valitettavasti vähän ohi tuo viestisi sisältö. Ehkä osittain siksi, että tämä on ensimmäinen varsinainen kokeiluni makrojen ja VBA:n syövereihin.
Eli mitä meinasit tuolla jutskien muodolla? Eikä tuo soluviittauksien muuttaminenkaan näin sanallisessa muodossa oikein auennut minulle.
Ja tosiaan nämä tulostiedostot tulevat aina suoraan erään ohjelmiston kautta, eli en itse laske eroa tai muitakaan tietoja. Ainut laskettava on tämä pistemäärä, jota varten yritän laiskana ja homman nopeuttamiseksi tehdä tätä makroa. Ja oppiihan tässä samalla jotain uuttakin makroista ja muusta. jelppiä kirjoitti:
Nyt meni valitettavasti vähän ohi tuo viestisi sisältö. Ehkä osittain siksi, että tämä on ensimmäinen varsinainen kokeiluni makrojen ja VBA:n syövereihin.
Eli mitä meinasit tuolla jutskien muodolla? Eikä tuo soluviittauksien muuttaminenkaan näin sanallisessa muodossa oikein auennut minulle.
Ja tosiaan nämä tulostiedostot tulevat aina suoraan erään ohjelmiston kautta, eli en itse laske eroa tai muitakaan tietoja. Ainut laskettava on tämä pistemäärä, jota varten yritän laiskana ja homman nopeuttamiseksi tehdä tätä makroa. Ja oppiihan tässä samalla jotain uuttakin makroista ja muusta.Eli mitä meinasit tuolla jutskien muodolla?
mikä on solumuotoilu?
Eikä tuo soluviittauksien muuttaminenkaan näin sanallisessa muodossa oikein auennut minulle.
Ymmärtääkseni on jo laskettu ero voittajaan sarakkeessa E?
joten
Käyttämäni kaava on hieman monimutkaisempi eli =1000-(kilpailijan aika - voittajan aika)/voittajan aika*1000. Eli toisin sanottuna =1000 - (Dx - Dy) / Dy * 1000, jossa x on käsiteltävä rivi ja y voittajan tulosrivi.
1000-sarake E/ D & aloitusrivi*1000 on oikea kaava ( aloitusrivi on eri koodissa ekalla sarjalla ja toisella sarjalla, joten pientä hienosäätöä)...
;-)
Keep Excelling
@Kunde- jelppiä
kunde kirjoitti:
Eli mitä meinasit tuolla jutskien muodolla?
mikä on solumuotoilu?
Eikä tuo soluviittauksien muuttaminenkaan näin sanallisessa muodossa oikein auennut minulle.
Ymmärtääkseni on jo laskettu ero voittajaan sarakkeessa E?
joten
Käyttämäni kaava on hieman monimutkaisempi eli =1000-(kilpailijan aika - voittajan aika)/voittajan aika*1000. Eli toisin sanottuna =1000 - (Dx - Dy) / Dy * 1000, jossa x on käsiteltävä rivi ja y voittajan tulosrivi.
1000-sarake E/ D & aloitusrivi*1000 on oikea kaava ( aloitusrivi on eri koodissa ekalla sarjalla ja toisella sarjalla, joten pientä hienosäätöä)...
;-)
Keep Excelling
@KundeKiitos selvennyksestä, avautui asiat jo huomattavasti paremmin.
Solumuotoilu on aikasarakkeessa (D) muodossa t:mm:ss ja muualla yleinen eli ei määriteltyä muotoa.
Muotoilun takia ero voittajaan-sarake eli E ei ole käytettävissä laskukaavoille suoraan, koska ohjelmisto, josta tulokset puretaan exceliin lyö eron E-sarakkeeseen tyhmästi vaihtelevissa muodoissa. Jos ero on sekunteja muoto on ss, ero minuutteina on muoto m.ss tai mm.ss ja mikäli ero on niinkin suuri kuin yli tunnin on muoto t.mm.ss. Ja excelhän ei ymmärrä erojen olevan lukuja, vaan käsittelee niitä tekstinä solumuotoilusta riippumatta.
Tietenkin on yksi vaihtoehto muuttaa käsin erot ensin aikamuotoisiksi ja siitä sitten hyödyntää kaavaa. Tai mahdollisesti korvata valmiit erot laskemalla uudet suoraan lukumuotoon makron avulla. Mutta mielelläni kuitenkin haluaisin pitää pisteidenlaskun mahdollisimman nopeana ja kivuttomana toimenpiteenä, että olisivat kilpailijatkin tyytyväisiä, kun on tulokset ja pisteet nopeasti nähtävillä.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 15110934
- 525220
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html452433- 302133
Vanha Suola janottaa Iivarilla
Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia131701Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,421544Tiedän kuka sinä noista olet
Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta301241Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v351166Daniel Nummelan linjapuhe 2025
Kansanlähetyksen toiminnanjohtajan Daniel Nummelan linjapuhe tänään. Rehellistä analyysiä mm. evlut kirkosta ja piispo92935TÄSTÄ TAITAA TULLA SUOMEN HISTORIAN SUURIN USKONNONVAPAUDEN OIKEUDENKÄYNTI.
Sinun täytyy hyväksyä se että jos sinä vetoat uskonnonvapauteen, silloin sinun tulee antaa myös muille vastaava vapaus o317892