בירור | צריך עזרה לעשות בקוביה מין פונקציה פשוטה

[פלורידה]

@דוד-2421 כתב בבירור | צריך עזרה לעשות בקוביה מין פונקציה פשוטה:

@דוד-2421
שאלה שנייה אותה פונקציה להכפיל אותה ב?עם אחת על כל השורה הראשונה קוראים לזה A 1 איך עושים

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

[דוד 2421]

@פלורידה
הפונקציה נותנת למשל בקוביה A2 כל פעם שאתה לוחץ מרימה מיספר זה מעולה
אני רוצה שפקד הזה ירים מיספרים בכל קוביה שאני אסמן אותה זה אפשרי נגיד כל שורה C אפה שאחלץ על אותה קוביה כאשר הרים את החץ למעלה יעלו המיספרים ואחכ ארד קוביה C 2 ואחכ אלחץ גם אז באותה קוביה יעלה המיספרים וכן הלאה

[פלורידה]

@דוד-2421

אני לא יודע אם אפשר.

[פלורידה]

@פלורידה כתב בבירור | צריך עזרה לעשות בקוביה מין פונקציה פשוטה:

אני לא יודע אם אפשר.

עריכה: עשה זאת בשלבים הבאים:

1. יש לשנות את הפקד ללחצן הבא:
   

2. לחץ על הלשונית של הגליון במקש ימני

3. לחץ על "הצג קוד"

4. הכנס את הקוד הבא:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Range("A1:A430"), Target) Is Nothing Then Exit Sub
ActiveSheet.OLEObjects("SpinButton1").LinkedCell = Target.Address
End Sub

️ָָשים לב: הקוד "A1:A430" מתייחס לטווח של התאים שיושפעו. אם תבחר תא אחר, זה לא ישנה את הבחירה. אלא התא האחרון שבחרת בתוך הטווח הוא יהיה מושפע. זה יכול ליצור בעיות. בעיקרון צריך ליצור עוד תנאי שאם התא הנבחר הוא מחוץ לטווח, לא יעשה כלום. אבל אין לי זמן. אולי @מאקרו יתנדב
הקוד SpinButton1 הוא השם של הפקד.

5. לחץ Alt+Q

מקור

מצאתי מישהו שעושה זאת טוב יותר

קובץ הדגמה

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

[דוד 2421]

@פלורידה אפשר לשלוח לך קובץ ותתקין לי את זה
אני שוב אסביר עצמי אני רוצה שאפה שאעמוד בקוביה מתור שלם למשל כל A1
כאשר אלחץ על הלחצן זה יעלה מיספר ??

[פלורידה]

@דוד-2421 כתב בבירור | צריך עזרה לעשות בקוביה מין פונקציה פשוטה:

@פלורידה אפשר לשלוח לך קובץ ותתקין לי את זה
אני שוב אסביר עצמי אני רוצה שאפה שאעמוד בקוביה מתור שלם למשל כל A1
כאשר אלחץ על הלחצן זה יעלה מיספר ??

תשנה את הקוד בקובץ שהעלתי לקוד הזה:

Option Explicit
Private Sub SpinButton1_Change()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(ActiveCell, Worksheets("גיליון1").Range("A:A")) Is Nothing Then
        SpinButton1.LinkedCell = ActiveCell.Address
    Else
        SpinButton1.LinkedCell = ""
        End If
End Sub

[דוד 2421]

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

[דוד 2421]

@פלורידה
הכל עובד אבל שיוצא מהתוכנה נותן לי אפשרות כזאת יש איך לעקוף את זה
לשמור כמקרו כותב לי ??

[פלורידה]

@דוד-2421 כתב בבירור | צריך עזרה לעשות בקוביה מין פונקציה פשוטה:

לשמור כמקרו כותב לי ??

תעשה שמור בשם ותבחר בקובץ עם סיומת xlsm.
(שלחתי לך בפרטי את הקובץ שביקשת עם הסיומת המתאימה. והפונקיצה שרצית.)

@דוד-2421 כתב בבירור | צריך עזרה לעשות בקוביה מין פונקציה פשוטה:

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

תסביר ברור.

[דוד 2421]

@פלורידה שולח דוגמא בציור רק חשוב לי שזה יהיה לאורך כל הטבלה למשל לאורך כל A1 תודה