Soru CTRL+F Vurgu Rengi

[leonadies]

Arkdadaşlar Merhaba;

CTRL+F ile bulunan sonuçlar excelde güzelce vurgulanamıyor. Bence programın ciddi bir handikapı. Bir hücre buluyor ama hangi hücre anlamak için uğraşıp duruyoruz. CTRL+F ile bulunan sonuçları bulduğu hücrenin vurgu rengini değiştirmenin bir yöntemi yok mu? (Özelikle çoklu verilerde bulmak hayli zor oluyor)

VBA olarak çözüm düşünmedim açıkçası öyle olunca açtığımız her excele makro yapmak zorunda kalırız. Ama çare yoksa da mecbur kullanırız. Var mı önerisi olan

 

[Trilenium]

Arama bölümüne aranacak değeri yazdıktan sonra Tümünü Ara diyin ve aşağıya açılan listeye bir defa dokunduktan sonra o liste içinde iken CTRL+A basın. Bulunmuş değerleri işaretleyecektir. Eğer rengi değiştirmek isterseniz bulunmuş değerler belirlenmişken rengi değiştirebilirsiiz.

 

[leonadies]

@Trilenium Üstadım teşekkür ederim. Buda bir yöntemmiş öğrenmiş oldum. Yine de programın handikapı olduğunu düşünüyorum bu konuda. Kullanıcı istediği gibi CTRL+F sonucunu bulmakta zorlanıyor. Özelikle karmaşık proje dosyalarında.
Tekil bazda hücreye götürüp etrafını daha belirgin bir çerçeve içine alsaydı (örneğin kırmızı çerçeve) harika olurdu.

 

[Trilenium]

Rica ederim. Şuraya bir gözatın

Redirecting

 

[ccuneyt13]

Merhaba,
Dediğiniz gibi CTRL+F ile yapılan aramada renk seçimi yapılmaması excelin bir eksiği bana göre de.
Ben boş bir hücreyi sarıya boyuyorum, o hücreyi seçip Biçim Boyacısının üstüne çift tıklıyorum. Daha sonra CTRL F ile arama yapıyorum.
Bulduğunu sarı yapıyor.

VBA ile de yapılıyor tabiki ama her dosyaya kod eklemek, başkalarının kod çalıştıra bilmesini sağlamak falan baya sancılı bir iş

Yine de nette bulduğum ve denediğim kodu paylaşayım.
Aşağıdaki kod seçili hücreyi ve etrafını oldukça anlaşılır şekilde renklendiriyor. Çalıştığınız sayfanın kod bölüne yapıştırıp deneye bilirsiniz.

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

 

[necati]

Arkdadaşlar Merhaba;

CTRL+F ile bulunan sonuçlar excelde güzelce vurgulanamıyor. Bence programın ciddi bir handikapı. Bir hücre buluyor ama hangi hücre anlamak için uğraşıp duruyoruz. CTRL+F ile bulunan sonuçları bulduğu hücrenin vurgu rengini değiştirmenin bir yöntemi yok mu? (Özelikle çoklu verilerde bulmak hayli zor oluyor)

VBA olarak çözüm düşünmedim açıkçası öyle olunca açtığımız her excele makro yapmak zorunda kalırız. Ama çare yoksa da mecbur kullanırız. Var mı önerisi olan

Merhaba,
Sadece CTRL+F ile çalışan bir kod isterseniz ve bunun tüm excel kitaplarında etkili olmasını istiyorsanız şöyle bir yol izlemelisiniz:
* PERSONAL.XLSB KİTABININ VBA SAYFASINDA YAPILACAKLAR... (Bunu mesajı yazdığımda unutmuşum kusura bakmayın)
* Bir clas modüle ekle
* Modül ismi c_App olsun
* İçine şunları kopyala:

Public WithEvents App As Application

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Static rng As Range

    On Error Resume Next

    Dim wHandle As Long
    Dim wName As String

    wName = "Bul ve Değiştir"
    'wName = "Find and Replace" 'İngilizce excel kullanıyorsanız üstteki satırı pasif yapıp bu satırı aktifleştirin...
    wHandle = FindWindow(0&, wName)
    If wHandle = 0 Then
        rng.FormatConditions.Delete
    Else
        rng.FormatConditions.Delete
    Target.FormatConditions.Add(Type:=xlExpression, Formula1:=True).Interior.Color = vbCyan
        Set rng = Target
    End If

End Sub

*Bir modulün en üst satırına yazılacak

#If VBA7 Then
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal wClassName As any, ByVal wWindowName As String) As LongPtr
#Else
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal wClassName As Any, ByVal wWindowName As String) As Long
#End If

* Devam ediyoruz
* ThisWorkbook koduna şunları kopyala:

Dim newApp As New c_App

Private Sub Workbook_Open()
    Set newApp.App = Application
End Sub

* Kaydet
* Excel'i kapat ve yeniden aç

 

[hakki83]

Merhaba,
Dediğiniz gibi CTRL+F ile yapılan aramada renk seçimi yapılmaması excelin bir eksiği bana göre de.
Ben boş bir hücreyi sarıya boyuyorum, o hücreyi seçip Biçim Boyacısının üstüne çift tıklıyorum. Daha sonra CTRL F ile arama yapıyorum.
Bulduğunu sarı yapıyor.

Yapamadım ama doğru mu anladım acaba.
Boş bir hücreyi sarıya boyadım.
Biçim boyacısı derken çift tıkladığınız yer tam olarak neresi?
Şeritte boya kovasına benzer bir ikon var, dolgu rengi diye geçiyor, o mu?

 

[necati]

6 numaralı mesajdakiler PERSONAL.XLSB KİTABININ VBA SAYFASINDA YAPILACAK
Bunu mesajı yazdığımda unutmuşum kusura bakmayın.

 

[ccuneyt13]

Yapamadım ama doğru mu anladım acaba.
Boş bir hücreyi sarıya boyadım.
Biçim boyacısı derken çift tıkladığınız yer tam olarak neresi?
Şeritte boya kovasına benzer bir ikon var, dolgu rengi diye geçiyor, o mu?

Sarı boyalı hücre seçili iken Fırça işaretinin üstüne çift tıklayın.
1 kere tıklarsanız o hücrenin biçimini diğer seçtiğiniz hücreye aktarır ve seçimi sonlandırır. (Kes yapıştır gibi düşünün)
Çift tıklarsanız ESC ye basana kadar hücrenin biçimini tıkladığınız diğer her hücreye uygulamaya devam eder.