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

تفضل أخي الحبيب كشف 12 د امتحانات شعبة ادارة بنين 2015.rar

إن شاء الله عندما يتيسر لي بعض الوقت سأقوم بشرحه .. وإلى ذلك الحين إذا كنت مهتماً بالتعلم إليك هذا الرابط كبداية لتعلم الصيد http://www.officena.net/ib/index.php?s=d2affdf4abc5c18e5c1c77ee546461c9&showtopic=56941 تقبل تحياتي

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

تفضل أخي الحبيب الملف التالي ..جرب زيادة العملاء إلى 700 عميل .. واصبر قليلا لأن الكود سيستغرق بعض الوقت في التنفيذ Create 700-Sheets.rar

أخي الجموعي تفضل ولكن الأخ الفاضل أحمد يريد إنشاء 700 ورقة عمل ... Sub Macro1() Dim Sh As Worksheet Dim Ws As Worksheet Set Sh = Sheets("SHET") Dim I As Integer On Error Resume Next For I = 2 To Sheets.Count Set Ws = Sheets(I) Ws.Range("A12").Value = Sh.Cells(1, I + 1).Value Ws.Range("B12").Value = Sh.Cells(2, I + 1).Value Ws.Range("C12").Value = Sh.Cells(3, I + 1).Value Ws.Range("D12").Value = Sh.Cells(4, I + 1).Value Next I End Sub سؤالي للأخ أحمد ..ما هي تسمية الصفحات (هل تريد تسميتها عميل 1 ، عميل 2 وهكذا أم تريدها Sheet1 و Sheet2 وهكذا .. والنموذج المرفق في ملفك هل تريد الاعتماد عليه في إنشاء أوراق العمل مزيد من التوضيح لأن العمل كبير بعض الشيء ويحتاج لتفاصيل حتى لا نضطر للتعديل أكثر من مرة

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

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

بارك الله فيك أخي الحبيب وجزاك الله كل خير

أخي الحبيب محمد جابر ولا تنسى إخوانك أيضاً الذين بادروا بالمساعدة وفتحوا باب الأفكار للحلول المتنوعة .. بارك الله فيهم جميعا وجزاهم الله خير الجزاء عنا فهم أساتذتنا وعلى أيديهم تتلمذنا وتعملنا .. بالنسبة لماذا لا تعمل .. يجب عليك أن تقوم بنقل الدالة المعرفة إلى ملفك ..قم بالضغط على ALT + F11 للدخول لمحرر الأكواد ثم ابحث عن الدالة Function ConcIf(Rng1 As Range, Rng2 As Range, Criteria As String, MyJoin As String) As String Dim X X = Filter(Evaluate("INDEX(if(" & Rng2.Address & "=""" & Criteria & """," & Rng1.Address & ",CHAR(2)),,)"), Chr(2), 0) If UBound(X) > -1 Then ConcIf = Join(X, MyJoin) Else ConcIf = "لا يوجد" End If End Function وقم بنسخها إلى ملف في موديول جديد .. عندما تفتح محرر الأكواد ستجد قائمة Insert اختار منها Module ثم ضع ما نسخته فيها .. واحفظ الملف بصيغة Macro-Enabled تقبلوا تحياتي

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

أخي الحبيب محمد جابر إليك الملف التالي ..جربه قد يغنيك تماماً عن المعادلات والتعديل فيها الملف به دالة معرفة تقوم بالمطلوب إن شاء الله Absence UDF Function.rar

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

إضافة بسيطة لملف الأستاذ الكبير سليم لعله يكون المطلوب حساب التكرار.rar

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

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

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

جرب تغير العادلة في الخلية R3 =IFERROR(IF(AND(O3<>"",VLOOKUP(I3,data!$A$2:$C$100,3,0)>=1),VLOOKUP(I3,data!$A$2:$C$100,3,0)+O3,0),"") أعتقد المشكلة في الفراغ "" .. غيرت الناتج بحيث يكون صفر وليس فراغ ....

أخي الحبيب أحمد غانم شوف الملف المرفق عدلت لك الأسماء بحيث تكون متطابقة في الورقيتن .. وعملت لك ورقة العمل المسماة رصيد متبقي 2014 بالمعادلات جرب تعدل في ورقة العمل المسماة 2014-2015 وشوف إذا كان هو دا المطلوب أو لا !!!!!!! Test This.rar

الطلب غير منطقي ...!! أليس مثلاً في عمود (المحسوم) في ورقة العمل (2014-2015) للاسم (نورما حسين يعقوب) هو (1025000) ، وفي ورقة العمل المسماة (رصيد متبقي 2014) لنفس الاسم هو (1025000) ..هي نفس القيمة .. إذاً هل تريد أن تكون المدخلات الجديدة تمحو المدخلات القديمة تماما .. فما الفائدة إذاً من أوراق العمل الأخرى طالما أنها نسخة كربونية من الأسماء والمدخلات الجديدة أعتقد الموضوع يحتاج لمراجعة !!!!!!!

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

أخي الحبيب أحمد غانم الأسماء الموجودة في الشيت 2014-2015 ليست موجودة في أوراق العمل الأخرى .. كيف سيتم ترحيل البيانات في هذه الحالة؟ لو أرفقت مثال عملي باسم محدد وما هي شكل النتائج المتوقعه أعتقد ممكن تلاقي مساعدة .. لكن رفع الموضوع لن يجدي نفعاً بهذا الشكل

إضافة رائعة أخي الغالي أبو تراب تسلم الأيادي يا غالي

الأخ الفاضل الزهراني أهلا بك ومرحبا بين إخوانك ... شرفت المنتدى بوجودك أولا بالنسبة لرفع الملفات يتم ضغط الملف أولا ببرنامج ضغط مثل الوينرار ثم رفعه.. ثانيا استخدم خاصية البحث أولا لربما تجد ضالتك بالبحث إليك هذا الرابط قد يفيدك كثيرا حول هذا الطلب http://www.officena.net/ib/index.php?showtopic=57923&hl=%2B%D8%A7%D9%84%D9%81%D8%B1%D9%82+%2B%D8%A8%D9%8A%D9%86+%2B%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE%D9%8A%D9%86

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

أخي الغالي ابن مصر جرب الكود التالي المستخدم لحساب وقت تنفيذ الكود Sub CodeExecutionTime() Dim xStartTime As Double Dim xElapsedTime As Double xStartTime = Timer() 'ضع الإجراء الفرعي المراد حساب وقت التنفيذ له Call Test xElapsedTime = Timer() - xStartTime If xElapsedTime < 0# Then xElapsedTime = xElapsedTime + 86400# End If MsgBox "الوقت المنقضي في تنفيذ الكود بالثواني هو : " & xElapsedTime End Sub ضع الكود بموديول جديد واستبدل كلمة Test باسم الإجراء الفرعي المراد حساب وقت التنفيذ له جرب الثلاثة إجراءات الفرعية ، لترى بنفسك وقت التنفيذ لكل منهم تقبل تحياتي