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

המממממ... ואם כבר יש, אז שיהיה חינמי.

@שלל תודה רבה.

ברוך ה' כבר פרסמתי את התוכנה כאן

הדרן עלך

@odeddvir אף אנוכי שמתי לב לכך.

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

אולי ניתן לפתור את זה, על ידי התקנת התוסף מחדש???

npm install nodebb-plugin-dbsearch

@dovid?

@yossiz

זה הפיתרון

' מסך מלא-אירוע

Private Sub Workbook_Open()
  With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .WindowState = xlNormal
        .Width = 800
        .Height = 450
      End With
 End Sub

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

@yossiz אמר בתוכנה לסימון חזרות:

@chagold גם אצלי.
https://stackoverflow.com/a/56998631
נראה שזה קורה רק אם אקסל נפתח על מסך מלא

אני מנסה לפתור את זה. (לא ממש ברור לי איך.)

הבעיה היא בקוד הזה

Private Sub Workbook_Open()

        Application.Width = 800
        Application.Height = 450
 End Sub

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

הקישור עודכן לגירסא מתוקנת יותר.

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

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

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

תודה רבה לכל העוזרים ובפרט ל @amik שהציע לי שלא להתייאש ועזר לי רבות רבות בפרטי, ול @OdedDvir הנפלא, עם הסבלנות.... חפשו אותו כאן בנושאים הרבים שפתחתי.

גם תודה לגרפיקאי המוכשר שיצר לי את הלוגו...

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

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

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

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

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

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

מה ערך גדול יותר: 3564*6732 או 65437689*3.

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

@chagold הדרן עלך.zip
תוקן

גירסא חדשה.
הדרן עלך.zip
סיסמא 12

אשמח לחוות דעת איזו גירסא יותר טובה/פחות טובה.

יש לי את הקוד הזה (שנתן לי @amik)

' חיפוש מתוחכם
Public Sub chipus_daf()
ActiveSheet.Select
Dim rgresult As Range
Dim daf As String: daf = ActiveSheet.Range("a6").Value
Dim rgSearch As Range: Set rgSearch = ActiveSheet.Range("c7:ct120")
Set rgresult = rgSearch.Find(What:=daf, LookIn:=xlValues, SearchOrder:=xlByColumns)
If rgresult Is Nothing Then
MsgBox "לא נמצא דף " & daf
ActiveSheet.Range("a6").Value = Application.WorksheetFunction.Unichar(Application.WorksheetFunction.Hex2Dec("1F50d")) & "חיפוש "
Exit Sub
Else
rgresult.Activate
End If
'ActiveSheet.Range("a6").Value  =ChrU("U+1F50D") & "חיפוש"
ActiveSheet.Range("a6").Value = Application.WorksheetFunction.Unichar(Application.WorksheetFunction.Hex2Dec("1F50d")) & " חיפוש  "
Exit Sub
End Sub

בשורה 6 אני מעוניין שהקוד יחול רק על תאים מסויימים. אני רוצה שזה יהיה מותנה שיעבוד רק באם הוא עמודה1 בטבלה.

או למצער, שיעבוד רק בתוך טבלה...

תודה רבה

האם יש דרך לבחור את הגרפיקה על ידי רשת או משהו אחר? (פשוט יש לי המון אובייקטים למחוק.)

@odeddvir אמר באקסל | פתיחת קובץ במסך מלא כברירת מחדל:

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

אפשר ליישם את זה גם לקוד המופיע כאן???

כי כאן זה ממש כמו באפליקציה.

דוגמא:

[מומלץ לפתוח את הקובץ רק כאשר שאר קבצי האקסל סגורים]
1.xlsm

@odeddvir אמר באקסל | פתיחת קובץ במסך מלא כברירת מחדל:

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

תלמוד בבלי -חזרות.xlsm

@odeddvir אתה פשוט גאון. הצלחת במקום שכל האלופים ברשת נכשלו!!!! (עברתי לפחות על 8 שרשורים בפורומים המקצועיים השונים ברשת...)

הערה: הקוד עובד רק אם הוא הראשון בחוברת.

@odeddvir אני מניח שניסית את זה... אשמח לראות את הקובץ להבין במה טעיתי

@odeddvir בחוברת עבודה זה לא עובד לי.
האם זה מודול?

@odeddvir

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

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

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  ActiveWindow.WindowState = xlMaximized
  Application.WindowState = xlMaximized
  Application.DisplayFullScreen = True
End Sub

אולי אפשר יהיה לעשות שבכל ארוע, כגון בחירת תא, הוא יקבל את ההוראה הזו?