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

@dovid אמר בהחזרת כל הקבצים בתוך תיקיות משנה ב #C:

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

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

Unhandled exception. System.ArgumentException: Object of type 'System.IO.FileInfo' cannot be converted to type 'System.String'.
   at System.RuntimeType.TryChangeType(Object value, Binder binder, CultureInfo culture, Boolean needsSpecialCast)
   at System.RuntimeType.CheckValue(Object value, Binder binder, CultureInfo culture, BindingFlags invokeAttr)
   at System.Reflection.MethodBase.CheckArguments(Object[] parameters, Binder binder, BindingFlags invokeAttr, CultureInfo culture, Signature sig)
   at System.Reflection.RuntimeMethodInfo.InvokeArgumentsCheck(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   at System.Delegate.DynamicInvokeImpl(Object[] args)
   at System.Delegate.DynamicInvoke(Object[] args)
   at ChangeChangeDate.search.<>c__DisplayClass1_0.<allFiles>b__1(FileInfo f) in C:\Users\uri\source\repos\ChangeChangeDate\ChangeChangeDate\Program.cs:line 28
   at System.Collections.Generic.List`1.ForEach(Action`1 action)
   at ChangeChangeDate.search.allFiles(DirectoryInfo direcory, Action`1 act) in C:\Users\uri\source\repos\ChangeChangeDate\ChangeChangeDate\Program.cs:line 28
   at ChangeChangeDate.search.<>c__DisplayClass1_0.<allFiles>b__0(DirectoryInfo f) in C:\Users\uri\source\repos\ChangeChangeDate\ChangeChangeDate\Program.cs:line 27
   at System.Collections.Generic.List`1.ForEach(Action`1 action)
   at ChangeChangeDate.search.allFiles(DirectoryInfo direcory, Action`1 act) in C:\Users\uri\source\repos\ChangeChangeDate\ChangeChangeDate\Program.cs:line 27
   at ChangeChangeDate.search.<>c__DisplayClass1_0.<allFiles>b__0(DirectoryInfo f) in C:\Users\uri\source\repos\ChangeChangeDate\ChangeChangeDate\Program.cs:line 27
   at System.Collections.Generic.List`1.ForEach(Action`1 action)
   at ChangeChangeDate.search.allFiles(DirectoryInfo direcory, Action`1 act) in C:\Users\uri\source\repos\ChangeChangeDate\ChangeChangeDate\Program.cs:line 27
   at ChangeChangeDate.search.Main(String[] args) in C:\Users\uri\source\repos\ChangeChangeDate\ChangeChangeDate\Program.cs:line 16

C:\Users\uri\source\repos\ChangeChangeDate\ChangeChangeDate\bin\Debug\net5.0\ChangeChangeDate.exe (process 21144) exited with code -532462766.
Press any key to close this window . . .

@dovid אמר בהחזרת כל הקבצים בתוך תיקיות משנה ב #C:

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

יכול להיות אולי כי לחצתי על ctrl+f5

@yossiz בריצה שלב שלב נעצרתי בשגיאה הזו

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

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

(הקיימת רק באופיס 365).

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

ונלמד על עוד סוג קשר חשוב בין טבלאות: יחיד ליחיד.

מצפה בכליון עניים

@מוטי-מן
כנס לתגובות > בחר יעד לתגובות

ונשאר לך רק לבחור

@מוטי-מן אמר בטופס להזנה מהירה לאקסל, אפשרי?:

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

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

@מוטי-מן אמר בטופס להזנה מהירה לאקסל, אפשרי?:

אם זה אפשרי בשיטס זה ג"כ טוב.

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

@מלא אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

@אוריי אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

למה כוונתך פוקוס??

שהסמן עומד עליו.
אי אפשר להסתיר כשהוא בפוקוס
https://docs.microsoft.com/en-us/office/vba/api/access.textbox.setfocus

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

@OdedDvir @Shmuel754 @מלא
הרבה תודה על העזרה...

@odeddvir
כפי איך שהבנתי משם

שים לב שאפילו בפונקציות טריוויאליות, כמו Nz() או IsNull() עדיף לרשום בSQL טהור ולא לבצע קריאה ל-VBA

אני מבין שיש הבדל בין ה SQL ל VBA בקריאת הקוד
אבל כאשר גם ה IF וגם הNZ נמצאים ב SQL טהור ואין קריאה ל VBA האם גם אז יש הבדל?

@הבוס-הגדול
יש לך כאן אקסל שמישהו בנה

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

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
'    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
'    If xFileName = False Then Exit Sub
xFileName = "C:\Users\Desktop\products1.csv"
    On Error Resume Next
'    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
'    On Error GoTo 0
'    If Rg Is Nothing Then Exit Sub
'    xAddress = Rg.Address

    Sheets("data").Select
    Selection.ClearContents
    xAddress = "A1"
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1255
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

את העברית זה מסדר בוודאי השאלה היא האם הוא יצליח בגלל גודל הקובץ

@שוהם307
תכניס את הקוד הזה

    Range(Selection.Address) = Range(Selection.Address) - 1

עובד על כל הגיליון
בהצלחה...

האם יש אפשרות להציג אובייקט popup בלי להציג כפתור אישור

ולהריץ קוד vba תוך כדי שהאובייקט פתוח

i = CreateObject("wscript.shell").popup("This is a MsgBox who will be automatically Closed!",1,"Note")

תודה מראש

@ZACK אמר בעזרה באקסל - ספירת ערכים רצופים בשורה:

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

=A1&B1&C1&D1&E1&F1&G1

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

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

@OdedDvir
מדהים

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

אני רוצה שאם יהיה מסומן בתיבת סימון (true) שיחזיר לי את כל הרשומות ואם לא שיחזיר לי את הפונקציה GetUserName() ע''כ עשיתי נוסחת iif כזו

IIf([Forms]![BookListUser2]![AllUsers]=true,"",GetUserName())

ומשום מה כאשר מסומן הוא לא מתייחס ל "" שעשיתי ולא מחזיר רשומות כאילו כתבתי לו null ניסיתי לכתוב את הפרמטר הזה Is Not Null וגם לא עזר
מה טעיתי...

@איש-ימיני
אם כך אולי תעלה לכאן דוגמה

@ראש-פינה
תוכל לעשות גם נוסחה פשוטה כזו

=SUMIF($C$2:$C$5,F2,$B$2:$B$5)

ראה קובץ מצורף
דוגמא SUMIF.xlsx