דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
א

ארי

@ארי
אודות
פוסטים
458
נושאים
86
שיתופים
0
קבוצות
0
עוקבים
2
עוקב אחרי
0

פוסטים

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

  • עריכת קובץ שאילתת אקסס
    א ארי

    @one1010 אתה בטוח שהיא לא נמצאת במנהל משימות?
    זה אמור להופיע בתור תהליך ברקע.

    תכנות

  • עריכת קובץ שאילתת אקסס
    א ארי

    @ארי כתב בעריכת קובץ שאילתת אקסס:

    תנסה לפתוח את הקובץ תוך כדי שאתה לוחץ של מקש שיפט.

    מה קורה כשאתה עושה את זה?

    תכנות

  • עריכת קובץ שאילתת אקסס
    א ארי

    @one1010 מה הסיומת של הקובץ?
    תנסה לפתוח את הקובץ תוך כדי שאתה לוחץ של מקש שיפט.

    תכנות

  • השלמה מידע מטבלה אחרת | אקסל
    א ארי

    @פלורידה מצורפת דוגמא.

    חוברת1.xlsx

    תוכנה

  • מיזוג דואר בקוד VBA - אקסס
    א ארי

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

    wordApp.Documents.Open FileName:=WordPath, ReadOnly:=True
    If err <> 0 Then MsgBox "התרחשה שגיאה בפתיחת הוורד" & vbCrLf & err.Description, vbOKOnly + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading: Exit Function
    
    With wordApp.ActiveDocument.MailMerge
        .MainDocumentType = wdFormLetters
        .OpenDataSource _
            Name:=XlsxPath, _
            SQLStatement:="select * from TEMP"
        .Destination = wdSendToPrinter
        .ViewMailMergeFieldCodes = 9999998
        .ShowWizard InitialState:=6, ShowDataStep:=False, ShowTemplateStep:=False
        .SuppressBlankLines = True
        .Execute
    End With
    wordApp.Quit False
    Set wordApp = Nothing
    

    השגיאה מופיעה על הקטע

    .OpenDataSource _
            Name:=XlsxPath, _
            SQLStatement:="select * from TEMP"
    

    מה יכולה להיות הבעיה?
    תודה!

    תכנות

  • קובץ אקסס שלא מוכן להתקפל
    א ארי

    @Y-Excel-Access הקובץ שהבאת ממש לא עובר דיבאג...

    תוכנה

  • מאקרו רץ בלולאה
    א ארי

    @one1010 הקוד הזה עובד לך?

    Sub SumYellowCells()
    Dim rng As Range
    Dim cell As Range
    Dim sum As Double
    
    Set rng = Range("A7:AG355")
    
    For i = 1 To rng.Count
        If rng.Cells(i).Interior.Color = RGB(255, 255, 0) Then
            If rng.Cells(i).HasFormula = False Then
                If InStr(1, rng.Cells(i).Formula, "SUM(") = 0 Then
                    sum = sum + rng.Cells(i).Value
                End If
            End If
        End If
    Next i
    
    MsgBox "The sum of yellow cells that are not circular references is: " & sum
    End Sub
    

    הוא אמור לעבור בלולאה על כל התאים בצבע צהוב (בטווח שבין A7 לAG355) ולסכם אותם (בתנאי שהם לא נוסחה ולא סיכום).

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

    @one1010 כתב במאקרו רץ בלולאה:

    וגם 15 בראשון 16 בשני ו17 בשלישי

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

    תוכנה

  • מאקרו רץ בלולאה
    א ארי

    @one1010 מה אתה מנסה לכתוב? שהוא יעבור בלולאה רק על התאים שאתה בוחר?
    תאריכים לא צמודים כוונתי הייתה שאם לדוג' בתא B12 יש תאריך ובתאים D12 וF12 יש אותו תאריך הוא יודיע עליו, ולאו דוקא בתאים צמודים זל"ז.

    תוכנה

  • מאקרו רץ בלולאה
    א ארי

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

    תוכנה

  • מאקרו רץ בלולאה
    א ארי

    @one1010 כתב במאקרו רץ בלולאה:

    @ארי כתב במאקרו רץ בלולאה:

    איזה הודעה הוא מקפיץ לך?

    זאת:

    675d0a42-7715-4f99-9757-f1e8f4d27dcd-image.png

    וכשאתה לוחץ אישור הוא מציג אותה שוב?

    תוכנה

  • מאקרו רץ בלולאה
    א ארי

    @one1010 כתב במאקרו רץ בלולאה:

    לעצם מה שכתבת, עד עכשיו הוא כן חישב רק את מה שצבוע בצהוב.

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

    לגבי התאריכים, זה קשור לזה שבחודש 2 יש רק 28 יום, וממילא בין ה15/1 עד ל15/2 יש 31 יום, וגם בין ה15/2 ל18/3 יש 31 ימים.

    בלולאה, איזה הודעה הוא מקפיץ לך? את אותה ההודעה?אולי יש לך קובץ דוגמא, כי לי בקובץ דוגמא שעשיתי זה עובד מצוין. מצרף דוגמא.

    לולאה על טווח תאריכים.xlsm

    תוכנה

  • מאקרו רץ בלולאה
    א ארי

    @one1010 שתי הערות בקוד הנ"ל.

    1. האם הוא צריך למצוא רק תאריכים רצופים כמו שכתבת? כי זה נראה שהוא מוצא גם אם הם לא רצופים (וגם בלי קשר לצבע שלהם).
    2. הבעיה שלו זה שגם אם הוא מוצא שלוש שדות ריקות הוא מתייחס לזה שהם שווים, צריך להוסיף לו תנאי שאם שלושתם ריקים שיתעלם.

    בשביל לפתור את זה שהוא רץ לנצח (אגב, לא לנצח אלא עד שגומר לרוץ על כל הטווח שמוגדר לו) צריך לשנות את השורה הזו:

                    If date1 = date2 And date2 = date3 Then
    

    לזה:

    If date1 = date2 And date2 = date3 And date1 <> "00:00:00" And date2 <> "00:00:00" And date3 <> "00:00:00" Then
    

    וככה אם השדות ריקות הוא יתעלם מהם.

    תוכנה

  • מאקרו רץ בלולאה
    א ארי

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

    תוכנה

  • מאקרו רץ בלולאה
    א ארי

    @one1010 ממש שאלה קשה...
    היא עוד יותר קשה כשאנחנו לא יודעים מה הקוד...
    אתה יכול לצרף אותו גדי שנוכל לנסות לעזור לך?

    תוכנה

  • התאמת תוכנת אקסס לאופיס 64 סיביות
    א ארי

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

    תכנות

  • הורדה והדפסה של קובץ PDF - אקסס
    א ארי

    @מנחם אתה צודק.
    שכחתי להוסיף מידע חשוב. לא מותקנת לי תוכנה של pdf, אלא אני משתמש בדפדפן Edge לפתוח קבצי pdf.
    האם בשביל הקוד הזה אני חייב אדובי במחשב?

    תכנות

  • למישהו עובד כעת API של קהילות?
    א ארי

    @katz עכשיו לא בדקתי. אבל אתמול בערב עבד.

    תוכנה

  • למישהו עובד כעת API של קהילות?
    א ארי

    @katz אני לא משתמש בקהילות, אבל אתמול בערב הAPI של קשר (הבעלים של קהילות) לא עבד לכמה זמן.
    בסוף חזר רגיל.

    תוכנה

  • התראה בטופס אקסס
    א ארי

    @OdedDvir לא.

    תכנות

  • התראה בטופס אקסס
    א ארי

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

    תכנות
  • 1
  • 2
  • 6
  • 7
  • 8
  • 9
  • 10
  • 22
  • 23
  • 8 / 23
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום