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

@dovid

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

@yossboss

לעת עתה התוסף אינו מתאים לפיירפוקס.

למידע על הדרך לבדוק התאמה

סליחה על התגובה הלא כל כך קשורה...

אני רואה שחידשת את התכנה לגמרי, כל הכבוד לך!!
נראה מגניב לחלוטין.!!

@one1010 אמר בהזנת נתונים לטבלה קיימת:

@odeddvir זה לטינית בשבילי אבל אתה לא אשם...

בגדול זה ממש ברור.

1. בשורה 5 יש (tableName) תשנה את זה ל ("טבלה1") או מה שלא יהיה שם הטבלה.
2. הריצה מתייחסת לשש עמודות העמודות של הטבלה. (העמודה הראשונה היא 0) זה בגדול.

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

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

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

חוברת1.xlsm

אני מזין נתונים לטבלה קיימת, דרך vba

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

הצורה שמיד קופצת לי בראש היא :

x = ספירה כמה שורות יש בטבלה,
הליכה לשורה x
הוספת שורה מתחת
הזנת הנתונים בשורה x +1

אני מרשה לעצמי להניח שיש דרך פשוטה יותר

עריכה: אולי ישנה גישה לform של הטבלה, דרך vba?

@odeddvir

הוא עדיין מראה על שגיאה.

---

אני רואה כאן, שמציעים להתשמש ב Array(1, 2) במקום {1,2}

לי אישית הקוד עדיין אינו פועל, אך מסיבה אחרת

@odeddvir אמר בVba | המרת טקסט לערך מספרי:

Switch Case wordText

End Switch

מחזיר לי שגיאה

@odeddvir

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

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

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

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

@odeddvir אמר בכיצד לגבות ולשחזר טווחים מסויימים מחוברת אקסל?:

תוכל לפרט מה בדיוק הבעיה בזה?

צפיציפית:

אני יוצר שחזור אוטומטי.
האירוע שמפעיל אותו הוא פתיחת הגליון.

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

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

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

מה יקרה אז? אני לא יודע...

באופן כללי:

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

Private Sub Workbook_Activate()
If (ActiveWorkbook.Name = MY_WORKBOOK_NAME) Then
       UIHide
   Else
       UIShow
   End If
End Sub

אני רוצה לתת לה עוד תנאי (לא or אלא and)

If Range("admin!C2").Value =  "חיובי" Then

איך משלבים?

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

