kod açıklaması

[Erdinç FIRTINA]

Değerli üyeler,
Aşağıdaki kodların açıklanması konusunda yardımlarınızı bekliyorum.

Yardımlarınız için şimdiden çok teşekkürler!!!


With S2.Range("BE1N" & S2.[BE65536].End(3).Row)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With

With S2.Range("BE1N" & S2.[BE65536].End(3).Row)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous

 

[Korhan Ayhan]

Selamlar,

Kenarlık çizgilerini oluşturmak için yazılmış bir koddur.

 

[Erdinç FIRTINA]

Sayın Korhan AYHAN,
Çok teşekkür ederim. Aslında zaten sizin yardımınızla yararlandığım kodlardı ve kenar çizgileri ile ilgili olduğunu biliyorum. Yapmak istediğim kod açıklamalarından yararlanarak;
Yazı karakteri,
Desen oluşturma vb. bilgileri kullanarak kendimi geliştirmek.
Her şey için çok teşekkürler!!!