Excel'de metin titremesi nasıl yapılır

1. Adım

Metni kırpmak istediğiniz Microsoft Excel 2010 dosyasını açın. VBA konsolunu açmak için "Alt" ve "F11" tuşlarına basın.

2. Adım

VBA konsolunun sol tarafındaki "ThisWorkbook" girişine sağ tıklayın. Farenizi "Ekle" üzerine getirin ve "Modül" seçeneğini seçin.

3. adım

"ThisWorkbook" seçeneğini çift tıklayın. Aşağıdaki kodu kopyalayın ve ekranın sağ tarafındaki boş alana yapıştırın:

Özel Alt Çalışma Kitabı_Open () Blink End Sub

Private Sub Workbook_BeforeClose (Boolean Olarak İptal Et) NoBlink End Sub

Bu kod, bu kitabı açtığınızda yanıp sönen metnin yanında başlayacaktır ve kitabı kapattığınızda metnin yanıp sönmesi, Excel'e "yanıp sönme" ve "yanıp sönmüyor" ifadelerinin gerçekten ne anlama geldiğini bildirmek için kodu girdiğinizde duracaktır.

4. Adım

Ekranın sol tarafındaki listeden "Modül 1" e çift tıklayın. İmleci ekranın sağ tarafına yerleştirin ve aşağıdaki satırı yazın:

Çift Zamanlı Kamu Hesapları

Bu, her bir alt programda kullanılabilecek "Timecount" adlı bir değişken oluşturur.

Adım 5

İmleci sonraki satıra taşımak için Enter tuşuna basın ve aşağıdaki kodu yazın:

Sub blink () ThisWorkbook.Worksheets ile ("Sheet1"). Aralığı ("A1: A10"). Yazı Tipi .ColorIndex = 3 Sonra .ColorIndex = 2 Else .ColorIndex = 3 End Time End = End + TimeSerial ile Sonu (0), 0, 1) Application.OnTime Timecount, "Blink",, True End Sub

Bu, tanımlanan aralıktaki tüm metnin yanıp sönmesine neden olacak "Yanıp Sönen" adında bir alt yordam oluşturur. "A1: A10" aralığını, tek bir hücre dahil olmak üzere istediğiniz herhangi bir aralığa değiştirebilirsiniz.

6. Adım

Aşağıdaki satıra erişmek için "Enter" tuşuna basın ve aşağıdaki kodu yazın:

Sub noblink () ThisWorkbook.Worksheets ("Sheet1") Aralık ("A1: A10"). Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime Timecount, "Blink", Yanlış End Sub

Bu, kitabı kapattığınızda çalıştırılacak bir altprogram oluşturacaktır. Tüm metni tekrar siyaha dönüştürecek, böylece makronun yanlışlıkla etkinleştirilmeden kazara açan bir kişi metin kutularında hiçbir şey görmeyecektir.

7. adım

Sağ üst köşedeki "X" düğmesine tıklayarak VBA konsolunu kapatın. Ekranın üst kısmındaki "Dosya" sekmesini tıklayın ve "Farklı kaydet" i seçin. Açılan alandan "Excel için kitap makroları için etkin" yi seçin ve kitap için bir ad girin. "Kaydet" i tıklayın.

8. adım

Excel dosyasını kapatın ve yeniden açın. Metniniz, makroda tanımlanan aralık içinde 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ündeki "Makroları Etkinleştir" düğmesini tıklamanız gerekebilir.