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

بس للعلم ، كود تغيير الاسم فيه شئ جميل للنظر فيه ، فالسؤال هو : اذا فتحت ملف اكسس مثلا ، فهل تستطيع ان تغير اسمه وهو مفتوح؟ الجواب لا ، فهنا انا ، غيرت اختيار الصورة (يعني كأنّي كبست على صورة ثانية) 'select another file in the listbox, so that this file is no longer in-use عندها ، طلبت من الاكسس ان لا يسمح لك ان ترى ما يحدث (يعني لما اكبس الزر لرؤية صورة اخرى ، فالمفروض ترى صورة اخرى في النموذج ، مما قد يربك المستخدم) ، وذلك بعدم تغيير آخر شكل للنموذج ، والامر هو Me.Painting = False ، وعندها عملت التغييرات ، ولما خلصت ، طلبت من اكسس ان يعرض الشكل الصحيح للنموذج Me.Painting = True للعلم جعفر

=LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1)," ",""))+1 لمعرفة عدد الكلمات هذه المعادلة لمعرفة عدد الفراغات هذه الثانية =LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1)," ",""))

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

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

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

أخى الفاضل أولا : يرجى تغيير اسم الظهور الى اللغة العربية لسهولة التواصل ثانيا : استخدم المعادلة الآتية فى الخلية B2 ثم اسحبها الى بقية الخلايا =MID($A2;COLUMNS($B2:B2);1)

العنوان الموضوع من قبل كلمة واحدة فقط "سؤال" وكما تعلم "السؤال لغير الله مذلة" .. طبعاً إلا السؤال لطلب العلم فهو أمر محبوب تقبل تحياتي

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

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

