موقع بدء تشغيل نموذج المستخدم

Question

لقد جعلت تقويم لطيفة يطفو على السطح في إكسيل واختبار موقف وسيرفورم مع:

.Top = Application.Top + 125 .Left = Application.Left + 125

هذا يعمل كبيرة ولكن ما أود حقا هو أن يكون النموذج يطفو على السطح بجوار الخلية النشطة.

ما جربته أدناه لا يعمل ولست متأكدا من السبب.أريد أن تلمس الزاوية اليسرى العلوية من النموذج أعلى يمين الخلية النشطة ، ولكن ينتهي النموذج بتغطية الخلية النشطة

.Top = ActiveCell.Top .Left = ActiveCell.Left + ActiveCell.Width

أي اقتراحات?

Answer 1

هذا يعمل بالنسبة لي كما تتوقع:

    .Top = ActiveCell.Top + ActiveCell.Height / 2 + .Height
    .Left = ActiveCell.Left + ActiveCell.Width * 1.5

Answer 2

If Application.Version = "11.0" Then
Me.Top = Application.Top + [b7].Top + 70 - Windows(1).VisibleRange.Top
Else
Me.Top = Application.Top + [b7].Top - 4 +  (Application.CommandBars.Item("Ribbon").Height * 0.75) - Windows(1).VisibleRange.Top
End If
Me.Left = Application.Left + [b7].Left + 90 - Windows(1).VisibleRange.Left

ليست سيئة للغاية...