إدارج نص من شيت نتيجة لإدخال قيمتين من الأرقام في شيت أخر

[ًعبد من عباد الله]

اخى الفاضل أبو البراء

سلام الله عليك ورحمته وبركاته

العمل ليس ضخما إلا في ثوابه بإذن الله هذه هى (الخطوة الأخيرة) في هذا العمل المبارك

* أخى الحبيب ما وصلنا إليه سابقا بتوفيق الله تعالى كان كافيا جدا لى ولإتمام عملى عليه والذى أردته أخيرا هو (إظهار حلة الكمال لكلام العزيز المتعال) خاصة بعد ثقة مصدره وروعة مظهر عرضه وانه بالخط العثمانى الذى هو أصل كتابة المصحف جزى الله من قام عليه خير الجزاء في الدنيا والآخرة.

* المرفق بعد أن نقلته للأكسل لم أجرى عليه أى تعديل او تغيير فيه فهو على اصله كما جاء من مصدره.

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

* لست في عجلة من أمرى فخذ وقتك.

* أخى العزيز أتمنى أن أكون قد أصبت وأوجزت دون إطناب وشكرا لسعة صدرك. 

[ًعبد من عباد الله]

أخى في الله

وعليكم السلام ورحمة الله وبركاته

إسهام ومشاركة وعمل ممتاز اسأل الله أن يجزيك عنه ويتقبله منك وينفع به.

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

شكر لك أخى الكريم على المساهمة وحيا الله أهل الجزائر.

 

 

تم تعديل أبريل 9, 2016 بواسطه وائل شعبان

[أبوعيد]

السلام عليكم

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

ثم بعد الانتهاء من العمل يطرح الملف في مكتبة الموقع كمرجع للاستفادة منه

اقترح ( إذا لم تكن هناك طريقة سهلة لفصل الآيات ) أن نقوم بفصلها يدويا ( نسخ ولصق ) حتى ننهي المصحف كاملا

يعنى كل واحد يأخذ عدد من الصفحات وبهذا سيقسم ملف الوورد إلى ثلاثة أقسام ( ويمكن أن تزيد الأقسام إذا انضم إلينا رابع وخامس و .... )

تحياتي

[ًعبد من عباد الله]

34 دقائق مضت, أبوعيد said:

اقترح ( إذا لم تكن هناك طريقة سهلة لفصل الآيات ) أن نقوم بفصلها يدويا ( نسخ ولصق ) حتى ننهي المصحف كاملا

أهلا بك ومرحبا بعودتك ومتابعتك أبا عيد فالخير بدأ على يديك

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

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

تم تعديل أبريل 9, 2016 بواسطه وائل شعبان

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

الرجاء إخواني الصبر فلربما كان هناك طريق أيسر بدلاً من ذلك خصوصاً أن العمل اليدوي فيه إمكانية حدوث الأخطاء ..

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

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

تقبلوا تحياتي

[ًعبد من عباد الله]

بارك الله في نيتكم وهمتكم وعلمكم واهتمامكم أخوتى الإعزاء أبا عيد وأبا البراء وجميع الأخوة المتابعين.

تقبل الله منا ورزق الجميع رزقا حسنا وجمعنا على محبته اللهم آمين.

 

تم تعديل أبريل 9, 2016 بواسطه وائل شعبان

[ًعبد من عباد الله]

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

للرفع

 

UthmanicHafs1 Ver09 مفلترة 10-4-2016.rar

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

أخي الكريم وائل شعبان

أبشرك أن الملف جاري العمل عليه فهو شغلي الشاغل ليل نهار الآن

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

ثم يأتي الكود الثاني والذي يستغرق حوالي 4 أو 5 دقائق في التنفيذ .. ولكنه يؤدي المطلوب بكفاءة حيث تم استخراج عدد 6236 آية .. فهل هذا العدد صحيح إن شاء الله؟

وإليك ملف الفيديو

 

[ًعبد من عباد الله]

اخى الحبيب ياسر خليل (أبو البراء)

سلام الله عليكم ورحمته وبركاته

الحمد لله الذى بنعمته تتم الصالحات

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

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

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

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

[ًعبد من عباد الله]

أعذرنى أخى الكريم على النسيان بخصوص سؤالك

نعم عدد الآيات المذكور صحيح فإجمالى عدد آيات القرآن الكريم على الصحيح هى 6236 آية.

