kenarlık çizdirme

[ezkurtcan]

excel'de veri girişi yaptığım hücrelere otomatik kenarlık çizilmesini istiyorum.
hangi makro kodu ile yapabilirim.

 

[Seceren]

Sadece sectiğin hücreyi kenarlık yapıyor, Deneyin.

Sub Kenarlik()

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
End Sub

 

[mehmett]

Her ne kadar Sn ezkurtcan makro bölümünde sormuş olsa da kendisinin yeni üye olduğu göz önüne alınarak şimdilik makro yerine Koşullu Biçimlendirme ile bir çözüm önereyim. Örnek dosya ekte.

Bu konu hakkında detaylı bilgi için Excel Dersanesi'nde Koşullu Biçimlendirme konusuna bakınız.

 

[Merhum İdris SERDAR]

Hücre ebatında, hücreye dikdörtgen eklemek için aşağıdaki kodları kullanabilirsiniz.

Sub hdortgen()
' hücre ebatlarında dikdörtgen çizer.

If ActiveSheet.ProtectDrawingObjects Then
MsgBox "Sayfa korumasını kaldırınız."
Exit Sub
End If
ActiveSheet.Rectangles.Add(ActiveCell.Left, ActiveCell.Top, _
ActiveCell.Width, ActiveCell.Height).Select

'Görünmez yapmak

Selection.Interior.ColorIndex = xlNone
Selection.Border.LineStyle = xlNone
End Sub

Görünür yapmak için yukarıdaki ilgili kodları aşağıdakilerle değiştirmelisiniz.

Selection.Interior.ColorIndex = xlNone
Selection.Border.LineStyle = 4