علي السحيب

يتم ذلك بإستخدام الدالة SUMIF .. ولكن بوضع صيغة خاصة لكل صفحة ثم جمع النواتج .. وتصبح الصيغة هكذا: =SUMIF('1'!$A$5:$A$19,'الكميات المسموحة'!A2,'1'!$E$5:$E$19)+SUMIF('2'!$A$5:$A$19,'الكميات المسموحة'!A2,'2'!$C$5:$C$19)+SUMIF('3'!$A$5:$A$19,'الكميات المسموحة'!A2,'3'!$C$5:$C$19)+SUMIF('4'!$A$5:$A$19,'الكميات المسموحة'!A2,'4'!$C$5:$C$19)+SUMIF('5'!$A$5:$A$19,'الكميات المسموحة'!A2,'5'!$C$5:$C$19)+SUMIF('6'!$A$5:$A$19,'الكميات المسموحة'!A2,'6'!$C$5:$C$19)+SUMIF('7'!$A$5:$A$19,'الكميات المسموحة'!A2,'7'!$C$5:$C$19) شاهد المرفق، _______________________________.rar

تم التعديل على الكود ليشمل التالي: 1- مزايا البحث:- - البحث عن جميع أنواع البيانات. - خروج تنبيه في حال عدم وجود نتائج للبحث. - بعد خروج نتائج البحث .. يتم خروج رسالة لتأكيد طباعة النتائج أم لا. - لون كل سجل يختلف عن لون السجل الذي بعده. 2- مزايا الطباعة:- - خروج تنبيه في حال عدم وجود بيانات لطباعتها. - طباعة السجلات التي تحتوي على فقط. - خروج تنبيه في حال عدم وجود طابعة مرتبطة بالجهاز. شاهد المرفق، ________.rar

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

بعد نقل الكود إلى الصفحة المعنية تحت المتغير Change .. فقط نقوم بإضافة السطر التالي في بداية الكود .. وهو يعمل على تحديد عنوان الخلية التي سينطلق منها الكود عند حدوث أي تغيير عليها. If Target.Address = "$A$9" Then شاهد المرفق، _______________.rar

يكون ذلك فقط بإضافة إسم الورقة التي تحتوي على البيانات الأساسية قبل معيار البحث الموجود داخل الدالة VLOOKUP .. هكذا: Cells(C, A) = Application.WorksheetFunction.Vlookup(Cells(C, 3), ورقة6.[AC1:AX4], B, 0) على فكرة .. راجع الرابط التالي يمكن تستفيد منه في التعامل مع الأسهم، http://www.officena.net/ib/index.php?showtopic=14026 شاهد المرفق، If_Function_in_VBA.rar

موضوع ذات صله: http://www.officena.net/ib/index.php?showtopic=13069

موضوع ذات صله: http://www.officena.net/ib/index.php?showtopic=13069

الكود التالي ينفذ ما تريد: Sub Sorting() A = Application.WorksheetFunction.Match(1, [A3:A7], 0) + 2 B = Application.WorksheetFunction.Match(6, [A3:A7], 0) + 2 C = Application.WorksheetFunction.Match(4, [A3:A7], 0) + 2 D = Application.WorksheetFunction.Match(2, [A3:A7], 0) + 2 E = Application.WorksheetFunction.Match(3, [A3:A7], 0) + 2 [A13:J16].ClearContents If [A9] = "" Then Exit Sub If [A9] = 8 Then For F = 1 To 10 Cells(13, F) = Cells(A, F) Cells(14, F) = Cells(B, F) Cells(15, F) = Cells(C, F) Next Else: For F = 1 To 10 Cells(13, F) = Cells(A, F) Cells(14, F) = Cells(D, F) Cells(15, F) = Cells(E, F) Cells(16, F) = Cells(C, F) Next End If End Sub _______________.rar

هل هذا ما تقصد؟؟ _____________________.rar

تم التعديل، ______________________________.rar

هل هذا ما تقصد؟؟ ______________.rar

