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

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

وعليكم السلام 1. انا غيّرت الحقل "رقم السند" الى نص ، 2. هذه الوحدة النمطية تقوم بعمل الترقيم Function Next_Seq(T As String) As String 'T = Type نوع السند 'A = سند ايردات 'M = سند مصروفات 'S = سند سداد 'G = سند قبض myGroup = "A = سند ايردات" & vbCrLf & _ "M = سند مصروفات" & vbCrLf & _ "S = سند سداد" & vbCrLf & _ "G = سند قبض" If Len(T & "") = 0 Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G" & vbCrLf & vbCrLf & myGroup Exit Function ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G" & vbCrLf & vbCrLf & myGroup Exit Function Else Next_Seq = Nz(DMax("Mid([رقم السند], 2)", "السندات", "Mid([رقم السند], 1, 1) = '" & T & "'"), 0) Next_Seq = T & Format(Next_Seq + 1, "00000") End If End Function وكلما اردت ان تحصل على رقم جديد في نموذجك ، اكتب هذا الكود: تذكر 'A = سند ايردات 'M = سند مصروفات 'S = سند سداد 'G = سند قبض me.[رقم السند]= Next_Seq("A") جعفر 698.3333.mdb.zip

أو قم بعملية الاستثناء بعد سطر الحلقة التكرارية For x = 1 To k حيث يمكن أن تستخدم جملة الشرط IF وتقول إذا كانت ورقة العمل المتغيرة Sheets(x) لا تساوي كذا و (تستخدم And) لا تساوي كذا .. وأكمل .. و لاتنسى إغلاق جملة الشرط بجملة End IF للمزيد

احبتى فى الله السلام عليكم ورحمة الله وبركاته أتشرف اليوم بنشر الاصدار الأول من برنامج ( شئون الطلبة ) ـ للمرحلة الابتدائية [ روابط التحميل فى نهاية الاعلان ] *** مميزات البرنامج **** : 1 ـ البرنامج يوجد بنسختين للعمل على أوفيس 2003 أو أوفيس 2010 2ـ حجم صغير حيت لا يتجاوز الملف 1.3 MB فقط 3ـ برمجة عالية وسرعة فى الأداء. 4 ـ يحتوى على شئون الطلبة وكافة السجلات الإدارية 5 ـ قوائم الفصول والأنشطة الاختيارية : ــ حيث يتيح البرنامج الحصول على قوائم الفصول بحد أقصى 72 طالب فى الفصل ــ و يتيح الحصول على قوائم الفصول بحد أقصى 80 طالب فى الفصل الواحد . 6 ـ يقوم البرنامج باستخراج التلاميذ الموزعين على الأنشطة الاختيارية تلقائيا . 7 ـ سجلات قيد الطللاب من الصف الأول إلى الصف السادس 8 ـ تعليمات التشغيل الضرورية توجد على شكل ملاحظات داخل الأوراق . 9 ـ اسم المستخدم المبدئى هو Mohamed وكلمة المرور هى 2018 يمكن تغيير اسم المستخدم وكلمة المرور ---------------------------------------------- روابط التحميل : نسخة تعمل على أوفيس 2010 أو أعلى https://up.top4top.net/downloadf-557ngs9o1-rar.html نسخة تعمل على أوفيس 2003 https://up.top4top.net/downloadf-557krtmo2-rar.html -------------------------------------- وإليكم بعض الصور من داخل البرنامج أعجبنيعرض مزيد من التفاعلات تعليق ================ ماسبق منقول من الفيس

السلام عليكم اليكم ملف اكسيل يحسب ضريبة كسب العمل حسب التعديلات الأخيرة قانون رقم ( 82 ) لسنة 2017 وهنا الخصم محسوب على اجمالى الضريبة المستحقة وليس مبلغ الشريحة وهذا التفسير الاقرب للصحة حسب راى فقهاء واساتذة الضرائب فى مصر . ((ومع ذلك ستكون اللائحة التنفيذية هى القول النهائى )) ومحتويات هذا الملف : -الملف يشمل نص القانون -ويشمل مثال توضيحي وكيف يتم حساب الشرائح ومبلغ كل شريحة -ويشمل معادلة واحدة تحسب الضريبة بما فيها الشرائح والخصم لمره واحده حسب شريحة الممول ملحوظة هاااامه : (تم حساب الوعاء الخاضع للضريبة بعد خصم الاعفاء الشخصى 7000 فهو لم يعدل ). الملف بدون حماية ويحق للجميع النقل والاستفاده منه كما يشاء . وفق الله الجميع زكاة العلم نشره وارجو مشاركة الجميع تحميل الملف :https://www.mediafire.com/?la1rv8tr5t1ho0x لا تنسونا بصالح دعاؤكم هذا وماكان من توفيق فمن الله وحده وماكان من خطا او نسيان اوزلة لسان فمنى ومن الشيطان خالص تحياتى لكم التحميل فى المرفقات TAX 2017 - 2.rar

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

