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

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

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

شكرا أستاذى الفاضل " أبو سليمان " بارك الله فيك ، وكل سنة وحضرتك طيب وهذه أيضا تحقق المطلوب ولكنها ترجع العديد من القيم لوتم سحبها لأسفل لو أتفقت الشروط فى العديد القيم {=INDEX($C$2:$C$44, SMALL(IF(($H$8=$B$2:$B$44)*($A$2:$A$44=$F$8), MATCH(ROW($A$2:$A$44), ROW($A$2:$A$44)), ""), ROW(A1)))} وهى معادلة صفيف أيضا تقبلوا تحياتى

المعادلة صحيحة ولا تعطي خطأ وللحصول على أكبر سعر مطابق للبحث يمكنك استعمال هذه المعادلة في الخلية F8 =MAX(IF($K$8:$K$130=B8,$L$8:$L$130)) ولا تنس أن تضغط CTRL+SHIFT+ENTER

أخي الحبيب الغالي علاء رسلان بارك الله فيك وجزاك الله خير الجزاء على مساهماتك الفعالة في المنتدى ومحاولة مساعدة الآخرين والمشاركة المستميتة بالموضوعات والمحاولة قدر الإمكان (وهذا ما أرغبه من الجميع) أتحدث هنا عن المحاولة تلو الأخرى بدون يأس وبدون كدر فالمحاولات هي سر النجاح .. ولو تخلينا عن المحاولة لفشلنا .. فقد سمعت ذات مرة أن مخترع المصباح حاول أكثر من ألف مرة ليحقق هدفه ، فنريد أن نزرع في أنفسنا عدم اليأس وأنه طالما ان هناك أنفاس وقلب ينبض ، فالأمل دائماً موجود .. عفواً إن كنت قد اطلت عليكم ، بس يلا أديني بسلي صيامكم جرب الملف التالي عله يفي بالغرض Sub FilterData() Dim LastRow As Long LastRow = Sheets("ورقة2").Cells(Rows.Count, 4).End(xlUp).Row Sheets("Sheet3").Range("G5:N1000").ClearContents Sheets("ورقة2").Range("D4:L" & LastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet3").Range("P1:S2"), CopyToRange:=Sheets("Sheet3").Range("G4:M4"), Unique:=True End Sub تم استخدام التصفية المتقدمة .. ويوجد في قناة اليوتيوب في التوقيع الخاص بي فيديو يشرح كيفية التعامل مع التصفية المتقدمة تقبل تحياتي وكل عام وأنت بخير Advanced Filter YasserKhalil.rar

التطبيق بالمرفقات VLOOKUP_7.rar ........................................................................ يتـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــبع

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

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

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

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

أخي الكريم سليم جرب الملف التالي تم الاستعانة بعمود مساعد saleem.rar

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

الباشمهندس الحبيب طارق كل عام وأنتم بخير زيادةً في الخير وإثراءً للموضوع إليك أخي السائل الكود التالي .. Sub HideUnideRow() With ActiveSheet.Buttons("Button 3") If .Caption = "إخفاء المجاميع" Then .Caption = "إظهار المجاميع" Rows("5:5").EntireRow.Hidden = True Else .Caption = "إخفاء المجاميع" Rows("5:5").EntireRow.Hidden = False End If End With End Sub حيث Button 3 هو اسم زر الأمر .. في حالة الملف المرفق من قبل الباشمهندس يتم تغيير كلمة Button 3 إلى Button 1 Hide & Unhide Specific Row Tarek & Yasser.rar

من قال لاخيه جزاك الله خيرا فقد اجزل له العطاء استاذي العظيم ابو البراء جزاك الله خيرا

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

الاخ مارد المحترم ... شكرااا للتوضيح والمشاركة الرائعة ... تحياتي لك

بسم الله ما شاء الله تفاعل كبير في الموضوع إليك المعادلة التالية بعيداً عن معادلات الصفيف =SUMPRODUCT(($C$2:$C$44)*($A$2:$A$44=$F$8)*($B$2:$B$44=$H$8))

رمضان كريم اليك المطلوب القوائم المنسدلة مطاطة (تستجيب لاي تعديل في البيانات و لا يظهر المكرر الا مرة واحدة) (أفضل اجابة من فضلك) المسافة salim.rar

هنا تم استخدام معرف السجل للمقارنة وباستثناء السجل الحالي ! اتمنى ان وصلت الفكرة تماما ! وهو لما تريد الاخت السائلة ! بالتوفيق New Microsoft Access قاعدة بيانات.rar

إليك أخى المطلوب والمعادلة معادلة صفيف أى لابد من الضغط على " ctrl+shift+enter " لكى يتكون هذان القوسان فى بداية ونهاية المعادلة " { } " {=INDEX($C$2:$C$6757,MATCH(1,IF($A$2:$A$6757=$F$8,IF($B$2:$B$6757=$H$8,1)),0))} تقبل تحياتى إرجاع قيمة بالعديد من الشروط.rar

للحصول على أكبر سعر إليك المعادلة التالية =IF(ISERR(LARGE(IF($K$8:$K$130=B8,$L$8:$L$130,""),1)),"",LARGE(IF($K$8:$K$130=B8,$L$8:$L$130,""),1)) لا تنسى أنها معادلة صفيف

أخي الحبيب أبا عمر إذا كان يعطيك الخطأ Name فهذا يعني أنك تستخدم أوفيس 2003 على أغلب الظن جرب تحذف الجزء الأول IFERROR والجزء الأخير "" INDEX($L$8:$L$130,SMALL(IF(B8=$K$8:$K$130,ROW($A$8:$A$130)-ROW($A$8)+1),1)) طبعاً سيكون هناك خطأ في حالة عدم وجود نتيجة للبحث ولكن جرب المعادلة أولاً بهذا الشكل لترى النتائج .. هل النتائج ستكون كما تريد أم لا ؟ لتجنب الخطأ جرب المعادلة في أوفيس 2003 بهذا الشكل =IF(ISERR(INDEX($L$8:$L$130,SMALL(IF(B8=$K$8:$K$130,ROW($A$8:$A$130)-ROW($A$8)+1),1))),"",INDEX($L$8:$L$130,SMALL(IF(B8=$K$8:$K$130,ROW($A$8:$A$130)-ROW($A$8)+1),1))) الجزئية الأخيرة بعد تنفيذ المطلب الأول والانتهاء منه إن شاء الله نحاول فيها

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

الأخ الكريم رجب إليك الملف بدون حماية برنامج التوزيع الآلي للملاحظة المرحلة الاعدادية إصدار 1.rar

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

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

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

السلام عليكم أبا البراء الحبيب ..أحبك الله الذي أحببتني لأجله...تكفيني منك شهامتك ونخوتك وحبك لمساعدة الآخرين ...فهذا بالنسبة لي لا يقدر بثمن... أما عن الشكل المتوقع كما طلبت فعن تلوين الـمؤشر بلون مغاير عند الحساب اليدوي ...ولكن لم أعد أطلبه لكي لا أثقل عليكم خصوصاً وأنتم في صومكم الذي أطلب من الله أن يجعله مباركاً وتفرغكم لقراءة القرءان الكريم. تقبل تحيات المحب لك أبو يوسف - السلام عليكم ورحمة الله وبركاته

تم التعديل غلى الملف ليعمل بواسطة المعادلات ايضاً انظر الى لصفحة Sheet(1) 2 تسلسل salim advanced.rar

أخى وأستاذى العزيز ياسر خليل دائما بصمتك فى الأكواد رائعة .وده هو اللى محببنى فيك الأخ الحبيب Creation World أشكرك لكونك تتنازل عن الاسم الغالى ده عليك لكن للمنتدى قواعد يجب الالتزام بها حتى يسهل على باقى الأعضاء الاشارة الى اسمك ولا تنسى قفل الموضوع طالما توصلت للحل وختى لا يخرج الموضوع عن طبيعته أخى الفاضل الميسانى حتى لو وصل عدد الطلاب الى 2000 طالب لن يزيد الملف الزيادة اللى مخوفاك دى تم تنفيذ رغبتك وطلبك فى المشاركة 19 لأنها تدخل فى اطار الموضوع الأصلى والموضوع الأصلى تقريبا انتهى لذلك أية طلبات جديدة ضعها فى موضوع جديد تحدد فيه طلبك . كل عام وأنتم جميعا بخير وأقرب الى الله

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

الأخ الكريم وسيم إليك المعادلة التالية علها تفي بالغرض =SUMPRODUCT(SUMIF(INDIRECT("'"&ROW(INDIRECT("1:15"))&"'!"&B$8&11),"<1E100")) أو هذه المعادلة =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT("1:15"))&"'!"&$B$8&11))) أو يمكنك استخدام معادلة الصفيف التالية لتحقيق الغرض ولكن لا تنسى هنا أن تضغط على Ctrl + Shift + Enter =SUM(N(INDIRECT("'"&ROW(INDIRECT("1:15"))&"'!"&$B$8&11))) إليك الملف المرفق فيه تطبيق المعادلة SUMIF & INDIRECT.rar

