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

@chv אני לא חושב שאתה צריך להתנצל עד כדי כך. הכל בסדר. ואשרינו שה"בין-אדם-לחבירו" כאן ברמה גבוהה,
כן סיקרן (בלשון עבר) אותי מה הביקורת שלך לפוסט.
טוב שיש אנשים כמוך מביני עניין, שכשמישהו מדבר לא-לעניין, מעקמים ת'אף.
זה חלק מכללי הפורום לא להספים, טוב ששומרים פה על רמה גבוהה - (ע"ע "חזון ומטרה", / ב. נושאים והודעות, סעיף 6א.)
כי רק כך, הפורום ישאר בחלק המקצועי הטוב ביותר - לטובת כולנו.

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

@dovid אמר בשאלה| לולאה לפי Case, לשיכפול שורות:

@צבי-10 לפי הודעותיך אתה מתאים לא רע לתכנות (אפילו קצת מידי, אנחנו לא מחשבים

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

משתמשים עם Activate וSelect וActiveCell בלולאות במקום איך שכתבתי?

ראיתי באיזה מקום, שכשמשתמשים הרבה בהנ"ל זה מאט את הקוד.
אני עובר כעת על הקוד האלגנטי, תודה רבה!

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

@OdedDvir אמר בשאלה| לולאה לפי Case, לשיכפול שורות:

1. הבנתי! תודה.
2. שמתי לב, והתעצלתי לחץ_לחצן1 ( משהו כזה זה במקור ,מעניין למה)
3. מצורף קובץ לדוגמא.

אני מתחיל ב VBA אשמח אם תוכלו לעזור. תודה.
יש לי מבחן בקהילות CSV, עם 6 שאלות, הציון מתחלק ל-6
אני מעוניין שאם הציון במבחן
17- יעתיק *1
34- יעתיק *2
50- יעתיק *3
67- יעתיק *4
83- יעתיק *5
100- יעתיק *6
פעמים את השורה של פרטי התלמיד
לאחמ"כ ירד לשורה הבאה של פרטי התלמיד ויבדוק גם אותו,
עד שיגמור להכפיל את כל תלמיד, לפי מספר כרטיסי ההגרלה
17%=כרטיס 1.
מצורף הקוד:

Sub ìçöï1_ìçõ()
Dim SumZ As Integer
Dim i As Integer
Dim l As Long
 
Range("E1").Select
 
For l = 1 To 10
Select Case SumZ
Case Is <= 17:
  
   ActiveCell.EntireRow.Select
   Selection.Copy
   Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
   ActiveSheet.Paste
    
Case Is <= 34:
Case Is <= 50:
Case Is <= 67:
Case Is <= 83:
Case Is <= 100:
 
End Select
Next
 
 MsgBox "áåöò áäöìçä", vbInformation, "äåãòä"
  Debug.Print SumZ
  End Sub

@צבי-10 מצאתי בסוף את הפיתרון. תודה לכולם.

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

@dovid =|הקדמה|=
קובץ להורדה תקשור עם מערכת טלפונית 4.0.accdb |הסבר מהמפתח כאן|
בקובץ זה
מודול - ApiYemot
אוסף מקוצר ונגיש של כל הקודים הישירים לתקשור עם שרת 'ימות'
ymtImportFileFromServer – ייבוא קובץ ymgr משרתי ימות המשיח.
הקוד מקבל קובץ משרתי ימות המשיח, מנתח אותו, ומייבא אותו לתוך טבלה מקומית באקסס
הקוד מתאים לכל סוג קובץ, אם זהLogRecordingAndEnteringData.ymgr אוApprovalAll.ymgr ואם זה approval_number_log.ymgr
הטבלה שתקבל את הנתונים תהיה בנויה באותה צורה שבנוי הקובץ המקורי, אלא שהיא מחולקת לעמודות ברורות המייצגות את סוגי הערכים, ורשומות המציגים את הערכים
ארגומנטים נדרשים: מספר מערכת, סיסמה, כתובת הקובץ, שם הקובץ, שם טבלה לאחסון הקובץ
ארגומנטים אופציונלים: מצב טבלה קיימת, החל מרשומה, עד רשומה
דוגמא:

ymtImportFileFromServer

"0771234567","1234","/Log","LogFolderEnterExit-2019-09.ymgr","נתוני האזנה",1,1,100

הקוד מייבא את קובץ LogFolderEnterExit-2019-09.ymgr מתיקיית הלוגים שבמערכת, אל תוך טבלה חדשה בשם 'נתוני האזנה', באם כבר קיימת טבלה בשם הזה, הוא ימחוק אותה, הקוד ייבא רק החל משורה 1 מקובץ ועד שורה 100
הערה: הקוד יוצר את הטבלה, אין צורך שהטבלה תהיה קיימת במערכת.
במקרה שהטבלה כבר קיימת ניתן לבחור באחד מ-3 האפשרויות, 1. מחיקת הטבלה הקיימת 2. הוספת מספר רץ לשם הטבלה, לדוגמא "נתוני האזנה1" וכן הלאה. 3. ייבוא לתוך הטבלה הקיימת.
נקודה נוספת,
הקוד משתמש בפונקציית DownloadFile המקבלת את פרטי הקובץ בימות ומחזירה אותו כטקסט, ולאחר מכן הקוד ממשיך וממיר את המחרוזת טקסט לטבלה
במקרה בו רוצים לקבל את תוכן הטקסט ללא המרה לטבלה באקסס (כגון לקבצים שאינם בסיומת ymgr, קובץ ini למשל, אם רוצים 'לקרוא' הגדרות של שלוחה) אפשר לקרוא ישירות לפונקציה DownloadFile והופנקציה תחזיר את תוכן הקובץ
הפונקציה דורשת: מספר מערכת, סיסמה, כתובת הקובץ ושם הקובץ
דוגמא:

DownloadFile "0771234567","1234","/1","ext.ini"

עכ"ל.

יש חלק של טופס "הורדת נתונים" שם אני ממלא את הנתונים לפקודה של הורדת קובץ, ואז contact חיבור לימות המשיח והורדה, וכיון שזה קובץ ymgr, ממיר ל JSON ויוצר טבלה
השאלה היא איך אני מצליח לייבא את הנתונים לאקסס, באופן קבוע, עם נתיב קבוע, באירוע אחד. כלומר.
כתיבה מראש של כל סוגי הקבצים להורדה, ולולאת הורדות שמורידה את כל קבצי המידע, + תנאי על סיומת הקובץ ודילוג במקרה שהקובץ אינו ymgr.

@צבי-10

1. האם חישוב נתונים מיובאים מאקסס, מאיץ את פעילות האקסל? (כרגע, דרך אקסל המחשב נתקע)?
2. איך אני מחפש סיומת קובץ בVBA. התנאי אם סוג הקובץ = ini, דלג על המרה לJSON.

@dovid שאלתי כמה שאלות כדי לחסוך פוסטים. מה לגבי מהירות?
אם יש לך כח לעזור - אדרבה, נתחיל מהורדת הנתונים.
אם אתה מכיר את הקובץ תקשור עם מערכת טלפונית דרך אקסס של מימות. אז יש לנו כעת 2 סוגי קבצים. YMGR INI

זה יכול להוריד רק קבצי YMGR [שבנויים עם מפתח וערך, וממיר אותם לגייסון ומכניס לטבלה], בקובץ INI אין # ו% אז הוא לא מצליח לפרק את זה בכלל.
ולאחמ"כ אני רוצה שבאירוע פתיחה הוא יעדכן את כל הקבצים בלולאה. ויחזיר את הערכים - כולל המעודכנים - לכל קובץ.

וכעת הגענו לשלב החישוב והניתוח, של המידע.

@בערל נכון. אבל לא נעים לי להטריח את התלמידי חכמים כאן.
התוכנית בגדול (אני עובד לכתוב משהו יותר מפורט לעצמי, כי זה החלק הכי חשוב בתכנות)
אני רוצה שב-אירוע
יוריד כמה קבצים מתוך הקו,
aprovalall.ymgr
pointslog.ymgr
LogFolderEnterExit.ymgr
listAllInformation.ini
pointsLog
יעשה לי חישוב מי מהמאזינים משתתף בטריויה
מה ת.ז. שנמצא בקבלת נתונים - של מי שהשתתף בטריויה.
חישוב על האזנה: לפי תאריך, טלפון, שלוחה.
ועוד.

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

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

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

1. לטעון - סט לתוך האורגן (לא הזיכרון הכללי)
2. לשמור- את חלק/כל מה שיש בתוך האורגן כעת (לא הזיכרון הכללי)
3. להעתיק קבצים,סטים וכדו' - מהזיכרון הכללי של האורגן
4. למחוק - קבצים, סטים, - מהזיכרון הכללי של האורגן

יש עוד כמה ואני לא זוכר כעת.
תוכל לבנות לבד מקצבים ע"י לחיצה על כפתור ליד המסך "RECORD" ולאחמ"כ "new Style" משהו כזה.

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

@chetz321 כנראה אפשרי דרך VBA

@zvinissim אולי תשאל אותם מה זה. או אם יש להם עוד 'מיותר'.

@חוקר סיכה קטנה אם אפשר, איפה בנית? באקסל?

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

1. לשמור פרטים של כל המשתתפים.
2. לשמור מידע היסטוריה על השתתפות בהגרלה (מי השתתף ובאיזו הגרלה)
3. איזה ישיבות משתתפות, ופרטים על הישיבה.

נמחק

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