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

أخي الفاضل فضل أبو الفضل إليك المعادلة التالية في الخلية 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

اخي الكريم هذا حل آخر بكود ايضا كود التصفية المتقدمة استخلاص بيانات من أعمده وصقوق.rar مع مراعات الدوال الموجودة في الصف 4 Sub mod_1() Range("DATA").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("ORDER"), _ CopyToRange:=Range("OUTBUT"), Unique:=False End Sub

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

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

أخي الكريم يرجى مراجعة التوجيهات كما يرجى تغيير اسم الظهور للغة العربية عملاً بقواعد المنتدى إليك الطلب الأول فقط أما الطلب الثاني فيمكنك ببساطة شديدة طرح موضوع جديد به الطلب الثاني ولن يتوانى الأخوة الأفاضل بالمنتدى عن تقديم المساعدة ضع الكود التالي في حدث ورقة العمل لينفذ لك المطلوب بمجرد اختيار الشهر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$2" Then Dim WS As Worksheet, SH As Worksheet Dim FindMon, I As Long Set WS = Sheet1: Set SH = Sheet2 With Application .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False End With With SH .Range("A4:C12").ClearContents FindMon = Application.Match(.Range("H2").Value, WS.Rows(3), 0) If IsNumeric(FindMon) Then WS.AutoFilterMode = False WS.Rows(3).AutoFilter Field:=FindMon, Criteria1:="<>" & "" WS.Range("B4:B26").SpecialCells(xlCellTypeVisible).Copy .Range("B4").PasteSpecial xlPasteValues WS.Range(WS.Cells(4, FindMon), WS.Cells(26, FindMon)).SpecialCells(xlCellTypeVisible).Copy .Range("C4").PasteSpecial xlPasteValues WS.AutoFilterMode = False Else MsgBox "No Mathing Data", 64: Exit Sub End If If Not IsEmpty(.Range("B4")) Then For I = 4 To .Cells(13, "B").End(xlUp).Row .Cells(I, "A") = .Cells(I, "A").Row - 3 Next I End If .Range("H2").Select End With With Application .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True End With End If End Sub وإليك الملف المرفق فيه تطبيق الكود تقبل تحياتي استخلاص بيانات من أعمده وصفوف.rar

السلام عليكم ورحمة الله وبركاته:- بالمرفق محاولة لقائمة تختصر لك الاسماء حسب جزء من الاسم انشاء الله تفي بالغرض , 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 خالص تحياتى

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

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

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

المعادلة التالية تفي أيضا بالغرض (باعتبار الشروط التي ذكرها أخي الكريم خالد الرشيدي) =VLOOKUP($A$2;$D$5:$F$9;3;1)

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

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

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

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

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

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

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

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

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

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

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

استخدام المعاملات والتعبيرات 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