Avatar billede swamboo Seniormester
23. december 2003 - 23:03 Der er 7 kommentarer og
1 løsning

Hvad hedder comboboxen??

Et par flove spørgsmål:
1):
Jeg har en for-next til at lave nogle combobox'er ved følgende kode:

Set oCtl = Me.Controls.Add("Forms.ComboBox.1", "Comhylde" & CStr(lCount), Visible)
        With oCtl
            .Left = 235
            .Height = pla
            .Top = 16 + ((j - 1) * pla) - pla
            .Width = 30
                For i = 1 To Antalhylder
                    .AddItem i
                Next i
            .ListIndex = data(udskriv(lCount), 11) - 1
        End With
- og det virker fint...
MEN:
Jeg trode (kort skrevet) at man kunne skrive combo.valgene ud ca. sådan:

for i=1 to 10
activecell.offset(i,1).value= comhylde & i
next i


MEN den går ikke - hvad gør jeg fejl??

2):
Kan man udskrive værdier fra Labels også??
Avatar billede kabbak Professor
24. december 2003 - 00:18 #1
punkt 1.

prøv at lege lidt med denne

I = 1
For Each c In UserForm1.Controls
If TypeName(c) = "ComboBox" Then
ActiveCell.Offset(I, 1).Value = c
I = I + 1
End If
Next


Punkt 2.

I = 1
For Each c In UserForm1.Controls
If TypeName(c) = "Label" Then
ActiveCell.Offset(I, 2).Value = c
I = I + 1
End If
Next
Avatar billede swamboo Seniormester
24. december 2003 - 00:35 #2
Det var sejt!!! Men kan man på en fix måde fravælge nogle af combobox'ene, jeg kan se den tager ALT med...  F.eks har jeg en combo der hedder "ComSkab" som helst IKKE skal med - hvordan kan man sortere den fra??
Avatar billede swamboo Seniormester
24. december 2003 - 00:38 #3
Er det rigtigt at den "husker" i hvilken rækkefølge de er blevet oprettet, og lister dem derudfra??
Avatar billede kabbak Professor
24. december 2003 - 00:43 #4
I = 1
For Each c In UserForm1.Controls
If TypeName(c) = "ComboBox" Then
If c.Name <> "ComSkab" Then
ActiveCell.Offset(I, 1).Value = c
I = I + 1
End If
End If
Next
Avatar billede kabbak Professor
24. december 2003 - 00:44 #5
Det vil jeg mene, men tjek lige
Avatar billede swamboo Seniormester
24. december 2003 - 00:54 #6
10000000000 tak - det var lige "DET!"

Send et svar og modtag mine ydmyge point...  ;-)
Avatar billede kabbak Professor
24. december 2003 - 01:00 #7
et svar ;-))

Godt at man kan hjælpe.

Prøv at lege lidt med det, der er måsle andre måder,

feks. hvis du er sikker på at dine comboer har et tal til slut i navnet, kan du bruge denne

I = 1
For Each C In UserForm1.Controls
If TypeName(C) = "ComboBox" Then
If IsNumeric(Right(C.Name, 1)) Then
ActiveCell.Offset(I, 1).Value = C
I = I + 1
End If
End If
Next
Avatar billede swamboo Seniormester
24. december 2003 - 23:22 #8
Du kører rigtig med klatten, hva...  ;-)
Jeg må tilstå at du kan bare det der...

Endnu engang tak for dine gode ideer og anvisninger!!!
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