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

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

הנה קישור
קרדיט @zvinissim

כולם מכירים שלשלוח קוד בHangouts זה דבר מעצבן זה נראה כמו איזה טקסט רץ ולא ברור

שמתי לב היום שבגרסה החדשה של Hangouts בשמה המכובס Google Chat ניתן לשלוח קוד באופן יותר ויזואלי,
פשוט מאוד כמו ששולחים קוד בפורום
יש לכתוב לפני ואחרי הקוד את שלושת הסימנים הבאים ``` ובתוכם את הקוד וזה נראה פשוט כמו שאני שולח קוד בפורום

תהנו...

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

Function FindAndHit(findWhat As Variant, text As Variant) As String

    If IsNull(findWhat) Or IsNull(text) Then
        FindAndHit = IIf(IsNull(text), "", text)
        Exit Function
    End If

    Dim openTag As String
    openTag = "<font style=""BACKGROUND-COLOR:#FFFF00"">"
    Dim closeTag As String
    closeTag = "</font>"
    
    FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag)

End Function

וזה הקריאה בבונה לפונקציה

=FindAndHit(<ערך לחיפוש>,<שדה להחזרה>)

וזה התוצאה המדהימה

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

@מלא אמר בSMS:

@UA
יש אפשרות לקבל SMS למייל. ולהשיב דרך האתר.
כאן
955.co.il

דרך אגב אני משתמש בשירות הזה ומאד נהנה..
ממליץ בחום..

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

נ.ב. למה רציתי כי היה לי בסך הכל שאלה על דיוור כולל קובץ מצורף

ורציתי לשאול מישהו ספציפי

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

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

@ZACK
לדוגמא אם בעמודה A יש לך את כל המספרים
ובעמודה C יש לך את המספרים ששלחת
תעשה בתא B1 את הנוסחה הבאה

=COUNTIF(C:C,A:A)

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

תהילה פונטביט משקל בינוני

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

1. צריך להשאיר.
2. ודאי למחוק.
3. ספק.

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

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

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

יש בעיה קטנה בקוד ש @פייתוניסט עשה, שהוא לא מטפל באותיות "טו" וב "טז"
אני עשיתי לעצמי תיקון לקוד
אז הנה השיתוף של הקוד לטבת המשתתפים

Function GIMATRIA(x)

    G = ""
    TV = Int(x / 400)
    For i = 1 To TV
        G = G & "ת"
    Next i
    x = x - (TV * 400)
    TV = Int(x / 300)
    For i = 1 To TV
        G = G & "ש"
    Next i
    x = x - (TV * 300)
    TV = Int(x / 200)
    For i = 1 To TV
        G = G & "ר"
    Next i
    x = x - (TV * 200)
    TV = Int(x / 100)
    For i = 1 To TV
        G = G & "ק"
    Next i
    x = x - (TV * 100)
    TV = Int(x / 90)
    For i = 1 To TV
        G = G & "צ"
    Next i
    x = x - (TV * 90)
    TV = Int(x / 80)
    For i = 1 To TV
        G = G & "פ"
    Next i
    x = x - (TV * 80)
    TV = Int(x / 70)
    For i = 1 To TV
        G = G & "ע"
    Next i
    x = x - (TV * 70)
    TV = Int(x / 60)
    For i = 1 To TV
        G = G & "ס"
    Next i
    x = x - (TV * 60)
    TV = Int(x / 50)
    For i = 1 To TV
        G = G & "נ"
    Next i
    x = x - (TV * 50)
    TV = Int(x / 40)
    For i = 1 To TV
        G = G & "מ"
    Next i
    x = x - (TV * 40)
    TV = Int(x / 30)
    For i = 1 To TV
        G = G & "ל"
    Next i
    x = x - (TV * 30)
    TV = Int(x / 20)
    For i = 1 To TV
        G = G & "כ"
    Next i
    If x = 15 Then
        G = G & "טו"
    Else
        If x = 16 Then
            G = G & "טז"
        Else
            
            x = x - (TV * 20)
            TV = Int(x / 10)
            For i = 1 To TV
                G = G & "י"
            Next i
            x = x - (TV * 10)
            TV = Int(x / 9)
            For i = 1 To TV
                G = G & "ט"
            Next i
            x = x - (TV * 9)
            TV = Int(x / 8)
            For i = 1 To TV
                G = G & "ח"
            Next i
            x = x - (TV * 8)
            TV = Int(x / 7)
            For i = 1 To TV
                G = G & "ז"
            Next i
            x = x - (TV * 7)
            TV = Int(x / 6)
            For i = 1 To TV
                G = G & "ו"
            Next i
            x = x - (TV * 6)
            TV = Int(x / 5)
            For i = 1 To TV
                G = G & "ה"
            Next i
            x = x - (TV * 5)
            TV = Int(x / 4)
            For i = 1 To TV
                G = G & "ד"
            Next i
            x = x - (TV * 4)
            TV = Int(x / 3)
            For i = 1 To TV
                G = G & "ג"
            Next i
            x = x - (TV * 3)
            TV = Int(x / 2)
            For i = 1 To TV
                G = G & "ב"
            Next i
            x = x - (TV * 2)
            TV = Int(x / 1)
            For i = 1 To TV
                G = G & "א"
            Next i
            x = x - (TV * 1)
        End If
    End If
    GIMATRIA = G
    
End Function

@בערל אמר בשליפת נתונים מתוך מסמך אקסל:

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

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

@בערל אמר בשליפת נתונים מתוך מסמך אקסל:

כי אני רוצה לשחק עם זה יותר, לא רק לקבל את כל השורה לפי הסדר.
לדוגמה:
עמודה D תקבל נתונים מעמודה I
עמודה F תקבל נתונים מעמודה G
וכו'
וכל זה ע''י הזנת ה-ID בעמודה A

זה פשוט מאד
בפרמטר השלישי במקום COLUMN() תחזיר כל פעם מספר של העמודה שאתה רוצה להחזיר אם זה A תכתוב 1 ואם אתה רוצה להחזיר את B תכתוב 2 וכן הלאה. (יותר מדוייק: כלומר העמודה השניה בטבלה שבפרמטר 2 שאם הטבלה מתחילה בעמודה B אז מס' 1 הוא B ו 2 הוא C)

כמו שכתבתי קודם

@אוריי אמר בשליפת נתונים מתוך מסמך אקסל:

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

@בערל
תפתח גיליון חדש בתא A1 תכתוב את הid
בתא b2 תכתוב את הנוסחה הבאה

=VLOOKUP($A$1,גיליון1!$A:$I,COLUMN(),0)

ותגרור לצד שמאל עד סוף העמודות

ואני אסביר מה אומר כל פרמטר לפי הסדר

1. מה הערך לחפש (במקרה הנוכחי זה הid)
2. טווח הטבלה כאשר הטווח לחיפוש חייב להיות בעמודה הראשונה מימין כלומר עמודה A שזה הid שלך. (במקרה הנוכחי כתבתי עד עמודה i שזה 9 עמודות לפי מה שכתבת בשאלה)
3. איזה עמודה להחזיר (אם הערך נמצא) בד"כ מכניסים מספר עמודה (אבל אני הכנסתי נוסחה המחזירה את מס' העמודה כדי שיהיה אפשר לגרור שמאלה בלי לשנות) (יותר מדוייק: כלומר העמודה השניה בטבלה שבפרמטר 2 שאם הטבלה מתחילה בעמודה B אז מס' 1 הוא B ו 2 הוא C)
4. האם להחזיר ערך מדוייק או ערך יחסי (כלומר אם הערך לחיפוש לא נמצא הוא יחזיר את התוצאה של הערך הקרוב לחיפוש (במקרה הנוכחי אני רוצה את הערך המדוייק לכן כתבתי 0)

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

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

יש להכניס את הטבלאות

בתא d1 של גיליון 1 יש להכניס את הנוסחה הזו

=FILTER('גיליון2'!B:B,C1='גיליון2'!A:A)

ובתא e1 של גיליון 1 יש להכניס את הנוסחה הזו

=FILTER('גיליון2'!C:C,C1='גיליון2'!A:A)

ופשוט לגרור לכל אורך הטבלה

והנה התוצאה

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

@בערל , בהצלחה!!

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

@בערל
הנה תוצאה

1. עמודה B סופרת את כמות המילים בטקסט
   זה הנוסחה

=LEN(TRIM(A2))-LEN(SUBSTITUTE(A2," ",""))+1

2. עמודה C מחזירה את הטקסט בתוספת "," לפני הטקסט לפי מס' המילים
   זה הנוסחה

=IF(B2=2,","&A2,IF(B2=1,", ,"&A2,A2))

ונשאר רק להפריד
בהצלחה

עריכה : כמובן שאתה יכול לחבר את שני העמודות לכדי נוסחה אחת
כזו

=IF(LEN(TRIM(A2))-LEN(SUBSTITUTE(A2," ",""))+1=2,","&A2,IF(LEN(TRIM(A2))-LEN(SUBSTITUTE(A2," ",""))+1=1,", ,"&A2,A2))

@כוכב-שמח אמר בעזרה באקסל:

אני מחפש נוסחה עבור החישוב הבא.
לדוגמה: ירקן שמוכר עגבניות ומלפפונים, לתושב בני ברק המחיר הוא 5 ש"ח למלפפון ו10 ש"ח לעגבניה, ולתושב ירושלים המחיר הוא 7 ש"ח למלפפון ו 12 ש"ח לעגבניה.
עמודה A מכילה את הכמות של המלפפון.
עמודה B מכילה את הכמות של העגבניה.
עמודה C מציינת האם הקונה הוא תושב בני ברק או ירושלים.
ובעמודה D אמור להופיע המחיר הסופי של המלפפון והעגבניה יחד.
[כלומר, אם בעמודה C מופיע 'בני ברק' חשב כך: A1*'5+A2*'10, ואם בעמודה C מופיע ירושלים חשב כך: A1*7+A2'*12] (הגרש המופיע בנוסחה הוא בכדי למנוע את הצגת הטקסט כנטוי מחמת הכוכבית).
אשמח לעזרתכם.

@dovid אמר בעזרה באקסל:

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

@dovid הקדמת אותי אבל העלתי דוגמא
שאלה באקסל תחומים.xlsx

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

=SUM(SUM(B2*VLOOKUP(A2,F2:H5,2,0))+SUM(C2*VLOOKUP(A2,F2:H5,3,0)))

@dovid , אצלי בפורום התקנתי את התוסף הזה nodebb-plugin-dbsearch גירסה 4.1.1
וזה עובד לי מעולה גם בחיפוש בעברית..

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

@mdy
בעת הסחיטה המכונה עלולה ליפול
רוב המכונות כיום רועדות בסחיטה

@avi-rz אמר בנוסחה באקסל:

אולי תכניס את התא שממנו אתה רוצה לשלוף את הערך לתוך nz

nz זה פונקציה של אקסס ושפת vba אבל אין נוסחת nz באקסל

@בערל @MusiCode ,
לי יש חשבון בעברית והוא התעדכן

ככל הנראה לוקח להם יותר משבועים...

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