Userform Üzerindeki Labelleri Rengine Göre Saydırmak

[BedriA]

Değerli Arkadaşlar,

Ekteki resimde 5 soruya ait cevaplar görünecek.
Ben bu userform üzerindeki labelleri rengine göre saydırarak doğru, yanlış ve boş sayısını otomatik yazdırmak ve buna göre puan hesaplamak istiyorum.

Renk kodları yerine herhangi bir şey yazılabilir, çok uğraştırmaması açısından.

Selam ve saygılarımla.

 

[muygun]

Merhaba;
Örnek dosyanız olmadığına göre...

For i = 1 To 30
If Controls("Label" & i).BackColor = QBColor(10) Then say1 = say1 + 1
If Controls("Label" & i).BackColor = QBColor(11) Then say2 = say2 + 1
Next i

say1 değişkeninde yeşiller , say2 değişkeninde turkuaz renklerin sayısı mevcut
bunu dilediğiniz alana yazdırın.
İyi çalışmalar.

 

[BedriA]

Merhaba;
Örnek dosyanız olmadığına göre...

For i = 1 To 30
If Controls("Label" & i).BackColor = QBColor(10) Then say1 = say1 + 1
If Controls("Label" & i).BackColor = QBColor(11) Then say2 = say2 + 1
Next i

say1 değişkeninde yeşiller , say2 değişkeninde turkuaz renklerin sayısı mevcut
bunu dilediğiniz alana yazdırın.
İyi çalışmalar.

İlginiz için çok sağ olun. Ancak ben üstesinden gelemedim.


Labeller userform4 üzerinde bulunuyor. Yukarıda yazan Doğru, Yanlış ve Boş'un önüne sayıları gelsin istiyorum. Örneğin;

4 Doğru
1 Yanlış
4 Boş

Doğru için Label99,
Yanılş için Label100
Boş için Label101'e sayılar gelsin istiyorum.

Renkler Doğru için &H00FF8080&
Yanlış için &H00808080&
Boş için &H008080FF& şeklindedir.

 

[muygun]

Merhaba;
Bende örnek excel dosyası eklensin istiyorum.