Çİzgİsİz Sayfaya Yazi Yazilinca Çİzgİ Nasil Konulabİlİr?

Katılım
26 Mart 2007
Mesajlar
18
Excel Vers. ve Dili
office 2003 türkçe
BOŞ VE ÇİZGİSİZ BİR YER YAZI YAZDIKTAN SONRA ENTERE BASKITKTAN SONRA NASIL ÇİZGİ KOYDURABİLİRİZ. SADECE YAZI YAZILIRSA ÇİZGİ KONLACAK.:yardim:
 
Katılım
31 Ocak 2007
Mesajlar
228
Excel Vers. ve Dili
office xp tr
çizgi

Veri girip enterledikçe veri altına çizgi eklenir silince çizgi kaybolur
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If ActiveCell.Offset(-1, 0).Value <> "" Then
ActiveCell.Offset(-1, 0).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
End If
If ActiveCell.Offset(0, 0).Value = "" Then
ActiveCell.Offset(0, 0).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End If
End Sub
 
Katılım
10 Ekim 2005
Mesajlar
91
Excel Vers. ve Dili
2003 tr
ko&#351;ullu bi&#231;imlendirme ileyap&#305;labilir.
t&#252;m sat&#305;r i&#231;in
Kod:
=YADA($A1<>"";$B1<>"";$C1<>"";$D1<>"";$E1<>"";$F1<>"";$G1<>"";$H1<>"")
sadece h&#252;cre i&#231;in ise
=<>""
 
Son düzenleme:
Katılım
26 Mart 2007
Mesajlar
18
Excel Vers. ve Dili
office 2003 türkçe
Arkada&#350;lar Den&#304;yorum Ama Olmuyor. Bunun Ba&#350;ka Form&#220;l&#220; Varmi
 
Katılım
19 Ocak 2007
Mesajlar
104
Excel Vers. ve Dili
office 2003 Tr
ko&#351;ullu bi&#231;imlendirme ileyap&#305;labilir.
t&#252;m sat&#305;r i&#231;in
=YADA($A1<>"";$B1<>"";$C1<>"";$D1<>"";$E1<>"";$F1<>"";$G1<>"";$H1<>"")
sadece h&#252;cre i&#231;in ise
=<>""
F1'deki bo&#351;luktan kaynaklan&#305;yor.kopyalad&#305;ktan sonra "< >" aras&#305;ndaki bo&#351;lu&#287;u silin.

=YADA($A1<>"";$B1<>"";$C1<>"";$D1<>"";$E1<>"";$F1<>"";$G1<>"";$H1<>"")
 
Üst