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

هذا معناه ان البرنامج معمول على وندوز ليس عربي !! فما هي اللغة اللي كان عليها الكمبيوتر لما عملت البرنامج؟ هل هناك حروف اجنبية (مو انجليزية) في البرنامج ؟ اعمل التالي: اعمل بملف اكسس جديد ، 1. استورد جميع الكائنات من الملف القديم ، وشغل البرنامج ، اذا اشتغل بدون مشاكل ، فقد تم حل المشكلة 🙂 وإلا ، اعمل بملف اكسس جديد ، 2. استورد الجداول فقط من الملف القديم ، وشغل البرنامج ، اذا اشتغل بدون مشاكل: ثم استورد الاستعلامات فقط من الملف القديم (طبعا الجداول ستكون موجودة) ، وشغل البرنامج ، اذا اشتغل بدون مشاكل: ثم استورد نموذج واحد فقط من الملف القديم ، وشغل البرنامج ، اذا اشتغل بدون مشاكل: تابع في استيراد النماذج والتقارير ، واحدا واحد ، الى ان تعرف النموذج/التقرير اليي فيه المشكلة ، فيجب عليك ان تعيد صنعه مرة ثانية. جعفر

فورم بيان موظفين مع الصور ب MultiPage الفيديو

الامر SelLength معناه Selected Length ، اي البيانات التي تم اختيارها وتظليلها ، فإذا كانت القيمة في حقل او كومبوبوكس = "123456" ، ثم تم اختيار/تظليل الرقمين 34 ، فقيمة SelLength ستكون 2 ، ولكن لو لم يتم اختيار/تظليل اي رقم ، فقيمة SelLength ستكون صفر !! لذلك ، فهذه الدالة لا علاقة لها بطول النص في الحقل 🙂 جعفر

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

السلام عليكم اخي العزيز عزالدين المنصوري 1- عملت لك ملف فيه رسالة تنبيه لمدة 5 ايام اعتبارا من كل 1 لغاية 5 من كل شهر مع وميض احمر متقطع في حالة عدم تجديد الاشتراك. 2- عملت لك (msgbox) عند تحميل البرنامج . اعلمنا النتائج تحياتي رسالة تنبيه.rar

كان من المطلوب ارفاق ملف لعدم اهدار وقت الاساتذة بانشاء ملف نموذج عما تريد لنفرض ان الوقت الصغير في الخلية A2 والوقت الكبير في الخلية A3 جرب هذا المعادلة (كلما ضغطت على المفتاح F9 او غيرت اي شي في اي خلية تتغير الأوقات العشوائية) =RAND()*($A$3-$A$2)+$A$2 المثال مرفق Rand_time.xlsx

الهدف من استعمال سطر واحد بدل عن مجموعة اوامر ، هو لتسهيل الامر والكود علينا ، ومعرفتنا اذا الحقل فيه قيمة ، معناه ان طول القيمة والتي نعرفها عن طريق الامر Len فإننا نريد ان نعرف اذا طول الحقل = 0 او لا اليك نتائج هذه العمليات : Debug.Print Len("234") = 3 Debug.Print Len("") = 0 Debug.Print Len(Null) = Null Debug.Print Len(Null & "") = 0 فالامر Len اعطانا قيمة 0 لما قيمة الحقل تكون "" ولكنه اعطانا Null لما قيمة الحقل تكون Null ، ولكن Null ليس رقم ،مما يجعلنا نضطر نرجع الى الامر IsNull ، معناه انه يجب ان نستخدم اكثر من امر في السطر الواحد (كما اوضحت سابقا). جعفر

كل الشكر والتقدير لك أخي سليم حاصبيا لم أرفق ملف لأن السؤال كان واضح وبسيط والسبب الآخر أنني كنت قد أرسلت من الجوال أشكرك فقد عملت الدالة بشكل ممتاز

اخي الكريم استخدم رقم الـ uuid + اسم المعالج وليس رقمه فقد تمت تجربة جميع ارقام قطع الجهاز تقريباً وللأسف وجدنا انها تتغير جميعها بعد الفورمات ماعدا اسم المعالج فهو ثابت كذلك رقم الـ uuid راجع التعليقات التالية "من تعليق الاستاذ ابا جودي الى النهاية" بعد قرائتك للمناقشة أعلاه انظر للملف المرفق في المشاركة التالية الملفين في المشاركة وفي الرابط هي نفسها .. وقد تم اعتماد اسم المعالج مع رقم الـ uuid في الحماية تحياتي

