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

الان وضح طلبك جرب المعادلة ادناه =SUMPRODUCT((E2:E9=INT(E2:E9))*(E2:E9)) واي استفسار خبرني انظر للملف SumCurrency.xlsx

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb1 Where [id]=" & [ud1])

بالتوفيق ان شاء الله ومبارك الترقية ..أعانك الله على مهامك ومسؤلياتك الجديدة

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

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

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

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

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة بالتنسيق الشرطى =C$2=$G3 تنسيق 1شرطي.xlsx

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

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

ممتاز أحسنت استاذى الكريم

مبروك الأستاذ lionheart إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله

أحسنت استاذ جعفر ... كود ممتاز جزاك الله كل خير وأحسن الله اليك

السلام عليكم ...إليك الحل أخي الكريم =CONCATENATE(TEXT(A2;"yyy/mm/dd");" ";TEXT(B2;"hh:mm am/pm")) New XLS Worksheet.xls

تفضل أخي الكريم توزيع11.xlsx

صورة توضيحية أكثر

If Sheets("ورقة1").Cells(Y, 1) = TextBox1.Text Then Exit For End If Next Y With Sheets("ورقة1") .Cells(Y, 2) = ComboBox1.Text .Cells(Y, 3) = TextBox2.Text .Cells(Y, 4) = TextBox3.Text .Cells(Y, 5) = TextBox4.Text .Cells(Y, 6) = TextBox5.Text .Cells(Y, 7) = TextBox6.Text .Cells(Y, 8) = TextBox7.Text .Cells(Y, 9) = TextBox8.Text End With جرب هذا التعديل على Private Sub CommandButton2_Click()

أخي العزيز البداية تبدأ من المصفوفة A بدل A = Cells(1).CurrentRegion يجب أن تكون A = Cells(1, 1).Resize(Cells(Rows.Count, 4).End(xlUp).Row, 11) ومن ثم يجب استبدال كل A(i,1) بـ A(i,4) وبما أنك الغيت A(i,4) من المصفوفة Array(A(i, 9), A(i, 10), A(i, 11)) فيجب إضافة سطر آخر في النهاية Sheets("الخلاصة").Cells(1, 1).Resize(.Count) = Application.Transpose(.keys) على كل مبين بالكود التالي Sub test() Dim A As Variant: Dim w As Variant Dim i As Long: Dim ii As Long ' A = Cells(1).CurrentRegion A = Cells(1, 1).Resize(Cells(Rows.Count, 4).End(xlUp).Row, 11) With CreateObject("scripting.dictionary") For i = 1 To UBound(A) If Not .exists(A(i, 4)) Then .Add A(i, 4), Array(A(i, 9), A(i, 10), A(i, 11)) Else w = .Item(A(i, 4)) For ii = 0 To UBound(w) w(ii) = w(ii) + A(i, ii + 9) Next .Item(A(i, 4)) = w End If Next ' Sheets("الخلاصة").Cells(1, 1).Resize(.Count) = Application.Transpose(.keys) Sheets("الخلاصة").Cells(1, 2).Resize(.Count, 3) = Application.Index(.items, 0, 0) Sheets("الخلاصة").Select End With End Sub أرجو أن أكون قد أفدتك وجاهز لأي سؤال جمع المكرر (1) (2).xlsm

تحت الفترة الصباحية اكتبي هذه المعادلة =IF((H3=A2)*AND(C2<F$1),"حضر","لم يحضر") وتحت المسائية اكتبي هذه المعادلة =IF((H3=A2)*AND(C2>F$1),"حضر","لم يحضر") انظري للمرفق واي استفسار خبريني من فضلك SSS1.xlsx

It's better not to put a lot of codes in worksheet module such as worksheet_change. Just input your data and finally click on a button to do all the task for you in one shot

جربى هذا الفيديو

السلام عليكم يمكنك استخدام هذه المعادلة لإيجاد مجموع الكميات بالعمود D بداية من الخلية D2 سحباً للأسفل =IF(COUNTIF($B$2:B2,B2)=1,SUMIF($B:$B,$B2,$C:$C),"") وهذه معادلة النسبة المئوية بالعمود E =C2/VLOOKUP(B2,$B$2:$D$2000,3,0) تجربة1.xlsx

وعليكم السلام-بسيطة وسهلة يمكنك تشغيل هذا الخيار أو إيقاف تشغيله حسب الحاجة عبر القيام بما يلي: انقر فوق ملف >‏ خيارات. في الفئة خيارات متقدمة، ضمن خياراتالتحرير، حدد خانة الاختيار تمكين مقبض التعبئة وسحب الخلية وإسقاطها أو قم بإزالتها.

لابد من تفعيل هذه الخاصية كما بالصورة .. وشكراً وبالتوفيق

بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذا الكود Sub RmDupsU() Dim U As Range, N As Long, i As Long, wf As WorksheetFunction Dim rUP As Range Set U = Range("A:A") Set wf = Application.WorksheetFunction N = Cells(Rows.Count, "A").End(xlUp).Row For i = N To 2 Step -1 Set rUP = Range(Cells(i - 1, "A"), Cells(1, "A")) If wf.CountIf(rUP, Cells(i, "A").Value) > 0 Then Cells(i, "A").Clear Next i End Sub Duplicate Clear Contents.xlsm

وعليكم السلام -يمكنك استخدام هذه المعادلة لإيجاد عدد العمليات =COUNTIFS(C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) ولإيجاد اجمالى المبلغ ... يمكنك استخدام هذه المعادلة =SUMIFS(B:B,C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) TQ1.xlsx

وعليكم السلام-اجعل المعادلة بالعمود C هكذا =VALUE(B1&A1) TEST1.xlsx

