Kod sadeleştirme ?

[Gorarr]

TextBox1.Text = "": TextBox2.Text = "": TextBox4.Text = "": ComboBox1.Text = "": ComboBox2.Text = ""
ComboBox4.Text = "": ComboBox5.Text = "": ComboBox7.Text = "": ComboBox8.Text = "":


ComboBox1.BackColor = vbWhite
ComboBox2.BackColor = vbWhite
ComboBox3.BackColor = vbWhite
ComboBox4.BackColor = vbWhite
ComboBox5.BackColor = vbWhite
ComboBox6.BackColor = vbWhite
ComboBox7.BackColor = vbWhite
ComboBox8.BackColor = vbWhite

Selamlar, bu verdiğim kodları daha sadeleştirerek yazmanın bir yolu varmı. Çünkü yapacağım anket türü userformda sayfalarca
kod yazılması gerekicek.

Hani şuna benzer (örn : TextBox1:2:3:4.text ) bir yolu varsa çok makbule geçer..

Yardımlarını için şimdiden teşkkür ederim...

 

[halit3]

Selamlar, bu verdiğim kodları daha sadeleştirerek yazmanın bir yolu varmı. Çünkü yapacağım anket türü userformda sayfalarca
kod yazılması gerekicek.

Hani şuna benzer (örn : TextBox1:2:3:4.text ) bir yolu varsa çok makbule geçer..

Yardımlarını için şimdiden teşkkür ederim...

Userformun üzerindeki aynı tip nesneler ardışık sıralı ise örnek olarak aşağıdaki kodu kullanabilirsin

For j = 1 To 8 'edet nesneye işlem yapıyor
Controls("ComboBox" & j).BackColor = vbWhite
Next j

 

[halit3]

Textbox lar içinde böyle deneyebilirsin

For j = 1 To 8
Controls("TextBox" & j).Text = ""
Next j

 

[Ömer]

Merhaba,

For i = 1 To 4
    For j = 1 To 8
        Controls("textbox" & i) = ""
        Controls("combobox" & j) = ""
        Controls("combobox" & j).BackColor = vbWhite
    Next j
Next i

Şeklinde bir mantık yürütebilirsiniz.

.

 

[Gorarr]

Hocam hepinize çok çok teşekkür ederim. Ellerinize sağlık.

Ek birşey daha sorsam örneğin textbox 1 den 4 e kadar belirttik. farzedelim textbox 3,7,11 i de ayrıca eklemem gerekirse bunu "i" değerine nasıl dahil edebilirim.. yada (i = 1 to 10 ) deyipde 6 yı hariç tutabilirmiyim.

 

[halit3]

Hocam hepinize çok çok teşekkür ederim. Ellerinize sağlık.

Ek birşey daha sorsam örneğin textbox 1 den 4 e kadar belirttik. farzedelim textbox 3,7,11 i de ayrıca eklemem gerekirse bunu "i" değerine nasıl dahil edebilirim.. yada (i = 1 to 10 ) deyipde 6 yı hariç tutabilirmiyim.

6 hariç 1 den 10 kadar

For j = 1 To 10
If j <> 6 Then
Controls("TextBox" & j).Text = ""
End If
Next j

 

[Gorarr]

For j = 1 To 10 (15 i eklemek istersem)
If j <> 6 or 7 or 9 Then
Controls("TextBox" & j).Text = ""
End If
Next j

Hocam çok sağolun, bu bilgiler inanılmaz derecede çok işime yaradı. Şart değil ama yukardaki kodda belirttiğim yerleri bir şekilde ekleme imkanı oluyormu. { 6yı hariç tuttuk beraberinde 7 ve 9 uda hariç tutmanın yada 1 to 10 dediğimiz yerde 15 ide eklemenin.}

Yardımlarınız için tekrardan teşekkür ederim.. saygılar..

 

[halit3]

Hocam çok sağolun, bu bilgiler inanılmaz derecede çok işime yaradı. Şart değil ama yukardaki kodda belirttiğim yerleri bir şekilde ekleme imkanı oluyormu. { 6yı hariç tuttuk beraberinde 7 ve 9 uda hariç tutmanın yada 1 to 10 dediğimiz yerde 15 ide eklemenin.}

Yardımlarınız için tekrardan teşekkür ederim.. saygılar..

Birde bu kodlara bakınız.?
burada 6-7-9 hariç diğerlerine işlem yapıyor kod

Dim j, son
For j = 1 To 15
son = 0
If j <> 6 And j <> 7 And j <> 9 Then
son = 1
End If
If son = 1 Then
Controls("TextBox" & j).Text = ""
End If
Next j

 

[halit3]

veya böyle

Dim j
For j = 1 To 15
If j <> 6 And j <> 7 And j <> 9 Then
Controls("TextBox" & j).Text = ""
End If
Next j

 

[Taruz]

.....
6yı hariç tuttuk beraberinde 7 ve 9 uda hariç tutmanın yada 1 to 10 dediğimiz yerde 15 ide eklemenin.

Yardımlarınız için tekrardan teşekkür ederim.. saygılar..

Merhaba..

Bu tür bir yapı için nesnelerin İm (Tag) özelliğini kullanmak en kısa yol olur..

Komuta dahil etmek istediğiniz nesnelerin (combo, textbox vb.) Özellikler / Tag kısmına bir değer atayın. Sonrasında bu prosedürü kullanabilirsiniz..:

Dim trz As Control
  For Each trz In Me.Controls
    If trz.Tag = "İmDeğeri" Then
      trz.BackColor = vbWhite
    End If
Next

 

[Gorarr]

Çok teşekkür ederim yardımlarınız için. Birhayli faydalandım ve hepsini kullanıcam.

Taruz hocam sizde çok sağolun kodları denedim gerçekten en kısa yolmuş.