Soru excel hücre kutusu rengi

[incsoft]

Arkadaşlar Microsoft Office Ev ve İş 2019 lisanslı sürümünü kullanmaktayım ancak hangi hücrede olduğumu belli eden imleç mi deyim hareket kutucuğumu deyim kenarlıklı kısımlarda hiç belli olmuyor bu sebepten dolayı nerede olduğunu bilemiyorum. Office bunun için bir ayar varmıdır acaba? Rengini değiştirme , kalınlık ayarı vb... 1.jpg dosyası kenarlıklı olup belli olmayan , 2.jpg kenarlıksız olup belirli olan...

 

[u.L.a.s]

Evet yeni sürümlerde default temada bu belli olmuyor.

Ama Menülerden File menüsünden Options seç. Açılan pencerede General sekmesi altında Office Theme de seçeneklerden Dark Gray ya da Black seçersen hangi hücrede olduğun belli oluyor

 

[incsoft]

Evet yeni sürümlerde default temada bu belli olmuyor.

Ama Menülerden File menüsünden Options seç. Açılan pencerede General sekmesi altında Office Theme de seçeneklerden Dark Gray ya da Black seçersen hangi hücrede olduğun belli oluyor

Burayı diyorsanız sadece excel menüleri değişiyor istediğim alanda bir değişiklik olmuyor

 

[u.L.a.s]

anladım sanırım hücre üstündeyken hücreyi çevreleyen yeşil renkten bahsediyorsunuz.

bunun için şu çözüm olabilir. Normalde Gridlines yani çerçeve rengi default olarak gri renktedir.

Bu gridlines rengini farklı bir renk seçerseniz o zaman yeşil renk daha görünür olabilir.

Gridlines renk değişikliği için yine file options tan Advanced gelip biraz aşağılarda Display options for this worksheet var o sekme içerisinde gridlines renk paletinden istediğiniz rengi seçip deneyiniz uygun olan renkte çalışınız.

 

[Seyit Tiken]

Bildiğim kadarıyla bu ancak kodla olur. Aşağıdaki kodu bir deneyin, ihtiyacınızı karşılıyorsa revize edilebilir. Hücre rengini istenilen şekilde yapabilirsiniz. Ben Açık Turuncu yaptım.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearFormats
Target.Interior.Color = 11851260
End Sub

 

[ASLAN7410]

Sayın Seyit Bey, kod gayet güzel çalışıyor, ellerinize sağlık bu işlem dolgu rengi değilde, çerçeve rengi değişecek şekilde nasıl ayarlanır?

 

[u.L.a.s]

çerceve rengi için aşağıdaki kodlar kullanılır ama hücre üstündeyken çerçeve rengi yine yeşil olacaktır. başka bir hücreye geçildiğinde bir önceki hücre anlık aşağıda kodda yazılan renk gibi olacaktır. Yani aslında çerçeve rengini yapmakta çok fazla bir çözüm sağlamıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Borders.ColorIndex = xlNone
    Target.Borders.Color = vbRed
End Sub

 

[Seyit Tiken]

Kodu belli bir aralıkta yaptım, genişletip daraltabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:L1000]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Cells.ClearFormats
With Target.Borders(xlEdgeLeft)
.Color = -1003520
.Weight = xlMedium
End With
With Target.Borders(xlEdgeTop)
.Color = -1003520
.Weight = xlMedium
End With
With Target.Borders(xlEdgeBottom)
.Color = -1003520
.Weight = xlMedium
    End With
With Target.Borders(xlEdgeRight)
.Color = -1003520
.Weight = xlMedium
End With
Application.ScreenUpdating = True
End Sub

 

[Seyit Tiken]

Sayın u.L.a.s kodunda ufak bir değişiklik yaptık, uygun olanı kullanırsınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders.ColorIndex = xlNone
Target.Borders.Color = -1003520
End Sub

 

[Seyit Tiken]

Kodun Revize Edilmiş Şekli

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Borders.ColorIndex = xlNone
Target.Borders.Color = -1003520
Target.Borders.Weight = xlMedium
Application.ScreenUpdating = True
End Sub

 

[Seyit Tiken]

Aklıma bir fikir geldi, işe yarayabilir. Ekli dosyayı inceleyiniz.

 

[ASLAN7410]

Aklıma bir fikir geldi, işe yarayabilir. Ekli dosyayı inceleyiniz.

Sayın Seyit Bey, ellerinize sağlık bu süper olmuş, hayırlı geceler.

 

[ASLAN7410]

Sayın Seyit Bey, hayırlı sabahlar diliyorum.

11. mesajınızdaki göndermiş olduğunuz örnekteki aşağıdaki kodu tüm sayfalarda çalışması için BuÇalışmaKitabı kod bölümüne
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) bu başlık altına ekledim ama çalıştıramadım.

Tüm sayfalar için nasıl aktive edilir?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Rectangle 1").Top = Target.Top
Shapes("Rectangle 1").Left = Target.Left
Shapes("Rectangle 1").Width = Target.Width
Shapes("Rectangle 1").Height = Target.Height
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Shapes("Rectangle 1").Top = Target.Top
ActiveSheet.Shapes("Rectangle 1").Left = Target.Left
ActiveSheet.Shapes("Rectangle 1").Width = Target.Width
ActiveSheet.Shapes("Rectangle 1").Height = Target.Height
End Sub

 

[Korhan Ayhan]

Kodun her sayfada çalışması sayfalara dikdörtgen eklemeniz gerekiyor.

 

[Seyit Tiken]

Diğer sayfalara aynı ADLA dikdörtgenin olması için şu şekilde kopyalayın.

 

[Seyit Tiken]

Yukarıdaki yöntemden sonuç alınmazsa; bu şekilde deneyiniz.
Şekilde çember içine alınan yere NESNE'nin ismini değiştirebilirsiniz.

 

[Korhan Ayhan]

Benzer bir alternatif;

 

[ASLAN7410]

Seyit Bey, Korhan Bey ellerinize sağlık süper bi çalışma olmuş.

Hayırlı akşamlar.