Userform Excel

Jeg fandt svaret:
Public Sub test()
For i = 1 To 10
UserForm1("TextBox" & i) = Worksheets("Ark1").Range("A" & i)
Next i
UserForm1.Show
End Sub

Jeg fandt svaret:
Public Sub test()
For i = 1 To 10
UserForm1("TextBox" & i) = Worksheets("Ark1").Range("A" & i)
Next i
UserForm1.Show
End Sub

Du kunne gøre det lidt mere elegant ved at lave et kontrolarray ud af dine 10 tekstboxe, således at de kan kaldes som TextBox(index), hvor index løber fra 1 til 10.. ;o)

Vi har prøvet at definere TEXTBOX objekt som txtBox(index), men uden held. Hvordag gør man det ?

martin
Kan du vise et eksempel på index

td

Det er jo ikke nødvendigt med et kontrolarray i dit tilfælde, men ofte kan det være ret smart med et sådant. Du kan lave kontrolarrays over knapper, labels, textboxe osv. osv.

Det er ganske simpelt - hvis du smider f.eks. en knap på en form, markere knappen, kopiere den (Ctrl+C) og sætter den ind (Ctrl+V), vil du blive spurgt om du vil oprette et kontrolarray. Svar ja, og gentag til du har det ønskede antal knapper, labels eller hvad det nu er du arbejder med.

Det smarte er nu, at alle knapperne hedder det samme som den føsrte knap du kopierede - f.eks. Command1. Og de kan identificeres ved deres index fx. Command1(2) for knappen med index 2. Du kan sætte de enkelte index for de enkelte knapper i deres properties "index".

Og så kan man jo leve føldende

For i = 1 to 10
  Command1(i).Enabled = False
Next i

i stedet for

Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
...osv. osv.

/Martin