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

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

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

أشهد أن كلام الأخ @jjafferrمضبوط 100% تمت التجربة بارك الله فيه و فيكم * خاصية SelLength لمربع النص تعيد طول النص الخالى إلى صفر بعكس دالة len

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

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

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

لا أعلم اذا كان هذا المطلوب Book222.xlsx

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

الاستاذ الفاضل / @أحمد الفلاحجى ربنا يبارك فيك على هذا الشرح الجميل والوصف والدقة فى المعلومة زادك الله علما وجعله في ميزان حسناتك استاذنا ومنقذنا دائما / المعلم الفاضل / @jjafferr يعطيك الف عافية شرحت المسألة كلها من اولها وجميع استخدامتها شرح وافى والآن فهمت كل ما كنت اريد ان اعرفه عن الكود nz لانه كان عجيب جدا احيانا يعطينى صفرا واحيان يعطينى خطأ وبفضل الله ثم توضيحكم توضلت الى جوهر الموضوع الله يبارك فيك استاذنا / جعفر ويجعله في ميزان حسناتك ويزيدك الله علما كل الاحترام والتقدير لكم

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

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

اخى الفاضل جرب الكود التالى واخبرنا بالنتيجه DoCmd.OpenForm "formName", , , "[id]=" & me.id formName= اسم النموذج الذى سيتم فتحه id اسم حقل المعرف الذى = اسم حقل المعرف بالنموذج ان لم يظبط ارفق مثالك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

لقد تم الرد والإجابة على هذا التساؤل فى هذه المشاركة عليك بتتبع مشاركتك ومعرفة هل تم الإستجابة ام لا 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

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

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