Slumpgenerator i Excel över en lista med namn

Anonym
2019-04-17T15:21:53+00:00

Önskar i Excel (Excel 2016) skapa en slumpgenerator som slumpar fram ett personnamn från en lista i Excel med en massa personnamn (t.ex. Adam, Bodil, Lisa, Peter.) Där man helst får fram ett nytt förslag varje gång.

Antingen att det visas ett nytt slumpat namn i slumpgenerator-fältet varje gång man öppnar Excelfilen. Eller ännu hellre att man har en funktion/knapp i Excel som slumpar fram ett svar när man trycker på knappen.

Hittar bara guider för hur man slumpar fram en siffra från en lista med siffror.

Microsoft 365 och Office | Excel | För hemanvändning | Windows

Låst fråga. Den här frågan har migrerats från Microsoft Support Community. Du kan rösta på om det är till hjälp, men du kan inte lägga till kommentarer eller svar eller följa frågan.

0 kommentarer
Svar godkänt av frågeställaren
Anonym
2019-04-25T08:18:05+00:00

Du kan välja helt fritt vilket område som gäller. Jag valde så Excel känner av sista raden, men har du annan data nedanför är det givetvis bra om du själv sätter området.

Ta bort raderna

Dim Antal As Long

och

Antal = ws.Range….

Sen gör du om raden

Set TabellOmr = ws.Range("A2:C" & Antal + 1)

så området omfattar din tabell, t ex

Set TabellOmr = ws.Range("A2:C109")

Slumpvärdet måste också korrigeras så antalet hamnar inom den mängd det finns namn

Slump = Int(Antal * Rnd() + 1)

Ta bort Antal och sätt in ett värde som matchar antalet, typ 108 om du har från 2 till 109.

Var det här svaret till hjälp?

0 kommentarer

16 ytterligare svar

Sortera efter: Mest användbara
Mest användbara Nyast Äldst
  1. Anonym
    2019-04-25T12:55:17+00:00

    P3excel, magiskt var ordet. :-) Allt fungerar nu helt perfekt!

    STORT TACK igen för all hjälp.

    Var det här svaret till hjälp?

    0 kommentarer
  2. Anonym
    2019-04-25T07:01:44+00:00

    HELT UNDERBART! :-)

    En sista fråga. Excelfilen innehåller annan data längre ned i filen (just nu från rad 110 och nedåt).

    Går det att ställa in så att makrot endast söker fram resultat från raderna ned t.o.m. rad 109?

    Tror det är sista frågan. Sedan ser allt ut att fungera långt över förväntningarna när jag drog igång denna frågetråd.

    Medans jag kommer ihåg det, STORT TACK för all hjälp!

    Var det här svaret till hjälp?

    0 kommentarer
  3. Anonym
    2019-04-24T18:36:47+00:00

    Inga konstigheter, vi justerar lite i koden och kollar om länk finns. Finns inte länk skrivs "Länk saknas" istället.

    Och, korrekt iakttaget. Om cellen saknar länk får du felet du nämner.

    Byt ut din kod mot följande:

    Sub SlumpaNamn()

        Dim ws As Worksheet

        Dim TabellOmr As Range

        Dim Slump As Long

        Dim Antal As Long

        Set ws = Worksheets(1)

        Antal = ws.Range("A1").End(xlDown).Row - 1

        Set TabellOmr = ws.Range("A2:C" & Antal + 1)

        Randomize

        Slump = Int(Antal * Rnd() + 1)

        ws.Range("E2") = TabellOmr(Slump, 1)

        ws.Range("F2") = TabellOmr(Slump, 2)

        If TabellOmr(Slump, 3).Hyperlinks.Count > 0 Then

            ws.Hyperlinks.Add Anchor:=ws.Range("G2"), _

             Address:=TabellOmr(Slump, 3).Hyperlinks(1).Address, _

             TextToDisplay:="Google Maps"

        Else

            ws.Range("G2").Hyperlinks.Delete

            ws.Range("G2") = "Länk saknas"

        End If

    End Sub

    Observera att G2 finns på tre ställen nu, ifall du har annan cell som webblänken ska placeras i.

    Angående sättet jag förklarar på.

    Jag jobbade många år på ett stort svenskt företag där jag i stor utsträckning hjälpte medarbetare med just Excel, i alla möjliga typer av fall, och jag försöker alltid undvika att ta saker för givet vad en person kan och inte kan. Enklast så.

    Var det här svaret till hjälp?

    0 kommentarer
  4. Anonym
    2019-04-24T14:48:33+00:00

    Alltså hur bra är du! :-)

    Fungerar alldeles utmärkt. Tack för att du förklarar på en "icke Excel-expert"-nivå. Uppskattas verkligen!

    Dock får jag ibland felmeddelandet "Körfel nr ´9´.: Indexet är utanför intervall" när jag trycker på min bild (tärningarna).

    Antar det beror på att på vissa av raderna saknar en webblänk i spalten Karta Google Maps. Där har jag istället bara lagt en text "länk saknas". Antar det är dom som Excel/makrot ger felmeddelanden för. Eller?

    Löser du det lika enkelt? :-)

    Var det här svaret till hjälp?

    0 kommentarer