كل الانشطه

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

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

تم التعديل الكود حاليا يقوم بحذف اي صور من النطاق 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

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

السلام عليكم ورحمة الله وبركاته تحياتي لك ولاستاذنا Foksh مشكلة الملف به امتددان ادراج صورة.xlsm.xlsx بحذف الامتداد xlsx يعمل الملف لاظافة الخاصية المطلوبة اولا يجب حذف كلمة Private ليصبح اسم الكود Sub Comm() ثانيا يجب أن تكون الصورة موجودة بالفعل داخل القرص D بهذا الاسم بالضبط (عنوان.jpg) ثالتا امتداد الملف هو jpg وليس png أو jpeg؛ لأن عدم تطابق الامتداد سيتسبب في ظهور خطأ عند تشغيل الكود. في حال تغير مكان الضورة او امتدداها قم بالتعديل بالكود اليك الكود بعد اظافة الخاصية xlMoveAndSize نقل الخلايا وتغيير حجمها Sub Comm() Dim ws As Worksheet Dim pic As Object For Each ws In Worksheets Set pic = ws.Pictures.Insert("D:\عنوان.jpg") pic.Placement = xlMoveAndSize Next ws End Sub ادراج صورة.xlsm

كم لونًا يجب استخدامه في التصميم؟ من الأفضل استخدام 2 إلى 3 ألوان فقط لتجنب التشتت البصري.

وعليكم السلام ورحمة الله وبركاته .. يظهر الخطأ التالي عند محاولة فتح ملفك المرفق في الاصدار 2019 وفي الإصدار 2010

السلام عليكم شلونكم بدون زحمة اريد ان اضيف خاصيه الى الصوره المدرجة من خلال الكود كما هو موضح بالصورة المرفقة مع جزيل الشكر والتقدير Private Sub Comm() Dim ws As Worksheet For Each ws In Worksheets ws.Pictures.Insert ("D:\عنوان.jpg") Next End Sub ادراج صورة.xlsm.xlsx

سؤال.. هل يوجد لديكم شريط ريبون في اي مشروع يقوم بعرض قائمة منسدلة ؟ وما هي المشاكل التي قد تواجه المستخدم في ضبط كومبوبوكس على سبيل المثال ؟؟ وهل له استخدام محدد في مشروعك ؟؟؟