همممم ، كنت اعتقد ان شرحي كان واضح ، ولكن مافي مانع من المحاولة مرة خرى : Debug.Print Len("234") = 3 Debug.Print Len("") = 0 Debug.Print Len(Null) = Null Debug.Print Len(Null & "") = 0 في مثالك If Len(Text) < 0 Then Text = "123456" Len(Text) = 6 Text = "انا جعفر" Len(Text) = 7 Text = "" Len(Text) = 0 Text = Null Len(Text) = Null يعني ما نحصل على طول الكلمة ، وانما نحصل على هذه الكلمة ولكن في مثالي If Len(Text & "") < 0 Then Text = "123456" Len(Text & "") = 6 Text = "انا جعفر" Len(Text & "") = 7 Text = "" Len(Text & "") = 0 Text = Null Len(Text & "") = 0 لهذا السبب ، جرب المثال على كمبيوترك ، واحكم بنفسك 🙂 جعفر

بارك الله فيكم

جزاك الله خيرا اخى خالد

جزاك الله خيرا اخى @حلبي واياكم اخى العزيز ان شاء الله بفضله وكرمه وجزا الله خيرا كل اخواننا واساتذتنا اللذين تعلمنا ونتعلم منهم اخى واستاذى الحبيب @jjafferr اذا ممكن نختصر الكود ونجعله كالتالى If Len(text) < 0 Then فى انتظار مزيد من التعقيب والشرح الوافى منك اخى واستاذى @jjafferr تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق والنجاح وان يبارك لكم فى اعمالكم واهلكم

بارك الله فيك أستاذنا الفاضل المبدع أستاذ سليم بعد إذنك لإثراء الموضوع استخدمت هذه المعادلة =IF(COUNTIF($D2:$AH2;"ع")<=$C2;TRUE;FALSE) حتى إذا حدث نسيان تسجيل يوم عارضة لشخص يتم حساب كل العارضة المسجلة Dawam.xlsx

الف مبروك 🌹 و الي الامام دائما باذن الله

تفضل اخي الكريم

الذى فعلته هو تغير الاسم اللذى وضعته انت Me![Project Name] وهو غير موجود بالنموذج وموجود با سم Project ولكن ابتعد عن هذه المسميات لانها محجوزه للنظام كما اشار عليك اخى خالد غير طريقه عرض النموذج الى نموذج مفرد بدلا من عرض ورقه بيانات ويمكن استخدام تنسيقات مختلفه لعرض ورقه البيانات فى اصدارات 2007 واعلى على ما اعتقد والله اعلى واعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم OP 2020.mdb

وهنا توضيح للدالة بمثال : الطريفة اللي اتبعها انا للتعامل مع الحقل ، سواء الفارغ او Null او بدون قيمة : بدل عن if isnull([ABC]) or [ABC]="" then استعمل if len([ABC] & "") = 0 then جعفر 🙂

جرب هذا الملف الذي لا يسمح لك بكتابة ع اكثر من المطلوب في الخلية C Dawam.xlsx

اشكركم جميعا اساتذتي الكرام بارك الله بيكم @عبد اللطيف سلوم @Khalf @خالد سيسكو @أحمد الفلاحجى @ابوآمنة هذا هو المطلوب تحياتي للجميع

اتفضل شوف كده واخبرنا بالنتيجه اخى تقبل تحياتى مثال-111.rar

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

فورم ترحيل البيانات الى عدد من الشيتات عن طريق الكمبو بوكس الفيديو

تفضل لك ما طلبت هذه الأكواد فى مديول عادى Sub hide_menu() Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)" End Sub Sub show_menu() Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)" End Sub وهذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() hide_menu End Sub وذلك كما بالملف Hide.xlsm

فقط عليك استخدام هذه المعادلة =COUNTIF($B8:$AF8,$NU$5)/4 أو عن طريق معادلتك بعد القسمة على 4 لتكون بهذه الطريقة =SUMPRODUCT((OFFSET($A8,0,1,1,372)<>"")*(OFFSET($A$3,0,1,1,372))*((OFFSET($A8,0,1,1,372))=NU$5))/4 leave tracker.xlsb

وعليكم السلام-تفضل بمجرد كتابة الرقم بالعمود C سوف تظهر قيمته بالعمود B 1مثال.xlsx

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

فقط يمكنك استخدام هذه المعادلة =CEILING(C2,1) ABSS1.xls

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

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

وهذا كود اخر ايضا للإنتقال الى اصناف12.xlsm

