السلام عليكم
كما بالصورة
بعد البحث عن الكلمة فى القرآن الكريم
و ظهور النتائج فى القائمة
أود أن أعرف
كيف أنسخ العنصر المحدد فى القائمة المشتمل على نص الآية للحافظة
للصقها بعد ذلك فى برنامج وورد أو أى برنامج معالجة نصوص
و نص الآية فى العمود الرابع من القائمة
جزاكم الله خيرا
اخي الفاضل : ابو لميس
يفضل وضع المثال الخاص بك حتى يتم التعديل عليه مباشرة
لأنني اخشى ان اضع لك بعض الأكواد البرمجية ولا تعرف كيف تتعامل معها ومن ثم تكثر الأسئلة بدون فائدة
فأرى عندما يتم وضع المثال هنا يتم التعديل عليه مرة واحده فقط وتنتهي المشكلة .
بالتوفيق
جزاك الله خيرا
هذا هو النموذج
لكنى عثرت على كود مناسب للنسخ للحافظة
وقمت بتعديله ليناسب المطلوب ( لدى بعض الخبرة فى ذلك من برمجة إكسل)
و رغم أن الكود يعمل بصورة جيدة
إلا أن هناك مشكلة لم تكن متوقعة
و هى أن الصف فى القائمة
لا يقبل أكثر من 255 حرفا
لذا عند النسخ منها و اللصق بمكان آخر
يتم لصق أول 255 حرفا من الآية فقط ( كآية المداينة مثلا و هى أطول آية )
فما الحل؟
هذا هو النموذج بين أيد أمينة للتعديل
و الكود الأصلى موجود لدى لمن يريده
ملحوظة :
للتطبيق اكتبى بخانة البحث عن كلمة " بدين"
ستكون إحدى النتائج آية المداينة
اضغطى زر " نسخ إلى الحافظة"
و من ثم اللصق ببرنامج وورد
سيتم لصق الآية إلى منتصفها فقط تقريبا
وفقك الله لكل خير
تم تعديل هذه المشاركة بواسطة أبو لميس في 7 أبريل 2012 في 19:18
هلا تابعنا الموضوع أختنا الفاضلة؟
كيف نجعل القائمة تسع أكثر من 255 حرفا
أو أى حل آخر
جزاك الله خيرا
عدل هذا السطر من الكود
sData = Me.q1.Column(4)
الى
sData = DLookup("Aya_txt", "all", "serial=" & Me.q1.Column(0))الله يفتح عليك أخى أبا يوسف
تمام جدا
بارك الله فيك
رائع جدا
الحمد لله
الآن أستطيع استكمال المشروع الكبير
بعون الله
إضافة كتاب
المعجم المفهرس لألفاظ القرآن الكريم
كى تضاف إمكانية البحث بجذر الكلمة
جزاكم الله خيرا
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…