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

עכשיו אני שם לב שהשתרבב לך $ במקום @

מצאתי זה מסיר את שם הקובץ

(Get-Item $updated.Path).DirectoryName

@מטעמים כתב בהאטת ריצת קוד vba:

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

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

וזו הסיבה שבריצה ע"י F8 הקוד עובד מעולה.

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

בהצלחה.

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

לגבי המסד נתונים לא הרבה התעמקתי במה ש @OdedDvir כתב..
אבל אני רוצה לציין כמה דברים

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

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

• בכל אופן שים לב שכעת אתה מאפיין את המסד נתונים לפי ש"ס ששם יש לך 3 פרמטרים

1. מסכת
2. פרק
3. עמוד

אבל אם תרצה לצורך העניין להוסיף שו"ע
יש לך 4 פרמטרים

1. חלק
2. הלכות
3. סימן
4. סעיף

ויש עוד דוגמאות מעוד ספרים וכו'

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

@davidnead אמר בתכנות | איך להתחיל?:

ממליץ על זה, ועל עוד כמה מאמרים מעניינים שמופיעים שם:
https://he.quora.com/אילו-כישורים-חסרים-לעיתים-למתכנתים

ועוד משהו חשוב עוד יותר:
https://he.quora.com/עכשיו-כשכל-אחד-יכול-ללמוד-לתכנת-האם-זה

2 הקישורים האלו חסומים בנטפריי

@magicode אמר בתכנות | איך להתחיל?:

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

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

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

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

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

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

@dovid @OdedDvir הרבה תודה על העזרה
פשוט נפתרה הבעיה ב"ה (את האמת גם אני לא יודע למה אבל משום מה הכל הסתדר)....

@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:

@אוריי סליחה על החריפות אבל אתה עושה דברים בלי להבין.

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

@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:

בשביל לבנות כזה קוד, אתה כותב פיסת קוד נסיונית קטנה שמכילה רק את מה שרלוונטי:

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

@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:

אני כתבתי לך את הקוד כדי להקל על השיעורי בית וללמד אותך עוד טיפ או שניים:

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

מצאתי את הבעיה היא הייתה בשורה הזו (שורה 7)

DisplayText = DisplayText & Result(i) & vbNewLine

החלפתי את vbNewLine ל Chr(10)
וזה עובד מעולה

התוצאה הסופית היא

Dim TextStrng As String
Dim Result() As String
Dim DisplayText As String
TextStrng = Range("a1").Value
Result = Split(TextStrng, ";", 1000)
For i = LBound(Result()) To UBound(Result())
DisplayText = DisplayText & Result(i) & Chr(10)
Next i
MsgBox DisplayText
Range("b1").Value = DisplayText

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

@chagold

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

Sub FindName()

    Dim X
    X = 1
  
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Set wrdApp = CreateObject("Word.Application")
        wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("C:\Users\sbhtk\Documents\ssss.docx")
    Dim FindWord As String
    Dim result As String
    
       Do While Range("A" & X).Value <> ""
   
    FindWord = Range("A" & X).Value
   ' MsgBox FindWord
    
    '// Defines selection for Word's find function
    wrdDoc.SelectAllEditableRanges
    
    '// Word Find Method Setup Block
    With wrdDoc.ActiveWindow.Selection.Find
        .Text = FindWord
        .Replacement.Text = ""
        .Forward = True
        .Wrap = 1 ' wdFindContinue (Word constant not defined in Excel)
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
'        .Style = ("choose your style to look for")
    End With
    
    '// Execute find method selects the found text if found
    wrdDoc.ActiveWindow.Selection.Find.Execute
    
    '// Store Selected text
    result = wrdDoc.ActiveWindow.Selection.Text
    
    '// Test if the selection string found match value required converted case for comparison
    If UCase(result) = UCase(FindWord) Then
        Range("B" & X).Value = "קיים"
    Else
        Range("B" & X).Value = "לא קיים"
    End If
    X = X + 1
    Loop
    '// Close and don't save application
    wrdApp.Quit SaveChanges:=0 ' wdDoNotSaveChanges (Word constant not defined in Excel)

End Sub

מקור

בהצלחה

@WWW אמר בחידה מתמטית לשמחת החג ולחדד את מוחות הילדים (והמבוגרים):

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

אבל הם הוא יפגע אז הוא הופך את זה למסוכן מאד 100%

@ראש-פינה אמר בפיתרון לסליקה ממוחשבת למכונות כביסה וייבוש:

@אוריי אמר בפיתרון לסליקה ממוחשבת למכונות כביסה וייבוש:

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

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

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

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

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

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

@ב-ל
ככל הנראה
אבל אני לא יודע אם יש אפשרות ואיך
תנסה לשאול איפה שקנית או

@mgm-ivr אמר במענה לצינתוקים:

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

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