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

هذا برنامج جديد برنامج رسوم الطلاب.pdf برنامج رسوم الطلاب.xlsm

نصيحة يجب ان تنسى اكسل ، وتنتقل الى اكسس وتعمل مشروعك عليه بالنسبة للبيانات يمكنك نقلها الى اكسس كما بين لك اخونا عمر ضاحي .. بعد اكتمال مشروعك

السبب في قناع الادخال اتفضل التعديل دالةDLOOKUP.rar

هل يوجد في المنتدى قائمة ( اشارة مرجعية ) لحفظ مواضيع مثل هذه الصور

تفضل استاذ عمر.. عسى ان يكون هذا مطلبك اختر التاريخ وادخل الراتب وعدد الايام salary1.accdb

حبيبي استاذ ابو الحسن جرب هذا الكود وهو تعديل لكودك =Sum(IIf([iPage]=4;0;[iAmount]))-Sum(IIf([iPage]=4;[iAmount];0))

اسف استاذى الحبيب حدث معى مشكلة بالكود هل يمكن التنفيذ بالمعادلات عن طريق معادلة تضاف الى التكست هذه محاولة منى بها مشكلة =Sum(IIf([iPage]=1;0;[iAmount]))-Sum(IIf([iPage]=1;[iAmount])) تحتاج تعديل حيث ان المعادلة لا تعمل الا اذا اختارنا الحساب رقم1 احتاج لتعديلها فى تكست المجموع بدون احتاج الى ان تظهر مجموع المبالغ بها وفى حالة وجود اسم الحساب الايراد3 يظهر بها مبلغ الايراد3- مجموع المبالغ يعنى فى هذه الصورة يظهر بها600-100+200+300+700=-700 600 الايراد3-100 الايراد1+200 الايراد8+300 الايراد5+700 الايراد1 بارك الله فيك استاذى الحبيب احترامى

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

رزقت خير الدارين استاذى ان شاء الله شكر وتقدير وفائق الاحترام من اخيك

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

عاشت الانامل استاذ محمد شكرا جزيلا الله يرحم امواتك ويجعلها في ميزان حسناتك تحياتي لحظرتك

ارفع برنامج اكسيس ولا نسخه من البرنامج اكسيل الخاص بي

ممكن ترفع نسخه غير كامله او نسخه تحتوي على بيانات غير مهمه علشان احاول اشرحلك عليها

من فضلك ممكن تصملي ع ملف اكسل

يتم ذلك من خلال (تابع هذا القسم) الموجودة أسفل الموضوع في نسخة الموبايل واعلى يسار الموضوع في نسخة سطح المكتب ويمكن الوصول إليه من (المحتوى الذي أتابعه) في القائمة التي تخص المستخدم بالتوفيق

هل تعني أن شرط + و yes ينطبق أيضا على E13 & E14؟ إذا كان هذا هو المطلوب فيمكن تغيير Elseif إلى End If If تم تحديث الكود السابق

حتى يعمل أي كود على ويندوز 64بت نضع ptrsafe قبل function في الإعلان عن أي دالة من دالات النظام

بارك الله فيك استاذ محمد الكود يعمل بشكل ممتاز فقط محتاج ان تكون الخليه C10 تساوي positive عندما تحتوي الخليه E13 او E14 على + كما في الصورة ادناه

في يوم الجمعة المباركة الى كل القائمين على هذا الصرح العلمي العملاق بوركت جهودكم وجزاكم الله كل خير ،،، لقد نجحت الدالة في استرجاع القيمة الصحيحة عن طريق DLOOKUP AND DSUM وعليه اشكر كل من د.كايف يار Eng.Qassim ا/محمد صالح في ميزان حسناتكم ان شاء الله

عليكم السلام والرحمة السبب : لانه لا يحتوي على اكواد DATA14-1.rar

عن اذن استاذي د.كاف يار دالةDLOOKUP.mdb

تفضل هذا ملفك بعد تعديل إجراء التسليم إلى ما يلي Sub Submit_Data() Dim iRow As Long, row As Long, sh As Worksheet If frmDataEntry.txtRowNumber.Value = "" Then Set sh = shDatabase iRow = sh.Range("A" & Rows.Count).End(xlUp).row + 1 Else If frmDataEntry.ComboBox7 = "Check OUT" Then Set sh = Sheet2 iRow = sh.Range("A" & Rows.Count).End(xlUp).row + 1 row = frmDataEntry.lstDatabase.List(frmDataEntry.lstDatabase.ListIndex, 0) + 1 ThisWorkbook.Sheets("Database").Rows(row).Delete Else Set sh = shDatabase iRow = frmDataEntry.txtRowNumber.Value End If End If With sh.Range("A" & iRow) .Offset(0, 0).Value = "=if(b" & iRow & "="""","""",Row()-1)" .Offset(0, 1).Value = frmDataEntry.TextBox1.Value .Offset(0, 2).Value = frmDataEntry.TextBox2.Value .Offset(0, 3).Value = frmDataEntry.TextBox3.Value .Offset(0, 4).Value = frmDataEntry.ComboBox1.Value .Offset(0, 5).Value = frmDataEntry.ComboBox2.Value .Offset(0, 6).Value = frmDataEntry.TextBox4.Value .Offset(0, 7).Value = frmDataEntry.TextBox5.Value .Offset(0, 8).Value = frmDataEntry.TextBox6.Value .Offset(0, 9).Value = frmDataEntry.TextBox7.Value .Offset(0, 10).Value = frmDataEntry.TextBox8.Value .Offset(0, 11).Value = frmDataEntry.ComboBox3.Value .Offset(0, 12).Value = frmDataEntry.ComboBox4.Value .Offset(0, 13).Value = frmDataEntry.ComboBox5.Value .Offset(0, 14).Value = frmDataEntry.ComboBox6.Value .Offset(0, 15).Value = frmDataEntry.TextBox9.Value .Offset(0, 16).Value = frmDataEntry.ComboBox7.Value End With If frmDataEntry.txtRowNumber.Value = "" Then MsgBox "Data Submitted Successfully!" Else MsgBox "Data updated Successfully!" End If Call Reset_Form Application.ScreenUpdating = True End Sub بالتوفيق program.xlsm

