Ana içeriğe atla

Verilerle dolu kapsamlı Excel çalışma sayfalarında gezinmek zor olabilir ve yerinizin izini kaybetmeniz veya değerlerin yanlış okunması kolaydır. Veri analizinizi geliştirmek ve hata olasılığını azaltmak için, Excel'de seçilen bir hücrenin satırını ve sütununu dinamik olarak vurgulamanın 3 farklı yolunu sunacağız. Siz hücreden hücreye geçtikçe, vurgulama dinamik olarak kayar ve aşağıdaki demoda gösterildiği gibi doğru verilere odaklanmanızı sağlayacak net ve sezgisel bir görsel işaret sağlar:

Excel'de etkin satır ve sütunu otomatik olarak vurgulayın


Video: Excel'de etkin satırı ve sütunu otomatik olarak vurgulayın


Etkin satırı ve sütunu VBA koduyla otomatik olarak vurgulayın

Geçerli çalışma sayfasında seçilen hücrenin tüm sütununu ve satırını otomatik olarak vurgulamak için aşağıdaki VBA kodu bu görevi gerçekleştirmenize yardımcı olabilir.

Adım 1: Etkin satırı ve sütunu otomatik olarak vurgulamak istediğiniz çalışma sayfasını açın

Adım 2: VBA sayfa modülü düzenleyicisini açın ve kodu kopyalayın

  1. Sayfa adına sağ tıklayın ve Kodu Görüntüle bağlam menüsünden, ekran görüntüsüne bakın:
  2. Açılan VBA sayfa modülü düzenleyicisinde aşağıdaki kodu kopyalayıp boş modüle yapıştırın. Ekran görüntüsüne bakın:
    VBA kodu: seçilen hücrenin satırını ve sütununu otomatik vurgulama
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Update by Extendoffice
        Dim rowRange As Range
        Dim colRange As Range
        Dim activeCell As Range
        Set activeCell = Target.Cells(1, 1)
        Set rowRange = Rows(activeCell.Row)
        Set colRange = Columns(activeCell.Column)
         Cells.Interior.ColorIndex = xlNone
        rowRange.Interior.Color = RGB(248, 150, 171)
        colRange.Interior.Color = RGB(173, 233, 249)
    End Sub
    
    İpuçları: Kodu özelleştirin
    • Vurgu rengini değiştirmek için aşağıdaki komut dosyalarında RGB değerini değiştirmeniz yeterlidir:
      rowRange.Interior.Color = RGB(248, 150, 171)
      colRange.Interior.Color = RGB(173, 233, 249)
    • Seçilen hücrenin yalnızca tüm satırını vurgulamak için bu satırı kaldırın veya yorum yapın (önüne kesme işareti ekleyin):
      colRange.Interior.Color = RGB(173, 233, 249)
    • Yalnızca seçili hücrenin tüm sütununu vurgulamak için bu satırı kaldırın veya yorum yapın (önüne kesme işareti ekleyin):
      rowRange.Interior.Color = RGB(248, 150, 171)

  3. Ardından çalışma sayfasına dönmek için VBA düzenleyici penceresini kapatın.

Sonuç:

Artık bir hücreyi seçtiğinizde, o hücrenin tüm satırı ve sütunu otomatik olarak vurgulanır ve seçilen hücre değiştikçe vurgu, aşağıdaki demoda gösterildiği gibi dinamik olarak değişir:

Notlar:
  • Bu kod, çalışma sayfasındaki tüm hücrelerin arka plan renklerini temizleyecektir; bu nedenle, özel renklendirmeye sahip hücreleriniz varsa bu çözümü kullanmaktan kaçının.
  • Bu kodu çalıştırmak devre dışı bırakacaktır geri al sayfadaki özellik, tuşuna basarak herhangi bir hatayı tersine çeviremeyeceğiniz anlamına gelir. Ctrl + Z kısayol.
  • Bu kod korumalı bir çalışma sayfasında çalışmaz.
  • Seçilen hücrenin satırını ve sütununu vurgulamayı durdurmak için önceden eklenmiş VBA kodunu kaldırmanız gerekir. Bundan sonra, tıklayarak vurgulamayı sıfırlamak için Ana Sayfa > Renk doldur > Dolu değil.

