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

السلام عليكم ورحمة الله وبركاته هدية حصرية واما نقول حصري يبقا فى منتدى اوفيسنا وبس كان فى مرة دكتور اسمه دكتور محمد حلبي كان زعلان وكل ما حد يكلمه لا يرد عليه لحد ما فاض بيه وقال وهو 😡 ومن أجله ومن أجل عيونه أقدم تلك الهدية المتواضعة للتجربة اضف جداول مرتبطة واضف جداول منضمه ثم اختر منها ما تريد حذف البيانات منها ... ارجوا الانتباه الجداول المرتبطه سيتم حذف البيانات منها تحذيـــــــر 1- قبل الاستخدام يجب عمل نسخة احتياطيه من القاعدة بصراحة كنت انوى ادمجها قبل حذف البيانات فيتم ذلك تلقائيا بس تعبت مش قادر بصراحة ممكن فى التحديث الجديد ان شاء الله تدلل يا دكتور Reset Select Table.mdb

أنشئت هذا البرنامج للأستعمال الشخصى فانا من قام بجلب الكلمات من احدى المواقع وقمت بترجمتها بجوجل واعرضه هنا ربما 😀يفيد احد صغير او كبير هذا البرنامج ناطق يضم اكثر 3000 كلمة انجليزية مستخدمة فى المحادثات ومترجمة ( اى من يعرفهم يفهم 90% من محادثات اللغة الانجليزية ) With 2,500 to 3,000 words, you can understand 90% of everyday English conversations, English newspaper and magazine articles, and English used in the workplace وهو يصلح ان يضع فيه اى اسئلة واجوبة للاختبار واخفاء الاجوبة او الاسئلة كما يقوم البرنامج بقراءة اللغة الانجليزية فى الخانة الاولى عند ضبط الاعدادات وهو يصلح للكبار والصغار ومراجعة المناهج يسمح ويفضل نشره او جزء منه للمنفعه العامة يحتاج البرنامج مكتبة microsoft speech object library والتى تحتوى على ملف sapi.dll واختيارها وتوجد هذه المكتبة فى الويندوز Text-to-Speech (TTS) ويجب تفعيلها وضبطها وهذا مثال بسيط فى التعامل مع مكتبة نطق النص تبديل نص الزر أخفار واظهار العناصر تمكين وعدم تمكين العناصر(السماح بالكتابة و والتعديل) التعامل مع السجلات الرسائل النصية واختيار الزر الافتراضى انشاء فلتر وتنشيطه اخفاء شاشة الاكسيس والقوائم اغلاق نموذج اخر فتح نموذج اخر طرق منع تحذيرات النظام واستعادتها التعامل مع دالة Select Case استعلام الحذف استعلام الاضافة استعلام التحديث اخفاء النماذج من التعديل اخفاء الجداول من التعديل النموذج المنقسم عمل ميكرو متعدد استخدام دالة DCount استخدام نص يعتمد على قسمة حقلين تنسيق الحقل للحصول على نسبة مئوية استخدام نص التلميح control tip text التعامل مع زر الاختيار استخدام الدالة العشوائية مع تحديد مجالها الانتقال الى سجل عشوائى تنسيق العنصر على حسب قيمته استخدام وسائل تصدير البيانات معظم الاحداث انشئت ميكرو وتم تحويلها الى vba ملحوظة يمكن استيراد البيانات الى الجدول لمن يعرف وننوه ان البرنامج يصلح للدراسة سواء كان كبير او صغير يمكن الاستفاده منه وانوه ان الترجمة حرفية يمكنك تغييرها للأفضل ان رأيت ذلك البرنامج انشئ على اكسيس 2019 64 بت وويندوز 10 نفعكم الله به للتنزيل من هنا https://gofile.io/d/7UWmB7 اضغط هنا للتنزيل من موقع خارجى او التنزيل من المرفقات 3000Words.zip

