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

السلام عليكم ورحمة الله تعالى وبركاته كل عام وانتم بخير وصحة وسعادة واسال الله تعالى ان يبلغني واياكم شهر رمضان واساله تعالى لى ولكم القبول هدية متواضعة اتمنى ان تنال رضاكم ( امساكية شهر رمضان ) طبعا تتم تغيير المواعيد او التواريخ وفقا لكل دولة التقويم المستخدم والمواعيد طبقا لمدينة القاهرة - جمهورية مصر العربية 147525677_.zip

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

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

السلام عليكم امتداداً لتطويرات برنامج الخليل المحاسبي يسرني أهدي لكم الإصدار الثاني مع تعديلات وإضافات جميلة كما أشكر أستاذي الفاضل @sandanet لقد استفدت من طريقته في الحماية حسب مشاركته القيمة : اترك لكم البرنامج . وآملاً أن اتلقى ملاحظاتكم القيمة بعد استخدام البرنامج . تقبلوا فائق المحبة والتقدير BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip

السلام عليكم كل عام وانتم الى الله اقرب التطبيق يحتوى على عدد 2 جدول الاول : tblMassagesSetting به اسماء الأزرار والتى يمكن ترجمتها الى اى لغة يريدها المصمصم الثانى : tblMassages وهو الجدول الذى يمكن للمصمم اضافة الرسائل به ليسهل تغير محتوى الرسائل او تعديلها دون الدخول الى وضع التصميم تعريف لمحتويات الجدول tblMassages ( جدول الرسائل ) الحقل IDMasg : معرف الرسالة هنا يتم وضع كود لا يقبل التكرار لكل رسالة ليتم استدعاء الرسالة داخل صندوق الرسائل من خلاله الحقل MasgPrtOne : نص الرسالة (السـطر الأول) هنا يتم كتابة السطر الأول من الرسالة الحقل MasgPrtTow : نص الرسالة (السـطر الثانى) هنا يتم كتابة السطر الثاني من الرسالة الحقل MasgPrtThree : نص الرسالة (السـطر الثالث ) هنا يتم كتابة السطر الثالث من الرسالة الحقل MasgHead : عنوان الرسالة هنا يتم كتابة عنوان الرسالة الحقل MasgType : معرف رمز الرسالة هنا يتم كتابة رقم رمز التى تريد ظهورها مع الرسالة والتى تدل على نوع الرسالة الحقل MsgBtn :معرف عدد الأزرار هنا يتم كتابة رقم عدد الأزرار التى تريد لها الظهور فى صندوق الرسائل يتم استدعاء الرسالة بالسطر الاتى مع تغيير معرف الرسالة الى الرقم الدال عليها MakeMsg (معرف الرسالة) اترككم مع الاستمتاع بتجربـة المرفق full control arabic Message Box 32x,64x .mdb

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

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

نعم أخي الكريم husamwahab هذا هو المطلوب فجزاك الله خيراً وأحسن إليك

حبيبي استاذ kha9009lid وانت من المحسنين كلام سليم جدا وهذا يوضح اهمية بناء قاعدة بيانات على اسس صحيحة مما يجعل التعديل والتطوير سهل وممكن

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

تفضل التعديل aaa.rar

تفضل التعديل ارجو ان يكون طلبك Tab_Tf2.rar

شكرا اساتذتي الكرام علي هذا المجهود الجبار

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

عليكم السلام والرحمة اجعل حقلي الاسم والتاريخ فقط كمفتاحين رئيسيين في الجدول المراد النقل اليه

تفضل 55.xlsm

تفضل اسعار العملاء (1).xlsm

يجعل الخلية بدون قيمة لا يوجد بها شيئ في ورقة الاكسل يوجد 1048576 ضف 16384 عامود اي 1048576× 16384 = 17179869184 خلية عن اي خلية تتكلم

حرب هذا الملف Option Explicit Sub Add_Sheets() Dim A As Worksheet Dim T As Worksheet Dim Arr_sh(), BoL As Boolean Dim ro%, X% Set A = Sheets("Aoumala") Set T = Sheets("Tempete") ro = A.Cells(Rows.Count, 2).End(3).Row If Application.CountA(A.Range("H5:H9")) < 5 Then MsgBox "Fill all Informations About The The Client" & Chr(10) & _ "In the range: " & A.Range("H5:H9").Address, 80 Exit Sub End If ReDim Arr_sh(1 To Sheets.Count) For X = 1 To Sheets.Count Arr_sh(X) = Sheets(X).Name Next BoL = IsError(Application.Match(A.Range("H6"), Arr_sh, 0)) If Not BoL Then MsgBox "This Sheet Is Already Exists" Exit Sub Else A.Range("H5:H9").Copy A.Range("A" & ro + 1).PasteSpecial Transpose:=True T.Copy After:=Sheets(Sheets.Count) With ActiveSheet .Name = A.Range("H6") .Range("D2") = .Name End With A.Select A.Range("H6:H9").ClearContents A.Range("H5") = A.Range("H5") + 1 MsgBox "That is ALL" End If End Sub Badawi.xlsm

جرب اسعار العملاء.xlsm

لا توجد مشكلة استاذي @ابوخليل في جدول بيانات الطلاب استخدم رقم كبير وبالتالي لعمل البرنامج نحتاج الى اصدار 2016 البناء 16.0.7812 او احدث

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

اعتذر انا اعمل على اوقيس 23 بيت قد تكون احد الدوال لم يت التعامل معها لتعمل على كلا من النواتين رجاء صورة من الخطأ

اتفضل مساحات (1).accdb

أخي الكريم كي يستطيع أحد مساعدتك يلزم وضع مثال هنا وبه جهودك وتوضح به المطلوب

تفضل يا اخى الملف فى المرفقات =INDEX($B$3:$D$16,SMALL(IF($D$3:$D$16="الاولى",ROW($B$3:$D$16)-2,""),ROW($A1)),1) وضحنا كتير هذا الأمر مسبقاً من قبل هذه معادلة مصفوفة وليست معادلة عادية ... فلابد من الضغط على ( Ctrl+Shift+Enter) وليس Enter فقط كباقى المعادلات وشكراً المطلوب.xlsx

السلام عليكم ورحمة الله يمكنك استخدام هذه الدالة المعرفة و هى تعطى الترتيب من الاول حتى العاشر فقط مع التكرار Function RRank(Cel As Range, Rang As Range) As String 'Cel : اول خلية فى نطاق الدرجات ' Rang : -F4- النطاق الذى سوف يتم البحث فيه ويجب تثبيته باستخدام مفتاح '---------------------- Dim Obj As Object, I As Long, Arr As Variant Dim temp As Variant, Itm As Variant, Rnk As Integer Dim x As Integer, k As Integer, MK As String, xx As String '================ Set Obj = CreateObject("Scripting.Dictionary") Arr = Rang.Value For Each Itm In Arr If Obj.exists(Itm) Then Obj.Item(Itm) = Obj.Item(Itm) + 1 Else Obj.Add Itm, 1 End If Next temp = Obj.keys I = Obj.Count '================ If I <= 10 Then k = I Else: k = 10 End If For n = 1 To k Rnk = WorksheetFunction.Large(temp, n) If Cel.Value = Rnk Then If n >= 1 And n <= 10 Then xx = Choose(n, "الاول", "الثانى", "الثالث", "الرابع", "الخامس", _ "السادس", "السابع", "الثامن", "التاسع", "العاشر") trb = xx Else trb = "" End If End If Next '================= m = WorksheetFunction.CountIf(Range(Rang.Cells(1, 1), Cel), Cel) If m > 1 And Cel.Value >= Rnk Then MK = " مكرر" Else MK = "" End If '================= RRank = trb & MK End Function

السلام عليكم أخي الصدِّيق طبعا يتم هذا الأمر من صفحة DATA هذا هو الكود Sub Shift() Sheets("Data").Activate LR_C = [E60000].End(xlUp).Row For r = 4 To LR_C 'المرور علي أسماء العملاء ، إن وجد ورقة بالإسم ذهب لبرنامج الكتابة عليها 'وإن لم يجد ، يتم تكوين ورقة جديدة بالإسم ثم يذهب للكتابة عليها clnt = Cells(r, "D"): cl_Cod = Cells(r, "E"): cl_addr = Cells(r, "F") If clnt = "" Then GoTo 20 For i = 1 To Sheets.Count If Sheets(i).Name = clnt Then GoTo 10 Next i 'برنامج تكوين ورقة جديدة بإسم العميل Sheets("sample").Visible = True Sheets("sample").Copy after:=Sheets(Sheets.Count) With Sheets(Sheets.Count) .Name = clnt .[B1].Value = cl_Cod .[B2].Value = clnt .[D2].Value = cl_addr End With Sheets("sample").Visible = xlVeryHidden Sheets("Data").Activate 10 'برنامج الكتابة علي ورقة موجودة بإسم العميل If r <> LR_C Then n_LR = Cells(r, 2).End(xlDown).Row - 1: GoTo 15 n_LR = [H10000].End(xlUp).Row 15 LR = Sheets(clnt).[D60000].End(xlUp).Row + 1 Range("B" & r & ":C" & r).Copy (Sheets(clnt).Cells(LR, 1)) Range("G" & r & ":K" & n_LR).Copy (Sheets(clnt).Cells(LR, 3)) 20 Next r End Sub أنظر المرفق فاتورة جديدة6.rar

السلام عليكم أخي العزيز / aly elhedewy تفضل المرفق فاتورة جديدة5.rar

السلام عليكم أخي الصديق تفضل المرفق فاتورة جديدة4.rar

تفضل فاتورة جديدة3.rar

بسم الله الرحمن الرحيم تحية طيبة وبعد كيف يمكن تحويل قاعدة البيانات الى صيغة EXE بحيث عندما تشغلها لا تستطيع الوصول الى الجداول والاستعلامات والتقارير فقط للنماذج يسمح الوصول ولكم جزيل الشكر