نجوم المشاركات

السلام عليكم ورحمة الله وبركاته اظافة الى حل استاذتا اأبومروان حيث يثمثل الحل بطريقتين اذا اردت معرفة عدد الندوات التي شارك بها اي مشارك واحد انقر على اي اسم مرتين تظهر رسالة بعدد المشاركات والغعاليات اما اذا اردت كل المشاركين يوجد زر يقوم بانشاء ورقتين احداها لكل المشاركين والاخرى للفعاليات توجد بعص الفعاليات بها اكثر من لجنة (تعاون) ولإعطاء كل لجنة حقها؛ ففي حال تنظيم فعالية مشتركة بين أكثر من لجنة (مثل: لجنة الكتاب والنشر - ثقافة الطفل - الشباب "تعاون"), يجب أن يتم احتساب هذه الفعالية لصالح كل لجنة من اللجان المذكورة بشكل مستقل ومستساغ، بدلاً من قراءتها كنص واحد لكما كل التقدير والاحترام مؤشر عمل اللجان.xlsb

السلام عليكم ورحمة الله اتفضل تم عمل المطلوب علي حسب ما فهمت لعله يكون المطلوب مؤشر عمل اللجان.xlsm

السلام عليكم الموقع https://zingl.github.io يعرض طريقة لعمل الباركود Code128, QR, Aztec, DataMatrix بالكود ويدون الاستعانة ببرامج خارجية. في الموقع مرفق اكسس (وقد عملت تعديل بسيط عليه لعمل الصور التالية ، والمرفق موجود في اسفل المشاركة) ، وهنا اعرض مثالين على العرض: . . طبعا Code128 غير مناسب للكلمات الطويلة. الكود يقوم بعرض الباركود داخل حقل نص Textbox ، وهو يستعمل Line لعمل الباركود : . المشكلة ان الاكسس يقوم بتنفيذ الامر Line على خلفية التقرير/النموذج ، وبعدها يقوم بعرض بقية الكائنات ، بمعنى ، اذا وضعنا كائن/حقل صورة خلف حقل نص الباركود ، فاننا لا نستطيع رؤية الباركود ، لأنه اصبح خلف الصورة. في الصورة التالية ، التقرير الاول هو ما تم عرضه سابقا ، بينما في التقرير الثاني وضعت صورة زرقاء خلف كائنات/حقول الباركود: . ونتيجة التقرير الثاني: . مع وجود الصورة في الخلف ، المطلوب اظهار الباركود على الصورة ، وبأي طريقة. من تجربتي ، لإظهار الباركود ، يجب وضعه في كائن/حقل صورة ، امام الصورة الخلفية. ارفق لكم من نفس الموقع ، مرفق اكسل كذلك. ومن موقع www.lebans.com ارفق قاعدة البيانات A2KPictureBoxVer35.accdb ، والتي بها نموذج و مكتبات قد تساعد الذكاء الاصطناعي بالعمل (نعم ، قد يحتاج الى مساعدتك في توجيهه). QR_barcode.accdb A2KPictureBoxVer35.accdb barcode.xlsm

بارك الله فيكم اخواتي الأعزاء أحبكم في الله جزيل الشكر والتقدير لشخصكم الكريم أستاذي عبد الله بشير @عبدالله بشير عبدالله دائما وأبدا نتعلم وننهل من فيض علمك بعد الله عز وجل معلش استفسار آخر سيدى الكريم هذه اللجان تمثل جزء من 21 لجنة فأنا أريد أن اعرف أيضا مؤشر اللجان الأخرى التي ليس لها نشاط فهل يمكن من سيادتكم عمل مؤشر آخر يبين اللجان التي ليس لها نشاط؟ بحيث اذا عملت نشاط تحذف من القائمة اللجان ال21 (منها اللي عمل بالفعل ومنها من لم يعمل بعد وقد يعمل وقد لا يعمل) هي: لجنة المسرح لجنة السينما لجنة الموسيقى والأوبرا والباليه لجنة الفنون الشعبية والتراث غير المادي لجنة الشباب لجنة العلوم القانونية (حقوق الإنسان - الملكية الفكرية - المواطنة) لجنة العمارة لجنة الفنون التشكيلية لجنة الدراسات الأدبية والنقدية واللغوية لجنة السرد القصصي والروائي لجنة الشعر لجنة الترجمة لجنة الإعلام لجنة الاستثمار الثقافي لجنة الاقتصاد والعلوم السياسية لجنة التاريخ والآثار لجنة الجغرافيا والبيئة علم الاجتماع والفلسفة وعلم النفس لجنة الكتاب والنشر لجنة الثقافة العلمية والتفكير الابتكاري والذكاء الاصطناعي ثقافة الطفل وهل يمكن زيادة اعمدة المشاركين من 11 عامود الى 15 عامود بدون تأثر الأكود؟ وجزاك الله كل خير

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

