Soru hareket imleci rengi

incsoft · 4 Nisan 2019

Arkadaşlar excelde hareket imlecinin rengini nasıl değiştirebilir ya da kalınlaştırabilirim? İmlecin nerede olduğu belli olmadığından hangi hücreye işlem yaptığım belli olmuyor.

Teşekkürler.

Seyit Tiken · 4 Nisan 2019

Kod, imlecin nerede olduğunu kolayca görmenizi sağlar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = xlNone
ActiveCell.Interior.Color = 15261367
End Sub

incsoft · 4 Nisan 2019

Seyit Tiken' Alıntı:
Kod, imlecin nerede olduğunu kolayca görmenizi sağlar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = xlNone
ActiveCell.Interior.Color = 15261367
End Sub

Öncelikle teşekkürler ancak ben dosyamda imleci sağ,sol,yukarı,aşağı çok hücrede kullanmakta olduğumdan imlecin yeri tek bir seferinde lazım değildir bu sebepten dolayı rengini değiştirme ya da kalınlaştırma gibi bir özellik excelde varmı onu öğrenmek istiyordum.

Seyit Tiken · 4 Nisan 2019

Kodu, ilgili sayfanın KOD bölümüne yapıştırınız, İMLECİ farklı yönlerde hareket etirip deneyiniz.

incsoft · 4 Nisan 2019

Seyit Tiken' Alıntı:
Kodu, ilgili sayfanın KOD bölümüne yapıştırınız, İMLECİ farklı yönlerde hareket etirip deneyiniz.

Yaptım istediğim oldu ancak bütün sayfamdaki zemin renklerini iptal etti efendim buna bir çözüm olurmu?

Seyit Tiken · 4 Nisan 2019

Doğrudur, KOD bütün hücrelerin renklerini sıfırlıyor, İMLECİN hareket alanını belirtmek lazım. Bu şekilde kendinize uyarlayınız, yapamazsanız ilgili DOSYAYI yükleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A5:C100].Interior.Color = xlNone
ActiveCell.Interior.Color = 15261367
End Sub

muygun · 4 Nisan 2019

Merhaba;
Alternatif olsun.
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satır As Range, Sütun As Range
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256))
Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column))
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub

Ekleyerek deneyin.
NOT: Kodlar alıntıdır.
İyi çalışmalar.

incsoft · 4 Nisan 2019

muygun' Alıntı:
Merhaba;
Alternatif olsun.
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satır As Range, Sütun As Range
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256))
Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column))
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub

Ekleyerek deneyin.
NOT: Kodlar alıntıdır.
İyi çalışmalar.

renk olarak çok güzel ancak efendim ctrl+c ile mesela kopyalama yapılanca diğer hücreye ctrl+v ile yapıştırma yapmak istenildiğinde komutu pasif hale getiriyor buna çözüm bulursak muhteşem

Korhan Ayhan · 4 Nisan 2019

Deneyiniz.

Sayfanızın kod bölümüne uygulayınız.

Kod:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Satir As Range, Sutun As Range
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
   
    Set Satir = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, Columns.Count))
    Set Sutun = Range(Cells(1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column))
   
    Cells.FormatConditions.Delete
   
    With Satir
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 37
    End With
   
    With Sutun
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 37
    End With
   
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 40
    End With
End Sub

incsoft · 5 Nisan 2019

Korhan Ayhan' Alıntı:

Deneyiniz.

Sayfanızın kod bölümüne uygulayınız.

Kod:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Satır As Range, Sütun As Range
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
   
    Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, Columns.Count))
    Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column))
   
    Cells.FormatConditions.Delete
   
    With Satır
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 37
    End With
   
    With Sütun
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 37
    End With
   
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 40
    End With
End Sub

Hocam komut gayet güzel çalışıyor ancak çok aşırı işlemci ve ram kullanıyor.. Kullandığım satır ve sütun hareketleri çok olduğundan dolayı her harekette bu tür bir komut uygulaması sanırım cpu'yu çok yoruyor. Desteğinizden dolayı teşekkür ederim.

Korhan Ayhan · 5 Nisan 2019

Tüm satır ve sütunda renklendirme yaptığı için yavaşlama olabilir.

Bunun yerine ekranda görünen satır ve sütun değerleri dikkate alınırsa hız artışı olabilir.

incsoft · 5 Nisan 2019

Korhan Ayhan' Alıntı:
Tüm satır ve sütunda renklendirme yaptığı için yavaşlama olabilir.

