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

[פלורידה]

@odeddvir

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

כיצד על פי המסד, התכנה תדע כמה עמודות סימון יהיה לכל שורה? לדוג', אם למדתי את דף ב' במסכת ברכות 6 פעמים, אזי צריך שהתכנה תציג לי 7 עמודות בפרק ראשון מסכת ברכות, שש מהם מסומנות והשביעית מוכנה לסימון.

[OdedDvir]

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

השאלה איך לעצב את ממשק המשתמש לפי זה, כגון:

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

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

[פלורידה]

@odeddvir

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

אם נפעל כך המפתח צריך להיות לפי פרמטרים שיופיעו בגוף הגליון עצמו שנוצר בשעת הבניה.

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

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

[OdedDvir]

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

1. החלק בטבלת המק"ט (שהבאת בעבר) שנוגע למסכת שנבחרה, כלומר על סמך רשימת כל הפרקים במסכת נתונה.
2. החלק בטבלת החזרות שנוגע למסכת שנבחרה, כלומר רשימת כל החזרות שנעשו במסכת הזו.

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

[פלורידה]

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

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

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

[OdedDvir]

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

[פלורידה]

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

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

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

[פלורידה]

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

הכי קל להסביר על ידי דוגמא.
רק בוא נקבע שקוראים למחרוזת הזו abbccddde מעכשיו בשם: מפתח.
פיענוח המפתח הוא כך:
A = סדר
BB = מסכת
CC = פרק
DDD = דף
E = עמוד

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

[OdedDvir]

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

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

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

מספרי קטגוריה.xlsm

[פלורידה]

@odeddvir

אני רואה שאני ממש שאינו יודע לשאול.

אז אנסה כך:

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

עריכה: אולי יותר נכון לשאול כך:
האם יש אפשרות ליצור פונקצייה באקסל שלפי:

1. גליון
2. שם הדף בעמודה הראשונה בטבלה

הוא יידע איך מאיזה תא לשלוף את המפתח?

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

[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