Veri girerken hücrenin renklendirilmesi

[loveiscry]

Slm arkadaşlar;
Bir sorunum var yardımcı olabilirmisiniz.Sınıf notları ile ilgili bir program hazırladım.Bir öğrencinin notunu girerken o öğrencinin numarasının ve ad soyadı bulunan hücrelerin dolgu rengi ve yazı renginin değişmesini istiyorum ama yapamadım birtürlü.Umarım anlatabilmişimdir.Yardımcı olursanız sevinirim.

 

[cebir]

merhaba
sonra da eski halini almasını istiyorsunuız.?
iki sayfa da da mı olacak?
belirtmemişsiniz eki inceleyiniz.
A3 yazılan ad ve soyad ve a3 ten çıkışla ilgiyi bulur seçer ve renklendir.
a3 boşaltığında renklenen hücreler eski haline döner.

 

[loveiscry]

merhaba
sonra da eski halini almasını istiyorsunuız.?
iki sayfa da da mı olacak?
belirtmemişsiniz eki inceleyiniz.
A3 yazılan ad ve soyad ve a3 ten çıkışla ilgiyi bulur seçer ve renklendir.
a3 boşaltığında renklenen hücreler eski haline döner.

Merhaba arkadaşım.İlgilendiğin için teşekkürler.Yalnız istediğim bu değil tam anlatamamışım galiba.Ben sadece ilk sayfada istiyorum.İlk sayfada bir öğrencinin notunu girerken öğrencinin ad soyad ve numarasının dolgu ve yazı renginin değişmesini istiyorum ki sonlara doğru bir not girerken kaydırma yapmayayım.
Ayrıca şu üstte yaptığınıda detaylı olarak açıklarsan başka yerlerde kullanabilirim.Çok Teşekkürler.İyi Bayramlar.

 

[cebir]

merhaba..
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
Range("f48").Interior.ColorIndex = 0
Range("f49").Interior.ColorIndex = 15
If ActiveCell.Interior.Color <> vbRed Then
ActiveCell.Interior.Color = vbRed
ActiveCell.Font.Color = vbYellow
ActiveCell.Offset(0, -1).Interior.Color = vbRed
ActiveCell.Offset(0, -1).Font.Color = vbYellow
ActiveCell.Offset(0, 1).Select
Exit Sub
End If
If ActiveCell.Interior.Color = vbRed Then
ActiveCell.Interior.Color = ActiveCell.Offset(2, 0).Interior.Color
ActiveCell.Font.Color = vbBlack
ActiveCell.Offset(0, -1).Interior.Color = ActiveCell.Offset(2, 0).Interior.Color
ActiveCell.Offset(0, -1).Font.Color = vbBlack
ActiveCell.Offset(0, 1).Select
Exit Sub
End If
End Sub
eki inceleyiniz.
"t&#252;m s&#305;n&#305;f" sayfas&#305;nda isimler(("f:f")s&#252;tunu) &#252;zerine &#231;ift t&#305;klad&#305;&#287;&#305;n&#305;z da
isim ve no lar&#305; renklenir...

istimar&#305; &#246;nlemek ve sorumluluklar&#305;m&#305;z gere&#287;i g&#246;nderdi&#287;imiz dosyalarda ger&#231;ek isimleri de&#287;i&#351;tirerek
ekleyelim (dosya daki ger&#231;ek isimler den dolay&#305 aksi durumlarda form ve cevaplayanlar&#305; sorumlu tutulamaz.

 

[loveiscry]

merhaba..
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
Range("f48").Interior.ColorIndex = 0
Range("f49").Interior.ColorIndex = 15
If ActiveCell.Interior.Color <> vbRed Then
ActiveCell.Interior.Color = vbRed
ActiveCell.Font.Color = vbYellow
ActiveCell.Offset(0, -1).Interior.Color = vbRed
ActiveCell.Offset(0, -1).Font.Color = vbYellow
ActiveCell.Offset(0, 1).Select
Exit Sub
End If
If ActiveCell.Interior.Color = vbRed Then
ActiveCell.Interior.Color = ActiveCell.Offset(2, 0).Interior.Color
ActiveCell.Font.Color = vbBlack
ActiveCell.Offset(0, -1).Interior.Color = ActiveCell.Offset(2, 0).Interior.Color
ActiveCell.Offset(0, -1).Font.Color = vbBlack
ActiveCell.Offset(0, 1).Select
Exit Sub
End If
End Sub
eki inceleyiniz.
"tüm sınıf" sayfasında isimler(("f:f")sütunu) üzerine çift tıkladığınız da
isim ve no ları renklenir...

hak'sız kazancın önlenmesi açısından gönderdiğiniz dosya (dosya daki gerçek isimler den dolayı) form ve cevaplayanları sorumlu tutulamaz.

Cebir kardeş ben biraz acemiyim ve bunları belki biraz öğrenirim amacıyla yapıyorum zaten.Yukarıda yazdıklarını ben beceremedim.Benim istediğim tamda ekteki gibi.Öğrencilerin notlarına girince dikkat edersen no ve ad soyad dolgu rengi sarı oluyor yazılarda kalın ve italik oluyor yazı olmadığı için görünmüyor tabii.Bunun nasıl yapılacağını açık bir şekilde yazabilirsen (sana zahmet) çok müteşekkir olacağım.Teşekkürler.

 

[cebir]

önceki dosyalar kaldırıldı..

sorunuz isim ve no renklendirmesi ne yönelik di..
ilk ve ikinci mesajınıza cevap ek i inceleyin,


"Ö.Kişisel" adlı sayfa da a3 hücresine göre "for" döngüsü uygulandı
hata yapılmamalı a3 e yazılacak isim alt hücrelerdekiyle aynı olmalı harf büyük, küçük, noksan değişiklik olmamalı
a3 te ismi yazılan öğrenci adı diğer hücrelerde (o hücreden enter le veya fareyle çıktığınızda)bulunup renklendirilir
a3 boşaltığında renklendirilen hücreler eski halini alır

"Tüm Sınıflar" adlı sayfa da öğrenci isimleri üzerine iki tıklandığınız da isim ve no lar renklenir.
o satırdan çıkacağınız zaman aynı öğrenci ismimine iki tıklamak gerek ki eski haline dönsün.

 

[loveiscry]

Cebir karde&#351; istedi&#287;im bu de&#287;ildi iste&#287;imi 5 nolu mesajda ve ekinde daha detayl&#305; anlatm&#305;&#351;t&#305;m ama olsun.&#199;ok &#231;ok te&#351;ekk&#252;rler yinede.Daha fazla zahmet vermek istemiyorum.T&#252;m zaman&#305;n&#305; bana harcaman&#305; istemek do&#287;ru olmaz.Te&#351;ekk&#252;rler.&#304;yi g&#252;nler.