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

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

قام بنشر (معدل)

السلام عليكم

فورم للبحث عن بيانات

وارجاع البيانات في الخلية النشطة

مع امكانية اختيار الخلية والفورم مفتوح

طلب للاخ/ aazsubbah

http://www.officena.net/ib/index.php?showtopic=29842

بحث مع نسخ بيانات.rar

تم تعديل بواسطه خبور خير
قام بنشر

السلام عليكم

الاخ الفاضل/ بليش روغ -------حفظه الله

الاخ الفاضل/ ابو سارة-------حفظه الله

الاخ الفاضل/ يحي حسين -------حفظه الله

ربنا يبارك فيكم

تقبلوا جزيل شكري وتقديري

قام بنشر

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("C17:C" & Rows.Count)) Is Nothing Then

Cancel = True

form_Cm_Search.Show 0

End If

End Sub

----------------------------------------------------------------------------------

هذا الكود كما يتضح يظهر الفورم عند الضغط مكرر على أي خلية في العمود C ابتداء من الخلية C17 ولكني احتاج أن تظهر الفورم فقط عند الضغط على خلية واحدة ولتكن مثلاً C17 فقمت بتغير الكود كالآتي :

private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, CELL("C17" & Rows.Count)) Is Nothing Then

Cancel = True

form_Cm_Search.Show 0

End If

End Sub

ولكن لم تفلح محاولتي ، فما هو الخطأ في هذا الكود للحالة التي ذكرتها ؟

قام بنشر

السلام عليكم

الاخ الفاضل/ محمدي -------حفظه الله

الاخ الفاضل/ سالم شباني -------حفظه الله

ربنا يبارك فيكما

تقبلا جزيل شكري وتقديري

=================================

الاخ الفاضل/ ابو سارة -------حفظه الله

ولكني احتاج أن تظهر الفورم فقط عند الضغط على خلية واحدة ولتكن مثلاً C17

استخدم الكود التالي:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = Range("C17").Address Then

    Cancel = True

    form_Cm_Search.Show 0

End If

End Sub

  • Like 1
قام بنشر

مشكور جدا اخ خبور على الموضوع الرائع

بصراحه ما فى موضوع عملته الا واستفدت منه

ايضا الاخ ياسر خليل وكلكم والله علماء عن جد

قام بنشر

و الله يعجز اللسان عن شكرك اخي الفاضل

و لكن اقل ما يمكن ان اقوله لك

جزاك الله خيرا و جعل لك في كل خطوة سلامة و رزقك من حيث لا تعلم

اللهم آمين

  • 3 years later...
قام بنشر

بسم الله الرحمن الرحيم

عزيزي استاذ خبور تعددت ابداعاتك وتخطت حدود الإبهار فماذا نحن فاعلين. ادام الله عليك نعمه وفضله.

ارجو من حضرتك ان تضع لمسة اخرى ابداعية بتحديد متغيرات اخرى للبحث بمعنى انه في هذا النموزج معايير البحث تكون في عمودين ( متغيرين ) هما التاريخ واى عمود آخر نختاره

فماذا لو اردنا اضافة معيار جديد من عمود اخر وللتوضيح ماذا لو اردت عرض بيانات الفترة بناء على القيمة 3 في العمود الذي عنوانه ( إلى ) والقيمة محمد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