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

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

אני לקראת סיום אפיון db למערכת טלמרקטינג
יש לי את הטבלאות הבאות
user - משתמש
donor - תורמים
Donation - תרומות
tax - קבלות מס

כעת יש לי 2 שאלות

1. אני צריך להוסיף נתונים של השיחות כלומר (אם תרם או לא , לחזור אליו מאוחר ומתי, וכו') אמנם אין לי כ"כ צורך בנתונים של השיחות הקודמות (כלומר אם הוא אמר שלחזור מאוחר וחזרו אליו זה לא כ"כ מעסיק אותי מה עבר עליו (אולי אני טועה וזה כן יהיה בהמשך עלול להעסיק אותי)) אלא יותר בנתונים העכשוויים (כלומר השיחה האחרונה שבוצעה), השאלה היא באיזו צורה לשמור את הנתונים האם בתוך טבלת התורמים או בטבלה נפרדת מה השיקולים .. אם אני כותב את הנתונים בתוך התורמים יותר קל לי לגשת לנתוני שיחה בצורה קלה יותר ומהירה כמו סינון בסטטוס בין התורמים בצורה וזה הרבה יותר קל מאשר לחפש לכל תורם את הסטטוט האחרון שלו וכו' מאשר ל.. שמור את הנתונים האלו בטבלה נפרדת כך יש לי את כל הנתונים של השיחות באופן מפורט יותר + הכבדה משמעותית על הdb.
2. יתכן ואני יצטרך ליצור כמה משתמשים (כלומר כמה מוסדות) האם עדיף לי לבנות לכל משתמש מערכת בפני עצמה ולשכפל את המערכת * משתמשים שיש או ליצור מערכת 1 שכולם יושבים עליה רק להוסיף עוד עמודה בכל טבלה של מספר מערכת?

תודה רבה

@מלאכת-מחשבת
ללא הסוגריים

@מלאכת-מחשבת
או פעמיים גרש '

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

@ליבל
זה מה ש @ivrtikshoret הביא

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

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

ממליץ על זה, ועל עוד כמה מאמרים מעניינים שמופיעים שם:
https://he.quora.com/אילו-כישורים-חסרים-לעיתים-למתכנתים

ועוד משהו חשוב עוד יותר:
https://he.quora.com/עכשיו-כשכל-אחד-יכול-ללמוד-לתכנת-האם-זה

2 הקישורים האלו חסומים בנטפריי

@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% דיוק
אני לא יודע למה זה קורה
יש לך אולי איזה קובץ דוגמא שאני יעשה עליו בדיקה?
אם לא תרצה להעלות את זה ציבורי תוכל לשלוח לי במייל שבחתימה