السلام عليكم و رحمة الله وبركاته
اخي ابو عبدالرحمن
نستكمل الموضوع
==============
نحن مازلنا في ورقة استور
حيث انها تعتبر ورقة مهمة جدا حيث كما قلنا سوف تكون بها البيانات الرئيسة
1- اضفنا العمود F و خصصناه لتحديد سعر البيع للقطعة
وعن طريق التحقق من صحة حددنا قيمة الرقم المدخل يجب ان يكون اكبر من متوسط قيمة القطعة
جرب ادخال اي قيمة اصغر من متوسط سعر القطعة سوف يعطيك رسالة خطأ
2- نحنة كنا قد تركنا العمود A فارغ
ألان وضعنا دالة في العمود A بحيث نجمع البيانات من 5 الأعمدة التي بعده
وثم أضفنا الخلية الحمراء الموجودة في اعلى الصفحة
وبإستخدام التصفية التلقائية اصبح يمكننا عمل بحث سريع لأي صنف باستخدام الكود المختصر او كود الصنف او جزء من اسم الصنف او سعر البيع للصنف
وذلك باستخدام الكود التالي
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Target.Row <> 1 Then Exit Sub
Range("A3:A777").AutoFilter Field:=1, Criteria1:="=" & "*" & [D1] & "*", Operator:=xlOr _
, Criteria2:="="
If [D1] = "" Then ActiveSheet.ShowAllData
Range("D1").Select
ActiveWindow.SmallScroll Down:=-999
End Sub
جرب اكتب مثلا " نطاط " في الخلية الحمراء ثم انتر
سوف يظهر لك كل اسم صنف يحتوي على نطاطة او نطاطية او نطاط او نطاطات ...الخ
حدد الخلية الحمراء و اضغط زر Delete سوف تظهر لك فورا كل بيانات الورقة
- - تم اخفاء العمود A - -
3- اخذنا شعار المحل ووضعناه في الصفحة وعملنا له ارتباط شعبي وربطناه مع صفحة Main بمجرد الضغط على الشعار نعود الى صفحة مين
4- اخفينا الأعمدة الأخرى باستخدام تجميع الأعمدة
اضغط على علامة " + " الموجودة في اعلى الصفحة تظهر لك الأعمدة المخفية
5- حددنا المجال B3 الى F377 وسمينا StorA
وذلك لكي نستطيع استخدامة بعد ذلك في جميع الأوراق الأخرى باستخدام الدالة Index مع اسم المجال ورقم العمود
6- باستخدام التحقق من صحة تم منع تكرار اضافة اي كود صنف تم اضافته سابقا
وهذا مهم لكي لا تكرر لدينا اكواد اي صنف نرة اخرى مما يسبب تكرار العمليات الحسابية لهذا الصنف
و تم عمل رسالة تحذير فقط عند تكرار اسم اي صنف في عمود الأسماء
وهكذا اصبحت الورقة stor جاهزة و الحمد لله
الآن اذا كان عندنا اي صنف جديد نريدة يجب ان نضيف بياناته في اسفل هذه الصفحة قبل توريدة للبيع
لنا تكملة للموضوع ان شاء الله تعالى
sales3.rar