Autofyll med alfabetet

October 26  by Eliza

Marlene er en lærer og hun har studenter som elsker ordet søk. Hun synes det er ganske tidkrevende å lage dem, men studentene synes å huske kursmaterialet mye bedre når hun bruker dem. Marlene lurte på om det var noen måte å Autofyll et celle med bokstavene i alfabetet, fra A til Z. På den måten hun kan bruke funksjonen til å fylle i kvadratene av ordet søk med bokstaver, før hun erstatter noen av disse brevene med de faktiske ordene som skal søkes.

Autofyll verktøy i Excel har noen standard sekvenser det vil fylle automatisk, for eksempel datoer og numeriske sekvenser. Den svært kraftige del av Autofyll, derimot, er at du kan lage egne lister som verktøyet bruker like lett som de innebygde sekvenser. For å skape en egendefinert liste manuelt, kan du følge disse trinnene:

  1. Velg Alternativer på Verktøy-menyen. Excel viser dialogboksen Alternativer.
  2. Kontroller at Lister kategorien Custom er valgt. (Se figur 1)

    Autofyll med alfabetet

    Figur 1. Custom Lister kategorien i dialogboksen Alternativer.

  3. I listen Entries boksen skriver du inn hver bokstav i alfabetet, ett brev per linje. (Trykk Enter etter hver bokstav du skriver.)
  4. Klikk Legg til.

Du har nå opprettet din egendefinert liste, og du kan lukke eventuelle åpne dialogbokser. Å bruke den egendefinerte listen, skriver du bare en eller to bokstavene du vil starte sekvensen med, merke disse cellene, og bruke Autofyll håndtaket til å dra over så mange celler som du vil fylle.

Det er en annen måte å lage tilpassede listen som kan være litt enklere, bare i tilfelle du ikke ønsker å skrive tjueseks bokstaver i dialogboksen. I stedet, hvis du allerede har bokstavene i alfabetet i tjueseks celler, velger du bare disse cellene og følger disse trinnene:

  1. Velg Alternativer på Verktøy-menyen. Excel viser dialogboksen Alternativer.
  2. Kontroller at Lister kategorien Custom er valgt. Celleområdet du valgte skal vises i Import List fra Cells boks.
  3. Klikk på Importer.

Nå kan du lukke dialogboksen og bruke tilpassede liste som du ønsker.

Selvfølgelig, det er en ulempe med å bruke en egendefinert liste, spesielt når det gjelder å skape ordet søk: bokstavene lagt til tomme rutene er alltid i en forutsigbar rekkefølge, noe som kan gjøre å finne de faktiske ordene litt enklere enn du ønsker. For å gjøre oppgavene litt mer utfordrende, ville det være bedre å fylle de ikke-ord firkanter med tilfeldige bokstaver.

En enkel måte å få tilfeldige bokstaver er å bruke følgende formel:

= CHAR (TILFELDIGMELLOM (65,90))

Denne formelen fungerer fordi TILFELDIGMELLOM-funksjonen returnerer en tilfeldig tallverdi mellom de to grenseverdier gitt. I dette tilfellet, vil den returnere en verdi mellom 65 og 90, som er de ASCII verdier av A og Z, henholdsvis. CHAR-funksjonen blir så brukt til å konvertere denne vilkårlig numerisk verdi til en faktisk bokstav.

Den TILFELDIGMELLOM-funksjonen er en del av Analyseverktøy, en add-in som mange mennesker har installert i Excel. (Velg Verktøy | Add-ins for å se om du har det installert.) Hvis du foretrekker å ikke ha tillegget aktivert, så kan du stole på en mer grunnleggende formel, for eksempel følgende:

= CHAR ((65 + (90-65) * RAND ()))

CHAR-funksjonen bør være kjent; den eneste forskjellen er bruken av RAND-funksjon for å generere det vilkårlige verdi i stedet for RANDBETWEEN.

Hvis du oppretter en masse ord søk gåter, så vil du kanskje å bruke en makro til å fylle et celle med tilfeldige bokstaver i alfabetet. Det finnes en rekke måter som en slik makro kan settes sammen; følgende er en som er spesielt fleksibel. Det vil fungere med enten en forhåndsvalgt utvalg (et utvalg valgt når du kjører makroen) eller du kan velge et område når du har kjørt makroen.

Sub AlphaFill ()
Dim Cell, CellChars
Dim Standard, Prompt, Tittel
Dim rangeSelected Som Range
Dim store bokstaver Som boolsk

Title = "AlphaFill Cell Selection"
Standard = Selection.Address
Spør = vbCrLf _
& "Bruk musen i forbindelse med" _
& "Shift og Ctrl til" & vbCrLf _
& "Klikk og dra eller skriv inn navn (s)" _
& "Av cellen (e) til AlphaFill" & vbCrLf & vbCrLf _
& "Valgt celle (r):"
& Selection.Address

On Error Resume Next
Satt rangeSelected = InputBox (Prompt, tittel, _
Standard, Type: = 8)
Hvis rangeSelected Er Nothing Then Exit Sub

STORE BOKSTAVER = True
Random
For hver celle I rangeSelected
CellChars = Chr (64 + Int ((Rnd * 26) + 1))
Hvis ikke store bokstaver Deretter CellChars = LCase (CellChars)
Cell.Value = CellChars
Neste
End Sub

Makrokoden, som skrevet, setter store bokstaver inn i hva området du angir. Hvis du ønsker å bruke små bokstaver i stedet, så alt du trenger å gjøre er å sette den store bokstaver variabelen til False snarere enn sann.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3109) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Autofyll med alfabetet.