ولعل من الجدير بالذكر أن أحدهم ذكر في هذا العدد إعجاز بيانى حيث أنها تبدأ وتنتهى برقم 6 وحاصل ضرب الرقمين الوسطين هو ايضا 6 فهى محفوظة بذلك عن التحريف في عدد الآيات أدام الله عليك الصحة والعافية.

للرفع

 

[ًعبد من عباد الله]

شاهدت الفيديو أخى أبو البراء للتو بسم الله ماشاء الله سلمت يداك الأمر ظهر في الفيديو وكأنه حلم قد أصبح حقيقة في لمح البصر بوركت أخى الكريم في نفسك وأهلك. 

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

الحمد لله الذي بنعمته تتم الصالحات

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

في الملف المرفق ستجد 3 أكواد .. الكود الأول المسمى Delete_Blanks_Basmla يقوم بحذف الصفوف التي تحتوي على البسملة عدا البسملة في الفاتحة والصفوف الفارغة والصفوف التي تحتوي أسماء السور

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

ثم يأتي في النهاية كود خفيف يقوم بوضع أسماء السور مقابل كل آية من الآيات في العمود الثاني وهو الكود SuratNames ..

لتنفيذ الكود يمكنك الضغط على Alt + F8 ثم اختيار اسم الإجراء الفرعي المطلوب تنفيذه .. يراعى ترتيب التنفيذ (الكود الأول فالثاني فالثالث .. للحصول على نتائج منضبطة بإذن الله)

أسأل الله العظيم أن يغفر لنا بهذا العمل وأن يجعله في ميزان حسناتنا يوم القيامة

وأخيراً إليك الملف المرفق فيه ما ذكرت ، ولا تنسونا من صالح دعائكم ..

لكي يظهر الملف بالخط المستخدم ، يرجى تنصيب الخط في المرفقات (فك الضغط عن الملف ثم كليك يمين ثم Install)

حمل الملف من هنا

UthmanicHafs1 Ver09.rar

[أبو حنــــين]

عمل جد ممتاز اخي ابو البراء

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

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

ربنا يبارك فيك أخي في الله إسلام أحمد ..مش هسيبك غير لما أعرف اسمك ومتحاولش تهرب ومتفكرش إني هيأس ..

جزاك الله خيراً أخي الحبيب على دعائك الطيب

تقبل تحياتي

[أبو حنــــين]

السلام عليكم

هذه اضافة بسيطة لكتابة ارقام الاآيات و عددها على اعتبار ان لدينا ورقة فيها اعداد الآيات مرتبة بالشكل

7

286

200

176

120

و هكذا حتى سورة الناس  6

Sub NbrAta()

    m = 0
    Dim cl As Range
    For Each cl In Range("A1:A114")
    For x = 1 To cl.Value
    m = m + 1
    Cells(m, 2) = x
    Cells(m, 3) = cl
    Next
    Next
    
End Sub

 

[ًعبد من عباد الله]

سلام الله على الجميع

يبدو أن نومى باكرا بالأمس قد ضيع منى فرصة أن أكون أول مهنئ على اكتمال العمل بفضل الله فالحمد الله إبتداء وأنتهاء.

الأخوة الكرام

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

أبا عيد

اخواكم في الله

الكلمات لا توفيكم حقكم نسأل الله أن يتقبل منا دعائنا لكم وأن يحفظكم ويبارك فيكم شكر الله لكم.

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

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

الأخوة الإعزاء نرجوا ألا تحرمونا من تفاعلكم الجاد والمخلص والمثمر هذا عند طرح موضوعات أخرى يظهر لنا الحاجة فيها إلى علمكم وخبرتكم.

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

تم تعديل أبريل 12, 2016 بواسطه وائل شعبان

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

أخي الكريم وائل شعبان

لما لم تستطع عمل داونلود للملف .. ما الذي استصعب عليك في الأمر ..؟! الرابط عبارة عن رابط دعائي لحوالي 4 إعلانات في كل مرة يتم الضغط على Skip Ad في أعلى يمين الصفحة

 

عموماً إليك الملف مرة أخرى ومرفوع على المنتدى بشكل مباشر دون روابط خارجية

 

Quran Output.rar

 

تقبل تحياتي

 

 

[ًعبد من عباد الله]

زادك الله حرصا على الخير أبا البراء المسألة وما فيها أن الـ IT في الشغل عملين لوك لكثير من المواقع والتحميلات 

