LOTTORIVI LASKURI

Tyttö83

En ole varma, kuuluuko tälle palstalle, mutta...

Pitäisi tehdä lottorivi laskuri Excelillä. Osaisiko joku auttaa, miten sellainen tehdään?

Siis tällainen on tehtävän anto:

"Eipä tässä mitään ihmeellistä keksinyt niin että kotitehtävä on
lottorivin arvonta. Jos saat aikaiseksi makron joka tekee exceliin
kuusi satunnaislukua välille 1-37 (vai mikä se suurin numero on
nykyään?) niin saat kotitehtävästä 3. Mieluummin tulosta makro ja
tulokset paperille ja laita aulassa olevaan postilaatikkooni. Ei pidä
sitten hermostua, vaikka et onnistuisikaan tässä tehtävässä. Tehtäviä
tulee lisää...

Jos teet semmosen ohjelman, joka vielä tarkistaa että kaikki numerot
ovat erilaiset ja ovat vieläpä suuruusjärjestyksessä excelissä, saat
4 pistettä. Tässä tapauksessa haluan ohjelman sähköpostitse niin että
voin laittaa sen edelleen kaikille."

Eli tällainen ohjelma me tehtiin koulussa, ja vastaavalla tavalla tulisi se lottorivikin, mutta kun tuostakaan ei oikein ymmärrä niin... :( Luennoitsija ei oikein mielestäni osaa opettaa.

Sub satun()
For i = 1 To 1000
Cells(2, 2) = "=rand()"
j = Int(10 * Cells(2, 2)) 1
Cells(1, 1) = j
Cells(5, j) = Cells(5, j) 1
Next i
End Sub

11

6116

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Ryöcäle

      Sub Lotto()
      For a = 1 To 7
      Do
      num = Int((39 * Rnd) 1)
      Loop While Not Range("A1:A7").Find(num) Is Nothing
      Range("A" & a).Value = num
      Next a

      Range("A1:A7").Sort Key1:=Worksheets("Sheet1").Range("A1")
      End Sub

      • Orwell

        Eikös ennen tuota luuppia kannattaisi olla Range("A1:A7").Clear, jotteivät mahdollisesti, jo kertaalleen arvotut numerot vaikuttaisi uuteen arvontaan


      • Tyttö83
        Orwell kirjoitti:

        Eikös ennen tuota luuppia kannattaisi olla Range("A1:A7").Clear, jotteivät mahdollisesti, jo kertaalleen arvotut numerot vaikuttaisi uuteen arvontaan

        Kaunis kiitos kaikille avustajille!

        Tuo oli tosi selkeä esitys.


      • Ryöcäle
        Orwell kirjoitti:

        Eikös ennen tuota luuppia kannattaisi olla Range("A1:A7").Clear, jotteivät mahdollisesti, jo kertaalleen arvotut numerot vaikuttaisi uuteen arvontaan

        Olet 100% oikeassa. Mikäli soluja ei tyhjennä ennen uuden arvonnan aloittamista, arvottavan solun arvo ei voi olla yksikään edellisen kierroksen jäljellä olevista numeroista.

        Mutta toisaalta, tehtävän asettelussa pyydettiinkin tulostamaan lottonumerot vain kerran :)


      • Oaku

        Olen kokeillut tuota ohjelmaa, mutta jostain syystä lottoriviä ei vaan synny.Olen huomioinut myös jäljempänä olevan lisäyksen. Aikaisemmin olen tehnyt muutamia pienia Macroja ja ne foimivat hyvin. Kukahan tietäisi mikä tässä mättää kun tulosta ei synny?


    • polisher

      Lottorivi laskuri -??
      Vielä kun sulle vois joku tehdä äidinkielentehtävätkin...

      "Luennoitsija ei oikein mielestäni osaa opettaa."
      Just joo.

      • Tyttö83

        Valitettavasti yliopistossa ei ole äidinkielen opetusta, jos sitä ei varta vasten opiskele.

        Ennen kuin alkaa muita haukkumaan kannattaisi tarkistaa oma kirjoitustaito, hyvänä esimerkkinä "Lottorivi laskuri-??". Kun et ole ollut luentosalissa, en sinuna puhuisi mitään. Jos olisit ollut, tietäisit, mistä puhun.


      • Jouse
        Tyttö83 kirjoitti:

        Valitettavasti yliopistossa ei ole äidinkielen opetusta, jos sitä ei varta vasten opiskele.

        Ennen kuin alkaa muita haukkumaan kannattaisi tarkistaa oma kirjoitustaito, hyvänä esimerkkinä "Lottorivi laskuri-??". Kun et ole ollut luentosalissa, en sinuna puhuisi mitään. Jos olisit ollut, tietäisit, mistä puhun.

        Valitettavasti karu totuus on nykyisin se, että tietotekniikan opettajiksi ajautuu huonon palkan vuoksi usein niitä IT-osaajia jotka eivät muuta työtä saa.

        Itse olen opiskellut IT-tradenomiksi (sovelluskehitys) ja muutamaa poikkeusta lukuunottamatta luennoitsijat (ammattiaineissa) ovat olleet niin hanurista etten ole viitsinyt koulussa käydä paitsi kokeissa ja kavereita moikkaamassa. Kirjoista opiskelu on todella työlästä mutta silti niin oppii paremmin kun opettajan ulosanti on täysi nolla.

        Sama ongelma on kuulemma muissakin kouluissa. Jopa yliopistoissa. Muissa aineissa opetus on ollut hyvää.


      • Pohdiskelija
        Jouse kirjoitti:

        Valitettavasti karu totuus on nykyisin se, että tietotekniikan opettajiksi ajautuu huonon palkan vuoksi usein niitä IT-osaajia jotka eivät muuta työtä saa.

        Itse olen opiskellut IT-tradenomiksi (sovelluskehitys) ja muutamaa poikkeusta lukuunottamatta luennoitsijat (ammattiaineissa) ovat olleet niin hanurista etten ole viitsinyt koulussa käydä paitsi kokeissa ja kavereita moikkaamassa. Kirjoista opiskelu on todella työlästä mutta silti niin oppii paremmin kun opettajan ulosanti on täysi nolla.

        Sama ongelma on kuulemma muissakin kouluissa. Jopa yliopistoissa. Muissa aineissa opetus on ollut hyvää.

        Syynä voi olla myös se että ala on vielä niin kovin nuori että merkittävä osa alan osaajista vaan ei ole pedagogeja vaan enemmänkin suorittajia jotka eivät välttämättä osaa siirtää taitojaan muille.


      • riti
        Tyttö83 kirjoitti:

        Valitettavasti yliopistossa ei ole äidinkielen opetusta, jos sitä ei varta vasten opiskele.

        Ennen kuin alkaa muita haukkumaan kannattaisi tarkistaa oma kirjoitustaito, hyvänä esimerkkinä "Lottorivi laskuri-??". Kun et ole ollut luentosalissa, en sinuna puhuisi mitään. Jos olisit ollut, tietäisit, mistä puhun.

        Ennen kuin alkaa muita haukkua, ei haukkumaan! Kenenkähän pitäisi se kirjoitustaitonsa tarkistaa;)? Näin alkeelliset asiat piti oppia jo peruskoulussa.


      • ulkopuolinen
        riti kirjoitti:

        Ennen kuin alkaa muita haukkua, ei haukkumaan! Kenenkähän pitäisi se kirjoitustaitonsa tarkistaa;)? Näin alkeelliset asiat piti oppia jo peruskoulussa.

        Jos ei ole muuta kommentoitavaa kuin kirjoitusvirheet, olet väärällä palstalla niinkuin se toinenkin.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Epäily: Räppäri yritti tappaa vauvansa.

      https://www.mtvuutiset.fi/artikkeli/epaily-mies-yritti-tappaa-vauvansa/9300728 Tämä on erittäin järkyttävä teko täysin p
      Maailman menoa
      45
      5070
    2. Onko Sanna menossa Ukrainaan viettämään vuosipäivää?

      Kun on bongattu Varsovan lentokentältä?
      Maailman menoa
      113
      1594
    3. Räppäri kuoli vankilassa

      Ei kuulemma ole tapahtunut rikosta. Sama vahinkohan kävi Epsteinille. https://www.hs.fi/suomi/art-2000011840869.html "
      Maailman menoa
      48
      1249
    4. Välillä kyllä tuntuu, että jaat vihjeitä

      Mutta miten niistä voi olla ollenkaan varma? Ja minä saan niistä kimmokkeen luulemaan yhtä sun toista. Eli mitä ajatella
      Ikävä
      10
      1189
    5. Aleksi Rytilä

      Räppäri saa haluamaansa julkisuutta.
      Kotimaiset julkkisjuorut
      13
      1123
    6. 81-vuotias Frederik avoimena - Ei omasta mielestä kelpaa tästä syystä realityihin: "Veemäinen..."

      Junttidiscon kuninkaana tunnettu Frederik, 81, on esiintymislavoilla suvereeni tekijä. Mies on viihdyttänyt ympäri Suome
      Suomalaiset julkkikset
      17
      1017
    7. Muusikko yritti tappaa kaksiviikkoisen vauvan

      Karu epäily: Muusikko, 32, yritti tappaa kaksiviikkoisen vauvan Oulussa. IS:n selvityksen perusteella miestä ei ole syy
      Maailman menoa
      76
      969
    8. Kulukusuunnat

      Eikö kuhmolaiset iha oikiasti tiiä kumpi o vasen ja kumpi oikia? Tuolla ku liikennemerkissä näkyy nuolet ylös ja alas, v
      Kuhmo
      3
      895
    9. Tynkä Eläintarha ei ole enää visiitin väärti

      Ähtärin MesiZoo on vajonnut alas. Näytillä olevien eläinten määrä on romahtanut lähemmäs -40%. Paikat ovat päässeet pah
      Ähtäri
      57
      779
    10. Junan alle

      Kuka päätti tai yritti päättää päivänsä jäämällä junan alle ja aiheutti sen takia veturikuskille ja muille traumat..?
      Kajaani
      27
      753
    Aihe