PrivateSub CommandButton1_Click() Dim a AsByte For a = 1 To 10 If UserForm1.Controls("combobox" & a).Text = "" Then MsgBox "ComboBox" & a & " jest pusty." Next a EndSub
Pozdrawiam
napisał: kon postów: 8
umieszczony: 28 grudnia 2006 14:49
Witam
jest 10 combobox w forms o nazwach cecha1, cecha2 ... cecha10
chce napisac pętle tak aby sprawdzic np czy cecha1 zawiera aktualna wartosc value taką samą jak w innych cechach
chodzi o to ze musze to zrobic w pętli w stylu:
for i = 1 to 10
if cecha1.value = ("cecha" & i).value then msgbox "jest"
next i
problem polega na tym ze nie moge znalezc jak sformatowac wpis
'cecha" & i' tak zeby moc wyciagac z niego wartosc value.