اخى الكريم اادرج مرفقا ولو كمثال ليتسنى للاخوة التعديل عليه عموما هذا هو الكود 'تعديل سجل موجود فى جدول If MsgBox("هل تريد تعديل السجل" & vbCrLf & "", vbYesNo, " تعديل") = vbYes Then Dim Rs As DAO.Recordset 'اسم الجدول Set Rs = CurrentDb.OpenRecordset("Table1") 'البحث عن السجل المعدل Rs.MoveFirst Do Until Rs.EOF 'اذا وجد السجل If Rs!Employ = Employ Then 'تحريره Rs.Edit Rs!DateOfHoly = Text1 Rs.Update End If Rs.MoveNext Loop End If Set Rs = Nothing وهذا مرفق للتوضيح تعديل سجلات.rar

أخي الكريم يمكنك عن طريق دمج المراسلات فعل ذلك بسهولة جدا ويلزمك في البداية إعداد جدول إكسل أو وورد بأسماء المدعوين كافة وحفظه، ثم إعداد مستند بنفس حجم الظرف المراد الطباعة عليه وبعد ذلك من تبويب مراسلات انفر على زر بدء دمج المراسلات ومن القائمة اختر معالج دمج المراسلات وستجد الموضوع سهل يبدأ باختيار مستند البداية ثم تحديد قائمة المستلمين ( الملف الذي قمت بحفظه سابقا) وتنتهي أخير بوضع حقول الدمج (كل عمود في الجدول المحفوظ سابقا يعتبر حقل دمج) في المكان المناسب. بعد ذلك يمكنك المعاينة(زر المعاينة) أو طباعة الكروت.

Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[field1]", "table1", "[field1]='" & Me!txt1 & "' AND [field2]='" & Me!txt2 & "'AND [field3]='" & Me!txt3 & "'") > 0 Then MsgBox "duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub

