Change

[אלוורדו]

Change

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

Private Sub Worksheet_Change(ByVal Target As Range)
        Target.Interior.Color = 49407
End Sub

אלא שכאשר אני משנה ערך 2 (למשל) ל 2 אז התא לא צריך להיצבע...
וגם :
אם התא שאני משנה את ערכו מזין תא אחר, איך להביא גם לצביעת התא האחר ?
7/2010

 

[ziv98]

Change

כדי להתנות צביעה בשינוי "ממש":

Dim old_val


Private Sub Worksheet_Change(ByVal Target As Range)
If old_val <> Target.Value Then Target.Interior.Color = 49407
End Sub

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
old_val = Target.Value
End Sub

לגבי צביעת תאים ניזונים: נסה להיעזר ב:
http://www.ozgrid.com/VBA/color-formula-references.htm

כאשר ניזונים = Dependents

 

[אלוורדו]

תודה רבה