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

هذا معناه ان البرنامج معمول على وندوز ليس عربي !! فما هي اللغة اللي كان عليها الكمبيوتر لما عملت البرنامج؟ هل هناك حروف اجنبية (مو انجليزية) في البرنامج ؟ اعمل التالي: اعمل بملف اكسس جديد ، 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 ، معناه انه يجب ان نستخدم اكثر من امر في السطر الواحد (كما اوضحت سابقا). جعفر

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

اذا كان الكود يعمل معك بكفاءة فبهذه الإضافة يكون الكود كالتالى: Sub Macro1() Dim i As Integer, m As Integer Application.ScreenUpdating = False For i = 2 To 4 With ThisWorkbook.Worksheets(i) m = .Cells(Rows.Count, 1).End(xlUp).Row If i <> 3 Then .Range("A1:AH" & m).PrintOut Copies:=1, Collate:=True ElseIf i = 3 Then If .Range("AH" & .Cells(Rows.Count, "AH").End(xlUp).Row).Value > 0 Then .ListObjects("HR_2").Range.AutoFilter Field:=34, Criteria1:=">0" .Range("A1:AH" & m + 1).PrintOut Copies:=1, Collate:=True .ListObjects("HR_2").Range.AutoFilter End If End If End With Next i Application.ScreenUpdating = True Sheets("Overtime").PageSetup.RightFooter = Range("AP3").Value End Sub

اخي الكريم ( jjafferr ) لك كل الشكر استاذي الكريم نجحت العمليه بالفعل وتم اعادت تشغيل البرنامج مره اخرى شكرا كل الشكر

همممم ، كنت اعتقد ان شرحي كان واضح ، ولكن مافي مانع من المحاولة مرة خرى : 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 لهذا السبب ، جرب المثال على كمبيوترك ، واحكم بنفسك 🙂 جعفر

عليك السلام ورحمة الله وبركاته جرب هذا الفورم ربما يفي الغرض sahaba center.rar

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

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

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

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

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

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

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

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

جزاك الله خيرا اخى لم نقدم شىء يذكر واحاول ان اقدم مما تعلمته واتعمله من اخوانى واساتذتى وما اجده من معلومات واتعلم معكم داله NZ كما تعلمنا تسبتدل القيم الخاليه ب 0 وهى اختصار Null Zero كما قرائت يمكنك استخدام الدالة Nz لإرجاع الصفر أو سلسلة فارغة ("") أو القيمة المحددة الأخرى عندما يكون المتغير فارغا. علي سبيل المثال ، يمكنك استخدام هذه الدالة لتحويل قيمه فارغه إلى قيمه أخرى ومنع نشرها عبر تعبير. الداله NZ وهذا ايضا شرح لاستاذ مهند عبادى جزاه الله خيرا دالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ .. صيغتها كما يلي : A = NZ(B,0) أو A = NZ(B) S = NZ (V,"") ومن هذا يتضح أن لهذه الدالة ممران 1- القيمة المطلوب فحصها 2- القيمة المعادة في حال كون القيمة الأولى Null وفي حال عدم تعيين القيمة الثانية تعيد لنا هذه الدالة القيمة صفر في حال كون القيمة الأولى Null وان شاء الله يفيدنا اكتر احد اساتذتنا تقبل تحياتى اخى

اشكركم جميعا اساتذتي الكرام بارك الله بيكم @عبد اللطيف سلوم @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

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

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

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

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

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

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

وعليكم السلام اين ملف العمل ؟!!!!!!!! الملف الذى رفعته فارغ خالى من اية بيانات عليك برفع الملف وشرح بالتفصيل ما تريده

وعليكم السلام تفضل اخى الكريم كمبوبوكس بأسماء الصفحات.xlsm

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

تفضل كما بالصورة وطبعا اذا قمت برفع ملف بالمطلوب يكون افضل

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

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

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

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

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

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

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

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