תכנות

4.5k נושאים 37.6k פוסטים

קטגוריות משנה


  • 22 נושאים
    137 פוסטים

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

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

    נתחיל...

    שלב א:

    ראשית בקובץ ה- Excel של רשימת הנמענים, הוסיפו לטבלת הנתונים ארבעה עמודות בשמות כדלהלן (חשוב שהשמות יהיו מדויקים ללא רווחים מיותרים - לתשומת ליבכם):

    DocFolderPath

    DocFileName

    PdfFolderPath

    PdfFileName

    שלב ב:
    צרו שתי תיקיות נפרדות, אחד לקבצי הפלט בפורמט docx, ואחד לקבצי הקלט בפורמט pdf, העתיקו את נתיב התיקייה של קבצי ה- docx והדביקו אותם עבור כל רשומה בשדה שיצרתם בשם DocFolderPath, לאחמ"כ חזרו על הפעולה והפעם העתיקו את נתיב התיקייה של קובצי ה- PDF והדביקו בשדה PdfFolderPath.
    בשדה DocFileName כתבו את השם של הקובץ עבור הרשומה - ניתן להשתמש בנוסחאות, כמו"כ בשדה PdfFileName כתבו את שם הקובץ כנ"ל.

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

    שלב ד:
    פתחו את לשונית מפתחים בקובץ ה- word פתחו את עורך הקוד הוסיפו מודל חדש מצו"ב צילום מסך:
    3eb2538f-9ab1-41eb-a1df-452212916da6-image.png

    הדביקו את הקוד הבא:

    Sub MailMergeToPdfBasic() ' Mark the start of the Subroutine (i.e. Macro) and name it "MailMergeToPdf" ' Macro created by Imnoss Ltd ' Please share freely while retaining attribution ' Last Updated 2021-05-03 Dim masterDoc As Document, singleDoc As Document, lastRecordNum As Long ' Create variables ("Post-it Notes") for later use Set masterDoc = ActiveDocument ' Identify the ActiveDocument (foremost doc when Macro run) as "masterDoc" masterDoc.MailMerge.DataSource.ActiveRecord = wdLastRecord ' jump to the last active record (active = ticked in edit recipients) lastRecordNum = masterDoc.MailMerge.DataSource.ActiveRecord ' retrieve the record number of the last active record so we know when to stop masterDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord ' jump to the first active record (active = ticked in edit recipients) Do While lastRecordNum > 0 ' create a loop, lastRecordNum is used to end the loop by setting to zero (see below) masterDoc.MailMerge.Destination = wdSendToNewDocument ' Identify that we are creating a word docx (and no e.g. an email) masterDoc.MailMerge.DataSource.FirstRecord = masterDoc.MailMerge.DataSource.ActiveRecord ' Limit the selection to just one document by setting the start ... masterDoc.MailMerge.DataSource.LastRecord = masterDoc.MailMerge.DataSource.ActiveRecord ' ... and end points to the active record masterDoc.MailMerge.Execute False ' run the MailMerge based on the above settings (i.e. for one record) Set singleDoc = ActiveDocument ' Identify the ActiveDocument (foremost doc after running the MailMerge) as "singleDoc" singleDoc.SaveAs2 _ FileName:=masterDoc.MailMerge.DataSource.DataFields("DocFolderPath").Value & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("DocFileName").Value & ".docx", _ FileFormat:=wdFormatXMLDocument ' Save "singleDoc" as a word docx with the details provided in the DocFolderPath and DocFileName fields in the MailMerge data singleDoc.ExportAsFixedFormat _ OutputFileName:=masterDoc.MailMerge.DataSource.DataFields("PdfFolderPath").Value & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("PdfFileName").Value & ".pdf", _ ExportFormat:=wdExportFormatPDF ' Export "singleDoc" as a PDF with the details provided in the PdfFolderPath and PdfFileName fields in the MailMerge data singleDoc.Close False ' Close "singleDoc", the variable "singleDoc" can now be used for the next record when created If masterDoc.MailMerge.DataSource.ActiveRecord >= lastRecordNum Then ' test if we have just created a document for the last record lastRecordNum = 0 ' if so we set lastRecordNum to zero to indicate that the loop should end Else masterDoc.MailMerge.DataSource.ActiveRecord = wdNextRecord ' otherwise go to the next active record End If Loop ' loop back to the Do start End Sub ' Mark the end of the Subroutine

    שלב ה וסיום:
    סגרו את עורך הקוד.
    לחצו על כפתור פקודות מאקרו שבכרטיסיית מפתחים, בחרו את המאקרו בשם MailMergeToPdfBasic ולחצו הפעל מצו"ב צילום מסך
    3890ce69-c0e9-4f30-89ce-3e97b7de750b-image.png

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

    מקור

  • ארכיון האתר הקודם והחביב קוד-613

    1k נושאים
    10k פוסטים

    @אבי אמר בשוב, צילומי הצ'קים בבנקים:

    התעסקתי לאחרונה עם סורקים של חברת MAGTEK, הם ידידותיים ונוחים להתממשקות, אבל כמדומני שהבנקים בישראל מוכנים לקבל סריקות רק מסורקים של חברת PANINI

    @אבי איך יוצרים אתך קשר?

  • 31 נושאים
    133 פוסטים

    יש כמה נוסחאות חדשות שממש משנות את כללי המשחק בגוגל שיטס:

    CHOOSECOLS לבחירת עמודות ממערך CHOOSEROWS לבחירת שורות ממערך WRAPROWS להמרת מערך חד ממדי לרב ממדי - פריסה לשורות WRAPCOLS כנ"ל - פריסה לעמודות HSTACK ו VSTACK - הפעולה של {} אך בלי סוגריים - לא משמעותי לכאורה

    והעולה על כולנה, סוף סוף:

    LET - ליצירת משתנים.

    כל אלו מצטרפות לפונקציות שנוספו מוקדם יותר -
    https://blog.sheetgo.com/google-sheets-formulas/10-new-google-sheets-functions/

    וכלול בתוכם - LAMBDA, MAP (חלקי - לא עובד לקנן ב MAP ודומיו מערכים אחרים), פונקציות בעלות שם, וכו' ע"ש בקישור.

  • 0 הצבעות
    74 פוסטים
    2k צפיות

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

  • הדרך לטיפול במחרוזת

    הועבר
    5
    0 הצבעות
    5 פוסטים
    185 צפיות

    אולי התכוונת לתוצאה זו
    מספרי קטגוריה.xlsm

  • 1 הצבעות
    8 פוסטים
    282 צפיות

    @צדיק-תמים בלי הצהרה של let, var או const - זה נהיה גלובלי.

  • HTML איפוס נתוני טבלה

    16
    0 הצבעות
    16 פוסטים
    201 צפיות

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

  • ריענון מסך באנגולר לאחר שינוי

    הועבר
    6
    0 הצבעות
    6 פוסטים
    249 צפיות

    @yyy אני חושב שהבנתי את הבעיה, ושהפיתרון של @KATZ נכון,
    תראה כאן איך זה מתרענן מיד
    https://stackblitz.com/edit/angular-59xiju?file=src%2Fapp%2Fapp.component.html

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

    1
    1 הצבעות
    1 פוסטים
    53 צפיות
    אין תגובות
  • עזרה בסקריפט BASH

    8
    0 הצבעות
    8 פוסטים
    112 צפיות

    @yossiz אמר בעזרה בסקריפט BASH:

    יש מוסכמה ששמות משתנים כותבים באותיות גדולות

    טעיתי.
    https://stackoverflow.com/a/673940/8997905
    רק משתני סביבה באותיות גדולות. משתנים לוקליים באותיות קטנות.

  • 0 הצבעות
    3 פוסטים
    79 צפיות

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

  • סוגריים מסולסלים vba

    הועבר
    5
    0 הצבעות
    5 פוסטים
    177 צפיות

    @odeddvir

    אין לי שגיאה ברוך ה'.
    אלא שהתוצאה של הפונקציה היא: #N/A.

    מבדיקה שערכתי הבעיה היא בשורות 4,6
    (החלופות שנתתי להם בשורות 5,7 פועלות כראוי.)

    Public Function m_kata(wordText As String) As Variant masecet = ActiveSheet.Range("A6") tanivchar = Selection amuda1 = ActiveSheet.ListObjects("טבלה24").ListColumns(1) 'amuda1 = Sheets("מקט").Range("c25:c35") amudanivchar = ActiveSheet.ListObjects("טבלה24").ListColumns(3) 'amudanivchar = Sheets("מקט").Range("e25:e35") 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

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

  • רשימה נפתחת מפקד

    7
  • נגישות בתבנית בוטסארפ

    5
    0 הצבעות
    5 פוסטים
    111 צפיות

    @odeddvir תודה!

  • 0 הצבעות
    5 פוסטים
    177 צפיות
  • אקסל | תא הראשון בשורת טבלה

    הועבר
    1
    0 הצבעות
    1 פוסטים
    85 צפיות
    אין תגובות
  • vertical ב-activity_main.xml לא עובד כמצופה

    הועבר
    3
    0 הצבעות
    3 פוסטים
    157 צפיות

    @odeddvir כי לא לכל דבר מתאימה טבלה.
    בכ"א הפתרון הוא לשנות את

    android:layout_height="match_parent"

    ל-

    android:layout_height="wrap_content"
  • פונקציית משנה אקסל

    הועבר
    4
    0 הצבעות
    4 פוסטים
    140 צפיות

    @פלורידה אמר בפונקציית משנה אקסל:

    מהי הסיבה העומדת מאחורי ההמלצה?

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

    ראית פעם דבר כזה:
    "...על המחשב שלך Windows אנו מתקינים את"
    למה זה קורה? כי מישהו במייקרוסופט שכח להגדיר נכון את כיוון הפיסקה.

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

  • Vba | המרת טקסט לערך מספרי

    הועבר
    11
    2 הצבעות
    11 פוסטים
    368 צפיות

    @פלורידה אני מתכוון להכניס את נוסחת ה-VLookup לתוך הפונקציה, משהו כזה:

    Public Function MyFunc(wordText As String) As Variant MyFunc = Application.VLookup(wordText, Sheets("טבלת_חיפוש").Range("A:B"), 1) End Function

    ואז בגליון להשתמש בנוסחא:

    =MyFunc("מילה")
  • הוספת מתודה ל moment

    5
    0 הצבעות
    5 פוסטים
    120 צפיות

    @יוסף-בן-שמעון אמר בהוספת מתודה ל moment:

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

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

  • טפסים בGoogle Sheets

    הועבר
    3
    0 הצבעות
    3 פוסטים
    149 צפיות

    @בערל תודה על העזרה!

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

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

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

  • 1 הצבעות
    22 פוסטים
    589 צפיות

    @odeddvir תודה רבה על ההסבר הברור ובסבלנות! זה מה שהיה חסר לי, להבין איך אני עושה את זה ב GS

  • VUE 3

    12
    0 הצבעות
    12 פוסטים
    224 צפיות

    @davidnead אמר בVUE 3:

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

    אכן, תוספת מאוד חשוב (רציתי להזכיר את זה בפוסט ושכחתי). אני חושב שזה קצת "סתירה" לכל הרעיון של ה-composition api, אבל זה בהחלט יכול לעזור הרבה, זה היה experimental עד לאחרונה.
    פחות קוד הוא הרבה פעמים יתרון גדול (פחות קוד = פחות באגים, לא? 🙂 ).