Kenarlık Çizimi

[ahmed_ummu]

Merhaba arkadaşlar.

Aktif veya adresi verilmiş bir hücrenin sağ kenarlığını nasıl çizebilirim. Mesela "G4" hücresinin sağ kenarlığını. Aşağıdaki gibi örnek buldum ama bir türlü çizemedim. Yardımcı olursanız sevinirim.

Range("G4") = XlBordersIndex.xlEdgeRight
Range("G4") .Bordrers= XlBordersIndex.xlEdgeRight

 

[tukayf]

Koşullu biçimlendirme ile denediniz mi? Oluyorsa kodun içerisine yazmayı deneyebilirsiniz.

 

[ahmed_ummu]

Koşullu biçimlendirme ile denediniz mi? Oluyorsa kodun içerisine yazmayı deneyebilirsiniz.

Teşekkürler sayın tukayf. Koşullu biçimlendirme ile denedim yapamadım. Çizim oluyor fakat başka bir hücre aktif olduğunda eski çizgi silinmiyor.

Aşağıdaki kod ile oldu.
Set s1 = Sheets("sayfa1")
s1.Range("g4").Borders(xlEdgeRight).Weight = XlBorderWeight.xlThin '2