תוסף תאריך באקסל 2017

[אביב561]

תוסף תאריך באקסל 2017

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

 

[u333]

אפשר באמצעות מקרו אירוע. צרף קובץ !

 

[אביב561]

בבקשה, אלפי תודות

 

[u333]

מצטער - זה קובץ עם תמונה ולא תוסף !!!

ולא ניתן לעשות אתו כלום.

 

[אביב561]

לא הבנתי אצלי זה נפתח באקסל

אוליי ....אתה צריך להוריד לאקסל שלך את התוסף

 

[מיכאל אבידן]

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

אין כאן שאלה של גלילה.

כל הקלקה על תא, כלשהו, בעמודה A (שנה אם נדרש) יציב לצידו את ה- DTP ממנו תוכל לבחור תאריך.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        ActiveSheet.DTPicker21.Visible = 1
        With ActiveSheet.DTPicker21
            .CheckBox = 1
            .LinkedCell = Target.Address
            .Top = Target.Offset(0, 1).Top
            .Left = Target.Offset(0, 1).Left
            .Height = 17
            .Width = 85
            .Value = Date
        End With
    Else
        ActiveSheet.DTPicker21.LinkedCell = ""
        ActiveSheet.DTPicker21.Visible = 0
     End If
End Sub

 

[u333]

אז ככה... שים לב טוב

לי יש 2010 - כנראה הוא לא מכיר את ה-PICKER של 2016
אך העיקרון שבקוד מקרו האירוע שלהלן הוא זהה:

• עבור בלשונית "מפתחים" למצב "עיצוב" - בחר את הפקד, לחץ "מאפיינים" ורשום את שמו של הפקד.
• הכנס את המקרו האירוע הבא לגיליון בו נמצא הפקד. החלף את השם של ה-SHAPE שאצלי בשם הפקד שלך.
• כוון את הTOP ואת ה-LEFT שבקוד למיקום הנוח לך.
• גלול את הגיליון וראה מה קורה !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set MyBut = Shapes("dtpicker1")
sr = Windows(1).ScrollRow
sc = Windows(1).ScrollColumn
MyBut.Top = Cells(sr + 5, sc).Top
MyBut.Left = Cells(sr, sc + 8).Left
End Sub

 

[אביב561]

אלפי תודות , לא הבנתי מה זה ..... ?

U333 לא הבנתי מה זה לכוון את TOP ואת ה-LEFT ?
מיכאל, בקבצים שעובדים כרגע יש את פקד התאריכים נראה לי שהדרך לגרום לפקד לזוז עם הגלילה יותר נוחה לעובדים
מצב הקובץ עם המאקרו של U333 , פקד התאריך לא זז על הגלילה למטה , בעבודה התאריכים נרשמים בעמודה B
תודה רבה רבה , זה לא מובן מאליו

 

[אביב561]

תודה רבה הצלחתי