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

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

بسم الله

سلام الله عليكم

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

التبويب الموضوعى لآيات القرآن.rar

[أبوعيد]

وعليكم السلام

تفضل المعادلة من نوع الصفيف تجدها في العمود H   قم بسحبها إلى الأسفل

=INDIRECT("'القرآن كاملا'!D"&SUM(IF((F2='القرآن كاملا'!B$2:B$7000)*(G2='القرآن كاملا'!C$2:C$7000);ROW('القرآن كاملا'!C$2:C$7000);0)))

تفضل

التبويب الموضوعى لآيات القرآن1.rar

[ابوعبدالواجد]

السلام عليكم

جزيت خيرا

ممتاز - عمل مفيد

 

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

ما شاء الله

سلمت يداك أخى أبو عيد وجعله الله في ميزان حسناتك

هناك أمران اخران إذا سمحت بالمزيد

1- هل يمكن في عمود رقم الآية إدارج مجموعة من الآيات مثل من الآية 1 - 5 دفعة واحدة.

2- هل لى أن أطمح في كيفية عملها في الاكسيس أذا كان ذلك متاح لديك أو لدى أحد الأفاضل من الأخوة.

وشكرا للجميع على المساعدة والاهتمام

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

[أبوعيد]

حياك الله يا أخي

طبعا هذا القسم هو قسم خاص بالاكسل

ويوجد في المنتدى قسم خاص بالأكسس

ادخل على قسم الاكسس واطرح موضوعك واشرح ما تريد ثم ارفق الملف أعلاه

لعلك تجد من يساعدك

تحياتي

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

أخى الفاضل

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

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

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

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

أخى الكريم أعلم أنى قد أثقلت ولكن لى رجاء أخير قد نسيته

هل من الممكن أن يكون يظهر نص الآية بهذا الشكل (الم) [سورة البقرة] [1] حتى يسهل تخريج الآية 

وجزاكم الله كل خير

للرفع

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

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

أخى الكريم

حتى لا أسبب لك العناء

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

للرفع

 

القرآن كاملاً.rar

[أبوعيد]

بصراحة ملفك يعتبر من المراجع المهمة حيث أنه اشتمل على كل آيات القرآن الكريم

هذا ما استطعت عمله خدمة لكتاب الله تعالى

أولا وقبل كل شيء ادخل علي شيت (القرآن كاملا) ثم اكمل كتابة أسماء السور مرتبة في العمود G

ثانيا : لاحظ التعليمات 

ثالثا : تفضل

التبويب الموضوعى لآيات القرآن2.rar

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

سلام عليك أبا عيد

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

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

ملحوظة هامة:-

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

أخى الكريم تذكرت 

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

للرفع

UthmanicHafs1 Ver09.rar

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

[أبوعيد]

حياك الله أخي

ما فهمت طلبك , يعني هل تريد الآية تظهر بالشكل الآتي : (لاحظ أنها أكثر من آية )

أم كيف تريدها ؟

تحياتي

تم تعديل أبريل 7, 2016 بواسطه أبوعيد

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

اخى الكريم

جميل مثالك هذا ان يكون رقم الآية بين الآيات بهذا الشكل

ولكن ما أقصده أخى الكريم لعل الصورة توضحة

ما أريده هو أن يظهر نص الآية بين القوسين هكذا

( الَّذِينَ يُؤْمِنُونَ بِالْغَيْبِ وَيُقِيمُونَ الصَّلَاةَ وَمِمَّا رَزَقْنَاهُمْ يُنْفِقُونَ ) إذا كانت آية واحدة

وهكذا ( الم (1) ذَلِكَ الْكِتَابُ لَا رَيْبَ فِيهِ هُدًى لِلْمُتَّقِينَ (2) الَّذِينَ يُؤْمِنُونَ بِالْغَيْبِ وَيُقِيمُونَ الصَّلَاةَ وَمِمَّا رَزَقْنَاهُمْ يُنْفِقُونَ (3) ) إذا كانت أكثر من آية 

ولكن في الصورة القوسين خارج نطاق الآية وبينهما فارغ

شاكر لك اهتمامك وأسفا لتعبك 

للرفع

 

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

[أبوعيد]

هذا كل ما استطعت عمله

تفضل

التبويب الموضوعى لآيات القرآن3.rar

 

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

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

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

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

جزاك الله كل خير

 

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

أخي الحبيب أبو عيد

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

معادلات رائعة .. وإن كان هناك استعانة بكثير من الأعمدة المساعدة ولكن حل رائع ومتقن جداً

 

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

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

كل ما عليك هو تحميل الملف من الرابط أسفل المشاركة .. تفتح الملف ثم تضغط Alt + F8 وتنفذ الكود الذي سيظهر لك باسم Test عن طريق اختيار الإجراء الفرعي المسمى Test ثم تنقر Run ويمكن تخصيص زر لتنفيذ الأمر ..

هذا هو الكود

Sub Test()
    Dim Coll As New Collection, Arr, I As Long, J As Long, K1 As Long, K2 As Long, V

    Arr = Sheets("القرآن كاملا").Range("A1").CurrentRegion.Value
    For I = 2 To UBound(Arr, 1)
        Coll.Add Key:=Arr(I, 2) & Chr$(2) & Arr(I, 3), Item:=Arr(I, 4)
    Next I

    Arr = Sheets("القرآن كاملا").Range("F1").CurrentRegion.Value
    For I = 2 To UBound(Arr, 1)
        Coll.Add Key:=CStr(Arr(I, 1)), Item:=Arr(I, 2)
    Next I

    With Sheets("المثال").Range("F1").CurrentRegion
        Arr = .Value
        
        For I = 2 To UBound(Arr, 1)
            Arr(I, 8) = ""
            V = Split(Arr(I, 7), "|"): K1 = CLng(V(0)): If UBound(V) = 0 Then K2 = K1 Else K2 = V(1)
            
            On Error Resume Next
                For J = K1 To K2
                    Arr(I, 8) = Arr(I, 8) & Space$(1) & Coll(Arr(I, 6) & Chr$(2) & J)
                Next J
                Arr(I, 8) = "(" & Arr(I, 8) & " )     < " & Coll(CStr(Arr(I, 6))) & Space$(1) & Arr(I, 7) & " >"
            On Error GoTo 0
        Next I
        
        .Value = Arr
    End With
End Sub

 

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

 

تقبل تحياتي

 

 

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

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

{وَقَالُوا الْحَمْدُ لِلَّهِ الَّذِي هَدَانَا لِهَذَا وَمَا كُنَّا لِنَهْتَديَ لَوْلَا أَنْ هَدَانَا اللَّهُ} [الأعراف : 43]
ولى طموح أخير ليأخذ العمل شكله النهائى ويظهر في أبهى حله بما يليق بشرف موضوعه ففى الصورة المرفقة نجد تمييز باللون الأحمر لفراغات اتمنى لو تخرج قريبا من شكل آية المشاركة في الأقواس والمسافات أى (بتساوى المسافات بين الأقواس ونص الآية أو عدمها) و (باختلاف أقواس نص الآية عن أقواس تخريجها).

ملحوظة اتبعت التعليمات وظهرت النتيجة ولكن لا أعرف كيفية  تخصيص زر لتنفيذ الأمر.

جزاكم الله عن كل من سينتفع بهذا العمل الأجر والمثوبة.

 

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

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

أخي الحبيب وائل شعبان

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

بالنسبة للطلب الثاني أنصحك بالإطلاع على الموضوع التالي فيه الرد على سؤالك بالتفصيل .. وهي بدايات التعامل مع محرر الأكواد

 

رابط الموضوع من هنا

 

لو أحببت التعديل بنفسك في الكود ابحث عن هذا السطر ففيه سيكون التعديل

Arr(I, 8) = "(" & Arr(I, 8) & " )     < " & Coll(CStr(Arr(I, 6))) & Space$(1) & Arr(I, 7) & " >"

لاحظ الخمس مسافات التي تحدثت عنها .. يمكنك ضبط المسافات من هنا حسبما تريد

 

جرب التعديل في هذه الأسطر (استبدال الأسطر الجديدة بالأسطر القديمة)

            On Error Resume Next
                For J = K1 To K2
                    Arr(I, 8) = Arr(I, 8) & " " & Coll(Arr(I, 6) & Chr$(2) & J)
                Next J
                Arr(I, 8) = "(" & Arr(I, 8) & ") < " & Coll(CStr(Arr(I, 6))) & " " & Arr(I, 7) & " >"
            On Error GoTo 0

تقبل تحياتي

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

نستكمل غداً بإذن الله تعالى لأنى فصلت خلاص

