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

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

اتفضل اليك ما طلبت القي نظرتا الى الصورة واليك المرفق بعد تعديل تقسيم الاسم الرباعي.mdb شفان

جرب هذا الكود لعله المطلوب Sub SAVESHEETS() With Application .DisplayAlerts = False .ScreenUpdating = False End With For Each sh In ThisWorkbook.Worksheets sh.Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx" ActiveWorkbook.Close False Next With Application .DisplayAlerts = True .ScreenUpdating = True End With End Sub SAVESHEET.xlsm

ما أقصده تجده في هذا التعديل.. الذكر الحكيم v. 2.0.1.mdb وأما الزخام الرهيب فالمقصود به الزحام (بالحاء) الذي تحتاج معه إلى لوحات إرشادية (يعني ضع بعض التعلقيات على الشفرة حتى نعرف أين نحن من هذا الزخم الهائل(بالخاء) من سطور الشفرة) 😄

كل عام وحضراتكم بخير ورمضان كريم اعاده الله عليكم وعلى الامة الاسلامية بالخير واليمن البركات البحث فى القرآن الكريم.xlsm

شاهد هذا الفيديو لفطا بدون عمل اعدادات من لوحة التحكم (Control Panel)

marwa41 أين الضغط على الإعجاب لهذه الإجابة الممتازة واعتقد ان هذا اقل ما يقدم لصاحب الفضل بعد ربنا فى حل مشكلتك ؟!!!💙

بالخدمة استاذ ازهر عبد العزيز

تفضل اخي العزيز ارجو ان يكون طلبك micro101.rar

تفضل أخي جلب المبلغ فقط حسب التاريخ في العمود A بدون تكرار. اختر من الخلية d1 عميل أو مورد ثم اضغط على جلب شيت حسابات (1).xlsm

تفضل اخي العزيز ارجو ان يكون طلبك ملاحظة : كود الاغلاق للاستاذ Shivan Rekany test1.accdb

وعليكم السلام-طبعا يمكنك ذلك بهذه المعادلة =IFERROR(VLOOKUP([@[رقم الايصال الاكتروني]],Table1,2,0),"") sheet1.xlsx sheet1.xlsx

تفضل لعله المطلوب الدوال في العمود g =IFERROR(INDEX(C$4:C$1000;MATCH($F5;$B$4:$B$1000;0));"") في العمود h =IFERROR(INDEX(D$4:D$1000;MATCH($F4;$B$4:$B$1000;0));"") sheet.xlsx

الكود يظهر خيار نعم او لا !!!!

السلام عليكم 🙂 في وجهة نظري ، اذا رأيت احد الاعضاء يرد على اسئلة الاعضاء ، واجاباته تفي بحل السؤال (من المعروف ان هناك عدة طرق لحل اي سؤال ، وهناك طرق افضل من اخرى) ، فأظل اراقب هذا العضو لمجموعة مشاركات ، حتى اتاكد من علمه ، ومواظبته للمنتدى ، ولو بشكل متقطع. عندها اقوم بترشيح ترقيته الى درجة خبير 🙂 الاخ حسام وهاب @husamwahab اهلا وسهلا بك على قائمة خبراء منتدى الاكسس 🙂 ولازال البحث مستمر لترقية بقية الاعضاء 🙂 جعفر

asd2000 أين الضغط على الإعجاب لكل هذا التعب والإجابات والمجهود الكبير للأستاذ الرائد بارك الله فيك واعتفد ان هذا اقل ما يقدم لمن له الفضل بعد ربنا فى حل مشكلتك ونبهنا كثيراً على هذا الموضوع ان لابد من تقديم الإعجاب والشكر ؟!!! 💙

شكرا جزيلا الأستاذ @عبدالفتاح في بي اكسيل

الاروع هو مرورك الكريم استاذ على وجزاكم الله خير الجزاء

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

السلام عليكم ورحمة الله وبركاته قمت بتجربة سريعة فإذا تكرمت علي بالاجابة كيف عدد الكلمة 44 وعدد الايات التي ذكرت فيها 48 علما ان بحث في برامج اخرى فان عدد تكرار كلمة الرحمن في القران هو 47 تحياتي لك وجهد جبار جزاك الله كل خير

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

