كل الانشطه

ماشاء الله تسلم ايدك

كيف أجعل العناصر متساوية ومحاذاة بشكل صحيح؟ استخدم أداة (محاذاة) للحصول على ترتيب دقيق وصحيح.

أحسنت أستاذنا الكريم -بارك الله فى جهودكم وهذا بالفعل المطلوب

وعليكم السلام ورحمة الله وبركاته .. هل الصورة التالية كنتيجة صحيحة ؟؟ إن كانت النتيجة صحيحة ، فالمعادلة :- =IF(C3="","",IF(I3<=0,"نفذ المخزون بالفعل",IF(I3<=3,"أوشك المخزون على النفاذ",""))) طبعاً هذا إذا كان منطقك التجاري هو: الرصيد ≤ 0 :- نفذ المخزون بالفعل الرصيد من 1 إلى 3 :- أوشك المخزون على النفاذ الرصيد أكبر من 3 :- لا تعرض شيئاً = فارغ

السلام عليكم أساتذتى الكرام الرجاء من سيادتكم التكرم على مساعدتى بتعديل المعادلة الموجودة بالعمود K من صفحة المخزن وشاكر مقدماً على مساعدتكم وبارك الله فيكم =IF(OR(AND(C3<>"",I3=3),"أوشك المخزون على النفاذ",AND(C3<>"",I3<=0),"نفذ المخزون بالفعل"),"" مخزن 1.xlsb

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

السلام عليكم محاولتي مع الروابط في الفيديو

شكراً جزيلاً لك استاذ عبدالله المبدع الله يحفظك ويجعلها في ميزان حسناتك ويسعد ايامك تحياتي لجنابك الكريم

تم التعديل الكود حاليا يقوم بحذف اي صور من النطاق a2:v2 قبل ادراج الصورة الجديدة حتى لا تتراكم الصور فوق بعضها كذلك تم تعديل اسم الصورة ومكانها على الجهاز بحيث يمكنك احتيار اي صورة وباي اسم وباي امتداد من الجهاز ويمكنك اضافة اي امتداد اخر غير مدرج بالكود .Filters.Add "جميع الصور", "*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tiff" تم استتناء ورقة3-ورقة6 من ادراج الصور ويمكنك استتناء المزيد وذلك باظافة اسم الورقة بالكود من الجزء For Each ws In Worksheets If ws.Name <> "ورقة3" And ws.Name <> "ورقة6" Then ادراج صورة (2).xlsm

وعليكم السلام أ. عبد الله بارك الله فيك ونفعنا بعلمك تحياتى

عاشت ايدك وبارك الله بيك وبجهودك استاذ احتاج ان يعمل الكود على كل صفحات الملف مثلا 10صفحات ويضيف الصوره فيها مهما كان امتدادها ما عدا صفحات التي تكون باسم ورقة3 وورقة6 لا يضيف الصوره فيها مع جزيل الشكر لمجهودك

السلام عليكم يوجد بعض الاختلاف بين الكودين في التفكيك الكود الأول: يمر على الخلايا خلية خلية ويضع الناتج في الشيت مباشرة باستخدام التكرار For...Next . الكود المعدل: يقوم بنفس التفكيك بواسطة رمز الفصل * ولكنه يحمل النتائج في مصفوفة بالذاكرة (dataArr) ثم ينسخها دفعة واحدة. بالنسبة للتجربة لدي الكود يستغرق اقل من ثانية اما الكود الاصلي حوالي 6 ثانية تم اظافة حساب الزمن للكود وتم تعديل الكود في الكود التلقائي وفي كل الاحوال مواصفات الجهاز وغيرها من الامور الفنية لها علاقة بالسرعة وفي حالة الزمن متساو لديك في الكودين القديم والمعدل فلك الخيار في اختيار احدهما ف 6 ثواني ليست بالوفت الطويل اليك الملف وبه التعديل شهادات1.xlsb

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

شكراً على مجهودك ووقتك أ. عبد الله بشير

سيكون الحل بطريقتين حسب استخدامك للملف إذا كنت تقوم بفلترة العمود الأول (عمود1) يدوياً ليظهر فقط التواريخ من 8 إلى 11: استخدم المعادلة =SUMPRODUCT(SUBTOTAL(109; OFFSET(I8:I100; ROW(I8:I100)-ROW(I8); 0; 1)); --(H8:H100=E4)) وإذا أردت حصر الجمع تلقائياً بين تاريخين دون الاعتماد على الفلترة اليدوية استخدم المعادلة =SUMIFS(I8:I100; H8:H100; E4; G8:G100; ">=08-يوليه"; G8:G100; "<=11-يوليه") واليك المعادلتان في ملف واحد واختر ما يناسب طلبك جمع القيم لشخص مع الفلترة.xlsx

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

نعم يمكن ذلك استبدل الكود السابق بهذا Sub Comm() Dim ws As Worksheet Dim pic As Object Dim rng As Range On Error Resume Next Application.CommandBars.FindControl(ID:=549).Execute On Error GoTo 0 For Each ws In Worksheets Set rng = ws.Range("A2:V2") Set pic = ws.Pictures.Insert("D:\عنوان.jpg") pic.ShapeRange.LockAspectRatio = msoFalse With pic .Top = rng.Top .Left = rng.Left .Width = rng.Width .Height = rng.Height .Placement = xlMoveAndSize End With Next ws End Sub السطر Application.CommandBars.FindControl(Id:=549).Execute هذا السطر يفعل أمر "الانطباق على الشبكة" (Snap to Grid) كما في طلبك ادراج صورة (1).xlsm

وعليكم السلام ورحمة الله وبركاته لو ارفقت ملفك لاختصرت الكثير من الشرح والوقت ولكن اوضح باختصار اذا اردت استعمال معادلة sumif بالجدول يجب اظافة عمود مساعد خارج الجدول وضع به المعادلة =SUBTOTAL(103, A2) ثم اربطها معادلة sumif او يمكنك استعمال بديل sumif معادلة اخرى لا تحتاج عمود مساعد مثل SUMPRODUCT و SUBTOTAL وجود الملف يوضح المعادلة المناسبة لطلبك

وعليكم السلام ورحمة الله وبركاته اليك التعديل والكود في الملف المرفق تلقائي حيث يتم استدغاؤه بدل كتابة الكود بالكامل وكذلك بزر مرتبطا بزر جلب البيانات اعتقد ان الكود اسرع ويحتاج الامر منك الى التاكد من النتائج لانه يوجد العديد من الاوامر بالكود الاصلي تحتاج الى وقت للتاكد من النتائج في حالة عدم توافق النتائج ارجو تحديد الجزء او الاجزاء الغير متوافقه مع تحديد الحلايا والشيتات في انتظار تنتائج تجربتك للكود شهادات1.xlsb

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

الفكرة جميلة ، والتنفيذ سليم بنسبة كبيرة . وقد كان لي تطرق سابق لفكرة مشابهة ولكن على عكسك تماماً . حيث كانت تجربتي من خلال أداة كاسر ملفات آكسيس Accde - واستخراج محتوى قواعد البيانات نسخة 32 | نسخة 64 . إلا أن فكرتك قابلة للإختراق والكسر لأسف . شكراً لك على مجهودك

شكرا علي مجهودك الرائع بس للاسف البرنامج محتاج تفعيلوحضرتك منزله من غير تفعيل لا للحماية ةلا لفك الحماية بكس اسف

شكراً جزيلاً استاذ الله يحفظك ويجعلها بميزان حسناتك ويبارك بيك فضلا وليس امرا احتاج ان ضيف خاصيه انطباق على الشبكة وان يكون ابعاد الصوره من A2 الى V2 هل يمكن ذلك كما موضح بالصوره مع جزيل الشكر والتقدير لجهودك

أ. عبد الله بشير .. السلام عليكم , وشكراً لإهتمامك مرفق الملف , أما عن الكود فهو كود تلقائى وآخر نفس التكوين بزر شهادات.xlsb