إسمحوا لي مخالفتكم الرأي فقد قمت بعملية بحث لكلمتي (استيراد أكسل) وقد ظهرت لي 15 نتيجة فقط كما بالصورة التالية والسبب في ذلك أني قمت بتحديد خيارات البحث المتقدم (التي يشير لها السهم بالصورة) وكما هو موضح بالصورة التالية سنجد أني قمت بتحديد خيار نوع المحتوى ليتم البحث في المواضيع فقط وخيار (ابحث عن النتائج في .... ) للبحث في عناوين المواضيع فقط والخيار المهم (ابحث عن النتائج التي تحوي ...) ومنه يمكن تحديد خيار (كل كلمات البحث) والتي تعادل عبارة Where التالية "استيراد" And "اكسل" والخيار (أي من كلمات البحث) وتعادل عبارة Where التالية "استيراد" Or "اكسل" ولكن تتبقى نقطة ياريت يتم وضع حل لها وهي تجاهل الهمزة والتاء المربوطة تحياتي

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

الإبداع في أبهى صوره @عبدالله بشير عبدالله طريقتك في التنفيذ ممتازة ونتعلم الجديد من حضرتك كل يوم

شاشة فريدة وحيدة exe التصميم على vb6 علما انه يوجد في مكتبتي نسخة من هذه الشاشة على اكسس .. ولكني ارى ان هذه اخف وتعمل على اي جهاز وهذا هو الكود المسؤول باستخدام المعادلة الطبية الظاهرة هذه المعادلة قد يستفيد منها من يريد اضافة هذه الميزة الى برنامجه الطبي Private Sub Command1_Click() On Error Resume Next Dim Dday As Integer Dim i As Double Dim sc As Integer Dim d1 As Date Dim s1 As String Dim m1 As Date 'Calendar = vbCalGreg i = DateDiff("d", Date, Text1.Text) w1.Text = Abs(i \ 7) dx.Text = Abs(i Mod 7) m1 = DateAdd("d", 280, Text1) Dday = Weekday(m1) If Dday = 1 Then yom.Text = "الأحد" If Dday = 2 Then yom.Text = "الاثنين" If Dday = 3 Then yom.Text = "الثلاثاء" If Dday = 4 Then yom.Text = "الأربعاء" If Dday = 5 Then yom.Text = "الخميس" If Dday = 6 Then yom.Text = "الجمعة" If Dday = 7 Then yom.Text = "السبت" 'Calendar = vbCalHijri h1 = Format(m1, "YYYY/MM/DD") End Sub حساب الحمل.rar

كما هو ظاهر نقص في المكتبات لديك تفضل اعداد آخر ولكن اعتقد ستواجه المشكلة نفسها وايضا الفكرة على ملف اكسس Project1.rar حساب تاريخ الحمل.rar

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

مادام الفلاشة معي دوما .. لماذا كل هذا التعقيد اضع ملف نصي يحتوي على مفتاح الشفرة .. والبرنامج سوف يذهب آليا الى اي فلاشة موصلة ويقرأ الشفرة

وعليكم السلام-بسيطة كان عليك رفع الملف لتجربته ..فعموماً مخزى هذه الرسالة ان لديك معادلات طويلة جداً فعليك بتغيير حفظ امتداد ملف الإكسيل الى Xlsb

وعليكم السلام -نعم يمكن ذلك بهذا الكود Sub Splitbook() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أو كان عليك من البداية استخدام خاصية البحث بالمنتدى قبل طرح مشاركتك فبها طلبك كيفية فصل الشيتات الموجودة داخل الملف إلى ملفات منفصلة الملف به اربع صفحات.xlsm

