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

@magicode אמר בתכנות | איך להתחיל?:

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

עד עכשיו שתקתי.. אבל על המשפט הזה אני חולק מכל וכל!!!!
אני בניתי כבר כמה פרויקטים גדולים באקסס וכן אלפי שורות קוד ב vba כו' ועוד כמה פרויקטים קטנים ב#C וחשבתי (לתומי) להיתמר כמתכנת (לפחות של vba) והרי כבר עשיתי פרויקטים ... למה לא!!
אולם לאחר ש @dovid עשה לי שטיפת מוח בנידון והסביר לי מהו מתכנת אני לא רק חושב אלא בטוח שאם לא יהיה לך מטרה להיות מתכנת לא תגיע לשם לעולם אתה תבנה מלא דברים אבל כאשר תגיע לתקלות ... לא נעים.. אבל לא תמצא ידיים ורגלים בכלל (מניסיון!).

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

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

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

@hעקב
מה גודל המחשב 14 אינטץ או 15?

האם זה מוגדר כ"השתמש בתויים כללי" שאוכל להכניס שם גם מהדברים הנ"ל של סוגריים וכדו'?

כן.

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

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

@הללוהו
תשתמש עם זה

Sub MultipleReplacement()
    '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 = False
 
    Dim w
    w = 1
    Do While xlApp.ActiveSheet.range("a" & w) <> ""
    
        strArray = xlApp.ActiveSheet.range("A" & w).Value
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .text = xlApp.ActiveSheet.range("A" & w).Value
            .Replacement.text = xlApp.ActiveSheet.range("B" & w).Value
            .Forward = True
            .Wrap = wdFindContinue
            .MatchWildcards = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll

    w = w + 1
    Loop
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
   
End Sub

וכמובן לא לשכוח להחליף את הנתיב בשורה 6
בהצלחה

@הללוהו קודם כל אתה הצלחת להשתמש במה שהבאתי?

@הללוהו
בעמודה 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))

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

זה התוצאה

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