Hücreye Kenarlık Çizme ?

[mesuutt]

merhaba arkadaslar

macroda hücreye nasıl kenarlık çizebilirim?
yardımlarınız için teşekkur ederim ....

 

[leumruk]

merhaba arkadaslar

macroda hücreye nasıl kenarlık çizebilirim?
yardımlarınız için teşekkur ederim ....

Merhaba,
Kenarlığına göre değişir. Nasıl bir kenarlık istiyorsunuz. Sağa mı, sola mı, alta mı, tümüne mi, ince mi, kalın mı? vs...

 

[Zeki Gürsoy]

Merhaba,

"Test" isimli proseduru çalıştırıp sonucu gözlemleyin.

Public Enum kenars
    sag = XlBordersIndex.xlEdgeRight '10
    sol = XlBordersIndex.xlEdgeLeft '7
    ust = XlBordersIndex.xlEdgeTop '8
    alt = XlBordersIndex.xlEdgeBottom '9
    icler_yatay = XlBordersIndex.xlInsideHorizontal '12
    icler_dikey = XlBordersIndex.xlInsideVertical '11
End Enum

Public Enum kalinliks
    ince = XlBorderWeight.xlThin '2
    orta = XlBorderWeight.xlMedium '-4138
    kalin = XlBorderWeight.xlThick '4
End Enum

Public Enum renklers
    siyah = ColorConstants.vbBlack '0
    mavi = ColorConstants.vbBlue '16711680
    yesil = ColorConstants.vbGreen '65280
    kirmizi = ColorConstants.vbRed '255
    sari = ColorConstants.vbYellow '65535
End Enum

Public Enum cizgi_stils
    surekli_cizgi = XlLineStyle.xlContinuous [COLOR=DarkGreen]'1[/COLOR]
    cift_cizgi = XlLineStyle.xlDouble [COLOR=DarkGreen]'-4119[/COLOR]
End Enum


Public Sub test()
[COLOR=DarkGreen]'Aşağıdaki örnek aktif sayfanın b2:b5 aralığına yatay çizgiler verir.[/COLOR]
    Call bicimle(ActiveSheet.[g2:g5], ust)
    Call bicimle(ActiveSheet.[g2:g5], icler_yatay)
    Call bicimle(ActiveSheet.[g2:g5], alt)
End Sub

Public Sub bicimle(hucre As Range, kenar As kenars, _
         Optional cizgi_stili As cizgi_stils = surekli_cizgi, _
         Optional kalinlik As kalinliks = ince, _
         Optional renk As renklers = siyah)
            
    With hucre.Borders(kenar)
        .LineStyle = cizgi_stili
       [COLOR=DarkGreen] 'Çift çizgi için kalınlık tipi "kalın" olmalıdır.[/COLOR]
        .Weight = IIf(.LineStyle = cift_cizgi, kalin, kalinlik)
        .Color = renk
       [COLOR=DarkGreen] '.ColorIndex = 1 'Farklı renkler için..[/COLOR]
    End With
    
End Sub

 

[mesuutt]

hücrelerin 4 koşesinede kenarlık eklıcem ve kalınlık olarakta ince olsun istiyorum nasıl yapılıyor?

 

[leumruk]

hücrelerin 4 koşesinede kenarlık eklıcem ve kalınlık olarakta ince olsun istiyorum nasıl yapılıyor?

A1:J20 arasında geçerli. Siz kendinize göre değiştirin.

Sub Kenarlik()
    [a1:j20].Borders.LineStyle = xlContinuous
End Sub

 

[mesuutt]

cok saol işime yaradı ama ben (b4,h20)ye kadarkı kısmın etrafinı kalın yapmısıtım şimdi senin verdiğin kodu ekleyince o koselerde ince oldu nasıl sadece o kenarlıkların kalın içindeki hücrelerin kenarlıklarını ince yapıcam acaba?

 

[leumruk]

cok saol işime yaradı ama ben (b4,h20)ye kadarkı kısmın etrafinı kalın yapmısıtım şimdi senin verdiğin kodu ekleyince o koselerde ince oldu nasıl sadece o kenarlıkların kalın içindeki hücrelerin kenarlıklarını ince yapıcam acaba?

Bu durumda kod satırı biraz uzayacak:

Sub Kenarlik()
    With Range("b4:h20")
        .Borders.LineStyle = xlNone
        .Borders.LineStyle = xlContinuous
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
    End With
End Sub