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

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

وعليكم السلام ورحمه الله وبركاته تفضل رسالة واتساب عام محدث7.xlsm

السلام عليكم ورحمة الله تعالى وبركاته طبعا قد يقول البعض ان الموضوع اتهرس فى ميت فيلم عربى قبل كده لكن على كل حال تم تدارك الكثير من المشاكل ومعالجتها بشكل احترافى - اخفاء اطار لاكسس بالشكل الطبيعى والتقليدى لعرض النموذج كاملا - اخفاء اطار الاكسس وعمل شفافية للنموذج لاظهار صور png او حسب خيال المسخدم - تم ضبط كواد التوسيط للنماذج والتقارير باحترافية ويعمل التوسيط مع الخاصية Pop Up فى اى وضع كانت فى حالة عدم استخدام الاخفاء - تم حل مشكلة عدم ظهور التقاربر عند الاخفاء بتكبير التقرير تلقائيا عند استخدام كود الاخفاء - امكانبة التصغير للتطبيق بجوار الساعة ( System Try ) - عند التصغير بجوار الساعة ممكن الضغط كليك يمين على الايقونة لتظهر قائمة اختيارات - تم ضبط كود تغير ايقونة الاكسس باحترافية وبشكل تلقائى من المسار المحدد او فى حالة عدم وجود الايقونة ترجع ايقونة الاكسس - تم التعامل مع الاكواد بحرفية تامة للعمل على بيئات الأنوية المختلفة سواء كانت 32 , 64 اترككم مع تجربة شيقة ملاحظة هامة : ارضاء للجميع ولاضفاء اكبر قدر ممكن من المرونة المرفق يحتوى على قاعدتان الاولى : تم تجميع كل الاكواد والدوال فى وحدة نمطية عامة واحدة وكلاس موديول واحد لسهولة الاستفادة منها ونقلهم الى اى قاعدة الثانية : فصل اكواد كل وظيفة على حدة فى مديول خاص بها تم اضافة تعديل وتحديث جديد بتاريخ 11/10/2024 رقم اصدار التعديل الاخيــر : 4.8 center and Hid and Tray Minimizer V 30.zip center and Hid and Tray Minimizer V 4.8.rar

هذه مشكلتكم كمحاسبين .. وليس طبيعي الطبيعي ان البيانات تدخل اول بأول .. ولو حدث سقط .. يتم ادراج البيانات بتاريخ اليوم الحالي ويشار الى التاريخ الحقيقي في البيان او الملاحظات --------------------------------- لا يخطر على بالي الآن فكرة ترتيب وترقيم حسب منهجكم .. غير التاريخ لذا نرجع ونستقر على طريقتنا الأولى . DSUM4.rar

تفضل ملفك بعد التعديل ...................... base_r_BAR.accdb

وعليكم السلام ورحمة الله تعالى وبركاته الخيار رقم 1 لاستخراج النتائج اظن انك بحاجة لفك الدمج على خلايا العمود A حيث أن الخلايا المدمجة تعتبر خلية واحدة في Excel مما يسبب تعارضا مع الدوال قم بإلغاء دمج الخلايا في العمود A (الصفوف 4 و 5) بحيث تصبح كل صف يحتوي على القيمة الصحيحة و بعد إلغاء الدمج استخدم المعادلة التالية =SUMPRODUCT(($A$4:$A$7=I14)*($B$4:$B$7=J14)*($C$4:$E$7)) إذا كنت تريد الاحتفاظ بالدمج يمكنك استخدام عمود مساعد (على سبيل المثال العمود O ) لتكرار القيم الموجودة في العمود A في الخلية O14 مثلا استخدم المعادلة التالية مع سحبها للاسفل =IF(A4<>"", A4, O13) استخدم المعادلة التالية في الخلية M14 لتستخدم العمود المساعد بدلًا من العمود المدمج A =SUMPRODUCT(($O$14:$O$17=I14)*($B$4:$B$7=J14)*($C$4:$E$7)) Officena (1).xlsx

بارك الله فيك وجعلها الله في ميزان حسناتك

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Sub Test_EvaluateConditions() Dim WS As Worksheet: Set WS = Sheets("Sheet1") Dim Irow As Long, n As Long, OnRng As Variant, a() As Variant Irow = WS.Cells(WS.Rows.Count, "N").End(xlUp).Row OnRng = WS.Range("J3:W" & Irow).Value ReDim a(1 To UBound(OnRng), 1 To 1) For i = 1 To UBound(OnRng, 1) n = Val(OnRng(i, 14)) * 365 + Val(OnRng(i, 13)) * 30 + Val(OnRng(i, 12)) a(i, 1) = Choose( _ Application.WorksheetFunction.Match( _ True, Array( _ OnRng(i, 9) <> "", _ OnRng(i, 8) = "" And n > 365, _ OnRng(i, 8) = "" And n <= 365, _ OnRng(i, 7) <> "" And n > 3 * 365, _ OnRng(i, 7) <> "" And n <= 3 * 365, _ OnRng(i, 6) <> "" And n > 6 * 365, _ OnRng(i, 6) <> "" And n <= 6 * 365 And n >= 3 * 365, _ OnRng(i, 6) <> "" And n < 3 * 365, _ OnRng(i, 5) <> "" And n >= 2 * 365, _ OnRng(i, 5) <> "" And n < 2 * 365 _ ), 0 _ ), _ "كبير", "الأول أ", "الأول ب", "الثاني أ", "الثاني ب", "الثالث أ", "الثالث ب", "الثالث ج", "الرابع أ", "الرابع ب" _ ) Next i WS.[X3].Resize(UBound(a, 1), 1).Value = a End Sub

تم اضافة اصدار جديد لتنقيح وتفادى بعض الاخطاء بتاريخ 22/09/2024 - ضبط اسهم زيادة او نقصان الشهور والسنوات تبعا لترتيب واجهة ترتيب التواريخ ( يمين / يسار ) - ضبط الفتح التلقائى لقائمة السنوات او الشهور لاغلاقها اذا كانت مفتوحة بدلا من اعادة فتح القائمة مرة اخرى عند تكرارا الضغط رقم الاصدار الجديد 4 يمكن تحميل مرفق الاصدار الجديد من رأس الموضوع او من هنا Handler - calendar (V4).accdb

السلام عليكم ورحمة الله الشرح بالصور في الملف المرفق... تنسيق الفقرات.xlsx

وعليكم السلام ورحمة الله وبركاته نعم يمكن ذلك بواسطة كود عند الضغظ على الزر سيظهر صندوق يطلب فيه ادخال كلمة مرور ااصفحة 1 مثلا وهكذا الكود Sub ProtectSheetsWithDifferentPasswords() Dim ws As Worksheet Dim password As String For Each ws In ThisWorkbook.Worksheets password = InputBox("أدخل كلمة المرور للورقة: " & ws.Name) If password <> "" Then ws.Protect password:=password End If Next ws MsgBox "تم قفل جميع الأوراق بكلمات مرور مختلفة." End Sub مثال كلمة مرور مختلفة.xlsb

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

بارك الله فيكم جميعا ولإثراء الموضوع وترتيب الكود وتنظيمه يمكننا استعمال هذه الدالة بعد التحسين تم جعل الأسماء المركبة بدلالة الكلمة الأولى في مصفوفة منفصلة عن الأسماء المركبة بدلالة الكلمة الثانية يمكن احضار الاسم الأول بتمرير رقم 1 في المعامل الثاني للدالة ويمكن احضار اسم الاب برقم 2 أو بدون المعامل الثاني Function SplitName(Name As String, Optional part As Integer = 2) As String Dim K As String, S As String, N As Integer, M As Integer, FirstName As String Dim startsNames As Variant, endsNames As Variant, sName As Variant K = Trim(Name): M = Len(K): S = " " ' مصفوفة الأسماء المركبة التي تبدأ بكلمات معينة startsNames = Array("عبد", "أبو", "ابو", "ام", "أم", "ذو", "امرؤ", "سيف", "زين", "روح", "عين") ' مصفوفة الأسماء المركبة التي تنتهي بكلمات معينة endsNames = Array("الله", "الدين", "بالله", "الزهراء", "الهدى") If InStr(1, K, S, 1) = 0 Then SplitName = Name Exit Function End If ' التحقق من الأسماء المركبة التي تبدأ بكلمات معينة For Each sName In startsNames If Left(K, Len(sName) + 1) = sName & " " Then FirstName = Left(K, InStr(Len(sName) + 2, K, S, 1) - 1) SplitName = IIf(part = 1, FirstName, Mid(K, Len(FirstName) + 1, Len(K))) Exit Function End If Next ' التحقق من الأسماء المركبة التي تنتهي بكلمات معينة For Each sName In endsNames If InStr(1, K, sName, vbTextCompare) > 0 Then FirstName = Left(K, InStr(1, K, sName, vbTextCompare) + Len(sName) - 1) SplitName = IIf(part = 1, FirstName, Mid(K, Len(FirstName) + 1, Len(K))) Exit Function End If Next ' إذا لم يكن الاسم مركبًا، عرض الاسم الأول فقط FirstName = Left(K, InStr(1, K, S, 1) - 1) SplitName = IIf(part = 1, FirstName, Mid(K, Len(FirstName) + 1, Len(K))) End Function بالتوفيق

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

بعد ادن استادنا احمد يوسف ربما يكون الطلب كما في الصور او استعن بهذا الماكرو Sub SplitRow1() With ActiveWindow .SplitColumn = 0 .SplitRow = 1 End With ActiveWindow.FreezePanes = True End Sub

* أليكم هديه جديده وهي برنامج لتنظيم ومتابعة مصروفاتك ولكن البرنامج هذه المره بشكل جديد وفكر جديد وسلس وإمكانيات أكثر * يمكنك إضافة بنود كما تشاء في صفحة " أسماء البنود " حتى 1000 بند * فقط أدخل رقم البند في صفحة الإدخال ليظهر إسمه تلقائياً * يمكنك الإطلاع على البيانات وتعديلها عن طريق ورقة عمل مخصصة لذلك مع مراعاة أن الصفحة محميه بكلمة سر لكي لا تفقد بياناتك وهي " بسم الله " * يمكن البحث عن أي بند في صفحة البحث بمجرد كتابة أسم البند ستظهر كل العمليات المدونة عليه والإجمالي لهذا البند بنفس الصفحه * يمكن الإطلاع على الإجمالي العام للمصروفات * يمكن مسح كافة البيانات وكلمة السر لدخول الصفحه أيضاً " بسم الله " * حجم البرنامج صغير 228 كيلو بايت بعد فك الضغط تحياتي لكم وأرحب بجميع إستفساراتكم .. البرنامج بالمرفقات تم إرفاق البرنامج بمشاركه أخرى للتاريخ بصوره هجريه _______________________.zip