(כגון: פרק ב' ממסכת שבת יהיה 202 כאשר המספר הראשון בא לומר את המסכת והמספר השני את הפרק. וכמו כן לגבי הדפים דף ל ממסכת יומא יהיה 703005 מסכת 7 פרק 03 דף 005)

או שאולי עדיף באופן אחר שהמסכתות יהיו מיוצגות במאות אלפים כגון מסכת ברכות 100000 ומסכת נדה 2400000.
הפרקים יהיו מיוצגים באלפים כגון פרק א: 1000 ופרק 24: 24000
והדפים יהיו מיוצגים ביחידות כגון: דף ב. 1 דף קנז: 356.

כך שדף סד: שנמצא בפרק עשירי ממסכת נדה יהיה 2410122 כלומר 24000000+10000+122.

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

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

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

הייתי ממליץ לך להתקדם לאקסס

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

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

אבל אם תרצה לצורך העניין להוסיף שו"ע
יש לך 4 פרמטרים

אך למעשה אני לא אוכל לעשות יותר מ3 פרמטרים, משום שאין לי את היכולת בתוכנה, כי פרמטר א. הוא בגליונות פרמטר ב. הוא הטבלאות פרמטר ג. השורות.

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

ואולי זה עצמו סיבה שהתוכנה צריכה להיות בנויה באקסס...

תודה רבה על המשוב. אשמח בביקורת

@odeddvir אמר בכיצד לגבות ולשחזר טווחים מסויימים מחוברת אקסל?:

להלן הפונקציה החדשה להעתקת החוברת כולה לקובץ גיבוי:
Public Sub BackupTo(targetWorkbook As String) Application.DisplayAlerts = False ThisWorkbook.SaveAs targetWorkbook, xlOpenXMLWorkbookMacroEnabled Application.DisplayAlerts = True End Sub

למעשה שיניתי מעט את הקוד.

Sub גיבוי()
 Application.DisplayAlerts = False
        ActiveWorkbook.Save
   BackupTo ActiveWorkbook.Path & "\גיבוי.xlsm"
       Workbooks.Open Filename:="\הדרן עלך.xlsm"
ActiveWorkbook.Close True
End Sub

כאשר בשורה 3 הוא שומר את הקובץ לפני שהוא עושה לו שמירה בשם, (מה שעלול היה לבטל את כל השינויים בקובץ המקורי)

בשורה 5 הוא "אמור" לפתוח מחדש את הקובץ הדרן עלך...

ובשורה 6 הוא "אמור" לסגור את הקובץ....

אך למרות שחשבתי את עצמי כבר גאון ב 'vba' עם ותק של חודש... שורה 5 ו 6 לא פועלים כמו שצריך...

בשורה 5 הוא לא מזהה את שם הקובץ \הדרן עלך בעוד אני התכוונתי לציין את הנתיב על ידי \ שייפתח באותו תיקייה...

ובשורה 6 הוא גם בעייתי, כי הוא סוגר את הקובץ הפעיל, כלומר את הקובץ שפתחתי כעת, בעוד אני מעוניין שיסגור לי את קובץ "גיבוי"

@odeddvir אז, בינתיים כמו שציינת לצורך פתרון בזק, השתמשתי ברעיון שלך...

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

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

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

או לדלג על השלב של 'טבלת סכום המסכת'...

או אולי באופן אחר?

האופן שעולה לי בראש, הוא להערים את כל הטבלאות אחד על גבי השני לטבלה, אחת. האם עדיף לחלק לטבלאות שונות??

@odeddvir ווואוו !!
מה שיוצר את המסד מנותק מתאי ההזנה, ובנוסף התא מכיל את התוכן שבמסד.

תקן אותי אם אני טועה.

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

C:\Windows\Fonts

יהיה אפשר לעשות חילוץ ולהתקין שם את הגופן שלי.
אבל זה לא עובד.
מה פיספסתי???

@יוסף-חיים-016

תנסה את זה. (קוד לטמפרמונקי)

לא אני יצרתי את זה... רק התאמתי. קרדיט @מוטי-אורן

// ==UserScript==
// @name         כרטסת נטפרי
// @namespace    http://tampermonkey.net/
// @version      0.1
// @description  Add a referral tab to other forums
// @author       moti-oren
// @match        https://netfree.link/*
// @grant        none
// ==/UserScript==
(function() {
   'use strict';

    (function () {
   /*
    created by moti-oren
    Add a referral tab to other forums
   */
   let panel12 = document.createElement('div');
   let text12 = document.createElement('div');
   let linksArray12 = [
       'https://tchumim.com/',
       'https://www.prog.co.il/',
       'https://www.tora-forum.co.il/',
       'https://forum-office.ml/',
       'https://xn--9dbazrsfz.com/',
       'https://f2.freeivr.co.il/',
       'https://www.meatzvim.cf/',
       'https://www.techno-tech.cf/',
       'https://www.mitmachim.top/'
   ];
   let imagesArray12 = [
       'https://mitmachim.top/assets/uploads/files/1602702078674-tchumim.png',
       'https://mitmachim.top/assets/uploads/files/1602702061746-prog.png',
       'https://www.tora-forum.co.il/ext/tatiana5/favicon/favicon.png',
       'https://upload.wikimedia.org/wikipedia/commons/5/5f/Microsoft_Office_logo_%282019%E2%80%93present%29.svg',
       'https://mitmachim.top/assets/uploads/files/1602701994040-mk.png',
       'https://mitmachim.top/assets/uploads/files/1602704764319-%D7%99%D7%9E%D7%95%D7%AA.png',
       'https://meatzvim.cf/assets/uploads/system/favicon.ico',
       'https://techno-tech.cf//favicon.ico?v=e4jmu7vr78u',
       'https://mitmachim.top//favicon.ico?v=a54dqpiknn4'
   ];

   panel12.addEventListener('mouseenter', (event) => {
       panel12.style.width = '60px';
       text12.style.transform = 'scale(1, 1)';
       for (let image of document.getElementsByClassName('image12')) {
           image.style.transform = 'scale(1, 1) translate(0, 0)';
       }
   });

   panel12.addEventListener('mouseleave', (event) => {
       panel12.style.width = '15px';
       text12.style.transform = 'scale(0, 0)';
       for (let image of document.getElementsByClassName('image12')) {
           image.style.transform = 'scale(0, 0) translate(-40px, 0)';
       }
   });

   panel12.style.transition = 'width 0.5s';
   panel12.style.position = 'fixed';
   panel12.style.width = '20px';
   panel12.style.height = 'auto';
   panel12.style.left = '5px';
   panel12.style.bottom = '50%';
   panel12.style.transform = 'translate(0, 50%)';
   panel12.style.paddingTop = '12px';
   panel12.style.paddingBottom = '8px';
   panel12.style.flexDirection = 'column';
   panel12.style.alignItems = 'center';
   panel12.style.justifyContent = 'center';
   panel12.style.borderTopRightRadius = '20px';
   panel12.style.borderBottomRightRadius = '20px';
   panel12.style.backgroundColor = '#e4e8ff';

   text12.style.transform = 'scale(0, 0)';
   text12.style.transition = '0.5s';
   text12.style.display = 'block';
   text12.style.marginRight = 'auto';
   text12.style.marginBottom = '6px';
   text12.style.marginLeft = 'auto';
   text12.style.fontFamily = 'Varela Round, sans-serif';
   text12.style.lineHeight = '18px';
   text12.style.fontWeight = '700';
   text12.style.textAlign = 'center';

   text12.innerHTML = 'שווה לבקר<br>';
   panel12.appendChild(text12);

   for (let i in linksArray12) {
       let link = document.createElement('a');
       link.href = linksArray12[i];
       link.target = '_blank';
       let image12 = document.createElement('img');
       image12.src = imagesArray12[i];
       image12.style.display = 'block';
       image12.style.margin = 'auto';
       image12.style.width = '37px';
       image12.style.marginBottom = '15px';
       image12.style.transition = '0.5s';
       image12.classList.add('image12');
       image12.style.transform = 'scale(0, 0) translate(-40px, 0)';
       link.appendChild(image12);
       panel12.appendChild(link);
   };

   document.body.appendChild(panel12);

})()

})();

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

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

1. התראות
2. (אחרי למעלה משנה) פקודת ניתוק
3. ניתוק בפועל.

צריך לשלם עמלה של חיבור בסך 109 ש"ח. וחברת החשבל מצידם מסדרים את זה לא יאוחר משש שעות ממועד סידור התשלום.

@אף-אחד-3
בדקתי.
@מנחם מצא כי זה בחברת GCX.
אם כי במעקב משלוחים שלהם זה לא מופיע.
האופציות ליצור עימם קשר אינם נגישות לי (ווצאפ, פייסבוק) רק במייל.
שלחתי. מחכה לתגובה.