Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Örneğin aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız A1:A10 arasındaki hücrelere 1-55 arası sayı girdiğinizde dolgu rengini girdiğiniz sayıya göre değiştirir:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub
If IsNumeric(Target) = True Then
If Target < 56 Then Target.Interior.ColorIndex = WorksheetFunction.Max(0, Int(Target.Value))
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.