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

أخي العزيز عبد الله فاروق بارك الله فيك وجزاك الله كل خير على هذا الموضوع الجميل والمتميز تقبل وافر تقديري واحترامي

أخي الحبيب الزباري بارك الله فيك على هذه الموضوعات الشيقة والممتعة نرجو بعد الانتهاء من الموضوع عمل ملف PDF بالشرح التفصيلي للموضوع من الألف للياء لسهولة الرجوع إليه ... تقبل وافر تحياتي

أخي الكريم وائل شعبان أعتقد أننا توصلنا لنسبة 95% من حل الإشكالية الأولى .. والآن لنكن عمليين .. الآن أصبحت المهمة أسهل بكثير .. وهو أن نقوم الآن بفحص الآيات التي تظهر فيها الإشكالية ونلونها بلون مختلف للتركيز عليها ... ومعالجتها يدوياً لاحظت في الآيات التي تظهر فيها الإشكالية أن حرف الوقف ج يظهر فوق التنوين المتبوع بحرف الباء والذي يجعل من الباء حرف ميم مقلوبة (التجويد) المهم حلها ببساطة وإن كنت لا أعرف إذا كان الحل سيروقك أم لا هو أن تأتي قبل حرف الوقف وتضع مؤشر الماوس وتضغط مسافة بالمسطرة ، بذلك تنتهي الإشكالية في هذه الآيات على سبيل المثال الخلية B96 حدد الخلية روح لشريط المعادلات .. انقر بالماوس في شريط المعادلات قبل حرف الوقف مباشرةً وخد مسافة بالمسطرة ثم إنتر ..ستظهر معك الآية بشكل صحيح إن شاء الله وفي انتظار مساهمات أخرى لربما نجد حل أفضل الآيات التي ظهرت فيها المشكلة ، سأذكرها بالخلايا لسهولة الوصول إليها : B96 B162 B649 B1930 B2003 B2189 B2191 B2744 B3514 B4108 B4546 B5141 هذا ما استطعت استخراجه ..يمكن التركيز على الآيات ومعالجتها يدوياً ..وإن شاء الله يكون حل للإشكال تقبل تحياتي

أخي الكريم الكود يعمل لدي ..ما هي نسخة الأوفيس التي تعمل عليها؟ وما هو الخطأ الذي يظهر معك .. عند حدوث خطأ تظهر رسالة فيها كلمة Debug انقر عليها ثم سيذهب بك إلى سطر أصفر .. انسخ هذا السطر في المشاركة للوقوف على المشكلة بشكل أدق أما بالنسبة لكود أخونا سليم والكود الذي قدمته فكلاهما يعمل بشكل جيد

وعليكم السلام أخي الغالي أبو حنين جزيت خيراً على كلماتك الرقيقة وعلى مرورك العطر بالموضوع وأنا لست بمعلم إنما أنا مجرد متعلم مثلي مثلكم ، ولكني أجتهد في البحث بشتى الطرق

وجزيت خيراً أخي الحبيب سعد عابد مشكور على مرورك العطر بالموضوع ..وعلى كلماتك الطيبة حاول تطرح موضوع جديد وترفق ملف بشكل المطلوب وإن شاء الله أنا والأخوة بالمنتدى كل واحد يساهم في حل الموضوع بأسلوب علمي يتكاتف فيه الجميع تقبل تحياتي

بارك الله فيك أخي الكريم وائل شعبان في انتظار تجربة الملف وموافاتنا بالنتائج .. وإذا كان لديك وقت قم بدعمي وتحميل الملف من المشاركة التي فيها الروابط الدعائية ، وهذا اختياري وليس إجباري تقبل تحياتي

أخي وحبيبي في الله محمد الريفي موضوعاتك قمة في التميز والحصرية والروعة .. بارك الله فيك وجزاك الله كل خير على هذه الموضوعات القيمة تقبل وافر تقديري واحترامي

أخي الحبيب الزباري شوقتنا للمفاجأة السارة ... في انتظار جديدك يا كبير تقبل تحياتي

أخي الكريم وائل شعبان لما لم تستطع عمل داونلود للملف .. ما الذي استصعب عليك في الأمر ..؟! الرابط عبارة عن رابط دعائي لحوالي 4 إعلانات في كل مرة يتم الضغط على Skip Ad في أعلى يمين الصفحة عموماً إليك الملف مرة أخرى ومرفوع على المنتدى بشكل مباشر دون روابط خارجية Quran Output.rar تقبل تحياتي

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير تقبل تحياتي

هل اطلعت على الملف في مشاركتي السابقة .. فيه ما تطلب إن شاء الله

أخي الكريم لم تحدد عدد الأرقام العشوائية المطلوبة التي توصلك للهدف المنشود ؟ عموماً جرب الملف التالي .. يمكنك سحب المعادلات إلى حيثما شئت وستجد أن مجموع الأرقام العشوائية المولدة في العمود الثاني يساوي 5000 كما طلبت في المرفق حمل الملف من هنا

ربنا يبارك فيك أخي في الله إسلام أحمد ..مش هسيبك غير لما أعرف اسمك ومتحاولش تهرب ومتفكرش إني هيأس .. جزاك الله خيراً أخي الحبيب على دعائك الطيب تقبل تحياتي

أين التفاعل أم روان ..؟؟ ننتظر منك هدية للمنتدى بمناسبة انضمامك ... أول زنقة !!

الحمد لله أن تم المطلوب على خير بالنسبة للكود لن أستطيع شرحه بالكامل لأنه يحتاج لوقت وتفصيل .. ولكن ببساطة يعتمد الكود على مكتبة مشابهة لمكتبة القاموس التي يمكن الاعتماد عليها في استخراج القيم الغير مكررة ولكن هذه يضاف لها إمكانية فرز النتائج بالترتيب الأبجدي .. أرجو أن يفي ذلك بالغرض أخي العزيز أحمد تقبل تحياتي

قم بتنصيب النت فريم ورك 3.5 كما أخبرتك ..

الحمد لله الذي بنعمته تتم الصالحات أخي الحبيب وائل شعبان لقد استغرق مني العمل أيام .. بالبحث في المنتديات المختلفة والمواقع المختلفة ، والإضافة والتعديل للوضول لأفضل نتيجة ممكنة في الملف المرفق ستجد 3 أكواد .. الكود الأول المسمى Delete_Blanks_Basmla يقوم بحذف الصفوف التي تحتوي على البسملة عدا البسملة في الفاتحة والصفوف الفارغة والصفوف التي تحتوي أسماء السور ثم يأتي الكود الثاني (وسيستغرق في التنفيذ حوالي 5 دقائق لكيلا تقلق .. حاولت أن أجعله ينفذ بشكل أسرع ولكن يبدو أن البيانات ضخمة وعمليات المعالجة تحتاج لوقت ، ولكن لا أعتقد أن هذا سيسبب مشكلة حيث سيتم التنفيذ لمرة واحدة فقط .. للحصول على النتائج المطلوبة بعدها يمكنك نسح النتائج ووضعها في ملفك أو في أي ورقة عمل أخرى حسبما تريد) والكود المسئول على عمليات المعالجة للبيانات للحصول على المطلوب يسمى Main_Proc ثم يأتي في النهاية كود خفيف يقوم بوضع أسماء السور مقابل كل آية من الآيات في العمود الثاني وهو الكود SuratNames .. لتنفيذ الكود يمكنك الضغط على Alt + F8 ثم اختيار اسم الإجراء الفرعي المطلوب تنفيذه .. يراعى ترتيب التنفيذ (الكود الأول فالثاني فالثالث .. للحصول على نتائج منضبطة بإذن الله) أسأل الله العظيم أن يغفر لنا بهذا العمل وأن يجعله في ميزان حسناتنا يوم القيامة وأخيراً إليك الملف المرفق فيه ما ذكرت ، ولا تنسونا من صالح دعائكم .. لكي يظهر الملف بالخط المستخدم ، يرجى تنصيب الخط في المرفقات (فك الضغط عن الملف ثم كليك يمين ثم Install) حمل الملف من هنا UthmanicHafs1 Ver09.rar

أخي الكريم أحمد أعتقد أنك تحتاج لتنصيب NetFroamwork 3.5 >> لأن هذه المشكلة حدثت معي من فترة مع هذه المكتبة .. ما هو الويندوز الذي تستخدمه ؟

أخي الحبيب سعيد بيرم جزيت خيراً على دعواتك الطيبة وكلامك الطيب في حقي إليك الملف التالي تم فيه الاستغناء عن ورقة العمل التي يتم إنشائها بشكل مؤقت .. والاعتماد على اختبار شرط محدد أثناء عمل الحلقات التكرارية لتجنب حدوث الخطأ .. حمل الملف من هنا تقبل تحياتي

بارك الله فيك أخي الكريم أحمد وجزيت خيراً على دعائك الطيب المبارك تقبل تحياتي

أخي الكريم أحمد حمل الملف من هنا أرجو أن يكون المطلوب إن شاء الله تقبل تحياتي

الأخ الكريم نور في المرفق الأخير لأخونا سليم قم بتنشيط وررقة العمل المسماة "البيانات (2) " ثم اضغط Alt + F8 من لوحة المفاتيح واختر الماكرو المسمى Salim_Sort .. ولن تحدث مشكلة ... إذا أردت أن يكون العمل على ورقة العمل المسماة "البيانات" فقم بتغيير اسم ورقة العمل في الكود من خلال هذا السطر Set sh = ActiveWorkbook.Worksheets("البيانات (2)") تقبل تحياتي جرب الكود التالي ..نشط ورقة العمل المراد العمل عليها ثم نفذ الكود Sub SortMultipleColumns() With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Range("E4"), xlSortOnValues, xlAscending .SortFields.Add Range("F4"), xlSortOnValues, xlAscending .SortFields.Add Range("G4"), xlSortOnValues, xlAscending .SortFields.Add Range("H4"), xlSortOnValues, xlAscending .SortFields.Add Range("I4"), xlSortOnValues, xlAscending .SortFields.Add Range("J4"), xlSortOnValues, xlAscending .SortFields.Add Range("L4"), xlSortOnValues, xlAscending .SetRange Range("A7").CurrentRegion.Offset(2) .Header = xlYes .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub أرجو أن يفي بالغرض

والأجمل هو انضمامك لأسرتنا الكريمة أيتها الأخت الفاضلة أم روان ونتمنى لكي أمتع الأوقات مع الموضوعات المختلفة في المنتدى .. وننتظر مساهماتك وننتظر ظهور المواهب المدفونة .. تقبلي تحياتي

السلام عليكم ورحمة الله وبركاته أختي الفاضلة أم روان أهلاً بكي في المنتدى ونورتي بين إخوانك ، وإن شاء الله نكون عند حسن ظنك حللتي أهلاً ونزلتي سهلاً .. وإن شاء الله في انتظار موضوعاتك الجديدة التي تقدم شيء مفيد للأعضاء ، وفي نفس الوقت تستفيدين تقبلي وافر تقديري واحترامي