محمدعوض

اريد مساعدت في عمل معدلة مقارنة بين شيت 1 وشيت 2 اذا شيت1 عامود A = عامود A بشيت 2 اذا بسوي عامود B بشيت 1 = عامود B بشيت 2 اذا عامود D بشيت1 = عامود D بشيت 2 اذا A=A & B=B & D=D يتم نقل رقم في عامود E شيت 2 الى عامود E بشيت 1 يعني اذا ما تحقق الشرط لا يتم نقل رقم في رعامود E الى شيت 1 يوجد صوره توضح المقصود وشكرا ........ صوره الشرح .....

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

تصميم برنامج تسجيل مبيعات رقم 1.rar

هل من احد من اخوة المساعدت في تصميم البرنامج

تصميم برنامج تسجيل مبيعات.rar

اخي ماظبط الكود شكلو ناقص الكود ؟؟

Private Sub Workbook_Open() Dim S$ With ActiveSheet S = .Name If S = "ورقة1" Or S = "ورقة2" Then Alidroos_Control_F Else Alidroos_Control_T End If End With End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "ورقة1" Or Sh.Name = "ورقة2" Then Alidroos_Control_F Else Alidroos_Control_T End If End Sub Private Sub Alidroos_Control_F() If Not Application.CommandBars Is Nothing Then With Application.CommandBars .FindControl(ID:=847).Enabled = False .FindControl(ID:=848).Enabled = False End With End If End Sub Private Sub Alidroos_Control_T() If Not Application.CommandBars Is Nothing Then With Application.CommandBars .FindControl(ID:=847).Enabled = True .FindControl(ID:=848).Enabled = True End With End If End Sub سلام عليكم اريد مساعدت في زيادة شيت رقم 3 الرجاء المساعدت في تعديل على الكود وشكرا ..... هذا هو الكود .....

كيفية التعديل لااضافة شيت اخرى في اكسيل وشكرا ....

اريد مساعدت في تعديل على الكود ......... اريد ان اضيف شيت زيادي عليه هذا هو الكود .... Private Sub Workbook_Open() Dim S$ With ActiveSheet S = .Name If S = "SALES" Or S = "RETURN" Then Alidroos_Control_F Else Alidroos_Control_T End If End With End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Alidroos_Control_T End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "SALES" Or Sh.Name = "RETURN" Then Alidroos_Control_F Else Alidroos_Control_T End If End Sub Private Sub Alidroos_Control_F() If Not Application.CommandBars Is Nothing Then With Application.CommandBars .FindControl(ID:=847).Enabled = False .FindControl(ID:=848).Enabled = False End With End If End Sub Private Sub Alidroos_Control_T() If Not Application.CommandBars Is Nothing Then With Application.CommandBars .FindControl(ID:=847).Enabled = True .FindControl(ID:=848).Enabled = True End With End If End Sub

اريد عمل مثل يلي بصوره يعني يوجد عند 3 اسماء متكررين اكتر من مرة اسم الشخص اريد انم يعطيني كم مرة تم تكرار... وشكرا

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

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

كيفية استعمال الكود اخي

اريد مساعدت في اجاد طريقة عمل مثل يلي بصوره

ياخوان هل يوجد معادلة لعمل المطلوب وشكرا

… ..

سلام اريد المساعدت في عمل هذا المقصود في اكسيل هل من الممكن تحقيق هذا ... اريد عند الكتابت الباركود يظهر المعلومات بس يتم تعريف الباركودات لصنف واحد ياخد اكتر من الباركود ولكن يحمل نفس اسم الصنف يعني من الممكن يكون الباركود 1 و2 و3 و4 و5 يحمل نفس الاسم الصنف كيفية تحقيق مثل هذا وشكرا ... يوجد توضيح اكثر في الاكسل وشكرا .... barcode.zip

كود هو 1982 القي نظره وشكرا ma.zip

هيك شكل البرنامج

بيطلع هيك وبيرجع بتطلع متل يلي بصوره الاولى

..

ارفع القاعدة من عندك

هيدا عم تظهر

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

شكرا اخي هذا هو المطلوب في الرابط http://www.officena.net/ib/index.php?showtopic=59621&st=0&p=382784