السلام عليكم .. على سبيل التخمين لأنني لا أدري ما المطلوب إلى الآن .. جرب الكود التالي Sub text() Dim ws As Worksheet Dim a As Variant Dim c As Range Dim i As Long Dim r As Long Dim ss As Long Set ws = ActiveSheet a = ws.Range("A2:B" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Value For i = LBound(a, 1) To UBound(a, 1) If a(i, 2) <> "" Then r = r + 1: a(i, 1) = r Else r = 0: a(i, 1) = "" End If Next i ws.Range("A2").Resize(UBound(a, 1), UBound(a, 2)).Value = a TextBox2.Visible = True TextBox5.Visible = False If Me.TextBox6.Value <> "" Then ss = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 Me.TextBox2.Value = ss Else Me.TextBox2.Value = "" End If End Sub

ولك اضعاف ما دعوت لي حفظك الله اخي الفاضل

السلام عليكم ورحمة الله المعادلة العادية استعملت فيها الدالة MATCH التي نعرف أنها تحدد الموقع الأول لقيمة في النطاق فقط، أما معادلات الصفيف فقد استعملت فيها الدالة SMALL التي تحدد مواقع كثيرة بالترتيب باستعمالها في معادلة صفيف مع المتغير الترتيبي للدالة... بالنسبة للمعادلة العادية يمكن استعمالها في كل الحالات لكن باستعمال عمود إضافي نحدد فيه مواقع كلمة Fr أو Sa أو غيرها في النطاق... وقد تم تطبيق ذلك في الملف المرفق... بن علية حاجي weekSum2.rar

السلام عليكم محاولة ربما تحقق طلبك تحياتي كشوف معاشات استثنائية.rar

وفقك الله اخي العزيز ياسر خليل..دائما مانجد الحلول المناسبة عندك

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

شكرا على سعة صدرك استاذي الحبيب

أخي الكريم محمود جرب الكود التالي (هل هذا ما تقصده؟) Private Sub TextBox2_Change() Dim ws As Worksheet Dim lr As Long Set ws = Sheets("الادارة الصحية") lr = ws.Cells(Rows.Count, 1).End(xlUp).Row TextBox1.Value = lr - 1 End Sub

اتفضل انا غيرت حقل رقم السند الى نصي اليك هذا كقيمة افتراضية لمربع نصي باسم رقم السند لنموذج ايرادات ="A000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "إيرادات'");"A0000");2;10)+1 وهذا لسند سداد ="S000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "سداد'");"S0000");2;10)+1 وهذا لنموذج القبض ="G000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "قبض'");"G0000");2;10)+1 وهذا لنموذج المصاريف ="M000" & Mid(Nz(DMax("[رقم السند]";"السندات";"[نوع السند]='" & "مصاريف'");"M0000");2;10)+1 اليك الملف بعد تعديل 3333.rar اعتذر منك استاذ @jjafferr الموضوع كان مفتوح وما انتبهت لردك

السلام عليكم ورحمة الله لم أفهم عليك معنى "الترتيب" مع جميع الأسابيع؟؟ بن علية

يجب كتابة البيانات بلغة يفهمها الاكسل 1-مثلاً يوم الاحد هو Sun و ليس Su يوم الاثنين هو Mon و ليس Mo و هكذا 2-أين التاريخ كي يتعرف الاكسل عليه

السلام عليكم ورحمة الله محاولة بمعادلتين (معادلة عادية للأسبوع الأول ومعادلة صفيف لباقي الأسابيع) في الملف المرفق... بن علية حاجي weekSum.rar

تفضل هذا الكود: . جعفر 696.المستخدمين.accdb.zip

ضع شيت "الرئيسية" في أول المصنف و "طباعة" قي اخره من حبث الترتيب استبدل For x = 1 To k بـــــ 1-For x = 2 To k

انا اعتذر منك ، لم اجرب الكود قبل ان اضعه لك واليك التغيير ، بعد التجربة: Dim rst As DAO.Recordset Dim C 'As Integer Set rst = CurrentDb.OpenRecordset("Select * From qry_workscope_utility") rst.MoveLast: rst.MoveFirst rst.MoveNext C = rst!VisitNo rst.MovePrevious rst.Edit If C <> "NA" Then rst!VisitNo = C + 1 End If rst.Update rst.Close: Set rst = Nothing Me.frm_WORKSCOPE.Requery جعفر

=SUMPRODUCT((الشــيت!$I9:$I65000=J$3)*(الشــيت!$J9:$J65000=L$4)*(الشــيت!$T9:$T65000=M$5)) معادله ب3 معايير .. جزاك الله كل خير الاستاذ المحترم بن عليه

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

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

هذا اهم شيء 1 / اقرأ بعض كتابات على الاكسس لكي تعرف ما هو بصورة عامة 2 / الجانب العملي سيعطيك الخبرة اكثر من قراءة الكتاب .. اي اعمل ما تريد و شارك مع الموضوعات وان شاء الله بمرور الوقت ستكون كما تريد هذا رأي

