أ / محمد صالح

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

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

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

نموذج كارت الصنف يعرض مخزن الاضافة والرصيد المتاح والمنصرف والوارد ورقم الاذن والتاريخ هل تقصد الوحدة الخاصة بالصنف العدد؟ يوجد في البرنامج كله اعتماد على كود الصنف واسم الصنف ورصيده يعني عدد وحداته اما اذا كنت تقصد انواع فرعية من الصنف فيمكنك اضافتها في الاصناف اذا كنت من صمم البرنامج ستعرف ان جرد المخزن يقوم بحساب 7 خانات لحوالي 5200 صنف وهذا شيء طبيعي ان ياخذ وقتا في معالجته

اقتراحي لاختصار وتسريع كود الترحيل من الفورم للشيت هو ان تقوم بتسمية عناصر التحكم في النموذج بنفس ترتيب الشيت فمثلا العمود F هو العمود رقم 6 نسمي مربع النص الذي سيتم ترحيله للعمود F ب txt6 وهكذا مع باقي العناصر جتى txt116 وهو الذي سيتم ترحيله للعمود DL واستعمال هذا الكود البسيط للترحيل ومسح محتويات النموذج Private Sub CommandButton6_Click() answer = MsgBox ("هل أنت متأكد من تعديل البيانات", vbQuestion + vbYesNo + vbDefaultButton2, "تأكيد التعديل") If answer = vbYes Then Dim rng1 As Range, str_search As String, row_number As Long,n as long str_search = Txt3.Value Set rng1 = Sheets("ليدجر").Range("E:E").Find(str_search, , xlValues, xlWhole) If Not rng1 Is Nothing Then row_number = rng1.Row Application.ScreenUpdating = False For n = 6 To 116 Sheets("ليدجر").Cells(row_number, n).Value = Me.Controls("txt" & n).Value Next n For n = 6 To 116 Me.Controls("txt" & n).Value = "" Next n Application.ScreenUpdating = True End If End If MsgBox "تم التعديل بنجاح" End Sub بالتوفيق

لدي اوفيس 365 الحديث بعد 2019 نسخة 64bit

من الواضح أن البرنامج تم تصميمه وتحويله الي accde باكسس 2016 او 2019

طالما ان صاحب الاستفسار مشغول عن استفساره هذا رأيي في تنفيذ المطلوب بكود vba تم اضافة شكل ليتم كتاة رقم الاستمارة فيه ويمكن تصميم الاستمارة كما يشاء فقط يحتاج.الي استدعاء الماكرو باسم printcur ويمكن ربطه بزر او شكل طباعة رقم الاستمارة.docm

ماذا يظهر لك عند تشغيل الملف يفضل ارفاق صورة

تفضل اخي الكريم تم تعديل النموذج a1 وخصوصا زر توزيع المبلغ وتم تعديل النموذج a2 في مصدره ومصادر مربعات النصوص وتم تعديل جدول t_m الكود في زر التوزيع يراعي المبلغ المتبقي بعد عدد الاقساط اذا كان اكبر من قيمة القسط او لا لاحظ توزيع القسط والفائدة واجمالي القسط في السجل الأخير بالتوفيق ‫الأقساط ‫‬1.mdb

البرنامج يعمل عندي بدون اي مشاكل لان الويندوز والاوفيس 64bit

هل تعني انك كنت تعمل على قاعدة بيانات مصممة باوفيس 2010 ثم قمت بالغاء تثبيت اوفيس 2010 وقمت بتثبيت اوفيس 2019 على نفس نسخة الويندوز ونفس ظروف عمل البرنامج على الاصدار القديم ولم يعمل علي الجديد؟؟؟؟؟؟ صعب جدا الاحتمال ده ولكن لكشف الأخطاء يمكنك الدخول إلى نافذة vba من قائمة debug اختر compile لنرى ما الخطأ الذي يظهر معك

جميل جدا استعمال دمج المراسلات لكن يمكن حلها بالووورد فقط المهم ان يرد صاحب الاستفسار