هو ينقل البيانات فقط دون المعادلات .. وإذا كنت تقصد ألا يتم مسح محتويات الصف بعد الترحيل .. قم بإزالة السطر التالي من الكود: [C5:O5].ClearContents

أولاً للمعلومية .. لا نستطيع إدراج كودين تحت متغير واحد كالذي قمت أنت بعمله في المرفق الموجود في مشاركتك السابقة .. لذا كان لا بد من دمج الكودين تحت نفس المتغير .. كما هو واضح في الكود التالي: ثانياً: لا حظ الإختصار الذي قمنا به للدالة VLOOKUP .. فبدلاً من تكرار الدالة قرابة العشرين مره .. أستعضنا عن ذلك بإستخدام التعليمة For و Next .. وتم تطبيق نفس الفكرة على مشاركاتي السابقة حول هذا الموضوع .. والموجود على الرابط التالي: http://www.officena.net/ib/index.php?showtopic=13916 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next TA = Target.Address If TA = "$AE$20" Or TA = "$AE$21" Then If [AE20] = 1 And [AE21] = 2 Then [C17] = 7 [C18] = 2 [C19] = 5 [C20] = 4 [B17] = 10 [B18] = 10 [B19] = 60 [B20] = 60 ElseIf [AE21] = 0 And [AE20] = 1 Then [C17] = 2 [C18] = 5 [C19] = 4 [C20] = "" [B17] = 10 [B18] = 60 [B19] = 60 [B20] = "" ElseIf [AE20] = 0 And [AE21] = 2 Then [C17] = 1 [C18] = 5 [C19] = 4 [C20] = "" [B17] = 10 [B18] = 60 [B19] = 60 [B20] = "" ElseIf [AE20] = 0 And [AE21] = 0 Then [C17] = "" [C18] = "" [C19] = "" [C20] = "" [B17] = "" [B18] = "" [B19] = "" [B20] = "" End If [D17:X20].clearcontents For A = 4 To 24 For B = 2 To 22 For C = 17 To 20 Cells(C, A) = Application.WorksheetFunction.Vlookup(Cells(C, 3), [AC1:AX4], B, 0) Next Next Next End If End Sub شاهد المرفق، If_Function_in_VBA.rar

للمعلومية .. نستطيع إختصار العبارة (Date & " " & Time) بالكلمة Now

شاهد المرفق، Vlookup____________________.rar

شاهد المرفق، ______________________________.rar

رائع أخي عمر .. هل هذا البرنامج من تصميمك؟؟

الكود التالي أكثر إختصاراً ويؤدي نفس الغرض: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 15 Then Cells(1, Target.Column + 1).Select End Sub _________________________.rar

أعتقد أن هذا اكود أكثر إختصاراً: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$2" Then [E2] = Application.WorksheetFunction.VLookup([D2], [D4:E18], 2, 0) ElseIf Target.Address = "$E$2" Then [D2] = Application.WorksheetFunction.VLookup([E2], [E4:F18], 2, 0) End If End Sub 2_sides_Vlookup.rar

تم التعديل، نعم من الممكن عمل ذلك ولكن هذا سوف يؤدي أحياناً إلى مسح البيانات .. وذلك عند الضغط على أي خلية ضغطاً مزدوجاً .. لذا أفضل أن نقوم بإخفاء الأعمدة التي تحتوي على البيانات المؤقتة بدلاً من مسح محتوياتها. شاهد المرفق، _______________________________________________.rar

تم التعديل على المرفق بما يتناسب مع إحتياجاتك، __________________________________________.rar

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

نشكرك أخي تامر على هذا العمل الرائع والمتقن.

يتم عمل ذلك من خلال الصيغة التالية .. ما عليك فعله هو فقط تغيير الأرقام الموجودة في الصيغة إلى الأرقام التي تتعامل أنت معها. =IF(C2>5000,"ممتاز",IF(C2>3000,"جيد جداُ",IF(C2>2500,"جيد",IF(C2>1600,"مقبول",IF(C2<1600,"ضعيف","")))))

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