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
956
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
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä1911367Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa463934Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1133110Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie1322440Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin902130Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh1961781Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.3051049Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta18835Toisten elämän moralisointi
Eikö kukin voisi keskittyä lähinnä omaan elämäänsä? Jos jollakulla muulla on tunteita, ajatuksia, tai tekoja oman suhte143775- 53719