وعليكم السلام-دائماً وأبداً لابد من تدعيم اى مشاركة بملف موضح فيه المطلوب بكل دقة...فيمكنك استخراج الرقم 2018 بالمعادلة التالية =LEFT(AD1,LEN(AD1)-FIND("-",AD1)) أما 2019 بالمعادلة التالية =RIGHT(AD1,LEN(AD1)-FIND("-",AD1))

السلام عليكم 🙂 يتشرف منتدى الاكسس بالنيابة عن موقع اوفسينا وجميع الاعضاء ، ان نزف رتبة خبير الى الاخ موسى @Moosak ، والذي ذاع صيته كخبير من مشاركاته 🙂 اتمنى لك اخوي موسى دوام التقدم ، ولا تمد رجولك قد لحافك ، فلا تقبل بالارتقاء غير النجوم بدلا 🙂 جعفر

تفضل لك ما طلبت بهذه المعادلة =SUMPRODUCT(($C$2:$C$17=$E6)*(SUBTOTAL(103,OFFSET($C2,ROW($C$2:$C$17)-MIN(ROW($C$2:$C$17)),0)))) معادلة عد الخلايا المرئية فقط بشروط.xlsx

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

لم افهم المطلوب

لم أكمل قرأة ما كتبته كنت مشغول وحالا خلصت تعديل القاعدة الخاصة بك وتم عمل جدولين جديد وعمل 2 نموذج الاساسى أسمه form1 وهو ما طلبت بكل نفاصيله وعليك التجربة متمنيا من الله خيراً ما تمنيته من عند العباد والحمد لله وصلى اللهم وسلم وزد بارك على سيد ولد أدم (محمد بن عبد الله) نبياً ورسولاً وخاتم المرسلين test.rar الملف الحفظ طبقا للكود E:\scan\in يمكن تغييره بالأكواد

أعطاك الله مثلما قلت وشرح صدر وحل العقدة من لسانك وفقه قولك وسدد رجاءك ولنا مثله

بارك الله فيك وجزاك الله خير شرح رائع الله يعطيك العافيه

جزيت خيرا

المعادله مرنه وموجود شرط الوقت من ضمنها ولكن في ملفك الثاني اوقات دخول وخروج الموظف على اساس 24 بينما في وقت التحديد موجود على اساس 12 ساعه فضلا التوضيح

أخي الحلبي .. يمكنك تطويع الكود في المرفق اللذي أرسله الأخ أبو الحسن .. هكذا .. تكتب الرسالة في الكود هكذا : ShowBalloonTooltip "اكتمل", "تم الحفظ بنجاح", btNone ولإظهار الأيكونة لديك عدة خيارات تكتبها في المتغير الثالث ، وهي كالتالي : btNone btInformation btWarning btCritical المرفق :رسالة الحفظ.accdb ولنعرف شكل الرسالة الذي تقصدة بالضبط ،، اعطنا رابط أو صورة للفيديو الذي شاهدته 🙂

الاخوة الافاضل هل ممكن التكرم وشرح استخدام select case في الاكواد بمثال لو امكن او امثلة في ملف اكون شاكر

حسناً استبدل Private Sub ListBox1_Click() بـ Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

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

طيب ان شاء الله الفكرة التي سوف احاول تطبيقها كالتالي : ( حسب ظروفي ..... الله ييسر الامور ) اضيف حقلين Reserve و Reserve1 في الجدول كما في الصورة ( Reserve لعدد نصاب المعلم من حصص الاحتياط خلال اسبوع و حقل Reserve1 عدد حصص الاحتياط المسندة للمعلم أي كلما نقوم باسناد حصة احتياط يتغير الرقم صعودا حتى يصل لعدد حصص الاحتياط في حقل Reserve ويتوقف البرنامج تلقائيا من اسناد حصص لهذا المعلم .... وملاحظة يبدأ البرنامج باسناد حصص الاحتياط للمعلمين الاقل نصاب وهكذا ......... ___________________________________________________ عند عدم وجود معلم احتياط لحصة من الحصص يقوم البرنامج باظهار خانة اسم المعلم المنظر فارغة حتى يتم اسناد الحصة يدويا .....

تفضل اخى تصميم الاخوة بالمنتدى تقبل احترامى عرض رسالة على شريط المهام.accdb

شكر وتقدير واحترام من اخيك

فترة الضمان تكون صفر تمام مفهومة لكن لماذا يتم ازالة تاريخ نهاية الضمان وهي بوجهة نظري معلومة مفيدة يجب حفظها بقاعدة البيانات ليتم الرجوع اليها وقت الحاجة جرب هذه الفكرة لعلها تروق لك فترة الضمان.accdb

To implement With your workbook active press Alt+F11 to bring up the vba window In the Visual Basic window use the menu to Insert|Module Copy and Paste the code below into the main right hand pane that opens at step 2 Close the Visual Basic window Press Alt+F8 to bring up the Macro dialog Select the macro & click 'Run' Your workbook will need to be saved as a macro-enabled workbook (*.xlsm) استخراج اسماء من اسم كامل.xlsm

وعليكم السلام -يمكنك استخدام هذه المعادلة =IF(COUNTIFS($B$2:$B$200,B2,$C$2:$C$200,C2,$D$2:$D$200,D2,$E$2:$E$200,E2)>1,"مكرر","") Countifs.xlsx

وضح ... ماهي النتائج الغير صحيحة ولا تترك الموضوع عائم ... حتى نجد حل بامرالله ... ما هي النتائج الظاهرة لديك .. صورة لها ... وصورة للصحيح ...

الأمر بسيط جداً تفضل ... معادلة بالتأكيد ممتازرة بارك الله فيك استاذ محمد وأكرمك الله 1235.xlsx