Bunun yerine ekranda görünen satır ve sütun değerleri dikkate alınırsa hız artışı olabilir.

O nasıl olur peki Korhan bey?

muhasebeciyiz · 5 Nisan 2019

alıntı kod alternatif

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 15 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 15 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub

incsoft · 5 Nisan 2019

muhasebeciyiz' Alıntı:
alıntı kod alternatif

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 15 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 15 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub

Bunu daha önce bulmuştuk bu olmuyor bütün zemin renklerini bozuyor efendim.

Korhan Ayhan · 5 Nisan 2019

Deneyiniz.

Kod:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X_1 As Long, X_2 As Long, Y_1 As Integer, Y_2 As Integer, Satir As Range, Sutun As Range
    
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    
    X_1 = ActiveWindow.VisibleRange.Row
    X_2 = Range(Split(ActiveWindow.VisibleRange.Address, ":")(1)).Row
    Y_1 = ActiveWindow.VisibleRange.Column
    Y_2 = Range(Split(ActiveWindow.VisibleRange.Address, ":")(1)).Column

    Set Satir = Range(Cells(ActiveCell.Row, Y_1), Cells(ActiveCell.Row, Y_2))
    Set Sutun = Range(Cells(X_1, ActiveCell.Column), Cells(X_2, ActiveCell.Column))
    
    Cells.FormatConditions.Delete
    
    With Satir
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 37
    End With
    
    With Sutun
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 37
    End With
    
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 40
    End With
End Sub

incsoft · 5 Nisan 2019

Korhan Ayhan' Alıntı:

Deneyiniz.

Kod:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X_1 As Long, X_2 As Long, Y_1 As Integer, Y_2 As Integer, Satir As Range, Sutun As Range
   
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
   
    X_1 = ActiveWindow.VisibleRange.Row
    X_2 = Range(Split(ActiveWindow.VisibleRange.Address, ":")(1)).Row
    Y_1 = ActiveWindow.VisibleRange.Column
    Y_2 = Range(Split(ActiveWindow.VisibleRange.Address, ":")(1)).Column

    Set Satir = Range(Cells(ActiveCell.Row, Y_1), Cells(ActiveCell.Row, Y_2))
    Set Sutun = Range(Cells(X_1, ActiveCell.Column), Cells(X_2, ActiveCell.Column))
   
    Cells.FormatConditions.Delete
   
    With Satir
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 37
    End With
   
    With Sutun
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 37
    End With
   
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 40
    End With
End Sub

Maalesef hocam

Benim istediğim sadece hangi hücrede hareket görüyorsam orda olduğum belli olsun yeter. Diğer hücrelerin renklerini,biçimlerini,zemin renklerini değiştirmesine gerek yok. A1 deysem sadece A1 zemini mesela lacivert yazı rengi sarı , b5'e gidince aynısı b5 olacak A1 standart halini alacak. Sizide yordum kusura bakmayın hakkınızı helal edin.

halit3 · 5 Nisan 2019

Alternatif olarak
Bir buton ekleseniz sayfaya imlecle beraber gelse gitse imlecin yeri belli olmuş olur

halit3 · 5 Nisan 2019

Belki bu işinizi görür

Korhan Ayhan · 5 Nisan 2019

Ben biraz daha fonksiyonel olsun diye satır ve sütun renklendirmesini de dahil etmiştim.

Sadece aktif hücre için aşağıdaki kodu deneyiniz.

Kod:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    
    Cells.FormatConditions.Delete
    
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 3
    End With
End Sub

incsoft · 5 Nisan 2019

Korhan Ayhan' Alıntı:
Ben biraz daha fonksiyonel olsun diye satır ve sütun renklendirmesini de dahil etmiştim.

Sadece aktif hücre için aşağıdaki kodu deneyiniz.

Kod:

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub Cells.FormatConditions.Delete With ActiveCell .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:=1 .FormatConditions(1).Font.Bold = True .FormatConditions(1).Interior.ColorIndex = 3 End With End Sub

çok teşekkürler.

Soru hareket imleci rengi

incsoft

Seyit Tiken

Uzman

incsoft

Seyit Tiken

Uzman

incsoft

Seyit Tiken

Uzman

muygun

Özel Üye

incsoft

Korhan Ayhan

Administrator

incsoft

Korhan Ayhan

Administrator

incsoft

muhasebeciyiz

incsoft

Korhan Ayhan

Administrator

incsoft

halit3

Uzman

halit3

Uzman

Ekli dosyalar

Korhan Ayhan

Administrator

incsoft