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

الاخ وليد ابو عمر Run.Cmd وجدن لك من النت ملف باتش ( سكريبت ) يقوم بمهمة الدمج في ملف جديد يسمي combined.csv يوصع في فلدر ملفات csv نفذ الملف وانتظر قليلا ستجد ملف بأسم combined.csv في نفس الفلدر Report.rar

اصلا لا يمكن التحويل الى accde بسبب اخطاء بالأكواد ادخل على صفحة محرر الاكواد لأي نموذج و اختر debug ثم compile سيظهر لك مكان الخطأ بعد تصحيحه اعد الخطوات أعلاه ... وهكذا

واحد من الاسطر ادناه يفي بالغرض او استخدمهما جميعا fchld.LinkChildFields = "" fchld.LinkMasterFields = "" ولا تنسى التحديث fchld.Requery باعتبار fchld هو اسم عنصر تحكم النموذج الفرعي ولاعادة الربط استخدم العبارة نفسها وبدلا من علامتي التنصيص الفارغتين : ضع اسم الحقل بينهما

وعليكم السلام ورحمة الله وبركاته السؤال ظاهرا سهل ، ولكني لم اجد طريقة سهلة لحلّه اليك خطوات عملي: الجدول الذي نأخذ منه البيانات: . والنموذج الذي يجب ان نحتار التاريخين فيه: . استعلام المجاميع Totals لجمع البيانات حسب الحالات المتشابهة بين تاريخي النموذج: . ونتيجته: . وفي الواقع ، كل العمل التالي هو لجعل معلومات الاستعلام اعلاه تدور 90 درجة الاى اليمين ، ليصبح: . لعمل الدوران لكل حالة ، نحن محتاجين نعمل استعلام جدولي Crosstab Query ، وفي حالتنا عندنا 3 حالات ، عدد البلاغات ، عدد المصابين ، عدد الوفيات: . والنتيجة لكل حالة: . ولكن الاستعلام الجدولي محتاج تضبيط قبل ان يشتغل بالطريقة الصحيحة: اولا: بإدخال جميع الحالات الموجودة ، حتى تظهر لنا في التقرير (وإن لم يكن فيها قيمة للفترة بين تاريخين): . ثانيا: بتعريف المعايير التي تم استخدامها في استعلام المجاميع سابقا: . الآن لدينا 3 استعلامات جدولية ، وفي كل واحد منها قيمة ، ولكننا نريد القيم الثلاث ، لذا يجب ان نعمل استعلام تجميع Union query لهذه الاستعلامات الثلاث: . والنتيجة: . ولكن الاستعلام اعلاه جدا حساس ، واذا غيّرت شئ ، فلن يعمل الاستعلام!! ولكننا بحاجة الى عمل مجموع للقيم !! لذا ، سنأخذ الاستعلام السابق ، ونعمل منه استعلام جديد عادي Select ، بحيث نجمع القيم في الحقل Total ، كمل عملنا حقل للملاحظات (طبعا انت يجب ان تربطه بجدول): . والنتيجة: . بس انت ولا يهمك كل الكلام اعلاه ، فقط اضغط في النموذج على زر معاينة التقرير ، علشان تحصل على نتيجة جميع الاستعلامات اعلاه: سهله هاه جعفر 411.Database11.accdb.zip

السلام عليكم إليك هذا الحل الجدول الأخضر يتم أخذ القيم منه العمود الأصفر فيه نتيجة الحساب باقي أن أعرف في حال كان لدينا 13 حبة فهل سيكون الناتج المطلوب 1.25 أم 1 ؟ إذا كان الناتج هو 1.25 فلا مشكلة , ستجد الجواب في المرفق أما إذا كان الناتج هو 1 فغير فيمة الخلية I2 من 0.25 إلى 0 ثم طبق المعادلة بعد ذلك على أي رقم تريده جرب المرفق coun1.rar

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

السلام عليكم أعضاء أوفيسنا الكرام أقدم لكم الفيديو السابع من فديوهات شرح أكسيس و يشرح هذا الفيديو طريقة البحث باستخدام شرطين وقتا ممتعا ملف الشرح مرفق أرجو من الإخوة الضغط على السهم الأبيض أعلى الفيديو و عمل مشاركة كما أكرر طلبى المعتاد من الأخ أبى خليل بضم الفيديو إلى الموضوع المثبت كالعادة وفقكم الله كيف تبحث بشرطين فى حقل قاعدة بيانات أكسيس.rar