جزاك الله خيراً حبيبي أبا جودي 😍😍 وجاري التجربة

تفضل Sub repport() Dim smch As Worksheet Dim smb As Worksheet Dim tres As Worksheet Dim targ As Worksheet Set smch = Sheets("المشتريات") Set smb = Sheets("المبيعات") Set tres = Sheets("الخزينة") Set targ = ActiveSheet lrm = smch.Range("c" & Rows.Count).End(xlUp).Row lrmb = smb.Range("c" & Rows.Count).End(xlUp).Row lrtres = tres.Range("c" & Rows.Count).End(xlUp).Row lrtg = targ.Range("a" & Rows.Count).End(xlUp).Row targ.Range("a9:e" & lrtg).ClearContents If targ.Range("d1") = "مورد" Then For Each cell In smch.Range("e5:e" & lrm) If cell.Value = targ.Range("d3") And cell.Offset(, -2).Value >= targ.Range("b2") And cell.Offset(, -2).Value <= targ.Range("b3") Then lrtg = targ.Range("a" & Rows.Count).End(xlUp).Row With targ .Cells(lrtg + 1, 1) = cell.Offset(, -2).Value .Cells(lrtg + 1, 2) = cell.Offset(, -1).Value .Cells(lrtg + 1, 3) = cell.Offset(, 5).Value For Each cell1 In tres.Range("j5:j" & lrtres) lrtg = targ.Range("a" & Rows.Count).End(xlUp).Row If cell1.Offset(, -4).Value = targ.Range("d3") And cell1.Value >= targ.Range("b2") And cell1.Value <= targ.Range("b3") Then .Cells(lrtg + 1, 4).Offset(-1, 0) = cell1.Offset(, -6).Value End If Next cell1 End With End If Next Else For Each cell In smb.Range("e5:e" & lrmb) If cell.Value = targ.Range("d3") And cell.Offset(, -2).Value >= targ.Range("b2") And cell.Offset(, -2).Value <= targ.Range("b3") Then lrtg = targ.Range("a" & Rows.Count).End(xlUp).Row With targ .Cells(lrtg + 1, 1) = cell.Offset(, -2).Value .Cells(lrtg + 1, 2) = cell.Offset(, -1).Value .Cells(lrtg + 1, 3) = cell.Offset(, 5).Value For Each cell1 In tres.Range("j5:j" & lrtres) lrtg = targ.Range("a" & Rows.Count).End(xlUp).Row If cell1.Offset(, -5).Value = targ.Range("d3") And cell1.Value >= targ.Range("b2") And cell1.Value <= targ.Range("b3") Then .Cells(lrtg + 1, 4).Offset(-1, 0) = cell1.Offset(, -6).Value End If Next cell1 End With End If Next End If End Sub شيت حسابات (1).xlsm

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

حاولت اعدل بعض الادخالات لكن يجب عليك ضبط أوقات البصمه في حدود ساعتين قبل او بعد الوقت المحدد, مثلا اذا كان الدوام يبدأ 6:55يفترض ان لا احد سوف يبدأ دوامه الساعة 5:30 وهكذا بقية الادخالات fingerprint.xlsx

مشاركه معكم اخوانى ارفق مثال كان موجود عندى لعله ينفعكم ان شاء الله وجزاه الله خيرا صاحبه -بحث في نص طويل وتضليل النتيجة وعدد الكلمات المكررهSearchByWord.rar

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

find_count_text.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا وجزاه الله خيرا اخى @kanory فهو قدم فكره ربما تحتاجها او تغنى بالتوفيق ابو انس

وعليكم السلام 🙂 القيم لا تصل الى الوحدة النمطية من الاستعلام ، بسبب انها NULL !! فالطريقة هي مثل ما قالها اخوي ابو آمنه ، او . جعفر 02.accdb

تفضل الملف المرفق... Classeur1.xlsx

