Excel'de bir hücreyi kırmızı renkte yanıp sönmesini nasıl sağlarsınız?
Genellikle hücreleri diğerlerinden ayırt etmek için farklı arka plan renkleriyle vurgularız. Ancak bu makalede, Excel’de belirli hücrelerin dikkat çekmesini sağlamak amacıyla kırmızı arka planda yanıp sönmesini sağlayan bir VBA kodunu tanıtacağım.
Hücreyi VBA ile kırmızı renkte yanıp söndürme
Hücreyi VBA ile kırmızı renkte yanıp söndürme
Kullanıcıların dikkatini çekmek ve hücrelerin yanıp sönmesini sağlamak için aşağıdaki VBA kodu kullanılabilir.
1. Yanıp sönen hücreleri içeren sayfayı etkinleştirin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu Modül betiğine yapıştırın. Ekran görüntüsüne bakın:
VBA: Hücreyi kırmızı renkte yanıp söndürme
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. F5 tuşuna basın; ardından Kutools for Excel iletişim kutusu açılır ve yanıp sönmesini istediğiniz hücreleri seçebilirsiniz. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın. Artık seçili hücre, kırmızı arka planda yanıp sönüyor.
İpuçları:
(1) VBA kodunda, arka plan rengini (xColor = 3), yanıp sönme hızını (xSpeed = 0,6) ve yanıp sönme sayısını (Do Until xCount = 20) istediğiniz gibi özelleştirebilirsiniz.
(2) Bu VBA kodu, boş bir seçim yapıldığında yanıp sönen arka plan eklemeyecektir.
(3) Bu yanıp sönen arka plan, belirlenen süre dolduğunda otomatik olarak kaldırılır.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar