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

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

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

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

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

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

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

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

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

أخي الكريم بن خليفة إليك ملف PDF من 10 صفحات لأخونا المتميز يحيى حسين فيه شرح للدالة SUMPRODUCT بالتفصيل تقبل تحياتي SUMPRODUCT Tutorial.rar

أخي الكريم محمود جرب الكود التالي حيث يمكنك تحديد الأعمدة في الكود في الحلقة التكرارية Sub Test() Dim X As Integer Dim Lr As Long Application.ScreenUpdating = False Range("H2").Resize(1, 2).Value = Array("الرقم", "الطول") For X = 1 To 6 Step 2 'Columns A:F Lr = Cells(Rows.Count, X).End(xlUp).Row Range(Cells(3, X), Cells(Lr, X + 1)).Copy Range("H" & Cells(Rows.Count, 8).End(xlUp).Row + 1).PasteSpecial xlPasteValues Next X Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

صراحة لم أفهم المنطق بشكل واضح ..هلا وضحت المطلوب بضرب مثال بالأرقام والخلايا الموجودة في المثال المرفق ؟

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

لمزيد حول الموضوع قم بالإطلاع على الرابط التالي من هنا

يبدو أنه شرط ولكن لا أدري ما هو الشرط المطلوب ... عموماً ضع الشروط كما تريد بالضبط أو اذكرها بالتفصيل لتعديلها لك أو جرب التعديل في هذا السطر بهذا الشكل If (Cell.Value < Rg2 Or Cell.Value = "غ") Or (Cell.Value < Rg4) Then 'الشرط أو مجموعة الشروط التى نضع الدوائر على أساسها

أخي الكريم حسن المقصود بـ Rg4 هو متغير من النوع نطاق يشير إلى الخلية L7 والمتغير Rg3 متغير من النوع نطاق يشير إلى النطاق L8:L14 أما المتغير Rg2 فيتغير مع كل حلقة تكرارية في أول حلقة ستكون الخلية C7 وفي الحلقة التكرارية الثانية D7 والثالثة E7 وهكذا أما المتغير Rg1 فيتغير أيضاً مع كل حلقة تكرارية .. في أول حلقة سيكون النطاق C8:C14 وفي الثانية سيكون النطاق D8:D14 وهكذا أرجو أن يفي الشرح بالغرض إن شاء الله

بارك الله فيكم إخواني على هذه الحلول الجميلة والرائعة وإليكم الدالة المعرفة التالية لتفي بالغرض بالنسبة للطلب وهي بسيطة جداً Function SumDigits(Number) Dim I As Integer For I = 1 To Len(Number) SumDigits = SumDigits + Val(Mid(Number, I, 1)) Next I End Function لاستخدام الدالة =SumDigits(A1) تقبلوا تحياتي وكل عام وأنتم بخير

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

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

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

أخي العزيز أبو صلاح بالنسبة للسطر المشار إليه يقوم بجلب رقم العمود المستهدف (أي العمود المطلوب إظهاره فقط) وهنا قام الأخ سليم باستخدام الدالة MATCH حيث يتم البحث عن التاريخ الموجود في الخلية C2 ضمن النطاق E4:AI4 وعند وجود التاريخ المطلوب يتم تحديد العمود ، والإضافة + 4 لأن العمود الذي سيتعامل معه يلي الأعمدة الأربعة الأولى مثال : لنفترض أن الخلية C2 بها التاريخ 3/10/2016 أي العمود G .. سيتم البحث عن التاريخ ضمن النطاق E4:AI4 وستكون النتيجة عبارة عن رقم 3 ثم يضاف الرقم 4 ليصبح رقم العمود الذي سيتم التعامل معه هو العمود السابع ويمكن الاستغناء عن الرقم 4 بتعديل النطاق وجعله A4:AI4 بدلاُ من E4:AI4 وكل عام وأنتم بخير

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

أخي الكريم محمد حمدان كل عام وأنت بخير جرب الملف التالي علك تجد فيه ضالتك إن شاء الله تقبل تحياتي NoToTxt Spell Numbers UDF Function.rar

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

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

وعليكم السلام وفقني الله وإياكم لما فيه الخير والصلاح ، وكل عام وأنت بخير أخي العزيز محمد ، وتقبل الله منا ومنكم صالح الأعمال في هذا الشهر الفضيل تقبل تحياتي