איך לגרום לתאי אקסל להבהב ?

יקירי שלום,

האם ניתן לגרום לעמודה שלמה להבהב  ?

כי יש לי עמודה / תא שאני תמיד מפספס אותה ושוכח למלא ,

וחשבתי שאם אני אגרום לעמודה להבהב בצבע ,

זה יעזור לי לא לשכוח למלא את התא הרלונטי.

תודה

אורן

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

אורן שלום,

כן, אפשר לגרום לתא להבהב

זה נעשה באמצעות קוד VBA (מאקרו)

איך לגרום לתא Excel להבהב - שלב 1

בשלב הראשון, עלינו להגדיר סגנון תא חדש

כדי לעשות זאת עמדו על התא / תאים שתרצו שיהבהבו

כרטיסית בית > כפתור סגנונות תא > בחר באפשרות סגנון תא חדש (בתחתית התפריט)

והגדר סגנון חדש בשם blink

(לצורך הדוגמא - חשוב שהסגנון החדש יקרא blink,

אחרי שמבינים, אפשר כמובן לשנות למה שרוצים).

איך לגרום לתא Excel להבהב - שלב 2

בשלב השני , נעתיק את קוד ה-VBA הבא

אל תוך הגיליון.

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

Public pNext_blink As Date

Public Sub Blink()
 On Error GoTo Err_Handel
 
 Dim myStyle As Style, Color1 As Variant, Color2 As Variant
 
 Color1 = vbRed
 Color2 = vbYellow
 
 Set myStyle = ActiveWorkbook.Styles("blink")
 
 pNext_blink = Now + TimeValue("00:00:01")
 
 
 If myStyle.Interior.Color = Color1 Then
 myStyle.Interior.Color = Color2
 Else
 myStyle.Interior.Color = Color1
 End If
 
 Application.OnTime pNext\_blink, "Blink"
ExitHere:
 Exit Sub
Err_Handel:
 If Err.Number <> 0 Then
 Err.Clear
 PauseBlinking
 Resume ExitHere
 End If
End Sub

Public Sub PauseBlinking()
 On Error Resume Next
 Application.OnTime pNext\_blink, "Blink", schedule:=False
 ActiveWorkbook.Styles("blink").Interior.Color = xlAutomatic
 If Err.Number <>0 Then Err.Clear
 
End Sub

איך מתחילים או מפסיקים את הבהוב התאים ?

כדי להתחיל > Alt+F8 > לחץ על Blink

כדי להפסיק > Alt+F8 > לחץ על PauseBlink

הערה : Alt+f8 זהו קיצור אל : תצוגה > פקודות מאקרו

בהצלחה!

רוצה להפוך את עבודתך ב-Excel לפחות מסובכת ויותר יעילה?
מומחה Excel יכול להפוך תהליכים לאוטומטים ולבנות עבורך אקסלים יעילים.
צור קשר עכשיו