23. december 2003 - 23:03Der 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
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??
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
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
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!!!
Synes godt om
Ny brugerNybegynder
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.