وعليكم السلام تفضل: لقياس سرعة تنفيذ المجموعة 1 ....كود t = timer ....كود t1 = timer - t ' الوقت بالثواني ....كود لقياس سرعة تنفيذ المجموعة 2 ....كود t = timer ....كود t2 = timer - t ' الوقت بالثواني ....كود . هكذا ، t1 و t2 و ... يعطوك وقت تنفيذ كل مجموعة ولكن اخذ اكثر من قراءة واحدة لكل مجموعة ، ثم اخذ المعدل. جعفر

السلام عليكم ورحمة الله محاولة في الملف باستعمال الدالة SUMPRODUCT حسب فهمي للمطلوب.. بن علية حاجي a.rar

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

وعليكم السلام اختي تفضلي: . . جعفر

وعليكم السلام تفضل ، ضع هذا الكود على زر التعديل في النموذج الفرعي: Me.Parent.الاسم = Me.Phone Me.Parent.مربع_تحرير_وسرد65 = Me.Country Me.Parent.الادارة = Me.City ولكن: اسماء الحقول في النموذج الرئيسي والنموذج الفرعي ، ماشاءالله تفتح النفس للخطأ فنصيحتي ان تعدل فيهم مادام البرنامج في اوله جعفر

تفضل http://eg4up.blogspot.com/2015/07/word-pdf-dopdf-83-build-934.html

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

السلام عليكم ورحمة الله وبركاته مشاركة مع استاذي القدير جعفر الحبيب على الرعم ان تم الوصول الى النتيجة لكن اريد ان اشارك معكم بطريقة اخرى اتفضل اليك هذا سطر من الكود لكي تعطيه بعد تحديث حقل التاريخ Private Sub date1_AfterUpdate() If Len(Me.Seq & "") = 0 Then Me.Seq = Nz(DMax("[Seq]", "tb1", Left(DMax("[Seq]", "tb1"), 2) = Right(Year([date1]), 2)), Right(Year([date1]), 2) & 0) + 1 Else Exit Sub End Sub 679.ترقيم جديد كل سنة جديدة.rar

فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox حمل من هنا اليحث فى الاقساط.rar

الاخوة الزملاء احب ان اشكر كل الزملاء بالمنتدى على مجهودهم الذى استفدت منه وان شاء الله ساستعين فى الشرح القادم بمجهودهم مع بعض التعديلات وذلك لشرح الطرق المتعددة للفورم للاستفادة منها فورم بحث وتعديل واضافة بيانات الدرس الثامن نتعرف على ComboBox البحث برفم الجلوس Private Sub ComboBox1_Change() Set sh12 = Sheets("بيانات") Lr = sh12.[a2000].End(xlUp).Row For Each CL In sh12.Range("a5:b" & Lr) If (Val(Me.ComboBox1)) = CL Then Me.TextBox1 = CL.Offset(0, 0) Me.TextBox2 = CL.Offset(0, 1) Me.TextBox3 = CL.Offset(0, 2) Me.TextBox4 = CL.Offset(0, 3) Me.TextBox5 = CL.Offset(0, 4) Me.TextBox6 = CL.Offset(0, 5) Me.TextBox7 = CL.Offset(0, 6) Me.TextBox8 = CL.Offset(0, 7) Me.TextBox9 = CL.Offset(0, 8) Me.TextBox10 = CL.Offset(0, 9) Me.TextBox11 = CL.Offset(0, 10) End If Next End Sub البحث برقم الجلوس مع اظهار عمودين الرقم والاسماء Private Sub ComboBox2_Change() Set sh12 = Sheets("بيانات") Lr = sh12.[a2000].End(xlUp).Row For Each CL In sh12.Range("a5:c" & Lr) If (Val(Me.ComboBox2)) = CL Then Me.TextBox2 = CL.Offset(0, 1) Me.TextBox1 = CL.Offset(0, 0) Me.TextBox3 = CL.Offset(0, 2) Me.TextBox4 = CL.Offset(0, 3) Me.TextBox5 = CL.Offset(0, 4) Me.TextBox6 = CL.Offset(0, 5) Me.TextBox7 = CL.Offset(0, 6) Me.TextBox8 = CL.Offset(0, 7) Me.TextBox9 = CL.Offset(0, 8) Me.TextBox10 = CL.Offset(0, 9) Me.TextBox11 = CL.Offset(0, 10) End If Next End Sub

الاخوة الزملاء مع الفيديو السابع فورم بحث وتعديل واضافة بيانات الدرس السابع بشاشة رئيسية مع ادخال صوت قران كريم { وَقُلِ اعْمَلُوا فَسَيَرَى اللَّهُ عَمَلَكُمْ وَرَسُولُهُ وَالْمُؤْمِنُونَ } الفيديو الملف بالكامل على الرابط التالى حمل من هنا

اتابع ابداعك بصمت وفقك الله

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

شكرا لأبي البراء توجيهات عامة مهمة توجيهات للأعضاء لمعرفة كيفية التعامل مع المنتدى بشكل أفضل والشكر موصول لمدير القسم Bluemind كيفيه اضافه مرفق الى مشاركتك!

السلام عليكم أخي الكريم تفضل المرفق غرامة تأخير.rar