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

السلام عليكم ورحمة الله وبركاته هدية حصرية واما نقول حصري يبقا فى منتدى اوفيسنا وبس كان فى مرة دكتور اسمه دكتور محمد حلبي كان زعلان وكل ما حد يكلمه لا يرد عليه لحد ما فاض بيه وقال وهو 😡 ومن أجله ومن أجل عيونه أقدم تلك الهدية المتواضعة للتجربة اضف جداول مرتبطة واضف جداول منضمه ثم اختر منها ما تريد حذف البيانات منها ... ارجوا الانتباه الجداول المرتبطه سيتم حذف البيانات منها تحذيـــــــر 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

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

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

icon_Name_Path = icon_Path & "\ico\" & icon_Name

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

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

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

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

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

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

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

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

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

اتفضل 1167025995_.zip

السلام عليكم 🙂 انا استعمل الساعة الرملية لأخبر المستخدم بأن البرنامج مشغول ، هكذا : docmd.hourglass true بقية الكود الخاص بك docmd.hourglass false جعفر

السلام عليكم ورحمة الله يمكنك استخدام هذا الكود Sub UnhideColumns() Sheet1.Columns.Hidden = False End Sub

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

الف الف شكر لحضرتك يا استاذ سليم

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

اولا : في شيت data formula --- namemanager اعطاء اسم للعملية .. ( عملية ) =OFFSET(data!$I$3,,,COUNTA(data!$I:$I)-2) .. name .. كذلك =OFFSET(data!A$3,,,COUNTA(data!A:A)-2) ثانيا .. في شيت drow count =SUMPRODUCT(--ISNUMBER(SEARCH(F1,عملية))) F1 .. اسم العملية .. ممكن تكتب سحب او ايداع او تحويل .. تظهر لك البيانات .. اما بالنسبة للمعادلة .. لإظهار البيانات .. في اول عمود .. =IF(ROWS(A$5:A5)>$H$1,"",INDEX(name,SMALL(IF(ISNUMBER(SEARCH($F$1,عملية)),ROW(عملية)-ROW(data!$I$3)+1),ROWS(drow!A$5:A5)))) ويتم سحب المعادلة الى الاعمدة الاخرى ..

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

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

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

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

تفضل هذه المحاولة ملاحظة التغييرات التي اجريت على جدول الاصناف وجدول الكميات وجدول 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

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

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

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

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

تفضل بعد اذن الأستاذ سليم طبعاً يمكنك عملها بنفسك بهذه المعادلة =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

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

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

بارك الله فيك استاذ سليم وبعد اذن حضرتك ولإثراء الموضوع هذا حل اخر بمعادلات المصفوفة (Ctrl+Shift+Enter) تفضل ahmed_atoon بالمعادلة =SUM(IFERROR(--MID(SUBSTITUTE(SUBSTITUTE(B2,CHAR(10)," ")," ",REPT(" ",99)),ROW($1:$30)*99-98,99),0)) Sum1.xlsx

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

تفضل -يمكنك استخدام هذه المعادلة فى التنسيقات الشرطية =TRIM(MID(B6,IFERROR(FIND("رخام",B6,1)+0,1),9^9))="رخام" تلوين1.xlsx

تسجيل حركة الصندوق اليومية من وارد ومنصرف ومطابقة الرصيد الختامي من زيادة او عجز يومية حركة الصندوق.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