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

كيف نضيف اسماء الى جدول و نرتبها ابجدياً من خلال قائمة منسدلة انظر الى المرفق add_Names to List.rar

السلام عليكم الاخ الكريم / شعبان فليفل بارك الله فيك وبعد اذن اخي الحبيب / شوقي ربيع .. جزاه الله خيرا شاهد الطريقة التالية في الملف المرفق وهي تعتمد علي وجود ( زر عائم ) يقوم بتنفيذ الامر المطلوب لا يظهر الا عند الوقوف في خانة الملاحظات في العمود K امام اسم العميل الجديد الذي تم اضافته شاهد الطريقة واخبرني بالنتائج تقبل خالص تحياتي مشاريع التنفيذ1.rar

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

جرب هذا الماكرو Private Sub Worksheet_SelectionChange(ByVal Target As Range) lr = Selection.Rows.Count lc = Selection.Columns.Count x = Selection.Rows.Count y = Selection.Columns.Count CommandButton1.Left = Selection.Cells(1, 1).Offset(x, y).Left CommandButton1.Top = Selection.Offset(lr, lc).Top End Sub الملف مرفق Moving_Cmd.rar

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

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

تحت امركم 1- نقوم بانشاء ملف text 2- نفتح ملف التيكست وقوم بلصق الكود الاتى xCOPY /Y /W "\\server ip \folder name\db name.mdb" "D:\folder name on employees pc\db name.mdb" echo Copy Completed مع تغيير الاتى الجزء الأول يخص السيرفر server ip= رقم جهاز السيرفر على الشبكة مثلا 192.168.1.00 folder name = اسم المجلد على السيرفر الذى يحتوى على قاعدة البيانات db name.mdb = اسم قاعدة البيانات الامامية ( التى تحتوى على واجهات النماذج ) مع مراعاة الامتداد الخاص بها مما سبق نستنتج الاتى "\\server ip \folder name\db name.mdb" = مسار قاعدة البيانات الامامية على السيرفر ـــــــــــــــــــــ الجزء الثانى يخص جهاز الموظف المراد نقل القاعدة الجديدة اليه D: = القطاع على الهارد ديسك الذى يحتوى على قاعدة البيانات folder name on employees pc = اسم المجلد على جهاز الموظف والذى يحتوى على قاعدة البيانات db name.mdb = اسم قاعدة البيانات الامامية ( التى تحتوى على واجهات النماذج ) مع مراعاة الامتداد الخاص بها مما سبق نستنتج الاتى "D:\folder name on employees pc\db name.mdb" = مسار قاعدة البيانات الامامية على اجهزة الموظفين طبعا يجب ان يكون مسار قاعدة البيانات على اجهزة الموظفين موحد وبعد الانتهاء من التعديلات نقوم بحفظ الملف نقوم بعمل اعادة تسمية لها الملف وينتهى الملف بالامتداد .bat فيكون مثلا على سبيل المثال اسم الملف up date database.bat ومرفق المثال على الملف يتم وضع هذا الملف على اجهزة الموظفين فى مسار قاعدة البيانات الامامية وينبه على الموظفين تشغيله يوميا قبل البدء فى العمل او عند الحاجة اذا تم عمل اى تحديث على قاعدة البيانات عند فتح الملف يفتح على شاشة ال dos السوداء يتم الضغط على اى مفتاح من لوحة المفاتيح وسيتم التحديث تلقائيا وبعد ذلك سوف تغلق النافذه من تلقاء نفسها up date database.rar

السلام عليكم الاخ الكريم / رضوان حسين بارك الله فيك واجمل ما استفدت انا من هذا الموضوع هو حبك في الله اخي لي والله اني احببتك في الله الذي احببتني فيه وجعلني دائما عند حسن ظنك جزاك الله خيرا

السلام عليكم الاخ الكريم / mnaj80 بارك الله فيك يثمكنك استخدام هذا الكود لعمل التسلسل التلقائي في اي فورم في حدث الفورم Activate والكود التالي يضع الرقم التسلسلي كل مرة في تكست بوكس 1 في شيت 1 ويمكنك تغييره كما تريد حسب الحاجة او قم بارفاق المثال الذي تريده للعمل عليه واليك اخي موضوع آخر ... جاري تكملته سيفيدك كثيرا في مواضيع الفاتورة ... قم بالاطلاع عليه عله يفيدك http://www.officena.net/ib/index.php?showtopic=46420 Private Sub UserForm_Activate() Sheets("sheet1").Select T = Cells(Rows.Count, 1).End(xlUp).Row TextBox1 = Val(Cells(T, 1)) + 1 End sub جزاك الله خيرا

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

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

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

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