اخى الكريم يمكن لديك مشكلة فالكود يعمل معى بكل كفاءة كما ترى بالصور اصناف11.xlsm

بارك الله فيك اخى شكرى تفضل الحل بطريقتين داخل الملف اصناف11.xlsm

تفضل المخازن.xls

تفضل لك ما طلبت المطلوب.xlsm

وعليكم السلام يجب عليك استخدام خاصية البحث بالمنتدى https://www.officena.net/ib/topic/42212-تمت-الاجابة-إخفاء-أوراق-العمل-والتنقل-بينها-من-الشيت-الرئيسي/

تفضل بمجرد اختيارك الكود من القائمة المنسدلة الموجودة بالخلية C2 من صفحة Search لاحظ ماذا يحدث فستجد ما تطلبه ان شاء الله Search.xlsx

اذا اشتغلت معك تمام بكل الشروط فيمكنك العمل بها بارك الله فيك

تفضل ويمكنك تغيير واختيار ما تشاء من الأيام من الخلايا A3:A6 كشف Salim.xlsm

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

Quote selection لا تعمل كما ترى من الرسالة التى تظهر بالصورة

لقد تم الرد والإجابة على هذا التساؤل فى هذه المشاركة عليك بتتبع مشاركتك ومعرفة هل تم الإستجابة ام لا https://www.officena.net/ib/topic/87465-توزيع-الكميات-تنازلياتوزيع-الكميات-بالترتيب-بالتساوي-تنازليا-حتى-الوصول-الى-اخر-كمية-كل-صنف/

غير صحيحة- فعندما مثلا تكون النتيجة جيدة فهذه المعادلة تعطى حسنة

أخى الكريم لم تقل من البداية ان كل هذه العملية تقسم على 5 عامة تم التعديل كما تريد تفضل وهذه هى المعادلة المستخدمة =IF(OR(E9="",F9="",G9=""),"",IF((E9+F9+(G9*3))/5<=9.99,"نتائج ضعيفة",IF(OR((E9+F9+(G9*3))/5=10,(E9+F9+(G9*3))/5<=12.99),"نتائج حسنة",IF(OR((E9+F9+(G9*3))/5=13,(E9+F9+(G9*3))/5<=15.99),"نتائج جيدة",IF((E9+F9+(G9*3))/5>=16,"نتائج ممتازة",""))))) قائمة الحجز2.xlsx

من فضلك وضح ما تقصده على الملف لأن المعادلة تعمل معى تمام بالشروط التى طلبتها

تفضل لك ما طلبت قائمة الحجز.xlsx

جزاك الله كل خير

الزباري اخى الفاضل بارك الله فيك

المسألة في الدائرة الحمراء وهي المادة 3 ، تأكد انها دولة فيها الحروف التي في برنامجك ، العربية في حالتنا ، وعدم اختيار المربع في الرقم 4 : ثم تعيد تشغيل الكمبيوتر 🙂

اخى الكريم hs889 شكرا لاهتمامك لقد وجدت بعد جهد الصيغة الملائمة لتنفيذ تلك الحماية بشكل مرضى بعض الشئ وجارى تطبيقها للوقوف على مدى الحماية التى يمكن ان تحققها للبرنامج الموجود بملف Excel وأعتقد أنه يمكن أن يكون السيناريو كالتالى: 1- يتم اعطاء المشترى ملف Excel به الصيغة التى تقوم باستخراج الرقم المسلسل لـ H.D 2- يقوم مشترى البرنامج بتشغيل هذا الملف على جهازه الذى سيضع به البرنامج المباع 3- يقوم البرنامج تلقائيا بحفظ الرقم المسلسل بالملف ثم ارجاع هذا الملف لصاحب البرنامج. 4- يقوم المبرمج بوضع هذا الرقم بالبرنامج المباع ثم تسليم المشترى البرنامج وينام قرير العين دون خوف من نسخ البرنامج بصورة غير شرعية . 5- كما يمكن السماح فى حالة نسخه بصورة غير شرعية بتشغيل الملف عدد محدود من المرات وذلك بغرض الدعاية فقط . سيتم التجريب قبل ارفاق الملف فى القريب العاجل ريثما يتم تطبيقه على جهاز آخر واذا اثمرت التجربة عن نجاح الفكرة سيتم نشره بالمنتدى لتعم الفائدة .. حيث انى تعلمت الكثير من خلال هذا المنتدى الرائع ويجب ان ارد بعض الجميل ...