الموضوع لا يخص الاوفيس وحده من الممكن أن يتعلق بنسخة الويندوز ربما تكون اسماء الاجراءات او العناصر باللغة العربية والويندوز لم يتم ضبط اللغة العربية ك Unicode language من لوحة التحكم متى نقول ان البرنامج الذي صمم باوفيس 2010 لم يعمل على اوفيس 2016 اذا تم الغاء تثبيت 2010 وتم تثبيت 2016 علي،نفس الويندوز ونفس ظروف عمل الاصدار السابق

* كل البرامج التي تصمم بالاصدارات القديمة تعمل على الإصدارات الأحدث ولكن العكس غير صحيح * في رأيي الشخصي الأحدث هو الأفضل لانه يتم فيه حل الكثير من المشكلات السابقة بسهولة * اما بالنسبة لموضوع النواة فالأعلى في القدرات 64بت والله اعلم

يمكن استعمال معادلة if إذا كانت الخلية فارغة تكون قيمة المعادلة فارغة يمكن وضع هذه المعادلة في i5 =IF(A5="", "", A5) ثم سحب المعادلة افقيا وراسيا بالتوفيق

كل شيء ممكن لما نفكر فيه بطريقة سليمة جرب هذه المعادلة في الخلية B2 =MID(A2, 1,FIND(CHAR(10),A2)-1) والمعادلة التالية في الخلية C2 =MID(A2, FIND(CHAR(10),A2)+1, 10) بالتوفيق

هو ممكن لكن سيكون الشكل غير مقبول نهائيا لعمل ذلك يتم نسخ النطاق من A1:G20 ثم لصقه ابتداء من الخلية I1 مع تعديل منطقة الطباعة الى A1:O20 مرفق ملفك وبه التعديل راسي وافقي بالتوفيق كشفين في ورقة واحدة.xlsx

من الواضح في الصورة ان اتجاه الصفحة افقي landscape وهذا يصعب المهمة في وضع صفحتين افقيتين في صفحة افقية لذا اقترح ان تكون صفحة تحت صفحة في التصميم وتتم طباعة الاثنين في صفحة واحدة راسيا

من المفترض أن يظهر زر يخبرك بأن القاعدة تحتوي على ماكرو والضغط عليه واختيار تمكين المحتوى enable content يتم تفعيل الماكرو وربما تكون اسماء الماكرو او العناصر باللغة العربية وربما تكون نسخة البرنامج 32bit والويندوز الجديد 64bit الاحتمالات كثيرة

يفضل إرفاق الملف او مثال منه

حتى لا يتشعب الموضوع بالنسبه الي عدم ظهور اسم المستخدم نفسه في قائمه المتواجدين حاليا هذا يعني اعتراف ان قائمه الموجودين حاليا موجوده وتعرض اسماء اخري ولكن اسم المستخدم ليس ضمن هذه القائمه. الاحتمال الثاني ان قائمه المتواجدين حاليا لا تظهر نهائيا (هذا يكون خللا فنيا في الموقع وهذا غير صحيح لظهورها عند الكثير) او يظهر ان المتواجدين عددهم 0 (هذا عادي جدا) الحل في الاحتمال الاول هو مراجعه اعدادات الحساب كما أخبرت سابقا اما بالنسبه للاحتمال الثاني فتظهر قائمه المتواجدين حاليا اسفل الصفحه الرئيسيه للمنتدى ويظهر فيها جميع المتواجدين في المنتدى حاليا وهي القائمة الأكبر عددا و تظهر ايضا اسفل كل قسم مثلا قسم الاكسس يظهر المتواجدين في هذا القسم فقط وهي اقل من القائمة الأولى و تظهر ايضا اسفل كل موضوع في المنتديات وهي أقلهم عددا وفي الأخير ينبغي على المستخدم كل فترة محو بيانات المتصفح clear browsing data حتى تظهر المواقع باعدادات حديثة بالتوفيق

بالضغط على اسم المستخدم أعلى يسار الموقع وتختار إعدادات الحساب (في الموبايل تختار حساب ثم إعدادات الحساب)

ليس الجميع يظهر لمن جعل حسابه مرئيا في إعدادات الحساب ويختفي عن الجميع حتى نفسه من اختار إخفاء

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