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

من المعروف ان الدالة Match تعطينا أول صف تراه في الجدول لكن بحيلة بسيطة يمكننا التغلب على هذه الدالة لتعطينا كل الصفوف (كل ذلك دون أخطاء N/A#) شاهد هذا الملف Multi_Match.xlsx

لا يا اخى ليس هو المطلوب فقط قم بتشغيل الاستعلام مرة اخرى سيقوم بعمل العكس سيحول الربح السالب الى موجب اكتشفتها اثناء التجريب ولحل هذه المشكلة اليك تعديل كود سيكوال السابق UPDATE tabl_item SET tabl_item.الربح = [tabl_item]![الربح]*-1 WHERE (((tabl_item.الربح)>0) AND ((tabl_item.الكمية)<0)) OR (((tabl_item.الربح)<0) AND ((tabl_item.الكمية)>0)); شكرا لك

🙂

الحمدلله ، كنت انتظر ان نصل الى القراءة الصحيحة ، ومنها نقدر نعدل مثل ما نريد 🙂 عندك عدة اختيارات ، ولكن المطلوب ان نجعل قيمة الوزن صفر ، قبل دخول الشاحنة الجديدة ، وكود التصفير هو: me.Label5.Caption = "0" 1. اعمل زر ، اجعل تسميته "تصفير الوزن وحساب وزن جديد" ، وفي حدث النقر ، اكتب الكود اعلاه ، بحيث ، قبل ان تدخل الشاحنة الجديده ، تضغط على هذا الزر. او / و 2. اكتب الكود اعلاه في نهاية حدث أ و ب . وبالنسبة الى كود قراءة القيمة من الجسر ، فيمكنك : 1. استخدام الكود القديم الذي كنت تستخدمه سابقا ، او 2. تستخدم الكود المختصر الاخير ، ولكن يجب ان تضيف هذا السطر في اول الحدث (مثل ما عملنا في الكود في مشاركتي الاخيرة) : 'اذا كانت القيمة 0 ، فاكتب القيمة الجديدة، وإلا فلا تكتبها if me.Label5.Caption<>"0" then exit sub . جعفر

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

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

السلام عليكم ورحمة الله بارك الله فيك أخي سليم، إبداع ما فوقه إبداع... وأقترح تبسيطا (اختصارا) للمعادلة في الخلية E2 (ثم سحبها نزولا): =IF(ROWS($A$1:A1)>COUNTIF($B$2:$B$100;$E$1);"";MATCH(E$1;OFFSET($B$2;SUM(E1);0;ROWS($B1:$B$100)-SUM(E1));0)+SUM(E1)) أو =IF(ROWS($A$1:A1)>COUNTIF($B$2:$B$100,$E$1),"",MATCH(E$1,OFFSET($B$2;SUM(E1),0,ROWS($B1:$B$100)-SUM(E1)),0)+SUM(E1)) بن علية حاجي

الاخ سليم حاصبيا عمل ممتاز بالتوفيق

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

هذه دالة معرفة لابد من الضغط على Alt +f11 وفتح مديول جديد ثم وضع هذا الكود فيه Function ContDate(MyDate1 As Date, MyDate2 As Date, YMD As String) D1 = Day(MyDate1): D2 = Day(MyDate2) M1 = Month(MyDate1): M2 = Month(MyDate2) Y1 = Year(MyDate1): Y2 = Year(MyDate2) If D1 > D2 Then Dr = D2 + 30 - D1: M = -1 Else Dr = D2 - D1 If M1 > M2 Then Mr = M2 + M + 12 - M1: Y = -1 Else Mr = M2 - M1 Yr = Y2 - Y1 + Y If YMD = "D" Or YMD = "d" Then ContDate = Dr If YMD = "M" Or YMD = "m" Then ContDate = Mr If YMD = "Y" Or YMD = "y" Then ContDate = Yr End Function

ابدعت استاذى الكريم ملف رائع جزاك الله كل خير

تفضل اخى الكريم ولكن لأنك لم تعلمنى من اى ارقام للأعمدة اتى بيانات الأعمدة المظللة باللون الأحمر فى شيت البيانات او سواء الخلايا المظللة ايضا بالأحمر فى شيت التسوية 2.xlsm

بارك الله فيك استاذ سليم عمل ممتاز

نعم أخى هو كذلك ... جزاكم الله خيرا

وعليكم السلام 🙂 في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !! يعني تقدر تعمل (للأسف تم قلب الاسماء ، لأنها بالعربي!!) : "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل] FROM Table1" هذا غير ممكن ، يمكن عندك خطأ في مكان ما!! جعفر

اتفضل هل هذا ماتقصده D: Nz(DSum("degree";"season_c";" course_id=" & [cors_id]))+Nz(DSum("degree";"season_b";" course_id=" & [cors_id]))+Nz(DSum("degree";"season_a";"course_id=" & [cors_id]);"0") لم افهم ما المقصود بي لا تساوي success_limit استعلام بشرط.rar

وعليكم السلام 🙂 في الكثير من الاحيان ، مادام الكود يعمل بطريقة صحيحة ، فلا علاقة لنا بكيفية عمله 🙂 تفضل: Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) Dim ctl As Control Dim MaxHeight As Long 'اعطاء قيمة اوليه لأطول حقل MaxHeight = 0 'نلف حول الحقول For Each ctl In Me 'اذا كان نوع الحقل نص ، ونحن في قسم التفصيل If TypeOf ctl Is TextBox And ctl.Section = 0 Then 'اذا كان طول الحقل اطول من القيمة الاوليه ، اذن قم بتغيير القيمة الاولية الى هذا الطول الجديد If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next 'نلف حول الحقول For Each ctl In Me 'اذا كان نوع الحقل نص ، ونحن في قسم التفصيل If TypeOf ctl Is TextBox And ctl.Section = 0 Then 'اعمل خط ، النقطة الاولى: يسار الحقل و وارتفاعه صفر 'والنقطة الثانية: يسار الحقل و وارتفاعه طول اطول حقل Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next ' نرسم خط ، النقطة الاولى عرض التقرير ناقص 3 تويب و وارتفاعه صفر 'والنقطة الثانية: عرض التقرير ناقص 3 تويب ، و ارتفاعه طول اطول حقل Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) ' نرسم خط ، النقطة الاولى: اقصى اليسار (يعني صفر) و ارتفاعه طول اطول حقل ' والنقطة الثانية عرض التقرير ناقص 3 تويب و ارتفاعه طول اطول حقل Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight) End Sub Private Sub Report_Page() 'تحميل خيارات الرسم عند فتح الصفحة Me.ScaleMode = 3 Me.ForeColor = 0 Me.DrawWidth = 3 End Sub . جعفر

يمكن اضافة دالة بسيطة جدا على كود الاستعلام الاول هذا ليعمل وهى دالة ABS وهى لتحويل القيم السالبة الى موجبة وذلك بدلا من الاستعلام الاخير او لجعل الاستعلام مبسطا اكثر ليصبح الاستعلام الاول هكذا UPDATE tabl_item SET tabl_item.الربح = Abs([tabl_item]![الربح])*-1 WHERE (((tabl_item.الكمية)<0));

وعليكم السلام تفضل ولكن عليك بتغيير المسار داخل الكود الى ما تريده Sub openwb() Dim sPath As String, sFile As String Dim wb As Workbook sPath = "D:\sarath\PTMetrics\20131004\D8 L538-L550 16MY\" sFile = sPath & "D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm" Set wb = Workbooks.Open(sFile) End Sub

ولو مصر على استعلام التحديث ممكن تنشأ هذا الاستعلام وهذا كود SQL الخاص به UPDATE tabl_item SET tabl_item.الربح = [tabl_item]![الربح]*-1 WHERE (((tabl_item.الكمية)<0)); فقط انشئ استعلام جديد وافتحه فى طريقة عرض SQL وضع هذا الكود وقم بحفظه وسيعمل معك ان شاء الله

تفضل تحويل_الى_سالب.rar

اخى حسين اضرب حقل الربح * -1 مع استعمال قاعدة IIf وتكون حللت المشكلة ان شاء الله

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

البرنامج تم تصميمه على اوفيس 2013 32 بت احتمال عندك اوفيس قديم مشان هيك ما رح يفتح

على اساس كلما تريد تحسب وزن جديد ، لازم تفتح النموذج من جديد ، وعليه يكون المسمى في الحقل label5 هو 0 ، جرب هذا الكود: Private Sub MSComm1_OnComm() On Error Resume Next 'اذا كانت القيمة 0 ، فاكتب القيمة الجديدة، وإلا فلا تكتبها if me.Label5.Caption<>"0" then exit sub If MSComm1.CommEvent = comEvReceive Then me.Label5.Caption = Val(Mid(MSComm1.Input, 3)) End If 'MSComm1 MSComm1.InBufferCount = 0 End Sub جعفر

السلام عليكم ورحمة الله وبركاته اخي عبد العزيز ، اهلا وسهلا بك في المنتدى 🙂 رجاء مراعاة قواعد المشاركة فى الموقع 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف تم تعديل عنوان الموضوع 🙂 جعفر

وعليكم السلام 🙂 شو الزر اللي تضغط عليه علشان يبدأ الميزان يحسب ويعطيك النتيجة؟ جعفر

حرب الملف المرفق نسبة مئوية.xlsx

تفضل المرفق امسح المجاميع نهاية كل صفحة ( الخلايا الملونة ) قم اضغط زر التجميع Sample GxE=D.xlsm

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

جرب هذا شوف استعلام q2 استعلام بشرط.rar

ضع لى رابط التسجيل لاسجل عضوية جديدة للمعاينة و فك تشفير المعرف

هل ملاحظتك بعد عمل التجربة في محيط العمل؟

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

السلام عليكم بكل سهوله يا جماعه =TEXT(B35,"[$-,197000]B2dd/mm/yyyy;@") في هذه الحاله تكون التقويم ميلادي قم فقط بتغير الخانه المراد العمل عليها B35 اما في حالة ان يكون التقويم هجري قم فقط بإزالة الاصفار 000 تتحول الي هجري =TEXT(B35,"[$-,197]B2dd/mm/yyyy;@") الهجري التقويم التقويم الميلادي.xlsx

مثال بسيط يوضح احدى الطرق لرصد درجات مادة حسب الصف مع بعض اللمسات على نموذج الادخال اتمنى تجدوا الفائدة ادخال درجات مادة وفصل.rar