Excel - random cell

[Nick_]

Gegeven:

een lijst van vijftig woorden in Excel.

Doel:

een knop creëren die, als je er op klikt, willekeurig één van die vijftig woorden selecteert.

Vraag:

Biedt Excel de mogelijkheid tot het creëren van een dergelijke functie (via macro's, denk ik dan).
Zo ja, kan iemand me helpen?

[DaBlacky]

In welke taal worden macro's opgesteld? VB?

[Nick_]

Oorspronkelijk geplaatst door DaBlacky

In welke taal worden macro's opgesteld? VB?

Ik dacht van wel, ja. Maar daar weet ik bitter weinig van.

[Firestone]

Dit is een voorbeeldje (te schrijven in een module):
Deze macro selecteert een willekeurige cel uit het bereik.

Option Explicit

Sub SelecteerRandomWoord()

Const Bereik = "Sheet1!A1:A50"

Dim rngBereik As Range
Dim lngAantalWoorden As Long, lngSelectie As Long, rngSelectie As Range
Dim dblRandom As Double
Set rngBereik = Range(Bereik)
lngAantalWoorden = rngBereik.Count
Randomize (Timer())
dblRandom = Rnd()
lngSelectie = Int(dblRandom * lngAantalWoorden + 1)
Set rngSelectie = rngBereik(lngSelectie)
rngSelectie.Select

End Sub

Dit gaat ervan uit dat je woorden in blad Sheet1 zitten, kolom A, rijen 1 tot en met 50.
Zitten ze elders, dan moet je de instructie
Const Bereik = "Sheet1!A1:A50"
uiteraard aanpassen.

[DaBlacky]

waar is heel deze onzin voor nodig?

Dim rngBereik As Range
Dim lngAantalWoorden As Long, lngSelectie As Long, rngSelectie As Range
Dim dblRandom As Double
Set rngBereik = Range(Bereik)
lngAantalWoorden = rngBereik.Count
Randomize (Timer())
dblRandom = Rnd()
lngSelectie = Int(dblRandom * lngAantalWoorden + 1)
Set rngSelectie = rngBereik(lngSelectie)
rngSelectie.Select

[DaBlacky]

amaai, wat een gedoe voor een stomme random-functie...

[Firestone]

Oorspronkelijk geplaatst door DaBlacky

amaai, wat een gedoe voor een stomme random-functie...

Ik had begrepen dat Nick ergens in Excel een lijst met woorden had, en dat hij de selectie at-random naar één van deze woorden wilde verplaatsen.

Het kan wellicht korter met één of andere ingebouwde functie van Excel.

[DaBlacky]

maar het zal wel kloppen. Ik ken niets van VB. Het lijkt me gewoon een heel gedoe. Ik vermoed dat het in C bv makkelijker en sneller zou gaan.

[Nick_]

Ik zal vanavond eens experimenteren. Dank, Firestone.

[Nick_]

Ik heb uw VB-taal geplakt in mijn VB-editor en dan de test gedaan en hij geeft een foutmelding.


Het zegt "400" en je kan alleen op ok klikken.

[Nick_]

Ziehier een lijstje als test:


[IMG]file:///C:/DOCUME%7E1/Nick/LOCALS%7E1/Temp/moz-screenshot.jpg[/IMG]

[Nick_]

Ziehier het Visual Basics-script:

[Nick_]

Ziehier de foutmelding als ik de macro laat lopen.

[Nick_]

Hellep, Firestone.

[Firestone]

Oorspronkelijk geplaatst door Nick6502

Hellep, Firestone.

Jij bent een echte cultuurbarbaar.

1. Je moet de macro in een standaard-module plaatsen, niet in een klassemodule.
   In de VBA-omgeving kies je hiervoor in het menu Invoegen-->Module.
   VBA maakt dan een nieuwe module aan met naam Module1 (of zoiets).
   In deze module plaats je de macro.
   Verwijder hem uit de klassemodule waar ie nu staat.
   
2. Heet jouw werkblad sheet1? Zo neen, pas de instructie
   Const Bereik = "sheet1!A1:A50"
   aan.

Succes!

Bij mij werkt het.
Op het werk op een Engelse Excel-2003, thuis op een Nederlandse Excel-2000.

[Nick_]

OK, 't is gelukt.

Bedankt, hoor. Wist niet dat je daar ook goed in was.

[Nick_]

Nu kan ik een lijstje maken met quizvragen en daar dan random één uit pikken. 8)

[Nick_]

Als ik nu nog te weten zou komen hoe ik een knopje kan aanmaken die de macro start wanneer je er op klikt, zou ik heel gelukkig zijn.

[Firestone]

Oorspronkelijk geplaatst door Nick6502

Als ik nu nog te weten zou komen hoe ik een knopje kan aanmaken die de macro start wanneer je er op klikt, zou ik heel gelukkig zijn.

Zeg, kan jij Google alléén maar gebruiken als er quizpunten mee te verdienen zijn ?

Zo bijvoorbeeld:

1. Rechtsklik in Excel op een werkbalk en kies Formulieren.
2. Klik op de icoon Knop.
3. Sleep de knop over enkele lege cellen. Er wordt een knop gemaakt.
4. Het dialoogvenster Macro toewijzen aan object verschijnt. Selecteer je macro en klik op OK.
5. Sluit de zwevende werkbalk Formulieren.
6. Rechtsklik op de knop en klik er daarna met de linker muisknop op. Verander de standaardnaam naar een duidelijke omschrijving.
7. Selecteer een willekeurige cel.
8. Klik nu op de gemaakte knop. Je macro wordt nu uitgevoerd.

[Nick_]

Oorspronkelijk geplaatst door Firestone

Zeg, kan jij Google alléén maar gebruiken als er quizpunten mee te verdienen zijn ?

Ik hoor het je graag uitleggen.

Bedankt eh!

Vanaf vanavond gebruik ik het o.a. om quizvragen te selecteren.