كل الانشطه

الكود موجود باليوزرفورم من البداية فقط قم بسحب شريط التمرير الأفقي الموجود بالأسفل

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

شكرا

شكرا لك

أخي بلانك .. لإجراءاتكم بنقل الإجابة إلى الحل الأخير . ما لم يكن هناك أي تعديل آخر .

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

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

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