اعتذر عن سرعة الرد فعلا كان لابد اطلع على كامل الكود اولا الخطأ لديك انك استخدمت DLOOKUP فهذه لإستدعاء قيمة محددة تفضل التعديل دالةDLOOKUP.mdb

تفضل هذه جرب هذه المعادلة ينتهي اليوم في الساعة 8 ص اليوم التاريخ 27 يكون التاريخ 27 بعد الساعة 8 ص و قبل الساعة 8 ص يكون التاريخ 26 IIf(Format(Now();"h")<=8;Format(DateAdd("d";-1;Now());"yyyy/mm/dd");Format(Now();"yyyy/mm/dd"))

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

يمكنك استعمال هذا الكود في حدث عند التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 8 And Target.Row < 17 And Target.Column = 5 Then Dim C As Range, a As Boolean, b As Boolean For Each C In Range("E9:E16") If InStr(C.Value, "Positive") And (C.Row = 13 Or C.Row = 14) Then If Not a Then Range("C13").Value = "Titer250": a = True End If If InStr(C.Value, "+") Or InStr(C.Value, "yes") Then If Not b Then Range("C10").Value = "Positive": b = True End If Next C If Not a Then Range("C13").Value = "Nil" If Not b Then Range("C10").Value = "Negative" End If End Sub بالتوفيق

يحفظك ربي اخي العزيز بالتوفيق

تفضل تم التعديل كما تريد كما تم توضيح كيفية زيادة الحقول كما تشاء بصورة توضيحية .. وأعتقد ان هذا يكفى حتى يتم اغلاق المشاركة نموذج ادخال البيانات2.xlsm

تفضل بيان تجميعى1.xlsx

جرب هذا الملف Shibl_Find.xlsm

ربما يكون حل

السلام عليكم تم تعديل 1- في الكود اسم الورقة sheet2 تم تعديله الى ورقة2 2- تم استبدال خانة القيد بالديانة لدقة الاحصائيات وتم استبدال كلمة مسلم بمسلمة ومسيحي بمسيحية في المعادلة الموجودة في f4 و f5 3- تم تعديل نطاق النسخ في الورقة , 4- تم ربط زر المعاينة بالكود وكذلك زر مسح وللعلم الكود يقو بهذين الامرين فلا داعي لاستخدامهما 5- ليس بمقدوري شرح الكود فهناك اشياء بالكود لا اعلمها 6- الكود بطئ جدا ولا اعلم السبب ولكنه يقوم بالامر المطلوب كنترول d2021.xlsb

تفضل المرفق ظهور واختفاء كائن بشرط22.rar

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

ربنا يبارك فيك وتقبل الله منا ومنكم شاكر لمرورك الطيب

للأسف أخي خالد لا يمكن تحميل الإصدار الجديد بل يمكنك التمتع بمزاياه الفريدة مباشرة من النت ومنها: مجموعة متنوعة من المصاحف منها مفسر ومنها مشكل بالتجويد ومنها مترجم وغيرها استعمال العدسة للتكبير امكانية تغيير صورة الخلفية امكانية استعمال علامات الوصول (بوكمارك) نفعنا الله وإياكم به

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

آمين أخي هشام منا منكم أسعدني مرورك

آمين ولك مثلها أخي سالم سلّمك الله من كل سوء

آمين أخي ولك مثلها و لا تنس أني مدرس لغة عربية أخي يحيى المهم رأيكم ايه في الكلمات؟ إذا أردت معرفة الكثير عن مكانتي الشعرية اضغط هنـــا سعيد بمرورك الطيب

للعلم يجب أن تكون دقة الشاشة لديك على الأقل 768*1024 حتى تستمتع بالإصدار الجديد

شكرا جزيلا لأخي خالد وأقدم لمن ليس لدية مساحة على جهازه ويريد القراءة من النت مباشرة هذا الرابط للمصحف بالشكل المقدم من الأخ خالد هنــــــا (غير متاح حاليا) وهذا هو الإصدار الأحدث من نفس البرنامج وبه من المميزات الكثير اكتشفها بنفسك هنـــــا لا تنسوني بدعوة صالحة وقت الإفطار أمانة عليكم أخوكم محمد صالح