תחומים - פורום חרדי מקצועי

@שמעון-רבינוביץ
אין כמעט או בכלל תאריך 29/2
בדרך כלל זה ה28/2

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

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

אני הייתי מציע ל@יוסף17 לוודאות לפני שהוא מתחיל בתהליך, לנסות להעביר את העיצוב מוורד, לרקע על הדוח.
לשמור את הוורד כPDF ולהמיר לJPG ולהכניס אותו ברקע.

זה הכיוון

Sub LoopThroughAllTablesWorksheet()

'Create variables to hold the worksheet and the table
Dim ws As Worksheet
Dim tbl As ListObject

Set ws = ActiveSheet
'Loop through each table in worksheet
For Each tbl In ws.ListObjects
    'Do something to the Table....

Next tbl

End Sub

וזה המראה מקום

@בערל
יש שם 2 אפשרויות
הראשון זה עם סימניות
כלומר אתה יוצר סימניות במסמך
ואח"כ עובר עליהם ומכניס להם ערכים
את האמת שלא מכיר את זה כל כך

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

@zvinissim @OdedDvir
זכור לי שאפשר לעשות את זה בוורד ישירות
כך תחסוך להוסיף עמודות נוספות
לבחור את השדה>לחיצה ימנית>עריכת קודי שדה ולהכניס כך

{ mergefield MyDate \@ "mm/yyyy" }

מקור: https://word.tips.net

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

Sub Macro1()
'
' Macro1 Macro
'
'

    Selection.Find.ClearFormatting
 
    With Selection.Find
        .Text = "[0-9]{1,}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    
    OldNom = Selection.Text
    NewNom = StrReverse(OldNom)
   
    Selection.TypeText NewNom
    
End Sub

@dovid כתב בהעלאת קובץ בapi לימות המשיח | קוד שבפייתון עובד וב nodejs לא כל כך:

Syste, error, וmessageCode 105

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

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

יש לי ידע בסיסי +- בכל הקשור לתוכנה
אני מנסה להוריד נתונים-קובץ CSV מהבנק דרך https://github.com/eshaham/israeli-bank-scrapers

התקנתי על המחשב נוד ומקוה שהתקנתי טוב את החבילה
בהרצה של הפקודות הבאות קישור אכן מתקבל פלט לדוגמה: יש לך 158 פעולות בחשבון 445581

איך אני יכול לקבל את הפעולות [לפי תאריך] בקובץ CSV

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

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

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

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

עם הקוד הבא באאוטלוק זה עובד מיד כשמתקבל מייל
כמובן שזה תלוי בהגדרות של אאוטלוק
וזה חייב לשבת על מחשב פעיל כל הזמן
https://www.tachytelic.net/2017/10/how-to-run-a-vba-macro-when-new-mail-is-received-in-outlook/

@מנצפכ השאלה האם ימות מקבל את התשובה כמו שכתוב
או עם כל התגיות מסביב

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

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

function myFunction() {
  var txetFile
  for (var counter = 0; counter <= 100; counter = counter + 1) {
    if (counter<100) {txetFile = "0" + counter};
    if (counter<10) {txetFile = "0" + txetFile};
  Logger.log(txetFile);
}
}

@אוריי
דבר ראשון אני מצרף לך ולאחרים קוד בסיסי מסודר
בשורה 13 יש לך את הסגירה של האקסל

'הגדרת המשתנים עבור אקסל
Dim xl_app As Object, xlwkb As Object, xl_wks As Object
'פתיחת אובייקט מסוג אקסל
Set xl_app = CreateObject("Excel.Application")
'פתיחת הקובץ המבוקש
Set xl_wkb = xl_app.Workbooks.Open("C:\Users\USER\Desktop\עותק של אנשי  קשר.xlsx")
'פתיחת הגליון הרצוי
Set xl_wks = xl_wkb.Sheets("חברות ביטוח ")
'A2 הצגת תוכן התא
MsgBox = xl_wks.Range("A" & 2).Value

'סגירת האובייקט הנל מסוג אקסל
xlApp.Quit

@אוריי בדיוק כמו בפוסט שהבאת את הקישור
זה נראה מתרגום גוגל
שלא שמת את הקישור ל-גליון

Set xl_wks = xl_wkb.Sheets(source_cbo)

source_empl_col = xl_wks.Range(empl_col_txt.Text & 1).Column

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

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

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

משהו תואם למסמך המקור.

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

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

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

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

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

אני ינסה להסביר שוב
1.אם לא חייבים חשבונית בדווקא, ומספיק כל אישור אחר,
-השאלה היא איך להדפיס מדפדפן ישירות למדפסת.
2.אם חייבים דווקא חשבונית/קבלה
בפורמט של איזיקאונט וכדו' לא בטוח שיצא לך ברור,שים לב! בשרוב החנויות משתמשים בפונט מסוים.
וצריך לברר כנ"ל איך להדפיס ישירות מדפדפן ישירות למדפסת.
3. אולי אפשר לייצר העתק של פרטי החשבונית, ואז להדפיס.
וכאן צריך לברר א. מבחינה חוקית. ב. איך להדפיס מדפדפן ישירות למדפסת.

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

@פשוט-אבל-תותח
תיקנתי עכשיו ל גיליון1 במקום גליון1

@פשוט-אבל-תותח
הקוד הבא יעשה לך את העבודה
מקור

function getData() { 
  var sheetName = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("גיליון1"); 
  var queryString = Math.random(); 
  var cellFunction = '=IMPORTDATA("https://www.call2all.co.il/ym/api/DownloadFile?&token=*******:********&path=ivr2:EnterID/ListAllInformation.ini")';

    sheetName.getRange('A1').setValue(cellFunction); 
}