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

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

ותשתדל להעלות צילומי מסך בעת הצורך כדי שיהיה יותר קל להבין אותך

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

@ivrtikshoret
זה לא אותה התוצאה!

@בער
תכתוב כך:

=sum(ARRAYFORMULA(A1:A10*B1:B10))

ותשנה את הטווח

זה התוצאה

@חייםיודלביץ
זה מה שהוא דורש
זה באמת תוכנה חינמית אבל חלק מהתכונות שלה עולה כסף.. כמו הגבלה של חלק מהמשתמשים..

@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 דבר זה קורה לפעמים ולא רק בפורום אצלך אלא נתקלתי בזה בעוד פורומים אבל אחרי כמה זמן זה מסתדר