התייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל

[OdedDvir]

@פלורידה יש כאן צורך בשני פונקציות, כל אחת בכיוון הפוך:
1. המרת מיקום בגליון כלשהו למחרוזת מפתח
בהנתן מיקום מסויים בגיליון כלשהו, הפונקציה תתרגם את המיקום למפתח המתאים.

שימוש:
כשהמשתמש ילחץ על משבצת כלשהיא, נדע לאיזה דף הוא התכוון, וכך נוכל לעדכן את הערך המתאים בטבלת החזרות.

2. המרת מחרוזת מפתח למיקום בגליון
בהנתן מפתח כלשהו, הפונקציה תתרגם את מחרוזת המפתח למיקום המתאים בגליון המתאים.

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

עריכה:
המימוש בפועל של הפונקציות (כלומר כתיבת הקוד עבורן) תלוי מאוד בשיטת העיצוב של הגליון.

דוגמא למימוש הפונקציה השניה:

חישוב מספר המסכת:

חיפוש של שם הגליון בטבלת המסכתות.

חישוב מספר הדף:

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

חישוב מספר הפרק:

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

חישוב מספר החזרה:

נגזר מחישוב מספר הפרק + חישוב היסט העמודות שמאלה.

[פלורידה]

אני עומד לפני סיום השלב הראשון בס"ד

יצרתי טבלה שבכותרות ישנם ברכות, שבת, וכו' ובעמודה הראשונה, ב., ב:, ג., וכו'.

הצורה לשלוף את המפתח היא על ידי index + matsh.

הדרך לקבל את המידע היא לפי נתוני המסכת, והדף בטבלה שמקבלת את הדבל קליק, היא על ידי VLookUp עם הסיט שלילי.

כל הקוד יחד:

Public Function m_kata(wordText As String) As Variant
masecet = ActiveSheet.Range("A6")
ActiveColumn = ActiveCell.Column - ActiveCell.ListObject.DataBodyRange.Column + 1
tanivchar = Selection
ActiveTable = ActiveCell.ListObject
amuda1 = ActiveSheet.ListObjects(ActiveTable).ListColumns(1).DataBodyRange
amudanivchar = ActiveSheet.ListObjects(ActiveTable).ListColumns(ActiveColumn).DataBodyRange

daf = Application.VLookup(tanivchar, Application.Choose(Array(1, 2), amudanivchar, amuda1), 2, 0)

m_kata = Application.Index(Sheets("מקט").Range("T6:BF356"), Application.Match(daf, Sheets("מקט").Range("S6: S356"), 0), Application.Match(masecet, Sheets("מקט").Range("T6:BF6"), 0))

End Function

---

כעת נותר להחליט, האם כדאי ליצור את המסד בחוברת עבודה נפרדת, או באותה חוברת עבודה.

@odeddvir אמר בהתייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל:

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

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

כמו כן אשמח לשמוע על החסרונות של השיטה הזאת (אם יש...)

[OdedDvir]

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

[פלורידה]

@odeddvir אמר בהתייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל:

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

כלומר: הוא פתוח בכל עת בלי שהמשתמש רואה אותו?
או שכל פעולה הוא נגש לשם?

[OdedDvir]

@פלורידה מטעמי יעילות עדיף שיהיה פתוח כל זמן שהתוכנה פעילה, כך הגישה אליו תהיה יותר מהירה, כי הפתיחה לוקחת זמן.

[פלורידה]

@odeddvir

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

[OdedDvir]

@פלורידה עיין כאן.

[פלורידה]

@odeddvir

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

האופציה של Application.ScreenUpdating = False להבנתי אינה גורמת שלא יוצג כלל אלא היא מופיעה בזמן הריצה בלי גישה.

[OdedDvir]

@פלורידה תשתמש במשתנים גלובליים.
צור מודול ובו תצהיר על משתנה גלובלי (ציבורי) שיכיל את חוברת הנתונים:

Public DataWB As Workbook

כעת בפתיחת החוברת שלך, תריץ את הקוד הבא:

Set DataWB = GetObject("Hadran_Data.xlsx")

ולפני הסגירה תריץ:

DataWB.Close SaveChanges:=True

כי מסתמא תרצה לשמור את השינויים שביצעת בקובץ הדאטא.

בין לבין, תוכל לגשת לקובץ הדאטא מכל מקום בקוד על ידי האובייקט DataWB.

[פלורידה]

@odeddvir

אני מנסה לכתוב איליו כך:

Application.Goto Workbooks(DataWB).Sheets("גיליון1").Range("a1") = Range("a1").Value

מקבל שגיאה
Type mismatch

[OdedDvir]

@פלורידה צ"ל כך:

DataWB.Sheets("גיליון1").Range("a1")

[פלורידה]

@odeddvir

כיצד ניתן להחזיר את הקובץ שיפעל כרגיל?

[OdedDvir]

@פלורידה לא הבנתי מה כוונתך.

[פלורידה]

@odeddvir
כל קובץ שפתחתי אותו פעם אחת על ידי GetObject יותר לא נפתח לי כרגיל, כלומר הוא ירוץ (אני אראה קובץ מוסתר בשולחן העבודה,) אך אינו מוצג.

ניסיתי להגדיר ככה:

DataWB.Visible = True

אך קיבלתי שגיאה: Object doesn't support this property or method

[OdedDvir]

@פלורידה מעניין... לא הצלחתי לשחזר את התופעה אצלי.
בכל מקרה, פתח את הקובץ דאטא, עבור לעורך ה-VBA על ידי מקש F11 ובחלון ה- Immediate למטה תריץ:

ThisWorkbook.Windows(1).Visible = True

האם כעת מוצג?

[פלורידה]

@odeddvir אמר בהתייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל:

האם כעת מוצג?

אכן מוצג
מה המספר (1) מבטא?
על מנת שאדע כיצד לשלב אותו בקוד

[OdedDvir]

@פלורידה את אינדקס החלון מתוך החלונות הפעילים. ניתן לציין לפי מספר או לפי כותרת:

Application.Windows(1).Caption = "שמוליק"
Application.Windows("שמוליק").ActiveSheet.Calculate

[פלורידה]

@odeddvir אמר בהתייעצות | בניית מסד נתונים לתכנת "הדרן עלך" | אקסל:

Application.Windows(1).Caption = "שמוליק"

אם אני מבין נכון, החלון הפעיל נחשב (1) וכן הלאה.
סביר להניח שכאשר אני פותח חלון על ידי vba הוא לא נחשב פעיל, ולכן הוא מקבל את הערך האחרון מבין החלונות הקיימים

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

כאשר הוא יהפך לפעיל הוא יחזור להיות (1) וכל הקוד ישתבש? ואם נתתי לו שם, זה ישנה את העובדה הזו?

הפיתרון לתת כותרת, גם היא צריכה קודם לדעת את המיקום באינדקס

אני מרגיש שדיברתי יותר מידי... מה חסר לי בהבנה?

[OdedDvir]

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

[פלורידה]

@odeddvir בוודאי יש לך גירסת אופיס 365
לי יש 2019

הצורה שהכנסתי את זה היא כך:

Sub open1()
Set DataWB = GetObject("C:\Desktop\Hadran_Data.xlsx")
DataWB.Visible = True
End Sub

וכך

Sub סגור()
DataWB.Visible = True
DataWB.Close SaveChanges:=True
End Sub

בריצה בחלון המיידי מתקבלת השגיאה הבאה:

Run-time error '424':

Object required