السلام عليكم المشكلة في زر التعديل من وجهة نظري هي : 1. عند الاختيار من الكومبوبكس 1 والاختيار مباشرة من اللست بوكس يتم التعديل مباشرة لأن قيمة ListBox1 هي عبارة عن ( رقم ) وهو رقم الصف الموجودة فيه البيانات المراد تعديلها . ومن خلال هذا الرقم مع المعادلات الموجودة في الكود يتم التعرف على الصف المراد نقل تعديل البيانات إليه . شاهد الصورة التالية وانظر لقيمة ListBox1 : 2. عند الاختيار من الخيارات التي فرزها الكمبوبوكس 2 لا يتم التعديل ويظهر الخطأ وذلك لأن قيمة ListBox1 هي عبارة عن ( نص ) وهو النص الموجود في الخلية التي تم اختيارها في العمود b ويسبب ذلك أن المعادلات الموجودة لا تستطيع جمع نص مع أرقام لذلك يظهر الخطأ . شاهد الصورة التالية وانظر لقيمة ListBox1 : ملحوظة : a1 الموجودة في الصورة هي النص الموجود في الخلية b15 ملاحظة أخيرة : في الشيت لو استبدلت النصوص الموجودة في العمود b بأرقام سيعمل زر تعديل ولن تظهر الرسالة . ولكن المشكلة أن الترحيل يتم بشكل خاطئ وفي نفس الصف لجميع البيانات حقيقة حاولت وحاولت وحاولت أن أصحح الخطأ ولكن لم أستطع ويحتاج إلى أحد خبرائنا الأفاضل للتعديل .

اثراءً للموصوع هذا الملف Adress_Values.rar

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

بعد اذن اخي العزيز عاشق الاكسيل الاخ ابوسلماان اضغط مفتاحي كنترول اونت ضاغط عليه اضغط مفتاح F3 ستظهر لك الاسماء المعرفة سبب المشكلة استخدم هذا الكود التالي لحذف كل الاسماء من الملف ضع الكود في موديول ثم نفذه Sub RemNamedRanges() ' Dim nm As Name On Error Resume Next For Each nm In ActiveWorkbook.Names nm.Delete Next On Error GoTo 0 ' End Sub والمرفقات به ملفك وبه الاكواد للأحتياط Omar_1.rar

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

جرب هذه المعادلة =VLOOKUP(ROUND(MOD(B2/12,1)-1/1000,1),{0,0;0.1,0.25;0.2,0.25;0.3,0.25;0.4,0.5;0.5,0.5;0.6,0.5;0.7,0.75;0.8,1;0.9,1},2)+INT(B2/12)

الأخ الكريم ياسر خليل أبو البراء أوفيت وأوجزت (علمني الصيد خير من ان تعطيني سمكه كل يوم ) abo_abary_المقارنة2.rar

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

ممكن ترفق ملف للإطلاع عليه .. أعلم أنك قمت بحل المشكلة بشكل آخر ولكني أريد الإطلاع على الملف المرفق

وهذا كود لمن اراد فصل الارقام في حقل والحروف في حقل داخل النموذج Private Sub Command1_Click() Dim lets Dim i, r As Integer r = Len(Me.Text1) For i = 1 To r lets = Mid(Me.Text1, i, 1) If IsNumeric(lets) Then Me.Text3 = Me.Text3 & lets Else Me.Text2 = Me.Text2 & lets End If Next End Sub باعتبار Text1 هو الحقل المراد فصله و Text3 لاظهار الارقام Text2 لاظهار الحروف

تفضل ، جعلتها دالتين textNum و Numtext فصل الحروف عن الارقام دالة .rar

