كبف تجعل زر الأمر يتحرك

[سليم حاصبيا]

حتّى لا يضيع الــ Commend Button  أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه

فأنه يتبعك اينما ذهبت بواسطة هذا الكود

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim col%: col = Target.Columns.Count
Dim lastcel As Range: Set lastcel = Target.Rows(1).Cells(col)

Application.EnableEvents = False
  With Me.Shapes.Range(Array("SALIM_BTN"))
    .Left = lastcel.Left + lastcel.Columns.Width + 5
    .Top = lastcel.Top
    .Width = 130
    .Height = 28
  End With
 Application.EnableEvents = True
End Sub

جرب هذا الملف

 

Floting_Btn.xlsm

[هاشم محمد حساني]

راااائع يا معلم سليم 

أعشق الابداع  

لك تحياتي

[احمد ابوزيزو]

جميل جدا

ممكن التعديل علي خصائص الزر بحيث لا يظهر في الطباعة

وايضا طريقة اضافة مثل هذه الخاصية لملفات موجودة بالفعل

 

[Ali Mohamed Ali]

ممتاز أستاذ سليم بارك الله فيك

[سليم حاصبيا]

54 دقائق مضت, احمد ابوزيزو said:

جميل جدا

ممكن التعديل علي خصائص الزر بحيث لا يظهر في الطباعة

وايضا طريقة اضافة مثل هذه الخاصية لملفات موجودة بالفعل

 

في حصائص الزر ضع PrintObject=False

[وجيه شرف الدين]

ماشاء الله روعة

[ashraf_abdalla]

ممتاز أستاذ سليم بارك الله فيك

[احمد ابوزيزو]

في حصائص الزر ضع PrintObject=False

شكرا ......علي التفضل بالرد

[محمد عبدالسلام]

ماشاء الله عمل رائع جزاك الله خيرا ووفقك الله لكل خير

[خالد ابوعوف]

حياك الله استاذ سليم 

[جمعه صالح]

متألق دائما 

 

[حليم ناصر]

جزاكم الله خيرا

[محمد عبدالسلام]

ممتاز رئع أستاذ سليم بارك الله فيك

 هل يمكن تخصيص هذا زر لي اليوزرفورم

لما اضغط على زر المتحرك يظهر اليوزرفورم

تم تعديل مارس 19, 2019 بواسطه محمد عبدالسلام

[وائل يونس سلامي]

روائع العلم و الفن استاذ سليم 

أدامك الله 

لك كل تقديري و احترامي لعلمك الرائع 

الله يحميك و يزيدك من علمو