Kutools'un yalnızca tek bir tıklamasıyla etkin satır ve sütunu otomatik olarak vurgulayın

Excel'de VBA kodunun sınırlamalarıyla mı karşılaşıyorsunuz? Kutools Excel için's Izgara Odağı özelliği ideal çözümünüzdür! VBA'nın eksikliklerini gidermek üzere tasarlanan bu program, sayfa deneyiminizi geliştirmek için çok çeşitli vurgulama stilleri sunar. Bu stilleri tüm açık çalışma kitaplarına uygulama yeteneği sayesinde, Kutools sürekli olarak verimli ve görsel olarak çekici bir veri yönetimi süreci sağlar.

not: Bunu kullanmak istiyorsanız Izgara Odağı özellik lütfen Kutools for Excel'i indirip yükleyin İlk.

Kurduktan sonra Kutools for Excel, lütfen tıklayın Kutools > Izgara Odağı Bu özelliği etkinleştirmek için. Artık aktif hücrenin satırının ve sütununun hemen vurgulandığını görebilirsiniz. Bu vurgu, siz hücre seçiminizi değiştirdikçe dinamik olarak değişir. Aşağıdaki demoya bakın:

Izgara Odaklama özelliğinin Temel Faydaları:
  • Orijinal hücre arka plan renklerini korur:
    VBA kodunun aksine bu özellik, çalışma sayfanızın mevcut biçimlendirmesine uyar.
  • Korumalı sayfalarda kullanılabilir:
    Bu özellik, korumalı çalışma sayfalarında sorunsuz bir şekilde çalışarak, güvenlikten ödün vermeden hassas veya paylaşılan belgeleri yönetmek için idealdir.
  • Geri Al işlevini etkilemez:
    Bu özellik sayesinde Excel'in geri alma işlevine tam erişime sahip olursunuz. Bu, veri manipülasyonunuza bir güvenlik katmanı ekleyerek değişiklikleri kolayca geri alabilmenizi sağlar.
  • Büyük verilerle istikrarlı performans:
    Bu özellik, büyük veri kümelerini verimli bir şekilde işlemek, karmaşık ve veri yoğunluklu elektronik tablolarda bile istikrarlı performans sağlamak üzere tasarlanmıştır.
  • Çoklu vurgulama stilleri:
    Bu özellik, aktif satır, sütun veya satır ve sütun hücrenizin tercihlerinize ve ihtiyaçlarınıza en uygun şekilde öne çıkmasını sağlamak için farklı stiller ve renkler arasından seçim yapmanıza olanak tanıyan çeşitli vurgulama seçenekleri sunar.
İpuçları:
  • Bu özelliği devre dışı bırakmak için lütfen tıklayın Kutools > Izgara Odağı bu fonksiyonu kapatmak için tekrar;
  • Bu özelliği uygulamak için lütfen Kutools for Excel'i indirip yükleyin İlk.

Koşullu Biçimlendirme ile etkin satır ve sütunu otomatik olarak vurgulayın

Excel'de, etkin satırı ve sütunu otomatik olarak vurgulamak için Koşullu Biçimlendirme'yi de ayarlayabilirsiniz. Bu özelliği ayarlamak için lütfen şu adımları izleyin:

1. Adım: Veri aralığını seçin

Öncelikle bu özelliğin uygulanmasını istediğiniz hücre aralığını seçin. Bu, çalışma sayfasının tamamı veya belirli bir veri kümesi olabilir. Burada çalışma sayfasının tamamını seçeceğim.

2. Adım: Koşullu Biçimlendirmeye Erişim

Tıkla Ana Sayfa > Koşullu biçimlendirme > Yeni kural, ekran görüntüsüne bakın:

3. Adım: Yeni Biçimlendirme Kuralındaki işlemleri ayarlayın

  1. içinde Yeni Formatlama Kuralı diyalog kutusunu seçiniz Biçimlendirilecek hücreleri belirlemek için bir formül kullanın itibaren Bir Kural Türü seçin liste kutusu.
  2. içinde Bu formülün geçerli olduğu değerleri biçimlendir kutusuna bu formüllerden birini girin, bu örnekte aktif satır ve sütunu vurgulamak için üçüncü formülü uygulayacağım.
    Etkin satırı vurgulamak için:
    =CELL("row")=ROW()
    Etkin sütunu vurgulamak için:
    =CELL("col")=COLUMN()
    Etkin satırı ve sütunu vurgulamak için:
    =OR(CELL("row")=ROW(), CELL("col")= COLUMN())
  3. Ardından, tıklayın oluşturulan düğmesine basın.
  4. Aşağıda biçim Hücreler iletişim kutusunun altında Doldurmak sekmesinde, etkin satırı ve sütunu ihtiyacınıza göre vurgulamak için bir renk seçin, ekran görüntüsüne bakın:
  5. Ardından, tıklayın OK > OK diyalogları kapatmak için.

Sonuç:

Artık A1 hücresinin tüm sütununun ve satırının aynı anda vurgulandığını görebilirsiniz. Bu vurgulamayı başka bir hücreye uygulamak için istediğiniz hücreye tıklayın ve tuşuna basın. F9 sayfayı yenilemek için tuşuna basın; bu daha sonra yeni seçilen hücrenin tüm sütununu ve satırını vurgulayacaktır.

İpuçları: 
  • Aslında Excel'de vurgulama için Koşullu Biçimlendirme yaklaşımı bir çözüm sunsa da, vurgulamak için kullanmak kadar kusursuz değildir. VBA ve Izgara Odağı özellik. Bu yöntem sayfanın manuel olarak yeniden hesaplanmasını gerektirir ( tuşuna basılarak gerçekleştirilir). F9 ) Tuşuna basın.
    Çalışma sayfanızın otomatik olarak yeniden hesaplanmasını sağlamak için hedef sayfanızın kod modülüne basit bir VBA kodu dahil edebilirsiniz. Bu, yenileme işlemini otomatikleştirecek ve farklı hücreleri seçtiğinizde, düğmeye basmadan güncellemelerin anında vurgulanmasını sağlayacaktır. F9 anahtar. Lütfen sayfa adına sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden. Daha sonra aşağıdaki kodu kopyalayıp sayfa modülüne yapıştırın:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Target.Calculate
    End Sub
    
  • Koşullu Biçimlendirme, çalışma sayfanıza manuel olarak uyguladığınız mevcut biçimlendirmeyi korur.
  • Koşullu Biçimlendirmenin, özellikle çok büyük veri kümelerine uygulandığında geçici olduğu bilinmektedir. Kapsamlı kullanımı, çalışma kitabınızın performansını potansiyel olarak yavaşlatabilir ve veri işleme ve gezinme verimliliğini etkileyebilir.
  • HÜCRE işlevi yalnızca Excel 2007 ve sonraki sürümlerde mevcuttur; bu yöntem, Excel'in önceki sürümleriyle uyumlu değildir.

Yukarıdaki Yöntemlerin Karşılaştırılması

Özellikler(Hazırlık aşamasında) VBA kodu Koşullu biçimlendirme Kutools for Excel
Hücre arka plan rengini koru Yok hayır Evet Evet
Geri Almayı destekler Yok hayır Evet Evet
Büyük veri kümelerinde kararlı Yok hayır Yok hayır Evet
Korumalı sayfalarda kullanılabilir Yok hayır Evet Evet
Tüm açık çalışma kitapları için geçerlidir Yalnızca geçerli sayfa Yalnızca geçerli sayfa Tüm açık çalışma kitapları
Manuel yenileme gerektirir (F9) Yok hayır Evet Yok hayır

Bu, Excel'de seçilen bir hücrenin sütununun ve satırının nasıl vurgulanacağına ilişkin kılavuzumuzu tamamlıyor. Daha fazla Excel ipucu ve püf noktası keşfetmek istiyorsanız web sitemiz binlerce eğitim sunmaktadır, lütfen bunlara erişmek için burayı tıklayın. Okuduğunuz için teşekkür ederiz ve gelecekte size daha yararlı bilgiler sunmayı sabırsızlıkla bekliyoruz!