وعليكم السلام تفضل هذه الدالة textNum عملتها لك يمكنك ان تفصل بها الحروف عن الارقام او العكس الآن هي مهيأة لفصل الارقم ، فقط مرر اسم الحقل اليها وحتى تعكس النتيجة يلزم تفعيل السطرين 3 ، 4 __ وحجب السطرين 1 ، 2 Public Function textNum(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets ' السطر1 خاص بالارقام Else 'lets3 = lets3 & lets ' السطر3 خاص بالحروف End If Next textNum = lets2 'السطر2خاص بالارقام 'textNum = lets3' السطر4 خاص بالحروف End Function

مشطوووووووووور الله يفتح عليك ابواب رحمته

جرب بنفسك وشوف .. غير زي ما إنت عايز (جمد قلبك متخافش ..الموضوع بسيط) وارفع شعار حاول وافشل ..حاول وافشل .. ولا تكف عن المحاولة ، فيكفيك شرف المحاولة

السلام عليكم احبابى فى الله احب ان اقول لكم بارك الله فيكم وفى اعمالكم بجد جهد تشكرون عليه جعل الله اعمالكم فى ميزان حسانتكم جميعآ وآخرآ وليس أخيرآ احب ان اعرفكم بنفسى انا وكيله شؤن طلبه بمدرسة صناعيه بشبين الكوم ولى طلب من حضراتكم اريد ان اعمل برنامج بشؤن الطلبة وليس عندى الا شويه افكار من الممكن ان اقولها لكم وهى ان يكون البرنامج مكون من 1-صفحه رئيسيه للتنقل بها فى صفحات البرنامج 2- صفحه لتسجيل بيانات الطلاب ويستحسن ان تكون عدد كبير لا يقل مثلآ عن 2000 طالب لذياده عدد الطلبه لدينا وبهذه الصفحه تحدد بها الاسم والفصل والنوع والديانه والتخصص وعنوان الطالب 3- الصفحه الاساسيه فى تسجيل الغياب وهى عباره عن الخطه الزمنية التر خاناتها تتكون من الشهر والتاريخ اعلا الصفوف وهذه التوارخ تضاف يدويآ حسب الجدول الزمنى للدراسه ويوجد فى هذا الشيت بيان بان لو الطالب حصل على 7 ايام يرحل بياناته الى ورقه تسمى ورقه انزار يتم طباعتها ارسالها الى الطالب وكذالك عند14 يوم وهذا يكتب عليه انزار ثانى وواحد وعشرين يوم وهذا انزار ثالث واذا تجاوز الطالب ال31 يوم يفصل من المدرسه واذا حصل ايضآ على 21 يوم متصله يفصل 4-ورقه بها قرار الفصل ويرحل فيه الطالب الذى حصل على 21 يوم متصله او 31 يوم منفصله 5-وايضآ الشيت به ورقه للقوائم ترحل من ورقه تسجيل بيانات الطالب ويحدد بالورقه عدد الفصول كما هو موزع بالمدرسه حسب الاقسام وتكون جاهذه للطباعة -واسفه على الاطاله وارجو المساعده واى بيانات تريدونها عن مجال التعليم الفنى والقرارات فى شؤن الطلبه انا مستعده لإتمام هذا العمل بإذن الله وقد سبقلى بالمشاركه فى هذا الموضوع وطلب منى بعض الاساتذه بالمعلومات ووجد اشبه بما اريده فى الملف المرفق من الاستاذ احمد ايمن بارك الله فيه

بعد إذن أساتذتى أللى وحشونى بجد وهذا حل أخر لإثراء الموضوع أول خلية وأخر خلية.rar

ولاثراء الموضوع هذه معادة لايجاد آخر بيان فى العمود A سواء كان نص أو رقم أو شئ آخر =OFFSET(A1;MAX(ROW(A:A)*(A:A<>""))-1;0) وهى معادلة صفيف أى لابد من الضغط على مفاتيح CTRL + SHIFT + ENTER معا

السلام عليكم ورحمة الله أهلا بك أخي "أبو حنين" افتقدك المنتدى كثيرا وشكر على الكود الجميل الذي وضعته... هذا حل آخر بالمعادلة على أساس أن البيانات في العمود A من الورقة Sheet1 : =INDEX(Sheet1!A:A;MATCH("zzz";Sheet1!A:A;1)) بطبيعة الحال هذا إن لم يكن أحد المستعملين اسمه "zzz" وأن تكون الأسماء نصية... أخوكم بن علية

السلام عليكم على افتراض ان القيم المراد معرفتها موجودة في الورقة 1 في العمود الاول و تريد رؤيتها في الورقة 2 في العمود H فيكون الكود كالتالي : Private Sub Workbook_Open() Sheets("ورقة2").Range("H1").Value = Sheets("ورقة1").Range(("A") & Sheets("ورقة1").Cells(Rows.Count, "A").End(xlUp).Row).Value Sheets("ورقة2").Select End Sub