عموما انا لسة واصل البيت وحملت الملف خمسة وأوافيك بالنتائج أكرر شكرى لك على حرصك على التسهيل والمساعدة

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

بارك الله فيك أخي الكريم وائل شعبان

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

تقبل تحياتي

[ًعبد من عباد الله]

الأخوة الأحباب سلام الله عليكم ورحمته وبركاته

أسعد الله مساءكم بكل خير

1- أخى الفاضل أبو البراء لقد حملت الملف من الرابطين لمزيد من الدعم (ابتسامة).

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

3- إلي جميع الأخوة ظهر بالملف إشكال وحيد لا علاقة لعمل أبو البراء به بل فى الأكسيل كبرنامج (يبدو من كثرة تخصصه في معالجة الارقام أهمل النصوص) فارجوا التركيز معى قليلاً واعتقد أن الموضوع بعد كل هذا التعب ولشرف موضوعه ينبغى التركيز عليه قليلا لحل هذا الإشكال الواضح بالصورة وهو ظهور آيات بصورة مقطعة ولقد بدأت ندائى لجميع الأخوة وذلك لعمل ورشة عمل ليجتهد كل منا وليضرب له بنصيب في حلها من خلال مشاورتكم والتى ابدئها بالتالى:-

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

ب- إصدار الأفيس لدى 2010 فإرجوا من الأخوة مشكورين غير مأمورين ممن لديهم إصدار مختلف أن يجربوا لصق هذه الأية في جدول اكسيل الآية رقم 88 من سورة البقرة وهى أول آية ظهر بها هذا الإشكال.

ج- إذا توصلنا لحل بإذن الله تعالى لهذا الإشكال أتمنى ممن لديه الهمة مساعدتى في عمل فحص (متقن) لبقية الآيات للكشف عن أى آيات أخرى بها نفس الإشكال.

د- أعود إلى أخى الحبيب أبو البراء بطلب صغير (الذى ارجوا ألا أكون قد أثقلت عليه بكثرة طلباتى) والطلب هو أن يظهر تخريج الآية في عملنا الأول بغير شكل الآية في النص أى يظهر بشكل رقم عادى مثلا يقرأ رقم الآية من عمود رقم الآية وليس من نص الآية (مشار أليها في الصورة عليها دائرة حمراء).

ارجوا ألا أكون قد أثقلت عليكم وشكرا مقدما للجميع وبانتظار تفاعلكم المثمر جزاكم الله خيرا

للرفع

تم تعديل أبريل 12, 2016 بواسطه وائل شعبان

[أبو حنــــين]

اعتقد انني وجدت الخطأ

قمت بتحويل الآية الى الخط  : Arabic Typesetting

فوجدت رمز غير مفهوم قمت بحذفه

ثم ارجعت الخط الاصلي  KFGQPC Uthmanic Script HAFS  فحلت المشكلة

لاحظ الصورة

Sans titre.rar

[ًعبد من عباد الله]

أخى الكريم في الله

كل الاحترام والتحية والتقدير لمحاولتك اخى ولكنها ليست حلا لماذا؟

1- لأن الآية في الوورد تعرض واضحة بدون زوائد يجب التخلص منها.

2- ما تم حذفه هو أحد رموز علامات الوقف في القرآن وهو الـ ج كما في الصورة وحذفه خطأ ونقص يخل بالرسم العثمانى للمصحف.

جزاك الله خيرا على المحاولة

تم تعديل أبريل 12, 2016 بواسطه وائل شعبان

[أبو حنــــين]

نفس المشكل موجود في 

البقرة 154
الكهف 48 و 50
الصافات 68
الزمر 12

 

[ًعبد من عباد الله]

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

والغريب أن نفس الرمز موجود في بعض الآيات التى تظهر بووضح وبشكل سليم دون إشكال ؟؟؟!!!!

تم تعديل أبريل 12, 2016 بواسطه وائل شعبان

[ًعبد من عباد الله]

إلى الأخوة المبرمجين ذوى الاحتراف 

برجاء مطالعة هذا المسار

http://fonts.qurancomplex.gov.sa/?page_id=344

ومطالعة هذا المرفق لعله يساهم ويقرب حل هذا الإشكال بإذن الله

Character_Map_Hafs.rar

تم تعديل أبريل 12, 2016 بواسطه وائل شعبان