with color

[miss_pert]

merhaba arkadaşlar benim bir kodum var. Bu kodda kullanıcıdan bir veri için format bilgilerini alıp, o formatta ilgili hücreye yazı yazıyorum. Ama kullanıcı inputboxa rengi "vbred" şeklinde girse bile color kısmında hata veriyor. Neden olabilir? Colorindex kullanınca sorun yok ama ben color kullanmak istiyorum.

Sub deneme12()
isim = InputBox("isminizi giriniz")
hücre = InputBox("isiminiz hangi hücreye yazılsın")
punto = InputBox("isiminiz kaç punto büyüklüğüne yazılsın")
renk = InputBox("isiminiz hangi renk yazılsın")
Range(hücre) = isim
Range(hücre).Font.Color = renk
Range(hücre).Font.Size = punto
End Sub

 

[Levent Menteşoğlu]

Color özelliğini kullanabilmeniz için renklerin decimal veya hexadecimal karşılıklarını yazmanız gerekir. Aşağıdaki şekilde deneyin. Renkler inputboxa Türkçe isimleri ile yazılmalıdır.

Sub deneme12()
isim = InputBox("isminizi giriniz")
hücre = InputBox("isiminiz hangi hücreye yazılsın")
punto = InputBox("isiminiz kaç punto büyüklüğüne yazılsın")
renk = InputBox("isiminiz hangi renk yazılsın")
Range(hücre) = isim
Select Case renk
Case "kırmızı": Range(hücre).Font.Color =vbRed
Case "mavi": Range(hücre).Font.Color =vbBlue
Case "yeşil": Range(hücre).Font.Color = vbGreen
Case "sarı": Range(hücre).Font.Color = vbYellow
Case "siyah": Range(hücre).Font.Color = vbBlack
Case "beyaz": Range(hücre).Font.Color = vbWhite
End Select
Range(hücre).Font.Size = punto
End Sub

 

[miss_pert]

...

teşekkürler leventm