وعليكم السلام هذا جهد المستطاع ..جزاكم الله خيراً

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

الأستاذ سفاري المحترم السلام عليكم ورحمة الله وبركاته ريثما يقوم السادة الخبراء الأكارم بمساعدتك بطلبك هذا أعرض لك تصوراً للعمل الذي ستقوم به يرجى اتباع ما يلي إن وافقتك الفكرة: 1 - كتابة الأسماء التي ترغبها في ورقة الأسماء دون الألقاب في العمود C 2 - كتابة الألقاب التي ترغبها في العمود B أو عدم كتابتها (كما تريد) 3- الانتقال إلى ورقة دعوة وكبس الزر للأعلى يعطيك الأسماء مع ألقابها أو دونها - حسبما سجلت في ورقة الأسماء - بالتتالي 4- كل اسم يظهر عندك اضغط على طباعة سريعة ولكن عليك أن تحدد حجم الصفحة التي تطبعها وإضافة العبارات المناسبة في الخلايا الفارغة ضمن نطاق الطباعة. اعذرني ...هذا أقصى ما أستطيع مساعدتك به..وأترك المجال رحباً للأخوة الكرام المطورين لإجراء عمليات طباعة أسرع مما ذكرت . و السلام عليكم ورحمة الله وبركاته Safari.rar

ما شاء الله حاجة جميله جدا لكن هل مسموح باي تعديﻻت او اضافات

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