نجوم المشاركات

أخي الفاضل فضل أبو الفضل إليك المعادلة التالية في الخلية G9 =IF(ROWS($1:1)>SUM(IF(FREQUENCY(IF(A$2:A$41=F$9,B$2:B$41),B$2:B$41),1)),"",SMALL(IF(FREQUENCY(IF(A$2:A$41=F$9,B$2:B$41),B$2:B$41),B$2:B$41),ROWS($1:1))) المعادلة معادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter .. إذا واجهتك مشكلة مع المعادلة يمكنك استبدال الفاصلة بفاصلة منقوطة تقبل تحياتي

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

شيل الحماية بشكل مبدئي حدد خلايا ورقة العمل بالكامل كليك يمين ثم Format Cells وفي آخر تبويب اسمه Protection هتلاقي خيار اسمه Locked علم عليه صح عشان تقدر تقفل كل الخلايا .. لو فيه خلايا عايز تخليها مفتوحة حتى مع الحماية حدد الخلايا دي وكليك يمين ونفس الخطوات وشيل علامة الصح .. نفس ما قيل مع الخاصية Locked ينطبق على الخاصية Hidden

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

السلام عليكم ورحمة الله وبركاته مرفق ملف موضح به معادلة تفقيط التاريخ للفائدة تفقيط تاريخ.rar

اخواني في المنتدى على ابواب المدارس اليكم هذا الملف البسيط الذي يقوم بفرز الطلاب المسجلين و ينقلهم الى لائحة في صفحة ثانية(رقم 3) بالترتيب الابجدي مع امكانية رؤية محتويات كل حرف من الحروف sortbyletters 2.zip

جزاك الله خير أ/احمد زمان على صدركم الرحب وأخلاقكم الرائعة بارك الله فيكم ورفع قدركم

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

السلام عليكم ورحمة الله وبركاته:- بالمرفق محاولة لقائمة تختصر لك الاسماء حسب جزء من الاسم انشاء الله تفي بالغرض , smartlist.rar

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

صراحة لم تمر معي مشكلة مثل هذه المشكلة من قبل .. ننتظر آراء الأخوة الأعضاء

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

الف شكر يا استاذي

مخزن2015(2).rar

السلام عليكم الحل فى هذة الحالة بسيط وهو باستخدام اداة الكاميرا وهى اداه بسيطة بتاخد صورة من اى خلية (او مجموعة خلايا ) اكسل وبنفس الابعاد والفورمات للخلية الاصلية كأنها تكست بوكس (بث مباشر ...... جرب تغير شكل ولون وحجم الفونت ..... وحتى خلفية الخلية) وهى كما بالمثال لما تغير الرقم اللى فى الخلية B1 بياخد اربع بطاقات شاملة هذا الرقم A2.rar

السلام عليكم ورحمة الله اقسم بالله العظيم أمس اخي وحبيبي الأستاذ ياسر خليل في المساء شاهدت ردك على الموضوع ومن دهشتي في كودك الرائع والاكثر من احترافي في العمل عجز اللسان عن شكرك والله لم اصدق ان الكود اعطى النتائج الصحيحة من سرعته في التنفيذ تم ربط الكود على 4500 حساب وكان التنفيذ خيالي بكل ماتقوله الكلمة من معنى شكراً لكم أحبائي....... شكراً لك اخي حسام عيسى/ صقر المنتدى على فكرتك الجميلة وشكراً لأخي وحبيبي ياسر خليل الذي له افضال عليي في مجال البرمجة من خمس سنوات على هذه الفكرة اخي ياسر الكود الذي قدمته فهمته بنسبة 50% لوسمحت اتعبتك معاي ان تشرح كيفية عمل الكود باختصار....! ويوجد موضوع أخر قد طرحته من قبل عسى أن تكون من أول المجيبين http://www.officena.net/ib/topic/63402-ربط-البيانات-في-الليست-بوكس-بعد-التعديل/ وجزاكم الله كل خير

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

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

‏الخميس‏، 3‏/9‏/2015م الموافق ‏20‏/11‏/1436هـ السلام عليكم و رحمة الله وبركاته اخي الحجازي بالإضافة للحلول الرائعة من الإخوة بن علية و خالد الرشيدي وايضا حل آخر =INDEX($F$4:$F$9;MATCH($A2;$D$4:$D$9;1)) مرفق مع الشرح Xl00000.rar

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

وهذا الحل باستخدام كلمة مرحل hhhh-مرحل.rar

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

وعليكم السلام و رحمة الله اخي المبدع خالد الرشيدي فكرة جميلة و منطقية و لم تخطر ببالي جزاك الله خيرا و هذا الحل بالطريقة التي ذكرها الأخ الفاضل خالد ER2-hhhh.rar

جرب الكود التالي Sub Test() With Sheet1 .Range("I61") = Application.Sum(.Range("I10:I60")) .Range("I64") = Application.Sum(.Range("I61"), .Range("I62")) - Val(.Range("I63")) End With End Sub عله يكون المطلوب

السلام عليكم استاذى الكريم احمد ... جزاك الله خيراً اسمح لى ان اقدم هذا الاقتراح بخصوص تكرار الترحيل ... طالما ان كل العمليات التى فى الورقة 1 سيتم ترحيلها الى الورقة 2 وايضاً صف بداية ترحيل البيانات بالورقة 1 وصف بداية استقبال البيانات المرحلة بالورقة 2 هو نفسة الصف الثالث إذاً لماذا لا نجعل حلقة الترحيل من اخر صف بة بيانات بالوقة 2 الى اخر صف بة بيانات بالورقة 1 اى تعديل الحلقة من For ER1 = 3 To FS.UsedRange.Rows.Count الى For ER1 = ER2 To FS.UsedRange.Rows.Count خالص تحياتى

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

السلام عليكم مرفق مثال باستخدام التنسيق الشرطى لمجموعة من 5 اعمدة وبيتلون الصف لما تكتب فى الخمسة كلهم بالكامل .. باستخدام التنسيق الشرطى Select Color When Completed .rar

السلام عليكم جرب هذا الملف لعله يفى بالغرض الحل عبارة عن الخطوات التالية 1- تحديد قيم الخلية A من خلال Data Validation وليكن 1;2;r;b;y مثلا 2- استعمال التنسيق الشرطى على مجموعة الخلايا المراد تلوينها بدلالة A2 3- لاحظ ازالة علامة التثبيت $ من مرجع الخلية الى تشير اليها المعادلة حتى يمكنك نسخ الفورمات لاى عدد من الصفوف ترغبه بدلالة الخانة ِA فى نفس الصف Select Color.rar

يمكن إدراج الصورة ثم في الأماكن المخصصة لكتابة البيانات يمكن وضع مربع نص textbox هذا مجرد رأي

إخواني الكرام أخي الحبيب حسام عيسى وأنس دروبي وأبو يوسف بارك الله فيك صقر المنتدى وجزاك الله كل خير جرب الكود التالي وشوف النتائج صحيحة أم لا .. للتأكد من عمل الكود وجرب سرعة الكود مع بيانات أكثر .. Sub YasserKhalil() Dim Accts As Variant, Data As Variant, Results() As Double Dim D1 As Date, D2 As Date Dim I As Long, J As Long With Sheets("Data") Data = .Range("A5", .Range("A" & Rows.Count).End(xlUp)).Resize(, 9).Value End With With Sheets("Balance") Accts = .Range("B8", .Cells(Rows.Count, "B").End(xlUp)).Value ReDim Results(1 To UBound(Accts, 1), 1 To 2) D1 = .Range("B3").Value D2 = .Range("B4").Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = 1 To UBound(Accts, 1) .Item(Accts(I, 1)) = I Next I For I = 1 To UBound(Data, 1) If .Exists(Data(I, 2)) Then If Data(I, 1) >= D1 And Data(I, 1) <= D2 Then J = .Item(Data(I, 2)) If Data(I, 8) <> "" Then Results(J, 1) = Results(J, 1) + Data(I, 8) If Data(I, 9) <> "" Then Results(J, 2) = Results(J, 2) + Data(I, 9) End If End If Next I End With .Range("E8:F8").Resize(UBound(Results, 1)).Value = Results End With End Sub ميزان المراجعة بالكود.rar

السلام عليكم جزاكم الله خيراً.

بارك الله فيك .. جزاك الله خيرًا و زادها بميزان حسناتك