وعليكم السلام 🙂 ما كنت ادري اني عملت هذا المثال 😁 بحثت ونزلت ايقونة هذا الدبدوب . ووضعتها في نفس مجلد البرنامج (انا كسلان ، ما اردت ان اغير مسار الايقونه في الكود 🙂 ) : . وعليه ، غيّرت السطرين في الكود ، علشان: اشير الى اسم الايقونه الجديدة ، والاسم اللي اريده يظهر على سطح المكتب . وهذا كود الوحدة النمطية بالكامل : Function Make_Desktop_Shortcut() 'With CreateObject("WScript.Shell") ' With .CreateShortcut(.SpecialFolders("Desktop") & "\Export_to_Excel.lnk") ' .TargetPath = "C:\Stuff\Test.mdb" ' .WindowStyle = 1 ' .Hotkey = "" ' .IconLocation = "C:\Test\Test.ico, 0" ' .Description = "Test Icon Substitution" ' .WorkingDirectory = "C:\Stuff\" ' .Save ' End With 'End With DB_Name = Application.CurrentProject.Name DB_Path = Application.CurrentProject.Path 'icon_Name = "Arc5.ico" icon_Name = "Gingerbread-Bear.ico" icon_Path = Application.CurrentProject.Path icon_Name_Path = icon_Path & "\" & icon_Name With CreateObject("WScript.Shell") 'With .CreateShortcut(.SpecialFolders("Desktop") & "\Export_to_Excel.lnk") With .CreateShortcut(.SpecialFolders("Desktop") & "\دبدوب.lnk") .TargetPath = DB_Path & "\" & DB_Name .WindowStyle = 1 .Hotkey = "" .IconLocation = icon_Name_Path .Description = "Done by jj" .WorkingDirectory = DB_Path & "\" .Save End With End With End Function . وعلى سطح المكتب تشوف تجاربي : جعفر

تفضل Convert exe to xls

جرب الملف بعد التعديل صلاحيات المستخدمين اصدار 3.rar

هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه بسم الله الرحمن الرحيم ( رَبَّنَا آتِنَا مِن لَّدُنكَ رَحْمَةً وَهَيِّئْ لَنَا مِنْ أَمْرِنَا رَشَدًا ) تحياتى و ايام مباركه ايام مبشره و هموم راحله يا الله هديتى لكل اعضاء المنتدى برنامج دليل حسابات و مخازن ECO2_DuClick_store مميزات البرنامج ( يمكن تطويعه لاستخدامات اخرى ) كود رقم الصنف تلقائى ارصدة الاصناف تلقائى فورم بحث و اضافه استخراج رصيد حركة الصنف بين تاريخين سهولة البحث عن البنود / الاصناف عند الادخال بحركة اليوميه سهولة التنقل بين الصفحات كود طباعة كارت الصنف و ارصدة الاصناف البرنامج مفتوح المصدر للجميع للاستفاده من الاكواد و المعادلات يمكن التعديل عليه لزيادة نطاق الصفوف بسحب المعادلات يمكن استخدامه للافراد و للشركات لاتنسونا من صالح الدعاء ECO2_DuClick_store اضافة قيمه و سعر.xlsm ECO2_DuClick_store.xlsm

تمام التمام الآن اسعد الله ايامك

تحياتى لك وجزاك الله خيرا

اريد اعرف اسم ملف الايقونه ، ويمكن انك في اعدادات المجلد ، ما جعلت اسم صيغة الملف تظهر ، رجاء خليها تظهر هكذا : . وبعدين صور لي اسم الملف لما تظهر صيغته

icon_Name_Path = icon_Path & "\ico\" & icon_Name

السلام عليكم ورحمة الله وبركاته المشكلة اخوي انه يعطي بالسالب .. اذا كان مجموع ak .. اكبر من الخلايا الفارغة .. ممكن تتطلع على الملف Copy of كانون اول 2020.xlsm

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

اتفضل لا تنسى ترجع كلمة المرور على محرر الاكواد لانى لغيتها 295127302_.zip

رائع جدا بارك الله فيك يا بشمهندس مع انى كان من المروض ان انتبه ان الموديول لا يخص الحذف عموما جزاك الله كل خير وزادك علما نافعا

تفضل التعديل مع ملاحظة جدول tblWeights اخر الجمعه 4111.rar

الحمد لله ان ما فى اى استفسار يعنى العمل بسيط ومفهوم رائع جدا الموديول بس لزوم الدلع يا دكتور ده كان علشان شريط التقدم ليس الا انا لاغيته اتفضل اه صح انا كنت اهزر بخصوص التجربة طبعا براحتك خالص انا اسف تم تعديل المرفق Reset Select Table (2).mdb

وجزيت خيرا اخي الكريم

تعجز الكلمات عن شكرك اخى جزاك الله خيرا وبارك لك فى علمك

تفضل نموذج اكسيل لشيت اضافة.xlsm

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

اتفضل 1167025995_.zip

Range("F" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select الكود يعمل معك وانت لا تلاجظ ذلك لأنك دائماً تعمل Selection لنفس الخلية التي هي اول خلية فارغة بالعامود F جرب هذا الكود المرفق بالملف Option Explicit Dim ws As Worksheet Dim RG As Range Dim Time_Run As Date Dim my_st$ Dim i% '++++++++++++++++++++++++ Sub Cyclic_macro() Static x x = i Set ws = Sheets("Sheet1") my_st$ = "Salim" Set RG = ws.Range("A" & Cells.Rows.Count).End(xlUp).Offset(1) RG = my_st & i + 1 i = i + 1 Time_Run = Now + TimeValue("00:00:03") Application.OnTime Time_Run, "Cyclic_macro" End Sub '++++++++++++++++++++++++++++ Sub Stop_Me() On Error Resume Next i = 0 Application.OnTime Time_Run, "Cyclic_macro", , False End Sub '+++++++++++++++++++++++++++++ Sub Clear_data() Set ws = Sheets("Sheet1") i = 0 ws.Range("A2", Range("A1").End(4)).ClearContents End Sub Cyclic_macro.xlsm

yasse.w.2010 وازاى تتم المساعدة أو كيف تنتظر المساعدة أصلاً من أحد بدون رفع الملف ... لا يمكن العمل على التخمين ؟!!!!!!!!!!!

السلام عليكم ورحمة الله وبركاته ملاحظة .. لاحظت انك تكتب الكلمة وبعدها مسافة .. في خانة نوع اخر عملية .. تم عمل معادلة في الشيت .. بدل الكود .. البيانات2.xlsm

شاهد هذا الفيديو https://www.youtube.com/watch?v=l3kBuJtNLgU&ab_channel=TeachExcel

وهنا افكار جديدة وتستحق Reset Select Table.mdb

بارك الله فيك استاذى الكريم ...ولكن دائماً وأبداً لابد من تدعيم المشاركة بملف العمل حتى تكتمل الإستفادة للجميع

وعليكم السلام -يمكن جعل الأكواد هكذا Private Sub Option2_Click() If Option2.Visible = True Then frm1.Hide Sheets("Ý.1.Ë.Ú").Visible = True Sheets("Ý.1.Ã").Visible = False Sheets("Ý.1.Ë.Ã").Visible = False End If End Sub Private Sub Option1_Click() If Option1.Visible = True Then frm1.Hide Sheets("Ý.1.Ã").Visible = True Sheets("Ý.1.Ë.Ú").Visible = False Sheets("Ý.1.Ë.Ã").Visible = False End If End Sub Private Sub Option3_Click() If Option3.Visible = True Then frm1.Hide Sheets("Ý.1.Ë.Ã").Visible = True Sheets("Ý.1.Ã").Visible = False Sheets("Ý.1.Ë.Ú").Visible = False End If End Sub التنقل بين الصفحات.xlsb

خلاص قول لكل مستخدم ما تبصش فى قاعدة اخوك اللى جنبك 😄 هات مرفق يا قمر

تفضل هذه المحاولة ملاحظة التغييرات التي اجريت على جدول الاصناف وجدول الكميات وجدول TransactionS تم احتساب الاجمالي على اساس ان السعر يخص الوحدة الاعلى في جدول الكميات بغض النظر عن الوحدات المختارة في جدول TransactionS محجر-2.rar

ما فهمت في طلبك لو تقصد طباعة اي عدد من صفحة واحدة كل نسخة تحمل رقم فجرب المرفق Sub printTOUS() Dim x Dim printx printx = InputBox("ادخل اي عدد النسخ التي تريد طباعته") If printx = "" Then Exit Sub For x = 1 To printx Range("L6") = x Range("A1:L23").printOUT Next x Range("L6") = "" End Sub نموذج اكسيل لشيت اضافة.xlsm

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

اعلى 3 في الرصيد .. Copy of البيانات.xlsm

تم معالجة الامر اذا صودف ان شحص او اكثر يملكون نفس الرصيد كما في حالة (شاديا حماد و بانة الرحال) يتم ادراج هذه الاشحاص) Ali_24.xlsm

انا وما املك ملك يمنك وتحت امرك افعل ما تشاء وقتما تريد على راسى سيدى الجليل ومعلمى القدير واستاذى و والدى الحبيب

وشكرا ابا جودي ، والحمدلله انتهى الموضوع 🙂 جعفر نعم ، انا تصرفت بمشاركتك 🙂

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

الأمر بكل بساطة كان عليك عمله بنفسك وتزويد من تريد من النطاق بالمعادلة ... وعليك ان تعلم ما حدث معك من خطأ بسببك انت لأن هذه معادلة مصفوفة وليس معادلة عادية فيجب عليك بعد عمل المعادلة الضغط على (Ctrl+Shift+Enter) وليس Enter فقط كباقى المعادلات moooo2.xlsx

وعليكم السلام وبما انك لم تقم برفع ملف فكان عليك استخدام خاصية البحث بالمنتدى فبه طلبك تفضل فورم اضافة وبحث وحذف وتعديل واغلاق وطباعة بدون ازرار أويمكنك متابعة هذا الفيديو فبه طلبك طباعة الفورم userform مع اخفاء الازرار vba excel - commandbutton

بعد اذن الأستاذ سـلـيم وزيادة فى اثراء الموضوع بدون اخفاء شريط الصيغة ... يمكنك وضع هذا الكود فى حدث الصفحة Dim xDic As New Dictionary Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xCell As Range Dim xRg As Range Set xRg = Range("b2:b100") If xDic.Count <> xRg.Count Then For Each xCell In xRg xDic.Add xCell.Address, xCell.FormulaR1C1 Next End If If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then With Target .Value = .Value End With Else For Each xCell In xRg xCell.Formula = xDic.Item(xCell.Address) Next End If End Sub

تفضل بعد اذن الأستاذ سليم طبعاً يمكنك عملها بنفسك بهذه المعادلة =SUMIFS('1'!$D$4:$D$270,'1'!$B$4:$B$270,">="&$F$5,'1'!$B$4:$B$270,"<="&$H$5,'1'!$C$4:$C$270,$B7,'1'!$A$4:$A$270,$D$6)

أحسنت استاذ جلال عمل ممتاز جعله الله فى ميزان حسناتك

وعليكم السلام -اهلا بك اخى الكريم فى المنتدى لماذا لا تستخدم خاصية البحث فى المنتدى -يمكنك هذا بعد اضافة أداة Solver وطالما انك لم تقم برفع ملف فيمكنك متابعة ومشاهدة هذه المشاركة بها رد لما تحتاجه https://www.officena.net/ib/topic/85879-معادلة-جمع-بعض-الارقم-التى-تحقق-ناتج-معين/?tab=comments#comment-544482 بارك الله فيك

تفضل ولكن كان عليك رفع ملف موضح عليه المطلوب بكل دقة المستخدم (المدير) الباسورد (1) وهذا برنامج أخر موجود داخل المنتدى ... كان عليك استخدام خاصية البحث بالمنتدى هدية - برنامج تقسيط وهذا برنامج ثالث , أيضاً من داخل المنتدى الرجاء المساعدة في برنامج البيع بالتقسيط وتلك برنامج رابع أسفل فيديو الشرح برنامج المحل شراء وبيع وتقسيط اكسس Access برنامج البيع بالتقسيط 2009.rar

1-ليس من الضرورة رفع ملف يجتوي على اكثر من 1500 صف لان الماكرو الذي يعمل على صف واحد بستطيع العمل على الوف الصفوف 2- تم اختصار الملف الى حوالي 80 صف لمتابعة عمل الماكرو 3-الكود Option Explicit Dim sh As Worksheet Dim New_sh As Worksheet Dim lr%, Cont#, i%, x%, k% Dim SectionName As Range Const How_Many = 20 '+++++++++++++++++++++++++++++++ Sub Del_sheets() Application.DisplayAlerts = False For Each sh In Sheets If sh.Name Like "Section*" Then sh.Delete End If Next Main.Select Application.DisplayAlerts = True End Sub '++++++++++++++++++++++++++++++ Sub insert_Sheets() Del_sheets Set SectionName = Main.Range("D3:K3") lr = Main.Cells(Rows.Count, 3).End(3).Row Cont = (lr - 1) / How_Many If Int(Cont) <> Cont Then Cont = Cont + 1 End If Cont = Int(Cont) For i = 1 To Cont Sheets.Add(, Sheets(Sheets.Count)).Name = "Section_" & k * How_Many + 1 k = k + 1 SectionName.Copy With ActiveSheet.Range("D3") .PasteSpecial (xlPasteAll) .PasteSpecial (8) End With Next Application.CutCopyMode = False Main.Select End Sub '++++++++++++++++++++++++++++++++++++ Sub fil_data() Application.ScreenUpdating = False insert_Sheets x = 4 For Each New_sh In Sheets If New_sh.Name Like "Section*" Then Main.Range("D" & x).Resize(How_Many, 9).Copy New_sh.Range("D4").PasteSpecial (xlPasteAll) New_sh.Range("D4").PasteSpecial (8) x = x + How_Many End If Next Application.ScreenUpdating = True Main.Select End Sub 4-الملف مرفق Taksim_Ahmad.xlsm

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

تفضل هذا الشيت سيفيدك Commission.xls

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

السلام عليكم و رحمة الله إضافة لحل الاخ طارق جرب الخطوات التالية في الخلية K1 ضع المعادلة التالية =IFERROR(INDEX($D$2:$D$3000,MATCH(0,COUNTIF($J$1:J1,$D$2:$D$3000),0)),"") و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter ثم اسحب لليمين و في الخلية K2 ضع المعادلة التالية : =IF(K1="","",SUMIF($D$2:$D$3000,K$1,$G$2:$G$2)) ثم اسحبها لليمين دمت في حفظ الله

السلام عليكم و رحمة الله تفضل اخي شاهد المرفق Dic database.xlsx