Kısa kod ile uzun kodu yazma

[osmanfenerli1907]

merhabalar
ben textbox1 0 dan büyük ise textbox1, textbox2, ... textbox12ye kadar textboxların renginin sarı olmasını istiyorum.Bunu yapıyorum ama işim uzun oluyor.Bunun kısa kodu olabilir mi?
iyi günler

 

[Seyit Tiken]

Bu şekilde bir deneyin.

Private Sub TextBox1_AfterUpdate()
If TextBox1.Text > 0 Then
For a = 2 To 5
Controls("TextBox" & a).BackColor = &HC0FFFF
Next
End If
End Sub