עזרה | עזרה במאקרו

[u88]

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

[pcinfogmach]

@u88
https://mitmachim.top/topic/55626/מדריך-איך-ליצור-יוזרפורם-userform-ממשק-משתמש-ב-vba

[ASER]

@u88 מאקרו מוכן.docm
עשיתי לך את העבודה...

[u88]

@ASER תודה רבה אלוף העולם!!!!

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

זה סתם מאקרו שיכול לעזור להרבה אנשים למצא כפילויות בקובץ
עוזר לאנשים שמעתיקים כל מני דברים ורוצים לדעת מה כבר העתיקו מה לא וכו'

[שלמה11]

@u88 האם יש לך ידע בVBA? (כי בלי זה אין מה להתחיל...)

בכל זאת כתבתי לך מדריך מקוצר ע"פ הקובץ לעיל:

אז קודם כל מה זה UserForm?

• UserForm הוא טופס של אופיס המאפשר יצירת אינטראקציה עם המשתמש.

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

כיצד מציגים אותו למשתמש?

• באם נרצה להציג את הUserForm לפני המשתמש, נכניס את הקוד הבא:

UserForm.show

• במקום המילים "UserForm" נכניס את השם של הטופס, בקובץ שהובא לעיל הוא נקרא: "frmDuplicatesTool" וזהו בעצם הקוד הראשון שנמצא בModule הרגיל של הקובץ:

Sub ShowDuplicateTool()
    frmDuplicatesTool.Show
End Sub

איך לשנות שם לUserForm או לפקדים שלו?

• על מנת לשנות את השם של הטופס נבחר אותו בחלון של עורך הVBA נלחץ על F4 (יש לשים לב שמקש הFN לחוץ), ייפתח לנו חלון בצד, בשורה הראשונה ניתן לשנות את שם הטופס.

*באם נרצה להחליף שם לאחד הפקדים נבחר אותו, ונשנה את שמו באותה צורה.

יצירת הפקדים:

• בטופס שמובא בקובץ הנ"ל יש לנו 4 פקדים, 3 פקדים מציגים אופציות שונות (מחיקה/סימון באדום/הצגת דו"ח) והפקד הרביעי מריץ את הקוד.
• כמובן שקודם כל נצטרך להוסיף את הפקדים, באמצעות גרירה של פקדים מחלונית הכלים:

• אנו צריכים לשנות גם את שמות הפקדים, שלושת הפקדים של תיבות הסימון נקראים: "chkHighlight", "chkDelete", "chkExport" (איך מחליפים? כבר אמרנו...)
• עכשיו נשאר לנו רק את הפקד האחרון, הפקד הזה מריץ את הקוד
• נשנה את השם שלו ל"btnRun"

כיצד להריץ קודים באמצעות טופס UserForm?

*לאחמ"כ נלחץ על הפקד לחיצה כפולה, בחלון שנפתח נוסיף את הקוד הבא:

Private Sub btnRun_Click()
    Me.Hide
    RunDuplicateTool chkHighlight.Value, chkDelete.Value, chkExport.Value
    Unload Me
End Sub

• הקוד הזה מופעל בעת לחיצה על הפקד, ניתן לראות זאת משמו של הקוד שמשלב את שם הפקד בתוספת המילה "Click", והוא מבצע את הפעולות הבאות:

1. מסתיר את הטופס במהלך ריצת הקוד
2. מפעיל את הקוד שנמצא בתוך הModule הרגיל המאקרו נקרא: "RunDuplicateTool"
3. המאקרו מקבל 3 ערכים בתחילת הריצה, המופרדים באמצעות פסיקים, שהם בעצם הערכים של תיבות הסימון (השם של תיבת הסימון + ".value" = ערך)
4. כעת המאקרו ירוץ, באם נסתכל על השורה הראשונה של המאקרו שאנו מריצים (שכזכור נמצא בModule הרגיל):

Sub RunDuplicateTool(highlightOnly As Boolean, doDelete As Boolean, exportReport As Boolean)

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

סיכום:

אם קיבלתם קוד מAI ואתם רוצים להוסיף אותו לקובץ וורד, תבצעו את הפעולות הבאות:

1. הוספה של הקודים לModule הרגיל.
2. יצירת טופס UserForm עם פקדים.
3. שינוי השמות של הטופס והפקדים.
4. הוספת הקוד של הטופס, באמצעות לחיצה כפולה על אחד הפקדים (או הטופס עצמו) והחלפת הקוד, בקוד שAI הביא לכם
5. כמה פשוט.......

Spoiler

הכל כמובן בקיצור, המדריך של @pcinfogmach מפורט בהרבה...