כיצד להפוך את הבהוב טקסט ב - Excel - -

שלב 1

פתח את הקובץ Microsoft Excel 2010 שבו ברצונך להבהב את הטקסט. לחץ על המקשים "Alt" ו- "F11" כדי לפתוח את קונסולת ה- VBA.

שלב 2

לחץ לחיצה ימנית על "ThisWorkbook" כניסה בצד שמאל של קונסולת VBA. העבר את העכבר מעל "הכנס" ובחר באפשרות "מודול".

שלב 3

לחץ פעמיים על האפשרות "ThisWorkbook". העתק את הקוד הבא והדבק אותו בחלל הריק בצדו הימני של המסך:

פרטי עבודה Sub Subbook_Open ()

פרטי עבודה (.) NoBlink End

קוד זה יתחיל ליד הטקסט המהבהב בעת פתיחת הספר, והבהוב של הטקסט יפסיק עם סגירת הספר, לאחר שתכניס את הקוד כדי לספר ל- Excel מה המשמעות של "מהבהב" או "לא מהבהב" באמת.

שלב 4

לחץ פעמיים על "מודול 1", מתוך הרשימה בצד שמאל של המסך. מקם את הסמן בצד ימין של המסך וכתוב את השורה הבאה:

זמן ציבורי כפליים

זה יוצר משתנה בשם "Timecount", שניתן להשתמש בהם בכל subprogram.

שלב 5

הקש על Enter כדי להעביר את הסמן לשורה הבאה ולכתוב את הקוד הבא:

(1: A1) .גודל אם .ColorIndex = 3 לאחר מכן. ColorIndex = 2 אחר. ColorIndex = 3 סוף אם סוף עם Timecount = עכשיו + TimeSerial (0), 0, 1) Application.OnTime Timecount, "להבהב", סוף סוף אמיתי

פעולה זו יוצרת שגרת הנקראת "הבזק" אשר תגרום לכל הטקסט בטווח המוגדר להבהב. ניתן לשנות את הטווח של "A1: A10" לכל טווח שתרצה, כולל תא בודד.

שלב 6

הקש על המקש "Enter" כדי לגשת לשורה הבאה ולכתוב את הקוד הבא:

טווח ("A1: A10"). Font.ColorIndex = _ xlColorIndex יישומים אוטומטיים. OnTime Timecount, "Blink", False End Sub

פעולה זו תיצור שגרה שתבוצע בעת סגירת הספר. זה יהיה להמיר את כל הטקסט בחזרה לשחור, כך שאדם בטעות פותח את הספר ללא פקודות מאקרו מופעלת לא תראה שום דבר בתיבות טקסט.

שלב 7

סגור את קונסולה VBA על ידי לחיצה על "X" בפינה הימנית העליונה. לחץ על הכרטיסייה "קובץ" בחלק העליון של המסך ובחר "שמירה בשם". בחר באפשרות "Excel מופעלת עבור פקודות מאקרו של ספר" מתוך השדה הנפתח והזן שם עבור הספר. לחץ על "שמור".

שלב 8

סגור את קובץ ה- Excel ופתח אותו מחדש. הטקסט שלך, בטווח המוגדר במאקרו, יתחיל להבהב. בהתאם להגדרות האבטחה שלך, ייתכן שיהיה עליך ללחוץ על הלחצן 'הפעל פקודות מאקרו' בחלק העליון של המסך כדי לראות את הטקסט המהבהב.