dolgu

[Barons]

merhaba
ekteki dosyada textbox73'e girilen rakam kadar karelerin renklenmesini istiyorum.Her bir kare 0,5 m2 hesabından tüm karelerin toplamı 40 m2 yapıyor.
ben örnek olarak ; textbox73'e 40 rakamını girdiğimde tamamının kırmızı olması yada 20 girdiğimde yarısının kırmızı olmasını istiyorum.
Kısaca girilen rakam kadar renklenmesi gerekiyor.

Ben biraz uğraştım bazı kodları denedim ancak sanırım olmadı.

Yardımlarınız için çok teşekkürler

 

[halit3]

merhaba
ekteki dosyada textbox73'e girilen rakam kadar karelerin renklenmesini istiyorum.Her bir kare 0,5 m2 hesabından tüm karelerin toplamı 40 m2 yapıyor.
ben örnek olarak ; textbox73'e 40 rakamını girdiğimde tamamının kırmızı olması yada 20 girdiğimde yarısının kırmızı olmasını istiyorum.
Kısaca girilen rakam kadar renklenmesi gerekiyor.

Ben biraz uğraştım bazı kodları denedim ancak sanırım olmadı.

Yardımlarınız için çok teşekkürler

deger girilen texbox nesnesinin adını değiştirdim. sıralama için

ekli dosyayı inceleyiniz.

 

[Barons]

Hocam çok teşekkürler ancak tüm karelerin toplamı 40 olması gerekiyor yani 40 rakamı girince tamamının kırmızı olması gerekiyordu,oysa 81 girince oluyor.

 

[halit3]

kodu aşağıdaki ile değiştirin

Private Sub CommandButton1_Click()
On Error Resume Next
For i = 1 To 81
Controls("Textbox" & i).BackColor = -2147483643
Next i
For j = 1 To Val(deneme.Text * 2.025)
Controls("Textbox" & j).BackColor = vbRed
Next j
End Sub

 

[Barons]

hocam çok teşekkürler

 

[halit3]

hocam çok teşekkürler

iyi çalışmalar

 

[Barons]

hocam tekrar merhaba
userformda başka textboxlar olduğunda veya aynı benzerini yapmak istedğimde renklenme olmuyor.
dosya ektedir.
Çok teşekkürler

 

[halit3]

kodu bununla değiştir

Private Sub TextBox161_Change()
On Error Resume Next
For i = 81 To 160
Controls("Textbox" & i).BackColor = -2147483643
Next i
For j = 81 To Val(TextBox161.Text * 2.025) + 80
Controls("Textbox" & j).BackColor = vbRed
Next j
End Sub

 

[Barons]

hocam çok teşekkürler