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

بسم الله الرحمن الرحيم تطرق الكثير من المبرمجين إلى موضوع التفقيط وهو تحويل الأرقام إلى كلمات عربية ولكني كمعلم لمادة اللغة العربية لم أجد من هذه الدوال ما يتوافق مع قواعد اللغة العربية قاعدة كتابة الأعداد العربية بطريقة مضبوطة وصحيحة وتجد في هذا الرابط شرح مبسط للعدد وتمييزه http://www.reefnet.g.../AdadMadoud.htm وبفضل الله قمت ببرمجة دالة تقوم بتحويل الرقم إلى كلمات عربية مضبوطة تماماً وموافقة لجميع قواعد كتابة العدد في اللغة العربية تجدها هنا https://officena.net/team/mas/tafkeet وتم برمجة هذه الصفحة بلغة php وهذا الإصدار الجديد يعتمد فقط علي جافاسكريبت https://www.mr-mas.com/p/tafqeet.html وإذا لاقى الموضوع قبولا وإعجابا فسوف أعرض عليكم الكود الخاص بهذه الدالة أخوكم محمد صالح مبرمج بأكثر من لغة برمجة ومصمم ومطور مواقع

جرب BASET1(1).accdb

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

تفضل 20500-5000.xlsx

حسب فهمي للمطلوب تبقى خلية اليوم صفرا وهذه معادلة الشهور =MOD(SUM(B3,E3)+IF(SUM(A3,D3)>0, 1,0),12) وهذه معادلة السنين =SUM(C3,F3)+INT((SUM(B3,E3)+IF(SUM(A3,D3)>0, 1,0))/12) بالتوفيق للجميع مجموع مدد2.xlsx

نعم ممكن لتحويل حقل في الجدول من نوع تاريخ الى نص CurrentDb.Execute "ALTER TABLE tbl_1 ALTER COLUMN s_date text" ------------ tbl_1 هو اسم الجدول s_date هو اسم الحقل وللتحويل من نص الى تاريخ CurrentDb.Execute "ALTER TABLE tbl_1 ALTER COLUMN s_date DateTime" مع ذلك فأن اخونا العزيز شايب ينصح بعدم تنفيذ هذه الفكرة ويقول دع حقل التاريخ كما هو ويمكن اضافة حقل نصي وتتحكم بما يظهر وفقا لرغبتك حيث ان كتابة التاريخ ستبقى عند تحويل حقل تاريخ الى نص الى نص اما عند تحويل حقل نص الى تاريخ فان اي كتابة نصية سيتم حذفها عند تحويل الحقل الى تاريخ الشايب

تفضل لم اغير شيئا فقط ادرجت آخر رقم سند قبض وتاريخه Aziz5.rar

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

جزاك الله خيرا على الدعوات ولك بمثله أخي @Moosak انا ضعيف جدا في الشروحات ولكن ... باختصار الطريقة هي عملنا ثلاث صور للاسهم ( أحمر - اصفر - اخضر ) يقوم الكود بالتاكد من القيم الموجودة في مربع النص وعند تحقق القيمة المطلوبة يظهر الصورة المطلوبة ويخفي بقية الصور اما بالنسبة للمؤشرات او الرسم البياني المبسط في تعتمد على مربعي تسمية ( احدهما لاعطاء اللون والاخر لنقل القيمة فيها) ..... يعمل الكود على تغيير حجم مربع التسمية الخاص باللون حسب القيمة الموجودة في حقل الاجمالي .... اتمنى اني وفقت في الشرح ... واسف ان لم اصتطع ايصال الفكرة .... ولكن مع تحليل التقرير يمكن ان تفهم الفكرة لأنها بسيطة جدا ..

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

تفضل عمل احصائية.xlsm

تفضل جرب هذا مجموع مدد.xlsx

وجهة نظر فنااان و معلم مشاء الله لا قوة الا بالله و فعلا اقتراحك لو اخذ فيه السائل راح يسرع من عمل البرنامج حاليا قد يكون سريع لأنه عدد السجلات بسيط لو مع مرور الأيام راح يثقل مع كمية الاستعلامات هذي فإقتراحك افضل بكثير من الناحية العملية و النظرية و من كل النواحي

تعليق لاخونا العزيز شايب في برامج المبيعات يتطلب وجود جدول واحد للاصناف او اكثر حسب طريقة المبرمج مثلا جدول الاصناف وجدول ترميز الاصناف وطلب الاستاذ ابو عبد الرحمن ادراج صنف في فاتورة المبيعات خارج قائمة الاصناف المتوفرة امر غير مالوف الا اذا كان المقصود في حالة عدم وجود الصنف يتم ادحاله مباشرة في الفاتورة ويحفظ ايضا في جدول الاصناف وهذا ايضا قد يسبب مشكلات من حيث تكرار اصناف باسماء مختلفة مثل زيت زيتون واخر زيت الزيتون .... وهكذا وايضا قد يحصل صنف واحد على اكثر من كود للصنف بينما يفترض بكود الصنف ان يكون معرف فريد للصنف ايضا من مروري بشكل سريع على البرنامج وجدت انه تم استخدام دالة DLookup في حدث بعد التحديث للقائمة بهذا الشكل Me.SellingPrice = DLookup("[SellingPrice]", "TaItems", "ItemID=" & [ItemName]) Me.SellingPrice2 = DLookup("[SellingPrice]", "TaItems", "ItemID=" & [ItemName]) Me.ItemDiscount = DLookup("[ItemDiscount]", "TaItems", "ItemID=" & [ItemName]) Me.PurchasPrice2 = DLookup("[PurchasPrice]", "TaItems", "ItemID=" & [ItemName]) Me.SellingPrice2 = DLookup("[SellingPrice]", "TaItems", "ItemID=" & [ItemName]) Me.ItemDiscount2 = DLookup("[ItemDiscount]", "TaItems", "ItemID=" & [ItemName]) Me.LowestPrice2 = DLookup("[LowestPrice]", "TaItems", "ItemID=" & [ItemName]) اي كاننا ننفذ سبعة استعلام عند ادراج كل صنف بينما كان يمكننا تحميل قيمة الحقول السبعة بامر واحد وسبق شرحه في الموقع او الاستغناء عن DLookup بتحميل قيمة الحقول السبعة عن طريق الاستعلام ثم اسناد قيمة كل حقل بحسب موقعة في القائمة me.ItemName.Column(0) me.ItemName.Column(1) me.ItemName.Column(2) وهكذا وجهة نظر ونترك الامر للاساتذة والخبراء الاخ شايب 🌹

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