شكر لاهتمامك ومتابعتك

سلام الله

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

أستودعك الله أخي الحبيب وائل

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

نراك غداً إن شاء الله

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

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

هذه هى النتيجة

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

الحمد لله الذي بنعمته تتم الصالحات ..الحمد لله الذي سخرني لخدمة كتابه الكريم

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

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

الحمد لله كما ينبغي لجلال وجهه وعظيم سلطانه

 

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

اللهم اجمعنا في الفردوس الأعلى من الجنة

تقبل وافر تقديري واحترامي

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

اللهم آمين

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

الأخوة الكرام أبو عيد وأبو البراء
أثناء تفاعلى مع عملكم المشترك الرائع بتوفيق الله طرئت لى فكرة أود عرضها عليكم لعلى أجد في علمكم واحترافيكتم حلاً مثاليا لها يوفر الوقت والمجهود ويحقق الثقة والضبط ويكون بإذن الله سبق لم يسبق على الانترنت طرحه من قبل لينتفع به كل مسلم
لأن هذا العمل فضلا عن انه من مصدر بحثى رسمى وحكومى موثوق بالمملكة فهو ايضا عمل فريد من حيث نوع الخط والذ يطرح لأول مرة وهو خط حفص العثمانى ناهيك عن روعته وجماله في عرض الآيات وهذه كانت ستكون خطونى التالية وهى توثيق النصوص في هذا العمل الطيب.
بالمرفق تفريغ لملف نصوص آيات كتاب الله مضبوطا وموثقا من مصدره وهو مجمع الملك فهد لطباعة المصحف الشريف
http://fonts.qurancomplex.gov.sa/?page_id=42
والفكرة هى تغيير نصوص الآيات في عملكم الطيب بنصوص آيات مجمع الملك فهد 
ولكن وجدت هذه الملاحظات في تحقيق ذلك:-
1- بعد نقل النصوص من الورد للأكسل وجدت الصفوف لا تحتوى على آية واحدة بشكل مستقل بل الصف يمكن أن يكون به جزء من آية أو اشتراك بين أكثر من آيه وهذا بالطبع لن يفيد في عملنا ولتخصيص كل صف بآية مستقله سيكون أمرا مجهد جدا من حيث النسخ واللصق وإمكانية حدوث تداخل خاطئ في نصوص الايات نتيجة الخطأ البشري الوارد جدا حيث بلغ إجمالى الصفوف حوالى 9600 صف وإجمالى عدد صفوف الآيات للقرآن كله 6236 فإذا كان هناك طريقة برمجية او بالمعادلات بحيث تحقق المرجو دون خطأ فسيكون إنجاز عظيم.
2- عندما بدأت نسخ ولصق بعض الآيات وإدخالها في عملكم الطيب لتجربته عليها ظهرت الآيات بغير تنسيق مصدرها ولحل هذه المشكلة نسخت التنسيق فكانت النتيجة رائعة كما ترون في الصورة والمطلوب أن يتم نسخ التنسيق برمجيا حتى لا أطر لعمل نسخ للتنسيق كل فترة.
عذرا للإطالة ولكن الموضوع يستحق هذا الإيضاح وهذا التعب في تحقيق ثمرته

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

UthmanicHafs1 Ver09.rar

للرفع

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

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

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

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

صراحة أنا أتوه في التوضيح المطنب بشكل مفرط

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

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

إذا كان ما فهمته صحيح فيرجى التأكيد ...

المطلوب أن تنسخ كل آية في صف مستقل ويكتب بجانيها اسم السورة ...

وليس كما في المرفق لأني وجدت في بعض الصفوف أكثر من آية .....

أرجو التأكيد على المطلوب لكي أبدأ في محاولاتي ، والرجاء عدم الاستعجال في الطلب لأن الموضوع يحتاج لتأني وتروي

تقبل تحياتي

 

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

السلام عليكم

هذه تجربة كنت قد قمت بها سابقا

و يبقى دائما مشكل مدى دقة الآيات المحملة من الانترنات

و بكل صدق اخذ مني جهدا كبيرا في تحضيره

ملاحظة يستحسن وضع المجلد على احد الدرافرات سي او دي او . . . و ذلك لكي يعمل الصوت

 

Qurent.rar

نسيت ان اذكر اذا اردت الدخول للملف اضغط على صورة المصحف

تم تعديل أبريل 9, 2016 بواسطه أخوكم في الله