أخي العزيز / طائع إذا أردت الحماية بكلمة خاصة بك عدل السطر الخاص بفك الحمايةفي أول الكود والحماية في آخر الكود ActiveSheet.Unprotect ActiveSheet.protect بهذا الشكل على سبيل المثال حيث كلمة المرور هنا ( 111) وهذا الكلمة التي عملتها في الملف المرفق ActiveSheet.Unprotect 111 ActiveSheet.protect 111 وإذا أردتها حروف أو حروف وأرقام ضع كلة المرور بين علامتي تنصيص بهذا الشكل ActiveSheet.Unprotect "aaa" ActiveSheet.protect "aaa" ActiveSheet.Unprotect "aaa111" ActiveSheet.protect "aaa111" طبعا هذا ليس خطأ لأن الكود يقوم بنسخ معادلة على أساسها يقوم بفك الحماية أو إغلاقها فالمفروض أن ينفذ الكود مرة واحدة فقط ومن ثم يتم رصد الدرجات ولكن ربما يتم تنفيذ الكود على سبيل الخطأ وهناك بيانات أو يتم تنفيذه عند تحديد الصفحة كما هو الحال في الملف فتم التخلص من هذا بإضافة شرط وهو : إذا كان هناك بيانات تم رصدها يتم إغلاق الكود كم تم أيضا إلغاء التنفيذ من حدث الصفحة قفل خلايا بشروط 22.rar

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

هل تعلم ان الداله SUMIFS عدد الشروط فيها يمكن ان يصل الى 127 شرط

هل تعلم ان الداله IF يمكنك اجراء تداخل مايصل الى 64 مستوى من الدالات والصيغ

هل تعلم ان انه عند بدء المعادله بعلامة = او علامة الجمع + او علامة الطرح - او علامة @ فان الاكسيل من تلقاء نفسه يفترض ان تقوم بادخال صيغه . وبمجرد الانتهاء من كتابة الصيغه فان الاكسيل يقوم بادراج علامة مساواة استهلاليه

السلام عليكم أخي العزيز بخصوص النقاط (الأسئلة) 1،2،4 رددت عليك في رسالة خاصة النقطة 3 تم ضبط الكود تفضل صافى الكمية آخر تعديل5.rar

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

استخدام المعاملات والتعبيرات Using operator and expression ما هي المعاملات؟ What is operators باستخدامها تستطيع أن تقوم بجمع الأرقام والقيم والجمع بين السلاسل الحرفية Concatenate ما هي أكثر المعاملات شيوعاً What is common operators معامل = معامل & معامل like معامل + ما هي أنواع المعاملات What type of Operators Mathematical Operators المعاملات الحسابية Relation Operators معاملات المقارنة String Operators معاملات السلاسل الحرفية Boolean Operator المعاملات المنطقية Mathematical Operators Multiply معامل الضرب * Add الجمع + Subtract الطرح - Divide القسمة / Integer Divide القسمة الصحيحة (بدون كسور) \ Exponentiation معامل الأس ^ Mod معامل ناتج القسمة أو باقي القسمة Mod أمثلة علي المعاملات [txtprice]+[txtprofet] تستخدم علام + للجمع بين الحقلين في حالة أن مربعين النص يحتويات علي قيمة رقمية وتنسيقهما رقمي. If [txtprice]> 100 then Sample code End if مثال آخر لربط حقلين أو دمجهما معا استخدم & معامل التسلسل [txtfristname] & [txtsecondname] Frist name= Ahmed Second name = Mahmoud Result = ahmedmahmoud إذا اردت مسافة بين الاسمين أو الحقلين فاستخدم الطريقة التالية [txtfristname] & “ “ & [txtsecondname] Result = Ahmed Mahmoud المعاملات المنطقية Boolean Operator تستخدم هذه المعاملات لإنشاء عدد من الشروط في التعبيرات تنتج هذه المعاملات دائما قيمة منطقية True or False المعامل And تستخدم معامل And لإجراء ربط منطقي بين تعبيرين من التعبيرات وينتج القيمة True في حالة كون الشرطين True لو أحد الشرطين False تصبح النتيجة False Dim a as integer Dim b as integer A = 5 B = 10 If a = 5 and b = 10 then إذا تحقق الشرطان السابقان فإن النتيجة تكون صيحية ويتم تنفيذ الكود End if المعامل Or يمكن أن يكون أحد الشرطين False وينتج عن هذا المعامل القيمة True إذا كانت أحد الشرطين هي القيمة True Dim a as integer Dim b as integer A = 5 B = 10 If a = 5 or b = 10 then يمكن أن يكون أحد الشرطين False وينتج عن هذا المعامل القيمة true إذا كانت أحد الشرطين هي القيمة True End if المعامل Not يستخدم معامل Not لنفي تعبير رقمي أو تعبير منطقي Not [txtPrice] <= 100 ينتج قيمة true في حالة السعر أكبر من 100 المعامل Between And يستخدم معامل Between And لتحديد ما إذا كان القيمة الخاصة بأحد التعبيرات تقع ضمن نطاق معين من القيمة أو لا. [txtPrice] between 1 and 50