בקשת מידע | מאקרו שמופעל בשינוי תא מסוים
-
ניסיתי לכתוב את הקוד הבא
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לא קורה כלום גם בשינוי התא המצוין
-
@ארפכשד תשנה ל-
If Target.Address = "$L$9" Thenלא יודע למה צריך אות גדולה, כשעושים
MsgBox Target.addressהוא מציג אות קטנה, וגם ב Range אתה קורא לו באות קטנה
-
@אופיר123
עכשיו הבנתי..
זה פועל רק אם משנים את תוכן התא ידנית
אבל אם בתא יש נוסחה והתוכן משתנה אוטומטי (למשל אם כתוב שם =A1 ובתא A1 השתנה התוכן) אז זה לא פועל..
יש פתרון לזה? -
@אופיר123
עכשיו הבנתי..
זה פועל רק אם משנים את תוכן התא ידנית
אבל אם בתא יש נוסחה והתוכן משתנה אוטומטי (למשל אם כתוב שם =A1 ובתא A1 השתנה התוכן) אז זה לא פועל..
יש פתרון לזה? -
-
תשובת @ רובי בוט
נקודות חשובות:
אם הערך ב-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 כדי להציג את ההודעה רק כאשר הערך עובר להיות שלילי (מכחול או חיובי לשלילי).
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}