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

وعليكم السلام لك ما طلبت اخر عملية حسابية.xlsx

سنحڎف الموجود ونعمل الجدید طبعا بالکود

الاستاذ الكريم عبداللطيف الاستاذ الكريم صالح بارك الله فيكم وجزاكم كل خير

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

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

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

أصبحت كشمعة أضائت لمن حولها فجزاك الله خيرا وسدد خطاك 💖💖💖💖💖

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

شكر وتقدير من اعماق قلبي الي منتدي اوفسينا المنتدي الرائع الذي يضم كوكبة من خبراء الاكسل كل الشكر والتقدير حبي لهم وتقدير لا يوصف تلوح في سمائنا دوماً نجوم برّاقة، لا يخفت بريقها عنّا لحظةً واحدةً، نترقّب إضاءتها بقلوب ولهانة، ونسعد بلمعانها في سمائنا كلّ ساعة، فاستحقّت وبكلّ فخر أن يرفع اسمها في عليائنا. كلمة حبّ وتقدير، وتحيّة وفاء وإخلاص، تحيّة ملئها كلّ معاني الأخوّة والصّداقة، تحيّة من القلب إلى القلب، شكراً من كلّ قلبي. ...... للنّجاح أناس يُقدّرون معناه، وللإبداع أُناسٌ يحصدونه، لذا نقدّر جهودك المُضنية، فأنتَم أهلٌ للشّكر والتّقدير ووجب علينا تقديركم، لكم منّا كلّ الثّناء والتّقدير. ايها المنتدي ذا القيمة والقامة دام الله عليكم زيادة العلم والمعرفة وحشركم مع النبين والشهداء والصالحين

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

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

تم التعديل Classeur2 (1)(1).xlsx

بعد اذن أخي بن علية هذا الماكرو يقوم بالعمل Option Explicit Sub salim_sum() If ActiveSheet.Name <> "ورقة1" Then Exit Sub Dim lar%: lar = Cells(Rows.Count, 1).End(3).Row Dim i%, k%: k = 2 Dim arr() ReDim Preserve arr(1 To 1): arr(1) = 2 For i = 1 To lar + 1 If Cells(i, 1) = vbNullString Then ReDim Preserve arr(1 To k): arr(k) = Cells(i, 1).Row k = k + 1 Dim x, y End If Next For i = LBound(arr) To UBound(arr) - 1 If i = 1 Then x = arr(i + 1) - 1: y = arr(i) Else x = arr(i + 1) - 1: y = arr(i) + 1 End If Cells(arr(i + 1), 3).Formula = "=SUM(C" & y & ":C" & x & ")" Cells(arr(i + 1), 3).AutoFill Cells(arr(i + 1), 3).Resize(1, 10) Cells(arr(i + 1), 3).Resize(1, 10).Value = _ Cells(arr(i + 1), 3).Resize(1, 10).Value Next End Sub الملف مرفق salim_summation .xlsm

السلام عليكم لست أدري إن كنت قد فهمت المطلوب جيدا، راجع الملف المرفق... بن علية حاجي العقود.xlsx

بارك الله فيك

@baraa شكرا جزيلا

تفضل ::: Close.rar

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

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

عليك السلام ورحمة الله وبركاته سؤال ماذا لو تم عمل كود لمنع اللصق هل يتسبب في مشكلة لديك إذا كان ممكن يتم وضع هذه الأكواد في حدث Workbook Option Explicit Private Sub Workbook_Activate() Application.CutCopyMode = False Application.OnKey "^c", "" Application.CellDragAndDrop = False End Sub Private Sub Workbook_Deactivate() Application.CellDragAndDrop = True Application.OnKey "^c" Application.CutCopyMode = False End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) Application.CutCopyMode = False Application.OnKey "^c", "" Application.CellDragAndDrop = False End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) Application.CellDragAndDrop = True Application.OnKey "^c" Application.CutCopyMode = False End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.CutCopyMode = False End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.OnKey "^c", "" Application.CellDragAndDrop = False Application.CutCopyMode = False End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Application.CutCopyMode = False End Sub

بالمرفق المثال والتفاصيل رابط شرح كيفية إنشاء نموذج على قوقل درايف ثم قم بتحويل النموذج إلى الرجوع إلى النماذج القديمة كما في الصورة . وضع رابط الاستمارة في نموذجك googleForms.mdb

بارك الله فيك تم تعديل الموضوع وقمت باضافة اسم المستخدم وكلمة المرور يمكنك الان تجربة البرنامج للتاكد من عملة LinkToUpdate.accdb

تفضل If MsgBox("هل تريد حذف السجل", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Exit Sub Else DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord Refresh DoCmd.SetWarnings True End If لاتنسى التقيم بارك الله فيك بالتوفيق ،،،