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

@ארי כתב בשערים יציגים מבנק ישראל - VBA אקסס:

    MsgBox "÷åã îèáò ìà çå÷é!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight

@www
שם זה לא רק הזחה, שם זה גם השלמה, אתה שם סוגר פותח ומקבל סגור.
בVBA אין השלמה, אז זה לא כזה נוח.

@OdedDvir ברובר יש השלמה לIFים וכו'?

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

וזה ההבדל מאתר מיקרוסופט

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

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

@אוריי אמר בפתיחת ערכי תיבת רשימה ע"י קוד vba אקסס:

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

מה זה טופס תצוגת טבלה, גליון נתונים?
איזה הגדרה אתה לא מוצא שם?

@אוריי אמר בפתיחת ערכי תיבת רשימה ע"י קוד vba אקסס:

שאלה שניה אני אני סוגר את התיבת רשימה אותו אם יש פחות מ0?

לא מוכר לי דרך, כשאתה יוצא מהתא הוא נסגר אוט'

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

@מוטי-מן
הקוד

CurrentProject.Path

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

"c:\users\XXX\desktop\certs\cert001.pdf"

תכניס

CurrentProject.Path & "\Folder\FileName.PDF"

ותדאג מקודם שתקיית Folder קיימת.

@פשוט-אבל-תותח
התבניות שכתבת, הם תבניות שימות המשיח מייצאים לך את הקבצים.

אתה מקבל מהם רק את הנתונים במבנה של הקובץ ymgr, לא?
הוא בנוי בהפרדה של # בין השדות, ו% בין הכותרות.
דוגמא של שורה מתוך הקובץ:

Status#OK%Folder#4/9/2%DID#02000%Phone#052700009%IdType#phone%EnterId#0527600009%Date#11/03/2021%Time#00:50:19%HebrewDate#כ״ז אדר תשפ״א%var#Folder-4/9/2%Booking#1696%Data#%P050#1%P051#1%P052#7600%P053#4000%P054#3000%P055#600

זה הנוסחה בVBA שממיר את הקלט לJSON

    Row = Mid(text, 1, 1)
    text = "[{""" & text
    text = Replace(text, "#", """:""")
    text = Replace(text, "%", """,""")
    text = Replace(text, Chr(13) & Chr(10) & Row, """},{""" & Row)
    text = Replace(text, Chr(13) & Chr(10), """}]")

אז מה שצריך זה להמיר את הפלט הזה לJSON.

ואז לטפל בJSON ולייבא אותו לGoogle sheets

כאן יש כמה דרכים איך לעשות את זה

@מעלה-ומוריד

אפשר להוסיף מספור-רץ לשם הקובץ,
ועם המספור גם להגביל את הריצה לפי מספר הקבצים שהיו בהפעלה.

@mgm-ivr אמר באקסס נורא איטי, יש פיתרון?:

@clickone אני מתכוון שהרי אם הם יתחברו למחשב עם rdp הם פשוט "יגיעו" למחשב שם
איך הם יעבדו כולם ביחד על אותו מחשב?
גם אם יש כמה רשיונות

כי התוכנה נמצאת שם במחשב.

@ek0583232948
בכמה עמודות מדובר?
כנראה שגזור-הדבק הפתרון.

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

עריכה:
אם אתה מבין במאקרו אז קח מאקרו שתעשה את זה

Sub SingleColumn()
Dim CurSh As Worksheet, NewSh As Worksheet, Rng As Range, Col As Long

Set CurSh = ActiveSheet
Set NewSh = Sheets.Add
CurSh.Activate
Set Rng = Application.Intersect(Selection, CurSh.UsedRange)

For Col = 1 To Selection.Columns.Count
Rng.Range(Cells(1, Col), Cells(Rng.Rows.Count, Col)).Copy NewSh.Range("a65536").End(xlUp).Offset(1, 0)
Next Col
End Sub

מקור

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

@WWW אמר בלימוד אנגלית - בקשה למורה לשיעוריים פרטיים:

מורֶה או מורָה?

פרטי ולא פרטית

@nigun אתה יודע מה המחיר למשלוח של משקל כזה באמצעות fedex?
זה צילום של UPS משלוח מארה"ב לישראל

לא מאמין שפדקס הרבה יותר זול...

@by6199 כתב בפתרון למוכר שלא שולח לישראל:

לא מרוסיה, מארה"ב הוא מפעיל.

@WWW כתב בפתרון למוכר שלא שולח לישראל:

זה לא מרוסיה...

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

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

@nigun
כבר קיים כזה דבר. לא צריך סטארטאפ

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

@מעמד אמר בבלוטוס מומלץ:

@מלא זה שווה את המחיר ?
הוא מחזיק הרבה זמן ?

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

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

@חייםיודלביץ אמר באטימת חור ניקוז לגמרי עם אפשרות לפתיחה קלה:

אתה מתכוון לסגנון מוצר הזה?

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

חוץ אם יש להם גומי ולחץ סביב הלחצן, את זה צריך לבדוק.

@מורשת-מרן

קניתי בעבר ב012 מספר כסף (אאל"ט, עלה 400 ש"ח, וזהב הם רצו 700)
וניידתי לחברה שרציתי

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

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