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

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

@הללוהו לא הכנסת את שם הקובץ נכון
יש להכניס נתיב נכון כולל סיומת של הקובץ

@הללוהו לא! זה צריך להיות סגור
איפה הכנסת את הקוד?
אתה יכול להביא צילום מסך?

@הללוהו
האקסל שלך פתוח?

@בער אמר בנוסחה באקסל:

מה שאני מחפש זה איזה פונקציות יש לי שיכול לנתח לי את הטבלה לאורך ולרוחב כלומר לפי שם מוצר או לפי חודשים שנים או משולב שתיהם

איזה תוצאה אתה רוצה לקבל?

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

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

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

@הללוהו
אני יביא את הקוד שעשיתי יש עוד מה לשפר אבל הרעיון עובד

1. תיצור קובץ אקסל ותכניס בעמודה A את כל הערכים לחיפוש תקרא לו שם ותשמור ולסגור את הקובץ.
2. תכניס בוורד את הקוד הבא

Sub HighlightMatchesAndSummarize()
        Dim strArray As String
    'GET DATA FROM EXCEL
    Dim xlApp As Object
    Dim xlBook As Object
    Const strWorkBookName As String = "C:\Users\User\Documents\uri.xlsx"
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err Then
        Set xlApp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    Set xlBook = xlApp.Workbooks.Open(FileName:=strWorkBookName)
    'xlApp.Visible = True
    xlApp.Visible = False
    'transpose excel cells in our arrays
    Dim w
    w = 1
    Do While xlApp.ActiveSheet.range("a" & w) <> ""
    strArray = xlApp.ActiveSheet.range("A" & w).Value
    Search (strArray)
    w = w + 1
    Loop

    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
    
End Sub

Public Function Search(text As String)

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "\((*)" & text & "(*)\)"
        .Replacement.text = "{\1" & text & "\2}"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Function

3. תשנה בשורה 6 את המיקום של הקובץ אקסל שיצרת
   ונשאר לך פשוט להפעיל את המאקרו
   בהצלחה

@הללוהו
הגעתי לאיזו שהיא תוצאה
אבל מבדיקה שלי משום מה הוא לא מגיע ל100% דיוק
אני לא יודע למה זה קורה
יש לך אולי איזה קובץ דוגמא שאני יעשה עליו בדיקה?
אם לא תרצה להעלות את זה ציבורי תוכל לשלוח לי במייל שבחתימה

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

@בער
יש כאן כמה עמודות
יש את
AC
AB
AA
Y
איזה מהם אתה רוצה שיהיו קבועים ואיזה לא?

ואני יסביר בכללי איך עובד הקיבוע של ה$
כלומר אם אתה רוצה לקבע את הטווח הזה AC86:AC92 יש לרשום כך

$AC86:$AC92

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

$AC$86:$AC$92

אם יש משהו שלא הבנת תוכל לשאול ב !

@זעירא אמר בword לא מגיב:

@www אמר בword לא מגיב:

@זעירא איזה גרסה האופיס?

365 רישמי של משרד החינוך, וגם ב365 פרוץ.

זה אולי יכול להיות כי יש לך 2 אופיס מותקן על המחשב?

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

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

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

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

@ivrtikshoret אמר בנוסחה באקסל:

@אוריי אמר בנוסחה באקסל:

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

למה לא מספיק:

=SUM(A1:A10*B1:B10)

?

הנוסחה הזו

ARRAYFORMULA(A1:A10*B1:B10)

היא נוסחת מערך : כלומר נוסחה שמחזירה את כל התוצאות של כל החישוב שורה אחר שורה ( @רחמים הסברתי טוב?)
ועל הנוסחה הזו אני מחשב sum
ועל כן אני מקבל את התוצאה הנכונה אבל אם אני יחשב כמו שעשית אני יקבל שגיאה #VALUE! כלומר ערך לא צפוי לחישוב.

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

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

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

זה התוצאה

@בער
לא משנה אתה יכול להוריד את העבודה לקובץ אקסל ולהעלות

@בער
כוונתך לזה?

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

@shraga
לי היה את הבעיה הזו בחיבור openVPN למחשב מרוחק (אני לא כזה מבין בזה עד כמה זה דומה למקרה שלך)
אבל שם הטכנאי הגדיר כמה הגדרות בopenVPN והכל בא על מקומו בשלום
אבל כפי איך שאני מבין ממך ש:

@shraga אמר בניתוב תעבורה לאינטרפייס מסוים:

איש המחשבים של העבודה לא מוכן לבצע שינויים אצלו...

השאלה היא עד כמה ולמה..

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

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