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

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

יש שם עוד הרבה אופציות למשחק

בסוללות נטענות יש שתי בעיות:

1. הגבלת מחזורי טעינה
2. וריקון עצמי לאורך זמן גם בלא שימוש.

אני משתמש יום יום כ-3 שעות במיקרופון עם משדר רדיו כדי שאוכל להתנייד.
המשדר משתמש בשתי סוללות אצבע, ורציתי לחסוך הטענות רצופות.
אחרי מחקר קטן, קניתי מחו"ל 2 רביעיות של Panasonc eneloop pro.

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

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

@14789 כתב בדפי צביעה לילדים "צדיק נסתר":

רק שאלה איך צובעים על זה?

@nigun אמר בהאם אקמול עוזר לקורונה ?:

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

בנוסף, מקובל כי חום מועיל למערכת החיסון ומאט את קצב התפשטות המחלה, ולכן שימוש מופרז במורידי חום עלול לגרום להאצה בהתרבות החיידקים והנגיפים.
מקורות (יש הרבה):
https://www.health.harvard.edu/staying-healthy/treating-fever-in-adults
https://www.medicalnewstoday.com/articles/321889
https://www.nature.com/articles/d41586-019-00175-0
גם בעברית:
https://www.dr-rina.com/fever

לפי האמור, עדיף לשכך את הכאב באמצעים אחרים אם אפשר. רפואה שלימה!

@רפאל סקירה מצויינת, כתיבה מקצועית וברורה, נהניתי מאד, תודה רבה

@ראש-פינה אני הצלחתי די יפה עם כמה דיסקים סרוטים:

1. קודם כל תנקה בעדינות מכל השומנים והלכלוכים.
2. עבור על הצד שאינו מבריק (לא על הצד של הנתונים!) עם טוש ארטליין כהה במקומות של הסריטות.
3. עם כונן של מחשב נייח יש סיכוי הרבה יותר טוב מנסיוני.
4. רצוי מאד להשתמש בתוכנה מיוחדת לקריאת הדיסק, אפשר עם ISOBuster או Roadkil’s Unstoppable Copier שהן חינם, ויש עוד הרבה מקצועיות.

הנה דוגמא פשוטה:

Function SelectFileDialog As String()
    With Application.FileDialog(msoFileDialogSaveAs)
        If .Show Then
            SelectFileDialog = .SelectedItems(1)
        Else
            SelectFileDialog  = ""
        End If
    End With
End Function

בקוד שלך תקרא לפונקציה כך:

Dim targetFile As String
...
targetFile = SelectFileDialog()
' Save yout report as targetFile

@Y-Excel-Access כתב בקובץ אקסס שלא מוכן להתקפל:

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

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

1. קימפול של הקוד בקובץ accdb
2. קימפול של הקובץ accdb לקובץ ריצה accde

את 1 אתה אמור לבצע באופן סדיר בכל פעם שאתה עושה שינוי בקוד, על ידי בחירה מהתפריט: Debug>Compile בעורך ה-VBA:

אם 1 לא מצליח - היה סמוך ובטוח שגם 2 לא, אין לך מה לנסות.
צרף את הודעת השגיאה שאתה מקבל ונראה.

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

@yossiz כתב בחלום \ אתגר | זיהוי ראשי תיבות של סימני מקורות בקבצי וורד:

ב-VBA אין מימוש של regex נורמלי, רק המוזרים של וורד.
(אולי אפשר לייבא ספרייה)

אפשרי בהחלט. שם הספריה:
Microsoft VBScript Regular Expressions

• אפשר להתקין בקישור מוקדם (Early Binding) מתפריט עורך ה-VBA:
  Tools > References > Microsoft VBScript Regular Expressions
  ולסמן V על הספריה הנ"ל, ואז להשתמש בקוד כך:

Dim RegExp As New RegExp
Function RemoveAllButNumbers(s As String) As String
    With RegExp
        .Pattern = "\D"
        .Global = True
        RemoveAllButNumbers = .Replace(s, "")
    End With
End Function

• או לקשר ישירות בקוד (Late Binding) כך:

Function RemoveAllButNumbers(s As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "\D"
        .Global = True
        RemoveAllButNumbers = .Replace(s, "")
    End With
End Function

@אוריי אתה צריך לייבא את הסגנונות שבחרת לתבנית ברירת המחדל Normal.dotm.
פתח את מנהל הסגנונות כך:

ותלחץ על ייבוא\יצוא.

בצד ימין סמן את כל הסגנונות שברצונך להעביר, ותלחץ על העתק כדי להעתיק אותם לתבנית הראשית:

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

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

={טווח_נתונים_ב;טווח_נתונים_א}

ואח"כ לבצע עליה TRANSPOSE.
לדוגמא:

@האדם-החושב אני מנחש שתוכנת ההתקנה נמצאת בנתיב עם אותיות עבריות. נסה לפרוס את ההתקנה לתיקיה בנתיב ללא אותיות בעברית, למשל: C:\Temp\1 ולהריץ משם.

@סקרן-0 אמר בעזרה לקוד באקסס:

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

יש כאן עירוב נושאים:

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

Private Sub Form_Load()
   UserClicked = 0
End Sub

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

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

Private UserClicked As Boolean

Private Sub MyButton_Click()
   UserClicked = True
End Sub

Private Sub AnotherButton_Click()
  If (UserClicked = False) Then
     MsgBox("I'm sorry, but you must first click the other button.")
  Else
     MsgBox("Great, you're a good boy.")
  End If
End Sub

אם המשתנה רלוונטי לכל הפרוייקט, אתה יכול להגדיר משתנה גלובלי בתוך מודול ולתת לו הרשאת גישה ציבורית (Public Access Modifer) על ידי שימוש במילה השמורה Public:

Public UserFavoriteColor As String

ולגשת אליו מכל מקום בקוד, למשל בטופס:

txtUserFavoriteColor.Value = "Your favourite color is: " & UserFavoriteColor

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

TempVars("UserFavoriteColor").Value = "Green"

ומכל מקום בקוד:

txtUserFavoriteColor.Value = "Your favourite color is: " & TempVars("UserFavoriteColor").Value

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

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

@by6199 אמר בדיון ענייני: איך לתמחר פרוייקט תוכנה:

זה נראה יותר מאמר מאשר דיון..

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

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

Sum_range should be the same size and shape as range. If it isn't, performance may suffer, and the formula will sum a range of cells that starts with the first cell in sum_range but has the same dimensions as range.

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

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

@avramk כפי שציין @אפר-שריפה, התכונה הזו בוטלה על ידי Microsoft החל מגרסא 2007, כי היא גרמה לשיבושים כאשר העכבר נגלל בטעות במקרים לא מתאימים, למשל כאשר הרשומה לא היתה מוכנה לשמירה. (כאשר עוברים רשומה - אקסס מנסה אוטומטית לשמור את הרשומה הנוכחית).
על כל פנים ניתן לממש בחזרה על ידי VBA. עיין לדוגמא כאן.

@zvinissim אמר בהסרת תווים לא רצויים מעמודות אקסל:

שגם זה היה סיפור בפני עצמו

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

מהתפריט נתונים > קבל נתונים > ממקורות אחרים > רשת

ותזין כתובת web או לקובץ מקומי תשתמש בקידומת //:file

file://d:\temp\123.html

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