Avatar billede swamboo Seniormester
27. oktober 2003 - 21:32 Der er 6 kommentarer og
1 løsning

Foreslag ved valgmuligheder

Er det muligt at lave det sådan at et felt kan foreslå muligheder ud fra en liste.

Jeg tænker det sådan, at hvis jeg f.eks skriver "ha" kommer der en lille menu med muligherne
have
hammer osv...
- ud fra en liste på f.eks ark2.

Er det muligt, eller er det en drømmende umulighed??
Avatar billede kabbak Professor
27. oktober 2003 - 22:06 #1
Jeg tror ikke det kan lade sig gøre på din måde.

Normalt skal ordene ligge i samme kolonne, altså været brugt før, så kommer den med forslag derfra.

Under funktioner>indstillinger>Rediger skal autoudførelse af celleværdier, være afmærket.
Avatar billede jkrons Professor
27. oktober 2003 - 22:38 #2
Jeg tror ikke du kan få forslag som en liste, som du selv skriver, men du kan godt vælge fra en liste ved hjælp af datavalidering.

Lav din liste fx i Ark2. Navngivn området med listen. I de celler, hvor du skal kunne vælge, går duså i Data - Datavalidering, og vælger Liste. Skriv navnet på din liste som kilde. Hedder listen fx Liste skriver du =Liste.
Avatar billede stefanfuglsang Juniormester
31. oktober 2003 - 10:54 #3
Jeg ved ikke helt om noget i denne stil kan bruges: der laves en listbox med værdier i kolonne A, når celle B1 ændres. Der søges efter alle ord der starter med værdien. Jeg er bange for det ikke er så elegant som ønsket, men det kan tilpasses, så det bliver bedre. Man kan dog ikke få værdierne efterhånden som man taster - Change kaldes først, når cellen er opdateret.
Lav en ListBox på ark1 og læg følgende kode ind i "Microsoft excel objects/ark1":

Private Sub ListBox1_Click()
    Worksheets(1).Range("b1") = ListBox1.Value
    ActiveCell.Activate
    ListBox1.Visible = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
  'Dim List As String
  'List = ""
  ListBox1.Clear
  If Target.Address <> "$B$1" Then Exit Sub
  For Each c In Intersect(Worksheets(1).UsedRange, Worksheets(1).Range("a1:a65535"))
    If Not c Is Nothing Then
        If InStr(1, c, Worksheets(1).Range("b1")) = 1 Then
            'List = List + c + vbLf
            ListBox1.AddItem (c)
           
        End If
    End If
    Next
    ListBox1.Visible = True
    ListBox1.Activate
    'Worksheets(1).Range("c2") = List
End Sub
Avatar billede stefanfuglsang Juniormester
31. oktober 2003 - 11:03 #4
ups: de udkommenterede linier var fra første forsøg, der opbygger en streng.
Avatar billede janvogt Praktikant
31. oktober 2003 - 11:50 #5
Så vidt jeg husker kan man i en kombo-box opnå "søge"-effekten.
Avatar billede stefanfuglsang Juniormester
31. oktober 2003 - 12:46 #6
ja - combobox er nok bedre end listbox.
Avatar billede kabbak Professor
01. februar 2004 - 01:01 #7
Lukketid.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester