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

السلام عليكم ورحمة الله وبركاته بعد إذن أستاذنا الكريم @نزار سليمان عيد هذا حل آخر ارقام جلوس.xlsm

Sub Test() Dim m As Long m = Cells(Rows.Count, 1).End(xlUp).Row + 1 Rows(m & ":" & Rows.Count).Clear End Sub

شاهد المرفق اخي الجنس.xlsm

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

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

فضلا انظر للمرفق واي استفسار خبرني من فضلك ارقام جلوس.xlsm

انقل الكود من المرفق تم استبدال رقم العمود بالإسم orwahSch (1).mdb

السلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونو جمبعا بخير حال الموضوع اليوم قد وضحه العنوان كنت قد وعدت الاخوة فى هذا الموضوع ببعض التحديثات فوجدت ان كل هذه التحديثات يقدمها تطبيق واتساب اتجهت بفضل الله وكرمه الى محاكات نظام واتساب بالاكسس هذا الموضوع هدية لككم واتمنى ذكر الحقوق ان امكن ذلك والان مع الشرح اعتذر لرفعه على موقع خارجى لانتهاء المساحه هنا حجمة 2 ميجا فقط https://www.mediafire.com/file/ir1l91d6g18d8iy/AccessWatsapp.rar/file اتمنى التجربة واعلامى بالنتائج شكرا لكم

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

في الكنترول سورس للمربع الغير منظم ضع الكود التالي DCount("[id]";"Table1";"[id]=" & [id]) id يمثل باركود الصنف

السلام عليكم ورحمة الله اضرب الرقم فى 100 و اقسم الناتج على 84 تعرف اصل الرقم قبل الخصم

اعكس الاشارات كما في مثالي السابق

الاجابه دى فوق الخيال شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا شكرااااا يارب من كان فى معية الناس كن عونا له فاللهم استجب انا كنت محتاج ان الدوال تشتغل تلقائى اتا بشتغل على 2010 مش عارق السؤال دة طبيعى ولا....... اعنى لما انسخ الدالة تعمل لازم ادوس على fx واضغط على اوامر الداله لتعطى النتيجه

احسنت اخي العزيز . جزاك الله الف خير

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

تفضل .. اتمنى هو مطلوبك تم تصفية النموذج الفرعي الثاني بناء على الرقم الاساسي في الفرعي الأول 1_2.rar

اخي احمد الفلاحجي اشكرك جدا جدا هذا هو المطلوب

تفضل هذا الموضوع مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server نشر الاكسس على الانترنت ابدء العمل و اذا واجهة مشكلة قم باضافة موضوع جديد

تفضل هذا التعديل Database1.zip

السلام عليكم اتفضل اخى ان شاء الله يكون ما تريد بالتوفيق Rubber Salse.accdb

تفضل هذا التعديل testQ-2.zip

شاهد المرفق اخي خلية.xlsb

تفضل هذا التعديل GoToForm.accdb

تفضل مساعدات مرضية جديد.accdb

جرب هذا التعديل الدائن و المدين.zip

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

Sub Test() GenerateUniqueRandom ActiveSheet, "D3:F22", 1, 60 End Sub Sub GenerateUniqueRandom(ByVal shTarget As Worksheet, ByVal sRng As String, ByVal iStart As Long, iEnd As Long) Dim w, v, rng As Range, c As Range, n As Long, i As Long, ii As Long, r As Long Set rng = shTarget.Range(sRng) If iEnd - iStart + 1 > rng.Cells.Count Then MsgBox "Generated Numbers Greater Than Range Cell Count", vbExclamation: Exit Sub w = Evaluate("ROW(" & iStart & ":" & iEnd & ")") n = 0 ReDim v(1 To rng.Rows.Count, 1 To rng.Columns.Count) For i = LBound(v, 1) To UBound(v, 1) For ii = LBound(v, 2) To UBound(v, 2) r = Application.RandBetween(iStart, UBound(w) - n) v(i, ii) = w(r, 1) w(r, 1) = w(UBound(w) - n, 1) n = n + 1 Next ii Next i rng.Cells(1).Resize(UBound(v, 1), UBound(v, 2)).Value = v End Sub

تفضل يمكنك استخدام هذه الدالة المعرفة =RandomNumbers(1,60,0) Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer) Application.Volatile Randomize If IsMissing(Decimals) Or Decimals = 0 Then RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1) Else RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals) End If End Function عدم التكرار.xlsm

احي شاهد المرفق Link_Files_In_Folder_And_SubFoldr.xls

تفضل جرب اللينك واخفاء الشيتات العملاء.xlsm

وعليكم السلام ولما لا تستخدم خاصية البحث بالمنتدى فبه طلبك تحديد أسماء رؤوس الأعمدة في Listbox فكما ترى بنفسك تم التعديل على الملف الأصلى فى عدد 2 فورم برنامج ادارة الاحياء.rar