كل الانشطه

مشكلة في الاكسيل :عندي مصحف وورد فيه كلمات لونت فيها بعض الحروف ونسيت تلوين التشكيل وعندما اضعه في الاكسيل اجد ان عدم تلوين التشكيل اثر على ترابط الحروف فتفترق الحروف الغير ملونة وجدت هذا الكود لكنه ثقيل جدا Sub FixUnicodeTashkeel() Dim i As Long Dim char As Range Dim charCode As Long Application.ScreenUpdating = False ' سيبدأ من الحرف الثاني ليفحص ما قبله For i = 2 To ActiveDocument.Characters.Count Set char = ActiveDocument.Characters(i) charCode = AscW(char.Text) ' نطاق اليونيكود للتشكيل العربي القياسي If charCode >= 1611 And charCode <= 1618 Then ' مطابقة لون التشكيل مع لون الحرف السابق له تماماً char.Font.Color = ActiveDocument.Characters(i - 1).Font.Color End If Next i Application.ScreenUpdating = True MsgBox "تمت معالجة كافة أكواد اليونيكود بنجاح!" End Sub هل من حل بارك الله فيكم

كده تمام الله يبارك فيك وهو المطلوب ..... ربنا يعطيك العمر المديد .... وأنفع الناس للناس وانت اهل لذلك . فلك الشكر

تمام يا @أحمد الشحات85 ، خلينا نرتب خطوات إعداد اللغة في Windows عشان أي جهاز يشغل قاعدة Access بالعربي يقرأ الحقول بشكل صحيح: * الخطوات العملية لتغيير إعدادات اللغة في Windows افتح الإعدادات (Settings): اضغط على زر Start → اختر Settings (الإعدادات). اذهب إلى الوقت واللغة (Time & Language): من القائمة الجانبية اختر Time & Language. ثم اختر Language & Region. أضف اللغة العربية: اضغط على Add a language. ابحث عن Arabic (Saudi Arabia) أو أي دولة عربية تناسبك. اضغط Install. اجعلها اللغة الافتراضية للعرض (Display Language): تحت Windows display language اختر Arabic. هذا يضمن أن النظام يعرض النصوص العربية بشكل صحيح. تغيير إعدادات المنطقة (Region): في نفس الصفحة، تحت Country or region اختر دولة عربية. هذا يساعد في عرض التواريخ والأرقام بصيغة عربية. تغيير اللغة للنظام (System Locale): افتح Control Panel → Region. اذهب إلى تبويب Administrative. اضغط على Change system locale. اختر Arabic (Saudi Arabia) أو أي دولة عربية. اضغط OK وأعد تشغيل الجهاز. * النتيجة: النصوص العربية تظهر بشكل صحيح في Access. الحقول اللي كانت تطلع برموز أو غير مفهومة، حتظهر بالعربي الطبيعي. التواريخ والأرقام كمان حتكون بصيغة عربية متوافقة. ****** كده تضمن إن أي جهاز يشغل القاعدة يقرأ الحقول بالعربي بدون مشاكل .

حرب التعديل التالي توزيع عدد الحصص (233) (1).xlsm

المعذرة ، كنت اعتقد ان الساعة ستؤدي الغرض !! اذن خليني اعمل قاعدة بيانات صغيرة ، وارفقها هنا

السادة الزملاء : مرفق دالة التفقيط بدون اكواد كل ما عليك ان تدرج الشيت المرفق فى اى ملف اكسيل تريد تفعيل دالة التفقيط بدون اكواد ولو نسخة الاكسيل 2021 فيما فوق يتم استخدام دالة مخصصة اسمها tafkeet Tafqeet_Dynamic_System (1).xlsx

أراك قد عدت الى استعمال الساعة في برامجك أخي جعفر .. رغم مقولتك :- وهنا أراك تبحث عن ثغرة برأس الإبرة .😉. علك قد تجد حلاً في يوم من الأيام .. لأن الفكرة التي نفذناها نفذت خصيصاً لكي تغنيك عن طريقة =Now() وفكرة التايمر الميتة التي طرحتها وتشتكي منها أصلاً ! بالتوفيق 😇

شكرا علر الرد : لكن المطلوب توزيع الحصص على مدار الاسبوع ( 5 ايام) اي لو عندي 5 حصص زيادة يتم توزيعهم الحصة الثامنة من كل يوم الاحد حصة والاثنين حصة وهكذا .... ولو 6 حصص زيادة يكون الاحد الحصة السابعة حصة والثامنة حصة وباقي الايام حصة وهكذا