إخواني الأعزاء هذه فكرة سريعة وبعض النقاط الهامة عن برنامج الحسابات الذي كم ذكرت سابقاً يعتمد فكرة مراكز التكلفة ويبدأ من إنشاء دليل الحسابات وتعريف مراكز التكلفة والبيان المكرر في القيود ثم ترحيل القيود واستدعائها وتعديلها بعد الترحيل إذا لزم الأمر وبه إمكانية إصدار كشف حساب وميزان مراجعة ، وهذه بعض التلميحات الهامة للتعامل مع البرنامج : 1- لمسح قيود اليومية بالكامل ( وهي ممسوحة بالفعل بهذا الملف ) وإدخال مسلسل أول قيد وتاريخه من ورقة DATA استخدم أيقونة مسح البيانات والعملية محمية بكلمة سر هي 123 . 2- للانتقال من ورقة لأخرى استخدم الأسهم الزرقاء الموجودة بكل الأوراق واختر من القائمة الورقة التي تريد تفعيلها . 3- إقرأ بتركيز التعليقات / ال COMMENTS الموجودة بعناوين جدول إدخال معلومات القيد بورقة القيود ( JOURNAL VOUCHER ) ففيها تفصيل كل عمليات البحث وتسهيل عملية إدخال البيانات عند إعداد القيد . 4- من أيقونة إضافة حساب – م.تكلفة – بيان بورقة ( JOURNAL VOUCHER ) استخدم مفاتيح الاختيار / OPTIONAL BUTTONS لتحديد نوع الإضافة وعند تفعيلك مفتاح اختيار إضافة حساب ستظهر لك رسالة توضح لك أنه سيتم نقلك لفورم يسهل عليك تحديد الحساب الرئيسي للحساب المطلوب إضافته والرقم المقترح لهذا الحساب ويوجد توضيحات بالفورم ستساعدك على ذلك وعند إضافتك حساب جديد وبعد إكمال كل بياناته ستظهر لك رسالة بخصوص تحديث قائمة الحسابات الرئيسية وافق على التحديث في حالة واحدة فقط إذا كان الحساب الذي ستضيفه هو نفسه حساب رئيسي جديد غير موجود ضمن الحسابات الرئيسية الحالية . 5- تعديل القيد المرحل محمية بكلمة سر 123 من داخل الكود . 6- عند بحثك عن حساب في إعداد القيد وإذا اخترت بالخطأ حساب رئيسي فسيتم تنبيهك لذلك وإذا اخترت حساب من حسابات الميزانية فسيتم نقل المؤشر مباشرة لعمود المدين أم إذا اخترت حساب من حسابات النتيجة فسيتم نقلك لعمود رقم مركز التكلفة . 7- لايمكنك طباعة القيد قبل ترحيله ولا يمكنك ترحيل قيد غير متوازن ولايمكنك إعادة ترحيل قيد مرحل وكل هذا له رسائل تنبيه . 8- عند استدعائك لقيد مرحل من مفتاح استدعاء قيد أدخل رقم القيد بصندوق الإدخال الذي سيظهر لك ، ولا يمكنك تعديل القيد أو ترحيله وإنما فقط الهدف من الاستدعاء هو الاطلاع أو الطياعة من أيقونة طباعة قيد مرحل والتي تتولى إخفاء الصفوف الفارغة بنموذج القيد . 9- يمكنك تعديل قيد مرحل من مفتاح تعديل قيد وبعد استدعاء القيد من خلال تسجيلك لرقمه بصندوق الادخال الذي سيظهر لك بمجرد إدخال كلمة الحماية الصحيحة وضغط ENTER لا تنسى بعد التعديل إعادة ترحيل القيد وستظهر لك رسالة بهذا المعنى لدى استدعاء القيد للتعديل . 10- بكشف الحساب نقرة مزدوجة بالخلية C4 أسفل إسم الحساب ليظهر لك فورم البحث عن الحساب المراد الكشف عنه والبحث مثل كل أنوع البحث في الملف يتم بأب جزء من أي معلومة عن الحساب إسمه أو رقمه ولاختيار الحساب من فورم البحث نقرة مزدوجة على صف معلومات الحساب بقائمة نتيجة البحث بالفورم . 11- أيقونة تحديث كشف الحساب تحتاجها لتحديث كشف موجود قمت بتعديل قيود ضمن حركته أو عمل قيود تؤثر عليه بعد إظهاره بدل استدعائه من جديد . 12- أيقونة "قيد جديد لشهر جديد" في ورقة إعداد القيد تحتاجها إذا كنت تريد تمييز مسلسل القيود لكل شهر مثل أن يبدأ مسلسل القيد برقم الشهر ثم رقم القيد . هذا ما أسعفني به الوقت والذاكرة وطبعاً الموضوع مفتوح للحوار والاقتراحات والتحسينات . تقبلوا تحياتي أبو عبدالله ACCOUNT SOFTWARE W-COST CENTERS - V1.1.rar

