Excel'de belirtilen hücrenin metni nasıl yanıp söner veya yanıp söner?

Çalışma sayfanızda belirli bir hücreyi öne çıkarmak için, bu hücrenin metnini yanıp sönmeye ne dersiniz? Bu makale, Excel'de belirli bir hücrenin metnini yanıp sönme yöntemini gösterecektir.

VBA kodu ile belirtilen hücrenin yanıp sönen veya yanıp sönen metni

VBA kodu ile belirtilen hücrenin yanıp sönen veya yanıp sönen metni

Excel'de belirli bir hücrenin metnini yanıp sönmek için lütfen aşağıdaki işlemleri yapın.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki kodu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Excel'de belirtilen hücrenin yanıp sönen metni

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

not: Bu VBA kodunda, Sayfa2 ve A1, Sayfa1'nin A2 hücresindeki metnin mevcut çalışma kitabında yanıp söneceğini belirtir.

3. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.

Şimdi yanıp sönmeyi başlatmak ve durdurmak için bir düğmeye ihtiyacınız var.

4. tık Geliştirici > Ekle > Düğme (Form Kontrolü). Ekran görüntüsüne bakın:

5. Çalışma sayfanıza bir düğme ve ardından Makro Ata iletişim kutusu açılır, lütfen tıklayın Yanıp Sönmeyi Başlat içinde Makro isim ve ardından OK buton. Ekran görüntüsüne bakın:

6. Eklenen düğmeyi sağ tıklayın ve Metni düzenle sağ tıklama menüsünden. Ardından düğme metnini, Yanıp Sönmeyi Başlat / Durdur gibi ihtiyacınız olan metinle değiştirin.

Şu andan itibaren, düğmeye tıklandığında, A1 hücresinin metni yanıp sönmeye başlar. Ve düğmeye tekrar tıklandığında, A1 hücresinin metni yanıp sönmeyi durdurur.

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
300'den fazla güçlü özellik. Office / Excel 2007-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma...

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin... Satın alma...

18 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
shalim · 5 months ago
how to make flashing specific cell containing specific Text only ?
- Reply
To post as a guest, your comment is unpublished.
connie · 1 years ago
not working,

Please help
- Reply
To post as a guest, your comment is unpublished.
Shreenivas AK · 1 years ago
when protect the sheet this code not working
- Reply
To post as a guest, your comment is unpublished.
mekka · 2 years ago
hi, i need help in google sheets..

I need an entire row to blink if F3:F1001 contains the "STAT". the entire row should be in orange but also blinking until the the column W3:W1001's checkbox is ticked.

is it possible? can you help? pleaseeeeeeeeeeeeeee
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi mekka,
  Sorry can't help you with that. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
baburaj.sasco@gmail.com · 2 years ago
How can I put a condition to blink certain cells if its value is below a limit, say below 30, without using the button. Also, i will be using a protected sheet. Thanks in advance for your help.
- Reply
To post as a guest, your comment is unpublished.
Sam · 2 years ago
How do i change this to sheet 1?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Sam,
  If you want to make cell A1 in Sheet1 or other specific worksheet blinking, please add "Sheet1!" or other worksheet name before the cell address. See the below code line:
  
  Set xCell = Range("Sheet1!A1")
  
  Reply
To post as a guest, your comment is unpublished.
SUNARYANTO · 2 years ago
MANTEB GAN
- Reply
To post as a guest, your comment is unpublished.
alassail.survey@gmail.com · 2 years ago
Working. good
But after protecting my sheet LOCK & Hidden ( except blinking cell ) it's not working.
Anyone plz help me solve this issue.
- Reply
To post as a guest, your comment is unpublished.
Rashid Imam · 2 years ago
Hi,
it's working well but when I am protecting my sheet then blinking is not working showing debug msg.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Good day,
  Please try the following code.
  
  Sub StartBlink()
  Dim xCell As Range
  Dim xTime As Variant
  On Error Resume Next
  Set xCell = Range("A1")
  On Error Resume Next
  
  If xCell.Font.Color = vbRed Then
  xCell.Font.Color = vbWhite
  Else
  xCell.Font.Color = vbRed
  End If
  xTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Dayle · 3 years ago
How do I include this code in the following so I don't need buttons but the blinking starts automatically on the workbook opening?

Private Sub Workbook_Open()

' code here

End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hi Dayle,
  Please put this code into the ThisWorkbook window.
  
  'Put in“ThisWorkbook”window
  Private Sub Workbook_Open()
  StarBlink
  End Sub
  
  Put the below code into the Module window. And then save the workbook as an Excel Macro-enabled Workbook. Hope I can help. Thanks for your comment.
  
  'Start blinking
  Sub StarBlink()
  Dim xCell As Range
  Dim xTime As Variant
  Set xCell = Range("A1")
  With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
  If xCell.Font.Color = vbRed Then
  xCell.Font.Color = vbWhite
  Else
  xCell.Font.Color = vbRed
  End If
  End With
  xTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
  End Sub
  'Stop blinking
  Sub StopBlink()
  xTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Rafi · 3 years ago
Working... Great
- Reply
To post as a guest, your comment is unpublished.
Hana · 4 years ago
How can it make a random cell blink in a certain range?
- Reply
To post as a guest, your comment is unpublished.
Geoff Culbertson · 4 years ago
Could this blinking text be applied to a condition. i.e. if a date is reached or is approaching on one worksheet, a cell on a cover/menu sheet flashes
- Reply
To post as a guest, your comment is unpublished.
Ken · 4 years ago
This code will not stop the blinking it get stuck. What am I doing wrong?
- Reply

Hesabınıza Giriş

Parola Sıfırlama