مبارك عليك الحل .. وعذراً لعدم المتابعة معك في وقتها ، بس كنت خارج من الشغل للأسف .. في المرفق اللي رفعتهولك ، كان فعلاً يتم التنفيذ على الإمتدادين MDB و ACCDB من إصدارات 2007 وما فوق .. لكنك بحثت عن فكرة زرين لكل وظيفة ، وهذا كان يسيراً جداً من خلال الفكرة اللي طرحتها .. ولكن كل الطرق تؤدي إلى روما - ما دامت روما قريبة - .. وفعلاً نسختك اللي رفعتها ما اشتغلتش عندي أنا كمان وده اللي خلاني أطلع وقلت بجرب على كمبيوتر تاني .. 👍🏻

استبدل الكود التالي بالكود بالملف Sub DrawCircles1() Application.ScreenUpdating = False Call DelShap Call ProcessTable(10, 14, 3, 10, "N9") Call ProcessTable(18, 22, 3, 10, "N17") Application.ScreenUpdating = True End Sub Sub ProcessTable(SROW As Long, EROW As Long, SCOL As Long, ECOL As Long, RefCell As String) Dim ws As Worksheet Dim i As Long, j As Long Dim totalCells As Long, totalRequired As Long Dim dayCells As Long, n As Long Dim arrCells() As Long Dim temp() As Double Dim remainder As Long Set ws = ActiveSheet totalRequired = Val(ws.Range(RefCell).Value) totalCells = 0 ReDim arrCells(SROW To EROW) ReDim temp(SROW To EROW) For i = SROW To EROW dayCells = 0 For j = SCOL To ECOL If Trim(ws.Cells(i, j).Value) <> "" Then dayCells = dayCells + 1 End If Next j arrCells(i) = dayCells totalCells = totalCells + dayCells Next i If totalCells = 0 Then Exit Sub For i = SROW To EROW If arrCells(i) > 0 Then temp(i) = totalRequired * arrCells(i) / totalCells Else temp(i) = 0 End If Next i For i = SROW To EROW n = Int(temp(i)) If n > arrCells(i) Then n = arrCells(i) If n = 0 Then ws.Range("M" & i).Value = "" Else ws.Range("M" & i).Value = n End If Next i remainder = totalRequired - Application.WorksheetFunction.Sum(ws.Range("M" & SROW & ":M" & EROW)) Do While remainder > 0 Dim maxI As Long, maxVal As Double maxVal = -1 For i = SROW To EROW If arrCells(i) > Val(ws.Range("M" & i).Value) Then If temp(i) - Int(temp(i)) > maxVal Then maxVal = temp(i) - Int(temp(i)) maxI = i End If End If Next i If ws.Range("M" & maxI).Value = "" Then ws.Range("M" & maxI).Value = 1 Else ws.Range("M" & maxI).Value = ws.Range("M" & maxI).Value + 1 End If remainder = remainder - 1 Loop For i = SROW To EROW n = Val(ws.Range("M" & i).Value) If n > 0 Then Dim validCols() As Long Dim countCols As Long countCols = 0 For j = SCOL To ECOL If Trim(ws.Cells(i, j).Value) <> "" Then countCols = countCols + 1 ReDim Preserve validCols(1 To countCols) validCols(countCols) = j End If Next j Dim k As Long For k = countCols To 1 Step -1 If n = 0 Then Exit For j = validCols(k) With ws.Shapes.AddShape(msoShapeOval, _ ws.Cells(i, j).Left + 5, _ ws.Cells(i, j).Top + 5, _ ws.Cells(i, j).Width - 10, _ ws.Cells(i, j).Height - 10) .Line.Weight = 2 .Fill.Visible = msoFalse End With n = n - 1 Next k End If Next i End Sub

لديك الحق استبدل في الكود wsSource.Range("A4:I4").ClearContents الى wsSource.Range("A7:I7").ClearContents بمعنى الرقم 4 غيره الى 7 فقط

ده فعلاً اللى عملته بالتفصيل : تفعيل ، عدم تفعيل للملفات mdb ، accdb جربت الآن على ملف mde وكمان عملت له كلمة سر للقاعدة أثناء الفتح الخاص قبل تحويلها وتم اختبار ظهور وإخفاء كلمة سر القاعدة وتفعيلها وإلغاء تفعيلها وكله تمام وأكرر شكري مرة أخرى للعلم فقط أنا شغال على ويندوز 7 32 بت وعليه أوفيس 2003 أساسي ، وأوفيس 2007 بورتابل وهذه بيئة التجارب عندى قد يكون هناك مشكلة فى أوفيس 2003 البورتابل الذى رفعته هنا ، فالجميع يعلم أن التثبيت أفضل طبعاً من ملف بورتابل