أخي الحبيب حمادة لك ما تريد

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

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

نعم بالضبط استاذ @عبد الفتاح كيرة If len(Text01) > 10 Then

If len (text01 )

الف شكر استاذي الفاضل / غدا انشاء الله سوف اجربه لان الاسكنر بالعمل

:::اخي هذا البرنامج من تصميم الاستاذ @محمد فؤاد من جمهورية مصر العربية ::: ولا اعتقد من اللائق التعديل على برنامجه دون اذنه ... لكن يمكن مساعدتك في امر الترحيل بكتابة هذا الكود في زر الترحيل if me.payment="اجل"then goto post 'اكمال الترحيل else me.postbottom.enabled=false end if ::: حيث postbottom هو اسم زر الترحيل . بالتوفيق

::: أرفع قاعة بيانات ليتم التعديل عليها . اما كود فتح النمودج هو DoCmd.OpenForm "frmName", acNormal ::: وفي حدث عند الفتح للنموذج تكتب الكود التالي للذهاب الى سجل جديد docmd.GoToRecord,,acNewRec me.textname.enabled=false ' عدم تمكين me.textname.visible=false 'اخفاء العناصر

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

وهل هذه الفكرة تحتاج الى السؤال اذا كنا عاوزينها ام لا !! اكيد مليون بالمية عاوزينها يا استاذ ابا جودي

وعليكم السلام ورحمة الله وبركاته جرب المرفق الأن FullYearDatesH.accdb.zip ملاحظة: قمت بتغيير بعض نصوص الشفرة التي ليس لها علاقة بالسؤال.. أرجو المعذرة نص شفرة الحاق البيانات لايبدوا سليما في نظري.. أرجو التحقق من ذلك

استاذ شافان ارجو ان تزودنا برابط للبرنامج ومثال على ازرار تفاعلية اذا تكرمت

الإغلاق أولا ثم الفتح

استأذن من استاذنا وحبيبنا @ابا جودى على المداخلة اتفضل اخي انا استخدمت هذين الكودين Private Sub Rajmsanf_DblClick(Cancel As Integer) If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmsanf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then MsgBox "المادة مكررة" Cancel = -1 Else Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close Forms![فاتوره مشتريات].SetFocus Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus DoCmd.Requery DoCmd.GoToRecord , , acNewRec Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus End If End Sub Private Sub Rajmsanf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmsanf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then MsgBox "المادة مكررة" Cancel = -1 Else Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close Forms![فاتوره مشتريات].SetFocus Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus DoCmd.Requery DoCmd.GoToRecord , , acNewRec Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus End If '13 End If ' DCount End Sub لكن لا اعرف ما هو حقلين للسعر على الرغم كل شي اتفضل اليك قاعدة بياناتك بعد تعديل 1111111.rar

انا عندى كده اشتغل تمــ( منتظر ردك )ـــام انا كل اللى عملته غيرت نوع الخط المستخدم فقط بص حضرتك انا استخدمت الخط MS Sans Serif

شوف كده جرب وقولى الاخبار ايه ؟ منتظر رد حضرتك علشان اتأكد من شئ New.rar

طيب وهو بيحصل ايه معلش يمكن انا ماخدتش بالى كويس

الاخ الكريم / مصطفى كامل بارك الله فيك وجزاك الله خيرا

السلام عليكم الاخ الكريم / yousifsamra بارك الله فيك سأضع رابط موضوعك الاساسي لزيادة الافادة للجميع لمن يحتاج الي نفس طلبك والذي قام بتقديم الحل الاخ الحبيب / ضاحي الغريب ... ابو عمرو ... جزاه الله خيرا وشارك فيه القدير الحبيب الخبير / ابو حنين .. جزاه الله خيرا http://www.officena.net/ib/index.php?showtopic=47325 جزاك الله خيرا

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

السلام عليكم الاخ الكريم / على عبدالراضى بارك الله فيك واكرمك الله كما اكرمتني بدعائك وكلماتك الاكثر من راائعين جزاك الله خيرا

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

