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

أهلا @محمد احمد لطفى استخدم الدالة التالية Function AddMonth(XDate As Date) Select Case XDate Case (#8/1/2016#) To (#10/19/2018#) And (Day(XDate) > 23) XDate = DateAdd("m", 1, XDate) Case (#10/20/2018#) To (#12/30/2024#) And (Day(XDate) > 19) XDate = DateAdd("m", 1, XDate) End Select AddMonth = Format(XDate, "yyyy/mm") End Function إليك التعديل: datex.accdb

السلام عليكم تفضل الملف به اضافة للكود تمنع اعطاء المراقب فترتان فى وقت واحد توزيع الارقام بطريقة عشوائية2.xlsm

وعليكم السلام أستاذ خالد يمكنك ذلك بدون اى برامج من خلال هذه الروابط والشرح https://www.youm7.com/story/2014/11/18/بالخطوات-اغلق-جهاز-الكمبيوتر-فى-الوقت-الذى-ترغب-فيه-دون/1955803 http://www.computer-wd.com/2018/11/auto-shutdown-windows-10.html http://www.doniacomputer.com/2016/10/blog-post_19.html https://www.wikikeef.com/shutdown-pc-automatically/ https://sigma4pc.com/11639/sigma-auto-shutdown https://wingiz.com/c/100024583 وهذا كمان فيديو للشرح https://www.youtube.com/watch?v=IY0xla7b9jE

جرب هذا =([نص13]-[نص9])/[نص13]*100

تفضل ..... ولاحظ الجدول kan ...... ومربع النص الجديد في النموذج ‫‫‫الموظفين-kan2.accdb

اعرض الملف البرنامج الطبي الشامل برنامج للمراكز الطبيه يشمل الاستعلامات والمختبر وقسم الحسابات واقسام اخرى صاحب الملف الدكتور جمال راجح تمت الاضافه 24 مار, 2019 الاقسام قسم الأكسيس

كثر الحديث والطلب عن هذا الموضوع (استخراج الارقام أو الأحرف او الكلمات من نص) لذلك قمت بتحميل هذا الملف الذي عسى ان يستفيد منه اكبر عدد ممكن من الاعضاء الملف يحتوي على دالّة معرفة Option Explicit Function Salim_Single_Match(aString As String, my_expression As String, n%) As Variant Dim RegEx As New VBScript_RegExp_10.RegExp Dim NowArray() As String Dim Match, matches As Object Dim x%, cnt% With RegEx .Pattern = my_expression .Global = True .IgnoreCase = True End With On Error Resume Next Set matches = RegEx.Execute(aString) x = matches.Count If x = 0 Then Error.Clear Salim_Single_Match = "No Match": Exit Function End If ReDim NowArray(x - 1) For Each Match In matches NowArray(cnt) = Match.Value cnt = cnt + 1 Next If n > cnt Then n = cnt Salim_Single_Match = NowArray(n - 1) End Function salim_UDF_Formula.xlsm

السلام عليكم اريد فى ورقة العمل "الكل" عند الادخال فى العمود b يتم إنشاء تشيك بوكس فى العمود g و قيمته false و عند إدخال قيمة فى العمود e تعدل القيمة فى التشيك بوكس الى true ثم الترحيل اليا الصفوف ذات التشيك بوكس قيمة false من ورقة "الكل" من عمود a:c الى ورقة العمل الثانية "الجوازات الموجودة فقط" فى الاعمدة من b:d يعنى بالبلدى كده الجوازات التى لم يتم تسليمها اى ليس بتاريخ التسليم قيمة و ليس بالصف طبعا علامة تشيك بوكس قيمتها true يتم الترحيا الى الورقة الثانية و عذرا للاطالة و جزاكم الله خيرا جوازات موجودة بالمكتب.rar

ربما تعني هذا الشيء (اذا أضفت أو حذفت صفوفاً في الصفحة B اخرج من الصفحة ثم عد اليها لتضبط المعادلات) Sum_with_rows_added.xlsm

قمة الروعة بارك الله فيك والله استفدت كثيرا من ردود الاعضاء ربي يجعلها في ميزان حسناتكم جميعا

أحسنت استاذنا الكبير طارق عمل ممتاز جعله الله في ميزان حسناتك

أهلا بك @محمد احمد لطفى أعتذر عن هذا الخطأ غير المقصود.. من المفترض أن أصرح بوظيفة تعيد بيانات تاريخ بالتحديد، وليس بيانات متنوعة.. غير السطر الأول من الوظيفة ليصير كالتالي Function AddMonth(XDate As Date) As Date

السلام عليكم ورحمة الله منذ أن وضعت طلبك بقيت أحاول فيه إلى اليوم وهذا لقلة معرفتي بـ VBA، وأقدم لك نتيجة عملي وتعديلاتي المتواضعة على الأكواد في الملف المرفق (ربما يقوم أحد الأعضاء بتحسينها وتبسيطها)... بن علية حاجي قرعة متعددة الاختيار (1).xls

وعليكم السلام جرب هذا الرابط https://4sysops.com/archives/log-out-users-after-a-certain-time-with-a-visual-basic-timer/

تفضل اخى الكريم المطلوب ان شاء الله كرت دوام 2نهائى.xls

مشكور ابو ياسين وفقك الله وزادك من علمه .

تفضل اخى الكريم كرت دوام نهائي.xls

تحياتي اخي الفاضل الذي اقصده هو : اذا كان الشخص قد اتم دوامه كاملا خلال الشهر فأيام الجمعة تحتسب له ضمن الدوام ، لاحظ العمود F الذي يحتوي على عدد ساعات العمل ، اجمع العمود يصبح الناتج 192 حيث قام الاكسل بجمع الايام كلها ماعدا الجمعة ، الذي اريده ان يجمع ايام الجمعة ايضا بالخلية دي 2 حتى يصبح المجموع الكلي 224 اتمنى ان تكون الفكرة وصلت وتقبل تحياتي

وعليكم السلام عليك برفع الملف وشرح المطلوب عليه بالتفصيل فأعلم اخى الكريم ان دائماً وابداً لا تكتمل المشاركة الا برفع ملف فلا تنتظر الأساتذة بضيق وقتهم ان يقوموا بتصميم ملف لك بارك الله فيك

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

أحسنت استاذ سليم بارك الله فيك عمل رائع

اذا كانت لا توجد يمكن اختراعها Function Salim_First_Letter(st As String) Dim i% Dim my_text$: my_text = Left(st, 1) Dim arr: arr = Split(st) For i = 1 To UBound(arr) my_text = my_text & " " & Left(arr(i), 1) Next Salim_First_Letter = my_text End Function First_Letters.xlsm

وعليكم السلام اخى الكريم -دائما وابدا لكى تكتمل المشاركة لابد من رفع ملف وشرح المطلوب عليه بالتفصيل ولكنى قمت بعمل هذا الملف لك تفضل التقييم.xlsx

@ام ناصر مشاركة مع اخي وحبيبي @ابو ياسين المشولي ضعي هذا الكود خلف الزر Set rs1 = CurrentDb.OpenRecordset("information") If rs1.RecordCount = 0 Then Exit Sub rs1.MoveFirst Do While Not rs1.EOF Set rs2 = CurrentDb.OpenRecordset("select * from skills where id=" & rs1(0)) If rs2.RecordCount = 0 Then DoCmd.RunSQL "update information set skills=null where id=" & rs1(0): GoTo 10 rs2.MoveFirst Do While Not rs2.EOF xt = xt & rs2(1) & "," rs2.MoveNext Loop DoCmd.RunSQL "update information set skills='" & xt & "' where id=" & rs1(0) xt = "" 10: rs1.MoveNext Loop بالتوفيق

انتظر مساعدتكم اساتذة

الأخ الفاضل هذا الشرح يحتاج لبعض التوضيح مثل Range("RN").AutoFilter أي ان اتصفية تكون في النطاق A3:D75 الذي سميناه RN RN كيف يتم تحديده داخل الكود ورجاءاً ممكن شرح الطريقة خطوة بخطوة حتي يتسني لنا فهم كيفية عمل مثل هذا البحث أخي الفاضل أ.محمود الموضوع ببساطة كالتالي أولاً : نحدد النطاق الذي سنعمل عليه ومن مربع الاسم الموجود على يسار شريط الصيغة نكتب اى اسم نريده وليكن كما تفضل ابو حنين RN ونضغط انتر .. وهناك طريقة اخرى لعمل ذلك بأن نذهب الى القائمة صيغ Formulas ثم نختار ادارة الأسماء Name Manager واختيار جديد New ثم نكتب الاسم الذي نريده للنطاق ونحدد خلايا هذا النطاق من Refers to ونضغط موافق في هذه الخطوة حددنا النطاق الذي سنعمل عليه وهو مثلا من A5:D75 واعطيناه اسما وليكن كما في المثال RN .... تمام ثانيا : نذهب الى المطور Developer ونختار ادراج Insert ونحدد مربع نص TextBox ونضيفه بداخل الورقة عن طريق السحب والإفلات .. تمام كده جددنا النطاق وأضفنا مربع النص اللى هنكتب فيه معيار البحث .. وطبعا يفضل انك تضع مربع النص اعلى العمود اللى هيتم فيه البحث .. تمام نيجي على الورقة بتاعتنا تحت نضغط Right-Click ونختار اظهار التعليمات البرمجية او View Code ومن اعلى اليسار نفتح القائمة المنسدلة ونختار اسم مربع النص بتاعنا ونتاكد ان المربع على اليمين مكتوب فيه Change بمعني ان الكود هيتنفذ في حالة تغير مربع النص وهيكون شكلها في البداية كده Private Sub TextBox1_Change() End Sub تبدأ بقي تقف بالماوس في وسط ال sub دي وتكتب الكود بتاعك اللى هو ايه .. اللى هو ده If TextBox1 = "" Then AutoFilterMode = False Else Range("RN").AutoFilter , field:=2, Criteria1:=TextBox1.Text End If معناه ايه ده في السطر الاول بنقول لو مربع النص بتاعى فاضي ايه اللى يحصل السطر الثاني نقوله الغي الفلتر خالص .. علشان كل البيانات تبقي ظاهرة وواضحة طالما لم نكتب شئ في مربع النص الخاص بالبحث طب لو مش فاضي والمستخدم كتب فيه اى حاجة نقوله النطاق اللى اسمه RN ده اللى احنا سمناه في الخطوة الأولى اللى هو من A5:D75 اعمل فلتر ليه كويس بس النطاق ده اكثر من عمود هيعمل فلتر على اساس اى عمود نقوله Field:=2 ويبقي الفلتر بتاعك على العمود الثاني في النطاق .. تمام طب لو انت عاوز العمود الأول غيرها خليها 1 لو عاوز العمود الرابع غيرها خليها 4 وهكذا طب شرط التصفيه او الفلتر ايه نقوله النص المكتوب في مربع النص بتاعنا Criteria1:=TextBox1.Text ونفس الكلام بقي على الاربع مربعات نص الموجودين في ملف الأستاذ أبو حنين أرجو انى اكون وفقت .. تحياتي

=NoToText([x1]) اخي العزيز هذه وحده نمطية لتحويل الارقام الى حروف وقم باستدعائها بالكود الموجود =NoToText([x1]) Convert Nuber to text.rar