من فضلك بس جرب تعمل ملف accde ومرة كمان مع ملف mde لانه المفروض يرفض لانهم ما يتعدلوا وياريتك لو تجرب قواعد Accde , Mdb بكلمات مرور وطبعا كلمات المرور على القاعدة مش على محرر الاكواد علشان بس تتأكد أن كل شئ شغال معك تمام لانى حملت السخة للاوفيس البورتابل اللى انت قلت عليها وللاسف مش شغالة مع ويندوز 64 بت تقريبا وبغض النظر عن الفكرة الموجودة فى النموذج بالشكل ده انا اول تعديل تعديل لى على القاعدة دى قلت انها قاعدة الاستاذة أم عهود مش شغلى ولا افكار انا افتكر بس انا استخدمت فى اول تعديل فيل ديلوج بدل دوال API وعارف ان الدوال اسرع بس وقتها مكنتش بأعرف احول الدول ل 64 بصراحة وتانى تعديل وقتها اضافة كلمة المرور فلو فى اى شئ مش عاجبك فى الافكار او عاوز تضيف اى شئ او تكستميز اى حاجة بشكل معين قولى انا بصراحة واعتذر مكنتش مركز قوى مع المشاركات كنت باشوف اخر واحد واحاول استنتج الوجوار ماشئ ازاى لانى كنت مشغول جدا

تمام يا أستاذنا وبلاش كل شوية تهددنا بأنك هتسيب المنتدى إحنا منقدرش نستغنى عنك

يعنى كده كل امورك تمام ؟ واللا محتاج اى حاجة تانى ؟..

الله ينور بتشغيل المرفق من داخل أكسس 2007 وتطبيقه على ملفين إحداهما حديث " تجربة.accdb " والآخر قديم تنسيق 2003 " مدرسين.mdb " تمام لكلا الملفين ، وأعتقد أنه لا حاجة لتحويل هذا المرفق إلى نظام 2003 لأن المطلوب هو تأثيره على ملفات 2003 بجانب تأثيره على الملفات الأحدث

استاذ افراغ الحقول بالون الأصفر عند الترحيل فقط بارك الله فيك

وعليكم السلام نعم اعلم ان هناك طلب ثاني وكان ردي السابق لطلبك الاول اليك الملف وبه طلبك الثاني Plateform19840019.xlsb

المرفق بعد التجربة على 2003 لو تمام يبقى ماشئ الحل لو فى مشكلة ظهرت قم بانشاء قاعدة بيانات جديدة من الاصدار 2003 وبعد ذلك قم بتصميم النموذج والاكواد من هذه النسخة واخرنا النتيجة من فضلك تفعيل وإلغاء الشفت-V2.accdb

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

تمام 100 % لماذا أصمم على أن أن يكون التطبيق بأكسس 2003 لأن جميع إصدارات الأكسس التالية تقوم بتشغيل هذا التطبيق ما لم نضيف خصائص عالية من الإصدارات الحديثة لذلك ذكرت أن تطبيق حضرتك قد نجح فى التأثير على التطبيقات ذات اللاحقة accdb بشرط تشغيله من داخل 2007 فما فوق لكن فى أكسس 2003 لن يؤثر إلا فى التطبيقات mdb

لا أعرف وجهة نظرك فى أن التطبيق يتعامل مع موديول ، ولكنى أحترمها طبعاً فى حين أنه يحتوى على نموذج واحد يتيم يمكن وضع كل أوامر الموديول به ملاحظتك حدث بعد التحديث للعنصر OptMain لم يكن غائباً عنى ولكن كنت أفكر فى وظيفة التطبيق المتشابكة وأن الحدث هل سوف يؤثر فيها ؟ إقتراحى إذا أعجبك: وضع زري أمر "إلغاء تفعيل" ، "تمكين تفعيل" وليس زر واحد مع خفوت أحدهما وقت الحاجة لأحدهما التعديل فى بيان "Lbl_Info" بالنموذج أو الاستغناء عنها خد راحتك .. أعلم أن دماغك متكلفة ويمكنك أن تضيف من إبداعاتك الكثير ، فى انتظار مرفقك المعدل

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