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

كود مميز جاهز_كود دبل كليك لاستدعاء اى فورم ...الخ


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

تحياتى و ايام مباركه


مرفق كود مرن و هام يقوم باستدعاء الفورم بدبل كليك
يمكن الاستفاده منه فى اى برنامج او ملف ( و هو منقول من ضمن مشاركات المنتدى )
فمثلا لو عندك فورم بحث و اضافة مطلوب استدعائه فى نطاق معين لادخال و تكويد بيان معين بدلا من استخدام القائمه المنسدله 
فضع هذا الكود البسيط فى حدث الصفحه المطلوبه

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a1 : a1", "b2 : b2230")) Is Nothing Then
Cancel = True
UserForm1.Show
End If
End Sub

فعند الضغط / الكابس دبل كليك على الخانه A1  او النطاق B2:B2230
يتم استدعاء فورم او ليست اسمه userform1

تحياتى
و لا تنسونا من صالح الدعاء

G_Double click.rar

تم تعديل بواسطه جلال الجمال_ابو أدهم
  • Like 2
رابط هذا التعليق
شارك

تحياتى و ايام مباركه
استكمالا للموضوع اعلاه لاهمية الاستفاده من الكود اعلاه
تم اضافة فورم بحث و اضافه من اعمال استاذنا /  عبدالله باقشير للملف اعلاه
و عليه اذا كنت تقوم بعمل  برنامج او ملف به عدد كبير من ادخال البيانات او عدد لا نهائى من تكويد الحسابات
فقم باضافة الكود و الفورم للملف 
و قل الحمد لله
و لا تنسونا من صالح الدعاء

G_Double click_2020.rar

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

تحياتى و ايام مباركه

ياسر خليل أبو البراء

أبو حنــــين

كنت محتاج شرح تفصيلى لكود البحث و الاضافه بالليست بالمشاركه اعلاه و هومن اعمال استاذنا /  عبدالله باقشير
تحياتى

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

الأمر يحتاج لبعض الوقت لدراسة الملف بشكل جيد ، ثم إنني لا أجيد التعامل مع الفورم بشكل كبير

الأمر متروك للأخ أبو حنين فهو صاحب باع طويل في هذا القسم

تقبل تحياتي

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information