Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #11603 Delila_1 veterán m.zmrzlina #11601
    Új Válasz #11603
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz m.zmrzlina #11601 üzenetére

    Public sor%
    Public WS1 As Worksheet, WS2 As Worksheet

    Sub szavak()
    Dim usor%
    Set WS1 = Sheets("Munka1")
    Set WS2 = Sheets("Munka2")

    usor% = WS1.Range("A1").End(xlDown).Row
    sor% = Int(Rnd() * usor%) + 1
    WS2.Cells(1) = WS1.Cells(sor%, 1)
    WS1.Cells(3) = sor%
    End Sub

    Sub ell()
    Set WS1 = Sheets("Munka1")
    Set WS2 = Sheets("Munka2")
    sor% = WS1.Cells(3)
    If WS1.Cells(sor%, 2) <> WS2.Cells(2) Then
    WS1.Cells(sor%, 3) = WS1.Cells(sor%, 3) + 1
    End If
    End Sub

    Az elsővel feldobod a szót a Munka2!A1-be, az Rnd-vel kiválasztott sor számát beírod a Munka1!C1-be. A másodikkal ellenőrzöd a Munka2!B1-be írt választ. Ha nem jó, a Munka1 lapon a 3. oszlop értékét növeled 1-gyel a Munka1!C1-edik sorában, ahonnan a szót kiválasztotta az Rnd.

    Sok kérdés és ellenőrzés után ki tudod választani a Munka1 C oszlopából a legtöbbször tévesztett szavakat, ezeket másolod az eredeti szavak alá, és úgy irányítod a véletlent, hogy ezekre mutasson.

    Szerk.: nem is kell másolni. Rendezed a Munka1 A:C tarományát a C oszlop szerint, és szűkíted az Rnd tartományát.

  • #11602 Delila_1 veterán m.zmrzlina #11601
    Új Válasz #11602
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz m.zmrzlina #11601 üzenetére

    Helytelen válasz esetén a függvénnyel létrehozott sor egy cellájának az értékét növeled. X db kérdés után a randbetween alsó és felső határát ezeknek a számoknak a minimumával és maximumával határozhatnád meg.
    Ez még nem az igazi, csak közelít. Az új értékhatárok előtt törlöd a helytelen válaszok oszlopát, az új határokkal megint feltöltöd az X kérdésre adott hibás válaszokkal. Így szűkítheted a tartományt, de biztosan van ennél jobb ötlet is.

    Úgy is csinálhatod, hogy a maximumot veszed alapul, és ezt bővíted fel- és le néhány sorral.

    Szerk.:
    A legtöbbször elhibázott szavakat a lista végére teszed, és a véletlen határait eszerint szabod meg.

Új hozzászólás Aktív témák