seçili satırı çerçeveleme

[kadirdiloglu]

Merhaba,

Çalışma sayfam satır ve sütun olarak büyüktür. makro ile excel sayfasında klavye ile ya da mouse ile seçili seçili satırı kalın çerçeve içine nasıl alabiliriz. Örneğin; a3 hücresine geldiğim zaman a3 ile az3 arasındaki satırları kalın çerçeve içine alsın..

 

[Emir Hüseyin Çoban]

.

Bir örnek.
Renk yerine koşullu biçimlendirmeyi çerçeve olarak tanımlayın.

http://www.excel.web.tr/f157/secilen-satyry-boya-ko-ullu-bicimlendirme-t147524.html

.

 

[kadirdiloglu]

.

Bir örnek.
Renk yerine koşullu biçimlendirmeyi çerçeve olarak tanımlayın.

http://www.excel.web.tr/f157/secilen-satyry-boya-ko-ullu-bicimlendirme-t147524.html

.

Doğru söylüyorsununuz ama dosyayı indiremiyorum. Tekrar yükleyebilir misiniz

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.
Koşullu biçimlendirmede kalın kenarlık yok...

http://s2.dosya.tc/server3/q0pba7/Secilen_Satiri_Boya.rar.html

Ekran Görüntüsü:


. . .

 

[kadirdiloglu]

. . .

Dosyanız ektedir.
Koşullu biçimlendirmede kalın kenarlık yok...

http://s2.dosya.tc/server3/q0pba7/Secilen_Satiri_Boya.rar.html

Ekran Görüntüsü:


. . .

Öncelikle teşekkürler. . Daha önce koşullu biçimlendirme ile tavsiye etipiniz dosyayı bulabilirmisiniz

 

[Emir Hüseyin Çoban]

. . .

Mesajlarda alıntı yapmanıza gerek yok. Konuda 2 kişi olduğumuz için karışacak bir durum yok...

Link:
http://s2.dosya.tc/server3/2mtt08/Secilen_Satiri_Boya_01.rar.html

. . .

 

[kadirdiloglu]

İki örnek de seçili hücrenin rengini kaybediyor. Ben hücredeki rengini görebilmek için çerçeve olsun istemiştim ama aynısı oldu.

 

[Emir Hüseyin Çoban]

. . .

4 nolu mesajdaki örneği oluştururken,
koşullu biçimlendirmede dolgu > renk yok seçeneğini de seçmiştim...

http://www.excel.web.tr/f157/secilen-satyry-boya-ko-ullu-bicimlendirme-t147524.html

Linkteki adımlara göre sadece kenarlık vererek dosyanızı oluşturun.
Yapamazsanız yine bir örnek yüklerim...

. . .

 

[askm]

Aşağıdaki kodlar ile yapabilirsiniz. Yalnız sayfa seçimini pasif yapamadım.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    Cells.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
    
If Intersect(Target, [A1:Q50]) Is Nothing Then Exit Sub
  
''''''''''''''''''''''''''''''''''''''''''''''''''
  With Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    
''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

 

[kadirdiloglu]

Aşağıdaki kodlar ile yapabilirsiniz. Yalnız sayfa seçimini pasif yapamadım.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    Cells.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
    
If Intersect(Target, [A1:Q50]) Is Nothing Then Exit Sub
  
''''''''''''''''''''''''''''''''''''''''''''''''''
  With Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    
''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

teşekkürler , hem tüm sayfayı seçiyor hem de varolan sayfa çizgilerini kaldırıyor.