İlgili Makaleler:

  • Etkin hücrenin satırını ve sütununu otomatik vurgulayın
  • Çok sayıda veri içeren büyük bir çalışma sayfasını görüntülediğinizde, yanlış okumayı önlemek için verileri kolayca ve sezgisel olarak okuyabilmeniz için seçili hücrenin satırını ve sütununu vurgulamak isteyebilirsiniz. Burada, geçerli hücrenin satırını ve sütununu vurgulamak için size bazı ilginç hileler sunabilirim, hücre değiştirildiğinde, yeni hücrenin sütunu ve satırı otomatik olarak vurgulanır.
  • Excel'deki diğer tüm satırları veya sütunları vurgulayın
  • Büyük bir çalışma sayfasında her birini veya her n'inci satırı veya sütunu vurgulamak veya doldurmak, verilerin görünürlüğünü ve okunabilirliğini artırır. Bu yalnızca çalışma sayfasının daha düzenli görünmesini sağlamakla kalmaz, aynı zamanda verileri daha hızlı anlamanıza da yardımcı olur. Bu makalede, her bir satırı veya sütunu gölgelendirmek için çeşitli yöntemler konusunda size yol göstererek verilerinizi daha çekici ve anlaşılır bir şekilde sunmanıza yardımcı olacağız.
  • Kaydırırken satırın tamamını / tamamını vurgulayın
  • Birden çok sütuna sahip büyük bir çalışma sayfanız varsa, o satırdaki verileri ayırt etmeniz zor olacaktır. Bu durumda, yatay kaydırma çubuğunu aşağı kaydırdığınızda o satırdaki verileri hızlı ve kolay bir şekilde görüntüleyebilmeniz için etkin hücrenin tüm satırını vurgulayabilirsiniz.Bu makalede, bu sorunu çözmeniz için bazı püf noktalarından bahsedeceğim. .
  • Açılır listeye göre satırları vurgulayın
  • Bu makale, açılır listeye göre satırların nasıl vurgulanacağından bahsedecek, örneğin aşağıdaki ekran görüntüsünü alacak, E sütunundaki açılır listeden "Devam Ediyor" u seçtiğimde, bu satırı kırmızı renkle vurgulamalıyım. açılır listeden “Tamamlandı” yı seçin, bu satırı mavi renkle vurgulamalıyım ve “Başlamadı” seçeneğini belirlediğimde satırı vurgulamak için yeşil bir renk kullanılacaktır.
Comments (61)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
And please reply to an email
This comment was minimized by the moderator on the site
Great job . But in the first task at the top of the browser page, when I did it, it was working correctly, but when I made protection for the sheet, it stopped working correctly, you see, what's the solution. Thank you
This comment was minimized by the moderator on the site
Hello,
To solve your problem, please apply the followign code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Me.Unprotect
    Cells.Interior.ColorIndex = xlNone
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
    rowRange.Interior.Color = RGB(173, 233, 249)
    colRange.Interior.Color = RGB(173, 233, 249)
    Me.Protect
End Sub



Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    
    ' Clear previous highlighting
    Me.Cells.FormatConditions.Delete
    
    ' Check if Checkbox1 is checked
    ' If CheckBox1.Value = True Then
        ' Check if a single cell or a range of cells is selected
        If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
            Dim selectedRange As Range
            Dim selectedRows As Range
            Dim selectedColumns As Range
            
            Set selectedRange = Target
            Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
            Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)
            
            ' Add conditional formatting to highlight the selected rows
            With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
            
            ' Add conditional formatting to highlight the selected columns
            With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
        End If
    ' End If
    
    On Error GoTo 0
End Sub
This comment was minimized by the moderator on the site
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

' Clear previous highlighting
Me.Cells.FormatConditions.Delete

' Check if a single cell or a range of cells is selected
If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
Dim selectedRange As Range
Dim selectedRows As Range
Dim selectedColumns As Range

Set selectedRange = Target
Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)

' Add conditional formatting to highlight the selected rows
With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With

' Add conditional formatting to highlight the selected columns
With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With
End If

On Error GoTo 0
End Sub
This comment was minimized by the moderator on the site
can you please post code in VBA format? trying to figure out what your code looks like from what you posted in a jumble is frustrating.
This comment was minimized by the moderator on the site
Hi,

