اذهب الي المحتوي
أوفيسنا

كتابه قيمه مخزنه علي متغير في خليه بدبل كليك


الردود الموصى بها

شكرا لحضرتك

الحمد لله توصلت للكود المطلوب

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim y
y = Range("D1").Value
    Selection = y
Range("D1").Activate
End Sub

شكرا مره اخري

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information