السلام عليكم ورحمة الله وبركاته باب بيان أنه لا يدخل الجنة إلا المؤمنون وأن محبة المؤمنين من الإيمان وأن إفشاء السلام سببا لحصولها 54 حدثنا أبو بكر بن أبي شيبة حدثنا أبو معاوية ووكيع عنالأعمش عن أبي صالح عن أبي هريرة قال قال رسول الله صلى الله عليه وسلم لا تدخلون الجنة حتى تؤمنوا ولا تؤمنوا حتى تحابوا أولا أدلكم على شيء إذا فعلتموه تحاببتم أفشوا السلام بينكم وحدثني زهير بن حرب أنبأنا جرير عن الأعمش بهذا الإسناد قال قال رسول الله صلى الله عليه وسلم والذي نفسي بيده لا تدخلون الجنة حتى تؤمنوا بمثل حديث أبي معاوية ووكيع قوله - صلى الله عليه وسلم - : ( لا تدخلون الجنة حتى تؤمنوا ، ولا تؤمنوا حتى تحابوا أولا أدلكم على شيء إذا فعلتموه تحاببتم : أفشوا السلام بينكم ) وفي الرواية الأخرى : ( والذي نفسي بيده لا تدخلون الجنة حتى تؤمنوا ) هكذا هو في جميع الأصول والروايات ولا تؤمنوا بحذف النون من آخره وهي لغة معروفة صحيحة . وأما معنى الحديث فقوله - صلى الله عليه وسلم - : ولا تؤمنوا حتى تحابوا معناه لا يكمل إيمانكم ولا يصلح حالكم في الإيمان إلا بالتحاب . وأما قوله - صلى الله عليه وسلم - : لا تدخلون الجنة حتى تؤمنوا فهو على ظاهره وإطلاقه فلا يدخل الجنة إلا من مات مؤمنا وإن لم يكن كامل الإيمان ، فهذا هو الظاهر من الحديث . وقال الشيخ أبو عمرو - رحمه [ ص: 228 ] الله - . معنى الحديث لا يكمل إيمانكم إلا بالتحاب . ولا تدخلون الجنة عند دخول أهلها إذا لم تكونوا كذلك . وهذا الذي قاله محتمل . والله أعلم . وأما قوله : ( أفشوا السلام بينكم ) فهو بقطع الهمزة المفتوحة . وفيه الحث العظيم على إفشاء السلام وبذله للمسلمين كلهم ;من عرفت ، ومن لم تعرف ، كما تقدم في الحديث الآخر .والسلام أول أسباب التألف ، ومفتاح استجلاب المودة . وفي إفشائه تمكن ألفة المسلمين بعضهم لبعض ، وإظهار شعارهم المميز لهم من غيرهم من أهل الملل ، مع ما فيه من رياضة النفس ، ولزوم التواضع ، وإعظام حرمات المسلمين وقد ذكرالبخاري - رحمه الله - في صحيحه عن عمار بن ياسر - رضي الله عنه - أنه قال : ( ثلاث من جمعهن فقد جمع الإيمان : الإنصاف من نفسك ، وبذل السلام للعالم ، والإنفاق من الإقتار. روى غير البخاري هذا الكلام مرفوعا إلى النبي - صلى الله عليه وسلم - . وبذل السلام للعالم ، والسلام على من عرفت ومن لم تعرف ، وإفشاء السلام كلها بمعنى واحد . وفيها لطيفة أخرى وهي أنها تتضمن رفع التقاطع والتهاجر والشحناء وفساد ذات البين التي هي الحالقة ، وأن سلامه لله لا يتبع فيه هواه ، ولا يخص أصحابه وأحبابه به . والله سبحانه وتعالى أعلم بالصواب .

أخي الكريم سامي الحميدي جرب الكود التالي عله يفي بالغرض Sub LoopThroughSheets() Dim Ws As Worksheet, Sh As Worksheet, I As Long, Cell As Range Set Ws = Sheet1 For Each Sh In ThisWorkbook.Worksheets For Each Cell In Sh.Range("E7:E" & Sh.Cells(Rows.Count, "B").End(xlUp).Row) If Not IsEmpty(Cell) And IsDate(Cell) And CLng(Date) - CLng(Cell) >= 30 Then Ws.Cells(I + 6, 1).Value = I + 1 Ws.Cells(I + 6, 2).Value = Sh.Name Ws.Cells(I + 6, 3).Value = Cell.Offset(, -3).Value Ws.Cells(I + 6, 4).Value = Cell.Value I = I + 1 End If Next Cell Next Sh End Sub تقبل تحياتي Loop Through Sheets & Check Date Condition YasserKhalil.rar

بسم الله الرحمن الرحيم يا فتّاح يا عليم يا رزّاق يا كريم

هذا مثال بسيط عن استخدام الدالة dmax لعمل ترقيم مسلسل ، و نلجأ لهذه الطريقة عندما نريد السماح لنا بتعديل ترقيم المسلسل بسهولة و لأنه يمكن فى حالة تعدد المستخدمين أن يتم حجز رقم و اظهاره فى النموذج من قبل مستخدم بناء علي القيمة فى الجدول ، بينما يحجز مستخدم آخر نفس الرقم ، لذا يتم اعادة اختباره قبل التسجيل

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

بسم الله الرحمن الرحيم إخوانى الأعزاء السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم ( سلسلة الفارس فى شرح دوال الإكسل عن طريق الفيديو ) والهدف من هذه السلسلة ( التى أرجو من الله أن أستطيع إكمالها ) هو الآتى : 1- رد جميل هذا المنتدى الذى أدين له ولأساتذته بكل ما لدى من معلومات 2- تقديم مادة علمية شيقة لكل من يحاول تعلم دوال الإكسل تقوم على التفاعل المباشر عن طريق الفيديو لكى يسهل وصول المعلومة فى أبسط صورة 3- صدقة جارية ( أرجو من الله القبول ) وكل ما أرجوه دعوة بظهر الغيب والله من وراء القصد وهو يهدى السبيل بداية السلسلة شرح الدالة IF http://youtu.be/h--yP3NRaQQ if function 1.rar

بالنسبة للأسماء المركبة سيكون الأمر بنسبة كبيرة ولكن لن تكون بنسبة 100% ... فكرتك جميلة ولكن مرهقة في أنك ستضظر إلى كتابة 1 أو 2 لكل اسم ...فهل هذا منطقى؟

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

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

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

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

ما شاء الله تبارك الله قلت لك انك ساحر .. ما شاء الله تبارك الله Private Sub cmd_Rename_Click() newpathANDname1 = InputBox("Please insert a new name") If Len(newpathANDname1 & "") = 0 Then Exit Sub newpathANDname = Me.lst_Files.Tag & newpathANDname1 & ".jpg" oldpathANDname = Me.lst_Files.Tag & Me.lst_Files.ItemData(Me.lst_Files.ListIndex) 'make a copy of the fie, with the new name FileCopy oldpathANDname, newpathANDname 'select another file in the listbox, so that this file is no longer in-use For i = 0 To lst_Files.ListCount - 1 If lst_Files.Column(0, i) <> newpathANDname1 Then Me.lst_Files.Selected(i) = True Exit For End If Next i 'now delete the old file name Kill oldpathANDname 'don't refresh the Form Me.Painting = False 'read the folder files Call Form_Current 'select the same file name For i = 0 To lst_Files.ListCount - 1 If lst_Files.Column(0, i) = newpathANDname1 Then Me.lst_Files.Selected(i) = True Exit For End If Next i 'refresh the Form Me.Painting = True End Sub كود عبقري يدرس ..

أهلا بك أخ تامر انظر مرفقك بعد التعديل وإجراء بعض التعديلات على الجداول (موضح بداخلها).. وتم تغيير مسمى حقلي مربع التحرير والسرد إلى ComboList1 و ComboList2 حيث ComboList2 الذي يعتمد على ComboList1 بداخل مصدره الاستعلامي الآتي: [Forms]![نوع]![ComboList1] على أن يجلب النتائج حسب [النماذج]![نوع] وهو اسم النموذج لديك والذي به![ComboList1 ] وهو مربع التحرير والسرد الذي يعتمد عليه ووضعنا كود للحقل ComboList1 بعد التحديث على أن يجلب النتائج حسب الاستعلام السابق الموجود في ComboList2 وبالبحث ستجد أمثلة كثيرة عن طلبك والأفضل أن تبعتد عن المسميات العربية والمسافات بين الكلمات تحياتي قائمه_منسدله.rar

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

1- مستحيل احد يتريق عليك ... لاننا كلنا هنا لنتعلم .... 2- لو ترفق مثال بسيط ليتمكن الاخوة و الاساتذة الافاضل من مساعدتك ...

تأكد فبل القيام بعملية النسخ ان الكيبورد موضوغ غلى اللغة العربية

1. ما عملها ، حيث الصورة تُعرض في النموذج بدون الزر ، 2. يعني انتشر الخبر اني عُماني وساحر وبدون برمجة جعفر

الف الف مليون شكر. المطلوب تماما . الله يجزاك الف خير اخوي . وسلمت ايدك ونفعك بما علمك

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

نحن من يشكرك وندعو لك الله بالتوفيق والسداد لما فيه الخير لك وللمسلمين جزاك الله كل خير على فكره انا عملتلك مثال بصفحات الوورد ولكن الوقت لم يسعفنى لرفعه ان شاء الله عند عودتى من العمل سارفعه لك بالتوفيق يا ابوالبراء

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

اخى ياسر ابوالبراء بالنسبه لموضوع حفظ الصفحات على هيئةصفحة وب انا مع ياسر ابو اسيل فى انك تشتغل على الوورد وتحفظ بامتداد صفحة وب بمعنى index.html لان كده كده اللى يهمك فى الاول والاخر محتوى الصفحه اى الشرح الموجود اشتغل ع الوورد ونسق واحترف فى كل شىء واحفظ بالامتداد ده اه وفى حاجه تانيه من غير ما تنزل الفرونت بيج ل٢٠٠٣ فى عاندك مع الاوفيس اللى عاندك حاجه اسمها انفوباث ولها قسم بالمنتد ى http://www.officena.net/ib/forum/126-انفو-باث-infopath/ وتقريبا برضه ده زيهم اسمه الناشر مع الاوفيس برضه وله قسم هنا http://www.officena.net/ib/forum/145-الناشر-بابليشر-publisher/ زى الفرونت بيج والله اعلى واعلم ده مجرد راى وانت لك مطلق الحريه فى العمل كما تحب بالتوفيق اخى ابوالبراء وجزاك الله كل خير فيما تفكر به للصالح العام من اجل إفادة الاخرين بارك الله فيك وفى وقتك وعملك

الأخ الكريم أبو يحيى الحمد لله أن تم المطلوب على خير لي طلب فضلاً لا أمراً هلا أزلت الرقم 1 في نهاية اسم الظهور لديك ..نريد أن يكون اسم العضو معبر عن شخصه الكريم كما هو الحال في أسماء الظهور لمعظم الأعضاء تقبل تحياتي

وعليكم السلام ايش رايك ، حذفت حقل مسار الصورة: . وحذفت زر فتح الصورة: . وهذا هو كود النموذج كاملا: Option Compare Database Private Sub clase_form_Click() DoCmd.Close End Sub Private Sub Form_Current() Dim imagepath As String '1 imagepath = Application.CodeProject.Path '2 imagepath = imagepath & "\Photo\" 'if the photo Dir dose not exist, creat it If Dir(imagepath, vbDirectory) = "" Then MkDir imagepath End If '3 imagepath = imagepath & [E_number] & "\" 'if the [code] Dir dose not exist, creat it If Dir(imagepath, vbDirectory) = "" Then MkDir imagepath End If 'Place the imagepath in the listbox tag Me.lst_Files.Tag = imagepath 'cleaning up Me.lst_Files.RowSourceType = "Value List" Me.lst_Files.RowSource = "" Me.imageframe.Picture = "" 'Directory file to the listbox strFile = Dir(imagepath & "*.*") Do Until strFile = "" Me.lst_Files.AddItem Item:=strFile strFile = Dir() Loop End Sub Private Sub lst_Files_Click() 'show the picture Me.imageframe.Picture = Me.lst_Files.Tag & Me.lst_Files End Sub جعفر 296.imageListBox.accdb.zip

السلام عليكم لاثراء الموضوع جرب أخى هذه المعادلة =INDEX($A$1:$A$18;SMALL(IF(ISNUMBER($A$1:$A$18);ROW($A$1:$A$18));ROWS($G$2:G2))) New Microsoft Excel Worksheet.rar

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

شرح للحل الذي وضعته 1- في الورقة رقم 2 تم وضع معادلة في العامود C لاستخرج جميع الموردين (محلي) بواسطة المعادلة التالية (صفيف) =IF(ROWS($C$2:C2)>COUNTIF(Sheet1!$A$2:$A$100,$J$1),"",INDEX(Sheet1!$B$2:$B$100,SMALL(IF(Sheet1!$A$2:$A$100=$J$1,ROW($A$2:$A$100)-ROW($A$2)+1),ROWS($C$2:C2)))) 2-من هذاالنطاق وضعت Define name اسميته (MouwaredM) بواسطة المعادلة التالية (الخلية 1$J$ تحتوي على كلمة "محلي") =$C$2:INDEX($C$2:$C$100,COUNTIF(Sheet1!$A$2:$A$100,$J$1)) 3- نفس الشيء بالنسبة للموردين (صادر) في العامود G اسميته (MouwaredT) 4- تم اخفاء الورقة 2 لعدم العبث بها غن طريق الخطأ 5- ننتقل الى الصفحة الاولى في العامود (data validation ( I غلى كل الخلايا تم وضغ المعادلة التالية =IF($H2="","",IF($H2=Sheet2!$J$1,MouwarredM,MouwaredT)) 6- في العامود J هذه المعادلة =IF($I2="","",SUMIF($B$2:$B$100,$I2,$C$2:$C$100)) مع تحياتي

شرح الحل المقدم اولا:تم عمل قائمة منسدلة فى العمود نوع المورد وهذا رابط يوضح اليك طريقى عمل القائمة المنسدلة اضغط لعرض المزيد ثانيا :تم اعداد معادلة صفيف لفرز المحلى والتصدير فى العمود فى n3 و o3 والبحث عن البيان المرتبط بالقائمة المنسدلة فقط {=IFERROR(INDEX($B$2:$B$31;SMALL(IF($A$2:$A$31=N$2;ROW($A$2:$A$31)-1;"");ROW(1:100)));"")} ثالثا : تم اعداد قائمة منسدلة ووضع هذه المعادله فىها =INDEX($N$3:$O$19;;MATCH($H2;$N$2:$O$2;0)) رابعا : فى عمود المديونية تم اعداد معادلة للبحث عن عن القيم بشرط القوائم المنسدلة {=IFERROR(VLOOKUP($H2;IF(($A$2:$A$31=$H2)*($B$2:$B$31=$I2);$A$2:$C$31;"");3;0);"")} هذا شرح مختصر وارجو ان اكون قد وفقت فى ايصال المعلومه تقبلوا منى جميعا تحياتى

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

أخي الكريم أبو خالد يرجى تغيير اسم الظهور للغة العربية إليك حل بالأكواد إثراءً للموضوع Sub Test() Dim I As Long, FirstName As String, FatherName As String, Str As String For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row FirstName = Kh_Names(Cells(I, 1), 1) FatherName = Cells(I, 2) Str = Mid(Cells(I, 1), Len(FirstName) + 1) Cells(I, 4).Value = FirstName & " " & FatherName & Str Next I End Sub Function Kh_Names(FullName As String, ParamArray iNdex1()) As String Dim I As Integer Dim Kh_Split, MyArray, Ar Dim Kh_String As String, SN As String, RE As String On Error GoTo Err_Kh_Names MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") SN = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray RE = Replace(Ar, " ", "^") SN = Replace(SN, Ar, RE) Next Kh_Split = Split(SN, " ", , vbTextCompare) On Error Resume Next For I = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & Kh_Split(iNdex1(I) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") Kh_Names = Kh_String Exit Function Err_Kh_Names: Kh_Names = "" End Function تقبل تحياتي

اتفضل ادخل هنا الفريق الادارى للموقع هتلاقى فيه مشرفين ومديرين وخبراء قسم الاكسيل بالتوفيق اخى

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

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

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

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

الكود التالي يقوم بالمعالجة في عمود الاسماء بالتالي لا يحتاج الى عمود اضافي Sub AL_KHALEDI() Set Rn = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)) Lr = Rn.Rows.Count ReDim Arr(Lr - 1) For Each C In Rn.Cells T1 = "": T2 = "" For r = 1 To Len(C) T1 = Mid(C, r, 1) S = Application.Find(T1, "أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", 1) If Not IsError(S) Then T1 = Mid("أبتثجحخدذرزسشصضطظعغفقكلمنهـوي", S, 1) T2 = T2 & T1 Next r Arr(A) = T2: A = A + 1 Next C Range("B2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr) Range("B2:J2").Resize(Lr).Sort Range("B2"), xlAscending A = 0 For Each C In Rn.Cells T1 = "": T2 = "" For r = 1 To Len(C) T1 = Mid(C, r, 1) S = Application.Find(T1, "أبتثجحخدذرزسشصضطظعغفقكلمنهـوي", 1) If Not IsError(S) Then T1 = Mid("أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", S, 1) T2 = T2 & T1 Next r Arr(A) = T2: A = A + 1 Next C Range("B2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr) Set Rn = Nothing: Erase Arr End Sub

السلام عليكم احسنت اخي الحبيب الخالدي ....حفظكم الله كود رائع جزاكم الله خيرا تقبلوا تحياتي وشكري