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

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

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

لا أعلم اذا كان هذا المطلوب 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

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

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

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

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

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

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

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

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

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

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

وعليكم السلام تفضل اخى الكريم كمبوبوكس بأسماء الصفحات.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