hücre biçimlendirme

[mkilitci]

Merhaba
Bir hücreyi öyle biçimlendirmek istiyorumki mesela A1 hücresine 1 yazdığım
zaman (orta okul), 2 yazdığım zaman lise, 3 yazdığım zaman (yüksek okul)
olarak gözükmesini istiyorum. Yani hücreye yazdığım sayı belirlemiş olduğum
kelime olarak gözükecek.

 

[N.Ziya Hiçdurmaz]

sayfa kod bölümüne yazınız.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
Select Case [a1]
Case 1
[a1] = "orta okul"
Case 2
[a1] = "lise"
Case 3
[a1] = "yüksek okul"
End Select
End Sub