Tüm metin kutularının bir im (tag) özelliği vardır. Buna özellikler penceresinde "tümü" veya "diğer"sekmesinin en altından ulaşabilirsiniz. Bu im değerini sadece fiyat* olan kutularda kullanın. Bu metin kutularının tümünün im değeri 1 olsun. Diğer açılan kutu ve metin kutularına dokunmayın.
Şimdi bir alt yordam yazalım:
Kod:
Sub sifirla()
On Error Resume Next
For Each fıyat In Me
With fıyat
If .Tag = 1 Then .Value = 0
End With
Next
End Sub
sifirla
yazacağız. Çalıştırın ve seçenekten intel veya amd seçin. Tüm "fiyat" diye başlayan ve im değerleri "1" olan kutular "0" değerini alacaktır.
Diğer iki arkadaş da çözüme ulaşmış ama kabul edin ki yüzlerce metin kutusunu sıfırlamak gerektiğinde benim önerim daha kullanışlı olacak. Bu durumda şöyle yapmalıyız:,
Kod:
Sub sifirla()
On Error Resume Next
For Each fıyat In Me
With fıyat
If .Tag <>1 Then .Value = 0
End With
Next
End Sub