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

• #11602 Delila_1 Topikgazda m.zmrzlina #11601

  Új Válasz 2011-10-07 17:37:03 #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

  Topikgazda

  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.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #11603 Delila_1 Topikgazda m.zmrzlina #11601

  Új Válasz 2011-10-07 18:06:39 #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

  Topikgazda

  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.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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