تفضل عملت لك استعلام يظهر آخر عملية مالية لكل ولي امر ،،، يمكنك بناء تقريرك عليه من ملاحظاتي : كان يجب عليك عمل مفتاح للجدول ترقيم تلقائي او معرف id ، من خلاله يمكن الاستدلاال على آخر سجل بدلا من الاعتماد على التاريخ اللي حاصل الآن ، حيث لاحظت تكرر الدفع من احد الآباء مرتين في تاريخ اليوم نفسه . طبعا الآن ومع وجود سجلات كثيرة لا يمكنك اضافة حقل الترقيم بسهولة لانه لن يعطي تسلسلا حقيقيا حسب التاريخ الموجود ، وقد تتمكن من ذلك عندما تعمل فرز لحقل التاريخ من الاقدم الى الاحدث ثم تحفظ ثم تفتح الجدول مرة اخرى لتتأكد من بقاء الفرز كما هو .. حينها يمكنك فتح الجدول على التصميم واضافة الترقيم التلقائي Aziz2.rar

السلام عليكم اخي الفاضل ... واضح من الصورة انك لم تفتح الملف المعدل ... تابع مع الصور حمل المرفقات ثم افتح الملف bulletin1 اولا

السلام عليكم تفضل اخي ... الملف بعد التعديل هام جدا ... لابد من ربط الملف bulletin1 بالملفين الاخرين حتى لا يحدث خطا francais.xlsx Arabe.xlsx bulletin1.xlsx

السلام عليكم و رحمة الله استخدم المعادلة التالية =IF(COUNTIFS($B$6:B6;B6;$F$6:F6;F6;$K$6:K6;K6)>1;"سبق وتم إدخاله";"")

Try Sub Test() Const COLTARGET As Long = 3 Dim a, ws As Worksheet, sh As Worksheet, r As Range, i As Long, n As Long With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual End With Set ws = ThisWorkbook.Worksheets("Sheet1") With ws.Range("A3").CurrentRegion Set r = .Offset(, .Columns.Count + 2).Cells(1) .Columns(COLTARGET).AdvancedFilter 2, , r, True a = r.CurrentRegion.Value: r.CurrentRegion.Clear For i = 2 To UBound(a, 1) ws.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count): Set sh = ActiveSheet: sh.Name = a(i, 1) sh.Range("A1").Value = a(i, 1) sh.Range("A3").CurrentRegion.Clear .AutoFilter COLTARGET, a(i, 1) .Copy sh.Range("A4") n = sh.Range("A4").CurrentRegion.Rows.Count - 1 sh.Range("A5").Resize(n).Value = Evaluate("ROW(1:" & n & ")") .AutoFilter Next i End With With Application .Calculation = xlCalculationAutomatic: .EnableEvents = True: .ScreenUpdating = True End With End Sub

وعليكم السلام ورحمة الله تعالى وبركاته Sub Unique_School() Dim rng As Range, cRng As Range Dim Cell As Range, LstRow As Long Dim wsDest As Variant, s As String Dim cUnique As Collection Dim LrDest As Integer, i As Integer Dim WorksheetExists As Boolean Set ws_Data = ThisWorkbook.Sheets("Sheet1") Set rng = ws_Data.Range("C4:C" & ws_Data.Cells(ws_Data.Rows.Count, "C").End(xlUp).Row) Set cUnique = New Collection Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In Sheets If ws.Name <> ws_Data.Name Then ws.Delete Next On Error Resume Next For Each Cell In rng.Cells cUnique.Add Cell.Value, CStr(Cell.Value) Next Cell On Error GoTo 0 For Each wsDest In cUnique s = wsDest Sheets.Add(After:=Sheets(Sheets.Count)).Name = wsDest ActiveSheet.DisplayRightToLeft = True With ws_Data LstRow = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("A3").AutoFilter Field:=3, Criteria1:=wsDest Set cRng = .Range("A3:J" & LstRow) cRng.Copy Sheets(s).Range("A3") .Select .Range("A3").AutoFilter End With Next wsDest ws_Data.Activate Application.ScreenUpdating = True End Sub كشف طلاب المدارس 2.xlsm في حالة الرغبة باعادة انشاء تسلسل جديد للصفوف كشف طلاب المدارس 3.xlsm

شكرا لك أخي الكريم جعلني الله عند حسن ظنكم جميعاً للعلم جاري تحويلها لكود vba للاستفادة منها في الأكسس والإكسل وغيرها من برامج ميكروسوفت