Excel'de yazı tipi seçeneği olarak yanıp sönen veya yanıp sönen metin yoktur. Bununla birlikte, Excel'in yerleşik Visual Basic for Applications'ını kullanarak, metnin her bölümde rengini değiştirmek için kodu kullanarak yanıp sönen bir efekt oluşturabilirsiniz.
Aşama 1
Metni flaş yapmak istediğiniz Microsoft Excel 2010 dosyasını açın. VBA konsolunu açmak için "Alt" ve "F11" tuşlarına basın.
Günün Videosu
Adım 2
VBA konsolunun sol tarafındaki "ThisWorkbook" girişine sağ tıklayın. Farenizi "Ekle" üzerine getirin ve "Modül"ü seçin.
Aşama 3
"ThisWorkbook" seçeneğine çift tıklayın. Aşağıdaki kodu kopyalayın ve ekranın sağ tarafındaki beyaz alana yapıştırın:
Private Sub Workbook_Open() Blink End Sub
Private Sub Workbook_BeforeClose (Boolean Olarak İptal Et) NoBlink End Sub
Bu çalışma kitabını açtığınızda bu kod başlayacak ve yanıp sönen metin ve yanıp sönen metni durduracaktır. çalışma kitabını kapattığınızda, Excel'e Blink ve NoBlink'in gerçekte ne olduğunu söylemek için kodu eklediğinizde kastetmek.
4. Adım
Ekranın sol tarafındaki listeden "Modül 1"e çift tıklayın. İmlecinizi ekranın sağ tarafına getirin ve aşağıdaki satırı girin:
Çift Olarak Genel Zaman Sayımı
Bu, her alt programda kullanabileceğiniz "Zaman Sayısı" adlı bir değişken oluşturur.
Adım 5
İmleci bir sonraki satıra taşımak için enter tuşuna basın ve aşağıdaki kodu girin:
ThisWorkbook ile alt göz kırpma(). Worksheets("Sheet1").Range("A1:A10").Font If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Uygulaması. OnTime Timecount, "Blink", True End Sub
Bu, tanımlanan aralıktaki tüm metnin yanıp sönmesine neden olacak "Blink" adlı bir alt yordam oluşturur. "A1:A10" aralığını, tek bir hücre de dahil olmak üzere istediğiniz aralığa değiştirebilirsiniz.
6. Adım
Bir sonraki satıra erişmek için "Enter" tuşuna basın ve aşağıdaki kodu girin:
Sub noblink() Bu Çalışma Kitabı. Worksheets("Sayfa1").Range("A1:A10").Font. ColorIndex = _ xlColorIndexOtomatik Uygulama. OnTime Zaman Sayımı, "Yanıp Sönme", Yanlış Son Alt
Bu, çalışma kitabını kapattığınızda çalışacak bir alt yordam oluşturacaktır. Çalışma kitabını makrolar etkin olmadan açan birinin yanlışlıkla metin kutularında hiçbir şey görmemesi için tüm metni siyaha döndürür.
7. Adım
Sağ üst köşedeki "X" işaretini tıklayarak VBA konsolunu kapatın. Ekranın üst kısmındaki "Dosya" sekmesine tıklayın ve "Farklı kaydet"i seçin. Açılır alandan "Excel Makro Etkin Çalışma Kitabı"nı seçin ve çalışma kitabı için bir ad yazın. "Kaydet"i tıklayın.
Adım 8
Excel dosyasını kapatın ve yeniden açın. Makroda tanımlanan aralıktaki metniniz yanıp sönmeye başlayacaktır. Güvenlik ayarlarınıza bağlı olarak, yanıp sönen metni görmek için ekranın üst kısmındaki "Makroları Etkinleştir" düğmesine tıklamanız gerekebilir.