السلام عليكم الاخ الكريم /http://www.officena....showtopic=41520 جزاك الله خيرا

السلام عليكم الاخ الكريم / abosohib بارك الله فيك مرور طيب وكريم جزاك الله خيرا

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

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

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

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

السلام عليكم مشاركة الاساتذة والاعضاء مهمة بالنسبة لي الآن : اكسيل 2003 ( 6 ) صوت اكسيل 2007 ( 3 ) صوت اكسيل 2010 ( 2 ) صوت اكسيل 2013 ( 1 ) صوت

السلام عليكم الاخوة والاساتذة الافاضل الاستاذ / الجزيرة الاستاذ / fzsss الاستاذ / himass لقد اعتبرت رأيك 2007 حيث انك وضعته في البداية الاستاذ / الفرس الاستاذ / الباحث المصرى الأول معلومة جميلة لم اكن اعلمها قبل ذلك وجاري تجربتها معذرة لسيادتكم اعلم ان مشاركاتكم كانت قبل الاستاذ العلامة / عبد الله باقشير ولكن متأكد من انكم إن رأيتم رد له في اي موضوع يجب علينا الرد عليه اولا لانه المصباح المنير لنا في هذا الصرح العظيم وكل التقدير والاحترام لسيادتكم لاهتمامكم بالموضوع والرد عليه فهذا زادني وزاد موضوعي شرف كبير واثراء اكبر للموضوع ( وجعل الله كلامي بعيداً عن النفاق والرياء ) فقط احبكم في الله الآن : اكسيل 2003 ( 6 ) صوت اكسيل 2007 ( 3 ) صوت اكسيل 2010 ( 2 ) صوت اكسيل 2013 ( 1 ) صوت

السلام عليكم الاستاذ القدير العلامة الخبير / عبدالله باقشير والله اني لاحبك في الله والله اني كنت انتظر ردك بفارغ الصبر فأنت معلم الجميع وردك يعتبر شرف لي ولبرنامج الاكسيل نفسه زادك الله من علمه ... وجزاك الله خيرا ... بمحبتك في العلم ومحبتك لتعليم العلم لتلاميذك ... لوجه الله تعالي وكنت انا افضل اكسيل 2003 من البداية ولكن بعد رد سيادتكم لن استغني عنه ابدا الآن : اكسيل 2003 ( 4) صوت اكسيل 2007 ( 1 ) صوت اكسيل 2010 ( 1 ) صوت اكسيل 2013 ( 1 ) صوت

السلام عليكم في انتظار ردود كل خبراء واساتذة المنتدي واعضاء ليزيد الموضوع ثراءا

السلام عليكم اصبح الموضوع اكثر رووووعه بمرور الخبراء ياله من موضوع بالنسبة لي رائع لهذا السبب استاذي القدير / دغيدي افتخر دائما انك من بلدي مصر ... فأمثالك يجعلونا نفتخر بهم وبعلمهم زادك الله من علمه اكثر واكثر لم اجرب بعد 2013 الآن : اكسيل 2003 ( 3 ) صوت اكسيل 2007 : ( 1 ) صوت اكسيل 2013 ( 1 ) صوت

السلام عليكم الاستاذ الغالي / ريان احمد مشكور لمرورك الكريم الآن : اكسيل 2003 ( 3 ) صوت اكسيل 2007 : ( 1 ) صوت

السلام عليكم اصبح الموضوع رائع بمرور الخبراء استاذي القدير ومعلمي في كل المنتديات الاستاذ العبقري / عبد الله المجرب مرورك فقط علي موضوعي يكفيني فأنت لاتعلم ماذا انت بالنسبة لي وكثير من مهام عملي كنت أنت السبب الرئيسي لافعلها جزاك الله خيرا لو كان بيدي لأصبح صوتك بعشرة أصوات وستجعلني أغير رأيي واتعامل بكثرة مع اوفيس 2007 الآن : اكسيل 2003 ( 2 ) صوت اكسيل 2007 : ( 1 ) صوت

السلام عليكم الاستاذ القدير / ابوحنين مرورك الكريم فقط علي موضوعي يشرفني جداً وانا اوفقك الرأي لأن هذا رأي ايضاً اذا حصل اوفيس 2003 علي عدد ( 2 ) نقطة شفاك الله وعافاك ... وجزاك الله خيرا

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