The above code is brilliant. But i have two questions and if you can help then will be much appreciated. Let me know if there is cost associated with it.

1. The above code is removing my previous formatting of the cells. Eg. if i have got the cells filld with blue then above code clears that fill.
2. Is there a code that i can use when i am extracting values from another sheet and that row in the that sheet gets highlighted as well. Eg. I want to extract vale from another cell, so when i press = sign in sheet 1 and then when i move to sheet 2 to bring the value the row in the sheet doesn't get highlighted.

Regards,
This comment was minimized by the moderator on the site
Hello, Patel
For the first question:
It may be difficult to modify the VBA code, so, I recommend you to apply the Conditional Formatting feature for solving this problem, the following article may help you:
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html

Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

For the second question:
Sorry, I can't solve this problem at present,😜
This comment was minimized by the moderator on the site
How do you modify the code so that:
1. It does not permanently strip existing colors of cells. Currently, after another cell is selected, it leaves colorless previous row. I'd like to keep the colors of the worksheet, as they were before row was highlighted by this code.
2. Limit the highlight width to only Columns A thru K, not the entire row.
This comment was minimized by the moderator on the site
Hello,
It may be difficult to modify the VBA code, so, here, I recommend you to apply the Conditional Formatting feature for solving this problem, please view the below article: (Note: if you need to highlight the column A to column K, you just need to select the range you need, and then apply the conditional formatting.)
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html


Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you so much for this tip!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Another easy way to highlight your rows: https://youtu.be/iOF06mZDGIk
This comment was minimized by the moderator on the site
FAIL. Wiped out all my other cell formatting irreversibly. And doesn't work if the sheet is protected. FAIL.
This comment was minimized by the moderator on the site
Hi Gues,The code does not work in a protected worksheet. If you want to keep the original cell formatting, please try the below code.The Reading Layout feature of Kutools is stable and handy, maybe you can download a free trial to have a try.
<div data-tag="code">Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 202001106
Static xRow
Static xColumn

Dim xWs As Worksheet
Dim xCRg, xCRg1, xRRg, xRRg1, xOHRg As Range
Dim xAHRORg, xAHRORg1 As Range
Dim xAWs As Worksheet
Dim xFNum As Integer
Dim xCll As Range

On Error Resume Next

Application.ScreenUpdating = False
pRow = Selection.Row
pColumn = Selection.Column

Set xWs = ActiveWorkbook.Worksheets.Item("AutoHighlightRAndC")
Set xAWs = Target.Worksheet
If xWs Is Nothing Then
Set xWs = ActiveWorkbook.Worksheets.Add
xWs.Name = "AutoHighlightRAndC"
xWs.Visible = xlSheetHidden
xAWs.Activate
End If

If xColumn <> "" Then
Set xCRg = Columns(xColumn)
xCRg.Interior.ColorIndex = xlNone
Set xCRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg.Count
Set xAHRORg1 = xAWs.Cells(xFNum, xColumn)
Set xAHRORg = xWs.Cells(xFNum, xColumn)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xCRg.Item(xFNum).Interior.ColorIndex = xWs.Columns(xColumn).Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(xRow)
xRRg.Interior.ColorIndex = xlNone
Set xRRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xRRg.Count
Set xAHRORg1 = xAWs.Cells(xRow, xFNum)
Set xAHRORg = xWs.Cells(xRow, xFNum)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xRRg.Item(xFNum).Interior.ColorIndex = xWs.Rows(xRow).Item(xFNum).Interior.ColorIndex
Next

End If

xRow = pRow
xColumn = pColumn

Set xCRg = Columns(pColumn)
Set xCRg1 = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg1.Count
Set xOHRg = xWs.Cells(xFNum, pColumn)
xOHRg.Interior.ColorIndex = xCRg1.Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(pRow)
Set xRRg1 = Intersect(xRRg.Worksheet.UsedRange, xRRg)

For xFNum = 1 To xRRg1.Count
Set xCll = xWs.Cells(pRow, xFNum)
xCll.Interior.ColorIndex = xRRg1.Item(xFNum).Interior.ColorIndex
Next
xCRg.Interior.ColorIndex = 34
xRRg.Interior.ColorIndex = 34
Application.ScreenUpdating = True
End Sub
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations