Excel'in değerler için arka plan renklerini otomatik olarak ayarlama işlevi var mı?


0

Dün, otomobil ve motosikletlerden veri kaydeden bir uygulama olan Torque'dan bir dosya analiz ettim. RPM, hız, hızlanma, gaz kelebeği konumu ve daha birçok gibi verileri içeriyordu.

Daha iyi bir bakış elde etmek için her sütundan en az ve en fazla değerleri hesapladım. Sonra tüm RPM değerlerini 9,000'den koyu kırmızı, 7,000 yukarı açık kırmızı ve 1,500'ün altında gri olarak ayarlarım. Bunu çoğu sütun için yaptım ve el ile yaptım.

Excel bunu otomatik olarak yapmak için bir işlev içeriyor mu. Min ve max değerlerini girmek istemiyorum ya da kırmızı değerinin 8.000 ila 9.000 arasında olması gerektiğini belirtiyorum. Benim fikrim, böyle bir işlevin, minimum ve maksimum değerleri ve sayfadaki sıklıklarını algılamasıdır. O zaman, yani ilk% 10 değer tek renkte olmalı ve diğer değerlere benzer olmalıdır. Temel olarak bir butona tıklamak istiyorum ve bundan sonra tüm sütunlar için kullanışlı renklere sahip olmak istiyorum.

Böyle bir işlev Excel'de veya bir eklenti olarak var mı?


2
"Koşullu biçimlendirme" (Ana - Stiller - Koşullu biçimlendirme) olarak adlandırılır. Mevcut tüm durum değişkenlerini inceleyin.
Akina

2
Koşullu Biçimlendirmeyi kullanın, @Akina'nın önerdiği gibi "Renk Ölçekleri" ni öneririm. Değerlere bağlı olarak renk degradelerini otomatik olarak uygular.
Rob Gale,

Teşekkürler. Eğer biriniz bunu cevaplarsa, o zaman onu vurguluyorum ...
Edgar

@Edgar, eylem gerçekleşmemiş olarak ayarlanmadıkça hiçbir şey olmaz . Yakın geçmişte, Excel VBA (MAcro) kullanarak Arkaplan renginin hücre aralığına nasıl uygulanacağına dair bir cevap verdim.
Rajesh S

Yanıtlar:


0

Bu VBA (Makro) kodu, Etkin Sayfadaki Maksimum ve Minimum değerleri otomatik olarak vurgulamanıza yardımcı olur.

Sabit Kodlu Veri Aralıklarının kullanılması yerine, kod hangi sütunlarda kullanılırsa kullanılsın ve farklı uzunluklarda olmasını sağlar.

Ayrıca, Aktif Sayfadaki başlıkları kabul ediyorum.

Private Sub Worksheet_Activate()
Dim Myrng As Range
Dim rng As Range
Dim lCol As Long
Dim lLastRow As Long

ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNone

  With ActiveSheet
    For lCol = 2 To .UsedRange.Columns.Count

      lLastRow = .Cells(.Rows.Count, lCol).End(xlUp).Row
      Set rng = .Range(.Cells(2, lCol), .Cells(lLastRow, lCol))

      For Each Myrng In rng

       If Myrng.value = Application.WorksheetFunction.Max(rng) Then
        Myrng.Interior.ColorIndex = 6
       End If

       If Myrng.value = Application.WorksheetFunction.Min(rng) Then
        Myrng.Interior.ColorIndex = 10
       End If

      Next
    Next lCol
  End With

End Sub

Nasıl çalışır:

  • Bu VBA kodunu Kopyala ve Yapıştır ile Standart Modül Olarak Yapıştırın.
  • Kod, etkinleştirdiğiniz anda Sayfa'da kullanılan aralık için her sütunda bulunan Maks ve Min Değerlerini vurgulayacaktır (Fareyi Sayfa Sekmesinde Tıklayınız).
  • Arkaplan Rengini gerektiği gibi ayarlayın.
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.