הקישור עודכן לגירסא מתוקנת יותר.
אשמח אם מי שמוצא באגים ויוודע לתקן. שיעלה את זה כאן. תודה רבה.
הקישור עודכן לגירסא מתוקנת יותר.
אשמח אם מי שמוצא באגים ויוודע לתקן. שיעלה את זה כאן. תודה רבה.
כמובן לא לשכוח לאשר פקודות מאקרו באקסל. אם תתקינו למיקום ברירת המחדל לא אמורה להיות בעיה
תודה רבה לכל העוזרים ובפרט ל @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 אמר באקסל | פתיחת קובץ במסך מלא כברירת מחדל:
הקוד עובד בכל מקום שתניח אותו, כל עוד הוא באובייקט המתאים ("חוברת_עבודה_זו")
@odeddvir אתה פשוט גאון. הצלחת במקום שכל האלופים ברשת נכשלו!!!! (עברתי לפחות על 8 שרשורים בפורומים המקצועיים השונים ברשת...)
הערה: הקוד עובד רק אם הוא הראשון בחוברת.
@odeddvir אני מניח שניסית את זה... אשמח לראות את הקובץ להבין במה טעיתי
@odeddvir בחוברת עבודה זה לא עובד לי.
האם זה מודול?
איך שאני מבין הקוד הראשון שהבאת, הוא פועל באמצעות אירוע. ולא ברמת היישום.
הוספתי את הקוד הבא, שמשמעותו שבמעבר מגליון לגליון, הוא הופך את החוברת למסך מלא.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.WindowState = xlMaximized
Application.WindowState = xlMaximized
Application.DisplayFullScreen = True
End Sub
אולי אפשר יהיה לעשות שבכל ארוע, כגון בחירת תא, הוא יקבל את ההוראה הזו?
@odeddvir זה הכי טוב...
הבעיה, שהוא משפיע על כל חוברות העבודה, כלומר כל חוברת שאני פותח הוא פותח במצב הזה.
בדיוק לפני כמה דקות הכנסתי את הקוד הקודם שהבאת לחיפוש גוגל, וראיתי שמדברים על הבעיה הזו כאן לעת עתה לא הצלחתי ליישם את הפיתרון.
@amik היא לא צריכה להישאר במקומה. היא תמיד מס' שורות מוקצב מתחת הטבלה.
@odeddvir
לא הכרתי את המצב הזה. באופן נורמלי יש באופיס 3 אפשרויות. 1. הסתר 2. הצג כרטיסיות. 3. הצג כרטיסיות ופקודות.
איך מגיעים לצורה הזו מתוך הממשק של התוכנה.
האם יש דרך לעשות את ההסתר הרגיל.
@avi-rz אני באופיס 2019, אבל אני מעוניין שזה יהיה כהגדרה בקובץ עצמו.