בקשת מידע | מאקרו שמופעל בשינוי תא מסוים

[ארפכשד]

ניסיתי לכתוב את הקוד הבא

Private Sub Worksheet_Change(ByVal Target As Range)   
    If Range("l9") < 0 Then
    MsgBox "שלום"
    End If
End Sub

אך זה מפעיל את המאקרו בכל שינוי תא
ובקוד הבא (שלקחתי מכאן)

Private Sub Worksheet_Change(ByVal Target As Range)
            If Target.Address = "$l$9" Then
             'Do something
          
    If Range("l9") < 0 Then
    MsgBox "שלום"
    End If
   
   End If
End Sub

לא קורה כלום גם בשינוי התא המצוין

[אופיר123]

@ארפכשד תשנה ל-

If Target.Address = "$L$9" Then

Spoiler

לא יודע למה צריך אות גדולה, כשעושים

MsgBox Target.address

הוא מציג אות קטנה, וגם ב Range אתה קורא לו באות קטנה

[ארפכשד]

@אופיר123 ככה בדיוק כתבתי לא הבנתי היכן השינוי

[אופיר123]

@ארפכשד אות L גדולה

Spoiler

ראית את הספויילר למעלה?

[ארפכשד]

@אופיר123 לא חשבתי שזה משנה משהו
ובכל מקרה שיניתי וזה עדיין לא עובד

[אופיר123]

@ארפכשד אצלי שיניתי ועבד

Spoiler

שמת לב שL9 צריך להיות קטן מאפס

[ארפכשד]

@אופיר123
עכשיו הבנתי..
זה פועל רק אם משנים את תוכן התא ידנית
אבל אם בתא יש נוסחה והתוכן משתנה אוטומטי (למשל אם כתוב שם =A1 ובתא A1 השתנה התוכן) אז זה לא פועל..
יש פתרון לזה?

[דאבל]

@ארפכשד אולי תנסה להכניס את הערך למשתנה ואז לבדוק אותו.

[אופיר123]

@ארפכשד גם עם אות קטנה עבד לך? כי לי לא

[ארפכשד]

@אופיר123 לא רק אחרי ששינתי.
באמת שכחתי להודות לך.. תודה!!

[ארפכשד]

@דאבל אשמח אם תפרט יותר

[אופיר123]

@ארפכשד נראה לי שתעשה מאקרו אירוע שבכל פעם שתא כלשהוא בחוברת העבודה משתנה המאקרו בודק אם הערך בתא L9 השתנה (כי אף פעם לא יהיה שינוי בתוצאת הנוסחה אם כלום לא ישתנה, אז אחרי כל שינוי בקובץ לבדוק אם תוצאת הנוסחה השתנתה ואם כן יופעל המאקרו)

Spoiler

איך לבדוק את הערך האם הוא השתנה זה קצת מורכב עי' כאן

[ארפכשד]

תשובת @ רובי בוט

נקודות חשובות:

אם הערך ב-L9 משתנה באמצעות נוסחה (ולא בעריכה ישירה), המאקרו לא יופעל כי Worksheet_Change מתרחש רק כשמשנים את התא ידנית או דרך קוד. במקרה כזה יש להשתמש ב-Worksheet_Calculate או לבדוק שינויים באופן שונה.
אם הערך ב-L9 נקבע על ידי נוסחה ואתה רוצה שההודעה תופיע כשהערך הופך לשלילי, אפשר להשתמש בקוד כזה ב-Worksheet_Calculate:

vba
Dim prevValue As Variant

Private Sub Worksheet_Calculate()
    Dim currValue As Variant
    currValue = Me.Range("L9").Value

    If IsNumeric(currValue) Then
        If currValue < 0 Then
            If prevValue >= 0 Or IsEmpty(prevValue) Then
                MsgBox "שלום"
            End If
        End If
    End If

prevValue = currValue
    End Sub

כאן נשמר הערך הקודם ב-prevValue כדי להציג את ההודעה רק כאשר הערך עובר להיות שלילי (מכחול או חיובי לשלילי).