أستاذنا الكبير شوقي ربيع لكم مني عميق المودة و الاحترام ... أغبطك لسعة صدرك و عدم اهمال أي رد مهما كان ... سيما و إن كان ممن يتعلمون منك .. أما بالنسبة لما فصدته بتعقيي على التحسينات الممكنة لقد عملت بريمجاً متواضعاً لأخي ليخدم له محل سمانة متوسط و كان طلبه أنه لا يريد فواتير فورية إنما إجمالية .. و سأدعك مع الملف المرفق و ستفهم ما قصدته بشكل أدق علماً أن كلمة مرور الدخول 111 و كلمة سر حماية الاوراق 11026 و نحن بانتظار برنامجكم الكبير .. أستاذي smany2018.rar

طلب الي احد الاصدقاء وضع كود لادراج رزنامة لسنة محددة وشهر محدد مع تمييز (يوم معيّن) من هذا الشهر فكان هذا الكود الذي ارجو ان يستفيد منه الاخرون قبل تنفيذ الكود الكود: تسمية الصفحة التي تريد العمل عليها بهذا الاسم "Salim_Calendar" اكتب في الخلية B1 رقم السنة في الخلية B2 رقم الشهر في الخلية G1 رقم اليوم المييز الكود Option Explicit Option Base 1 Sub My_Calandar() If ActiveSheet.Name <> "Salim_Calendar" Then Exit Sub Dim t As Date, i As Byte Dim Arab_day(), m% Dim EnG_day(), rows_count As Byte Dim col As Byte Dim r As Byte Dim search_day As Date rows_count = Range("b4").CurrentRegion.Rows.Count + 3 Range("b4:H" & rows_count).ClearContents Range("b5:h10").Interior.ColorIndex = 0 '''''''''''''''''''''''''Conditions for working'''''''''''''''''' If Not IsNumeric([b1]) Or Not IsNumeric([b2]) _ Or [b1] < 1 Or [b2] > 12 Or [b2] < 1 Then MsgBox "Type Valid Numbers in cell(B1) & cell(B2)": Exit Sub End If ''''''''''''''''''''''''' End of Conditions for working'''''''''''''''''' r = 5 t = DateSerial([b1], [b2], 1) '''''''''''''''''''''''''Conditions for Special Day'''''''''''''''''' If Not IsNumeric([g1]) Or [g1] > Day(Application.EoMonth(t, 0)) _ Or [g1] < 1 Then [g1] = 1 Else [g1] = Int([g1]) End If '''''''''''''''''''''''''End of Conditions Special Day'''''''''''''''''' search_day = DateSerial([b1], [b2], [g1]) Arab_day = Array("الأحد", "الإثنين", "الثلاثاء", _ "الأربعاء", "الخميس", "الجمعة", "السّبت") ' EnG_day = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat") Range("b4").Resize(, 7) = Arab_day m = Weekday(t) + 1 For i = 1 To 31 Cells(r, m) = t If t = search_day Then Cells(r, m).Interior.ColorIndex = 3 Else Cells(r, m).Interior.ColorIndex = 35 End If If Month(t + 1) > [b2] Then Exit For t = t + 1 m = m + 1 col = Cells(r, m).Column If col > 8 Then r = r + 1: m = 2 Next Erase Arab_day End Sub الملف مرفق My_Calendar.xlsm

@ابا جودى استاذ عبدالله هو فتح موضوع جديد لهذا الموضوع ياريت تشارك معه فيه