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.