فقط ..عليك استخدام هذه المعادلة بصفحة الإحصاء .. وضع ما شئت من الكلمات كما ترى =COUNTIF('ردود النموذج 1'!$B$2:$BX$220,B$1) بسيطة اذا كنت التريد العمل على عمود معين فقط فعليك بتغيير المدى بالمعادلة السابقة الى مدى اى عمود تريد فمثلاً العمود BV ... قستكون المعادلة كالتالى وبالتالى كده اكتملت كل الطلبات ويجب غلق المشاركة =COUNTIF('ردود النموذج 1'!$BV$2:$BV$220,B$1 23.xlsx

وعليكم السلام-طبعاً لا يمكن عمل هذا بهذه المعادلات -فقط يمكنك استخدام هذه المعادلة =SUMIFS('All Details'!$C$6:$C$1000,'All Details'!$A$6:$A$1000,$E$5,'All Details'!$B$6:$B$1000,$C7) تقفيل نهائي-فاضي-Index-1Match.xlsx

أحسنت استاذ ماجد بارك الله فيك وزادك الله من فضله

بارك الله فيك استاذنا الكبير أبو خليل ... عمل رائع جعله الله فى ميزان حسناتك وتقبل الله منكم سائر الأعمال

بارك الله فيك وزادك الله من فضله .. ولكن هل مشكلة عدم استطاعتى النزول الى حقل كلمة السر عند الدخول تواجهنى أنا فقط ولا قابلت أحد الأساتذة والإخوة ؟!!! فبالتالى لا استطيع الدخول الى البرنامج

السلام عليكم-تفضل يمكنك استخدام هذه المعادلة للأدنى =MINIFS(SHEET1!E$10:E$250,SHEET1!$C$10:$C$250,$A$1) وهذه للمتوسط =Iferror(AVERAGEIF(SHEET1!$C$10:$C$250,$A$1,SHEET1!E$10:E$250),"") وأخيراً معادلة الأعلى .. وبارك الله فيك =MAXIFS(SHEET1!E$10:E$250,SHEET1!$C$10:$C$250,$A$1) TEST568.xlsx

وعليكم السلام-لك ما طلبت wor2.xlsm

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

على الرغم انك تأخرت كثير جداً عند الرد .. ولم تحدد هذا الطلب من قبل ؟!!! ولكنى رفعت لك ما طلبت بملف جديد اضافة الى مشاركتى السابقة تحت اسم Horizontal

بسيطة وذلك من خلال هذا الكود .. سيتم تفعيله من أيقونة تصفير ,,, الموجودة بالصفحة الرئيسية Sub ResetForm_Click() Dim ws As Worksheet With Worksheets("الصندوق") .Range("C3:J40").ClearContents End With Worksheets("كشف عميل").Range("b4:c4").ClearContents With Worksheets("المبيعات") .Range("a3:g40").ClearContents End With Worksheets("كشف مورد").Range("b4:c4").ClearContents With Worksheets("المشتريات") .Range("a3:g40").ClearContents End With With Worksheets("العملاء الموردين") .Range("C2:C40").ClearContents .Range("E2:I40").ClearContents End With With Worksheets("أصناف المبيعات") .Range("a3:E200").ClearContents End With With Worksheets("اصناف المشتريات") .Range("a3:E200").ClearContents End With With Worksheets("الأصناف") .Range("B3:B40").ClearContents .Range("D3:I40").ClearContents End With With Worksheets("الموردين") .Range("A4:B200").ClearContents End With With Worksheets("شيكات") .Range("B4:B200").ClearContents End With End Sub Data_All1.xlsm

أحسنت استاذ محمد عمل ممتاز جعله الله فى ميزان حسناتك

بارك الله فيك استاذنا الكريم وزادك الله من فضله

وعليكم السلام-تفضل تم تنظيم الملف ... كل ما عليك اختيار كود الموظف من القائمة الموجودة بالخلية I1 وسيب الباقى على الإكسيل أما ملف Horizontal لجلب كل الموظفين بأسماء أصنافهم وأعدادها أفقياً بدون تكرار ex1.xlsx Horizontal.xlsm