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

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

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

الخطأ هو أن العمود رقم 9 فارغ ولا يتم ترحيل بيانات إليه لذا يمكن تغيير هذا السطر erow = sh1.Cells(Rows.Count, 9).End(xlUp).Offset(1, 0).Row إلى erow = sh1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row بالتوفيق

طيب .. واذا كانت بصيغة mde, accde

حسب فهمي للمطلوب تم تنفيذ المعادلة على العمود الأول E وإذا أردت تطبيقها على العمود التالي يمكنك تغيير الخلية $E$1 في المعادلة الموجودة في الصف الثاني بالتوفيق mas tableau.xlsx

طلبنا المرفق حتى لا تطول الاستفسارات والتعديلات .... تفضل ........... Forms![Customers]![Address].ColumnWidth = -2 وانا اتوقف عند هذا الحد !!!

السلام عليكم و رحمة الله و بركاته أخي الكريم المشكلة ليست فى حجم الملف فى المشاركة الواحدة فالمسموح به لمجموعة الاعضاء المميزين هو 3 ميغا للرد و لكن الحجم الكلي للمرفقات التي اضفتها انت ، فحاليا حجم مرفاتك على الموقع تجاوز 100 ميغا و هو الحجم المحدد للمجموعة كحل مؤقت تمت زيادة السعة الكلية المسموح بها الي 150 ميغا بدل من 100 و هذه الحد تم وضعه بصورة نسبيه مع عدد المشاركات، حيث انه بوضول عدد مشاركاتك الي 500 ، سيتم الترقية اليا للمجموعة التالية و بالتالي يزداد يزداد حد التحميل بصورة الية. ملاحظة : لا يمكن ترك حجم التحميل مفتوحا لكافة المجموعات على السيرفر ، و عليه ارجو مراجعة مرفقاتك السابقة و الافادة هل بها تكرار يمكن الاستغناء عنه أم كلها ضرورية لسياق المشاركات لكي نستطيع دراسة الوضع و ايجاد الحلول الملائمة

وعليكم السلام ورحمة الله وبركاته

للأسف هذه الطريقة في الفلترة بالمعادلات المتبعة في ملفكم تجعل الملف ثقيلا جدا لذلك يمكنك تحديد المدى الذي كنت تسحب فيه المعادلة لأسفل كله ثم حذف المعادلة منه بضغط مفتاح delete من لوحة المفاتيح مع إبقاء تحديد الخلايا ثم لصق نفس المعادلة في شريط المعادلات مع تغيير row($a1) إلى row()-5 إذا كان هناك 5 صفوف فوق صف البداية وفي النهاية الضغط على ctrl+shift+enter بهذا نكون وضعنا معادلة واحدة في جميع الصفوف المحددة وهذه اسرع طريقة للفلترة بالمعادلات بالتوفيق

أضافة أوامر وترجمة الى أى لغة وجعل الكمبيوتر يتكلم فى الاكسل الجزء الخامس

وعليكم السلام-تفضل =IF(AND($K$5="متزوج",$K$7>0,$K$6="ماكثة"),($K$7*600)+800,IF($K$6="عاملة",0,IF(AND($K$5="متزوج",$K$7=0),550,""))) حساب الراتب لجميع الوظائف 2022 ofsna (1).xlsm

وعليكم السلام ورحمة الله وبركاته دكتور محمد 🙂🌹 سؤال: هل هناك آلية لحذف الملفات السابقة (ملفات محددة وليس الكل) حسب الأهمية ..؟ بغرض توفير المساحة 🙂

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

وعليكم السلام دكتور محمد 🙂 هذه معلومة جديدة تضاف الى رصيدي ، شكرا لك 🙂 جعفر

يوجد شيء لم اذكره ممكن عند وجود كتاب شكرفي حقل كتب الشكر واحد يظهر 1 كتاب شكر في الملاحظات وعند وجود في حقل كتاب المفوظية تظهر في الملاحضات 1شهر مفوظيه يعني دمج النص مع الرقم انا عملتها لكني لم تظبط في حالة كون الواحد فارغه والثانيه تحتوي على رقم وعند وجودهما الاثنين فارغين لا يظهر شيء في الملاحضات

شكرا جزيلا ساقوم بالتجربة بارك الله فيك

وعليكم السلام اخوي احمد 🙂 ما ادري انت راسلت من ، ولكني الآن ارفع موضوعك للإدارة 🙂 جعفر

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

ليست لدي الطريقة الآن ولكن أقترح عليك بما أنك لم تغير في الجداول أن تبحث عن طريقة تستورد لك البيانات من النسخ القديمة للنسخة الجديدة .. 🙂

نصيحة لك الى ان تنتهي المشكلة ارفع ملفاتك على google drive او mediafire او اي موقع خارجي لتحميل الملفات

تمام استاذي لكل كتاب شكر يؤخر شهر كامل من تاريخ الاستحقاق الجديد مثال لو كان تاريخ الاستحقاق القديم 2-1-2022 لاصبح تاريخ الاستحقاق الجديد 2-1-2023 لكن لديه 8 كتب شكر وبهذا يصبح 2-5-2022 وهكذا وبارك الله فيك استاذي

أليس كل كتاب شكر يعدل شهر كما فهمت من طرحك للموضوع وكما هو موضح من كلامك في الاقتباس المرفق؟؟؟!!.. بحاجة توضيح أكثر إن كان ما قلت بخلاف الواقع.

ابشر اتفضل التعديل sa1.3.zip

تسلم أخى الكريم نفع الله بكم وزادكم من علمه

محمد و محمد الله يعزكم دنيا واخرة فعلاً طلعت هذي المشكلة وتم حلها الف شكر لكم

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

ربما يكون في الرأس والتذييل header & footer في تبويب تحطيط الصفحة page layout ثم مربع إعداد الصفحة page setup ثم تبويب header/footer بالتوفيق

بارك الله فيك للتوضيح الملف اللي عندي pdf وعبارة عن مخطط بناء ويطبع على a3 او a2 في المكاتب الهندسية لتكون الارقام اكثر وضوحاً ولكن لايوجد لدي الا طابعة a4 المطلوب هل هناك طريقة لطباعة الصفحة الواحدة من الملف على صفحتين a4 لتكون واضحة وجزاكم الله خير

حسب فهمي للمطلوب يمكنك إضافة هذا الكود في نهاية إجراء الطباعة Sub PRINT_OUT lr = Cells(Rows.Count, 1).End(xlUp).Row For r = 8 To lr rw = Application.WorksheetFunction.Match(Range("A" & r).Value, Sheets("التحميل").Range("A:A"), 0) Sheets("التحميل").Range("Q" & rw).Value = "تم الصرف" Next r وهو للحصول على رقم الصف الذي يحتوي على رقم المستند الموجود في الخلية A8 وما بعدها عند البحث عنه في العمود A في شيت التحميل ثم تغيير قيمة الخلية Q في نفس الصف إلى تم الصرف بالتوفيق

بعد إذن جميع المشاركينفي هذا الموضوع الرائع لتحديد الأيام المفقودة يلزم تحديد تاريخ البداية Start Date وتاريخ النهاية End Date ليتم حصر الأيام الموجودة بين التاريخين وكذلك الأيام المفقودة وذلك كله بدلالة رقم الموظف Emp ID تكتب مرة واحدة وتحصل على تقرير لكل موظف ربما يكون هذا هو المطلوب بإذن الله تم جلب أصغر تاريخ للموظف ليكون تاريخ البداية وأكبر تاريخ ليكون تاريخ النهاية ويمكن استعمال أصغر تاريخ في العمود كله Min وأكبر تاريخ في العمود كله Max ويمكن كتابة التاريخين يدويا للحصول على بيانات هذه الفترة واستنتاج الأيام المفقودة بين التاريخين بمعادلة مصفوفات Array formula مطبقة على الخلايا j10:j40 بالتوفيق الأيام المفقودة بين تاريخين لكل موظف.xlsx

أستاذى @kanory جزاك الله خيرا الحدود اتشالت كود الطباعة انا عارف انه سليم بس مشتغلش بيطبع مره واحده و بالبحث وجدت كود للأستاذة زهرة و اشتغل تمام Dim I As Byte CopyN = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ") If IsNumeric(CopyN) Then For I = 1 To CopyN DoCmd.OpenReport "mab" Next I Else MsgBox "البيانات التي أدخلتها ليست بيانات رقمية .", vbCritical

لحساب عدد السجلات في كل صفحة اعمل مربع نص في صفحة التقرير ..قم بتسميته مثلا txtPageCount اجعل التنسيق له قياسي Format=standard ثم قم بنسخ الاكواد التالية : Option Compare Database Option Explicit Public intPageCount As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) intPageCount = intPageCount + 1 End Sub Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) txtPageCount = intPageCount intPageCount = 0 End Sub Private Sub Report_Open(Cancel As Integer) intPageCount = 0 End Sub

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

حسب فهمي للمطلوب * لعرض أسماء الشيتات في القائمة يمكنك حذف هذا الكود من حدث إلغاء تفعيل Worksheet_Deactivate لشيت database Dim w As Worksheet UserForm1.Co1.Clear For Each w In ThisWorkbook.Worksheets UserForm1.Co1.AddItem w.Name Next w ووضعه في حدث تفعيل النموذج UserForm_Activate * ولفتح الشيت الذي يتم اختياره من القائمة نستعمل هذا الكود في حدث تغيير القائمة بالضغط دبل كلك عليها في النموذج ولصق السطر الأوسط من هذا الكود فقط Private Sub Co1_Change() Sheets(Co1.Value).Select End Sub بالتوفيق

حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة في الخلية j17 في sheet1 =TRANSPOSE('2nd'!H19:O19)

وذلك بسببك لأنك لاغى ذلك بالكود وذلك بالأسطر الموجودة باللون الأخضر فعليك بحذف الفاصلة العليا على يسار كلمة Me من جميع الأسطر ليصبح الكود كالتالى : Me.ListBox1.AddItem Me.TextBox4.Value Me.ListBox1.List(al, 1) = Me.TextBox5.Value Me.ListBox1.List(al, 2) = Me.TextBox6.Value Me.ListBox1.List(al, 3) = Me.TextBox7.Value Me.ListBox1.List(al, 4) = Me.TextBox8.Value Me.ListBox1.List(al, 5) = Me.TextBox9.Value Me.ListBox1.List(al, 6) = Me.TextBox10.Value Me.ListBox1.List(al, 7) = Me.TextBox11.Value Me.ListBox1.List(al, 8) = Me.TextBox12.Value Me.ListBox1.List(al, 9) = Me.TextBox13.Value 1dwork.xlsm

حقيقة آثار فضولي ان اري مرفق اخي وأستاذي @ابو جودي بعد ان اطلعت علي الكود بمشاركته الأولي ومن باب الفضول ايضا قمت بوضع رقمي القومي لأنظر هل سيصل الكود الي الصعيد ام لا ولا ادري لماذا اتجهت عيني مباشرة الي العمر ولن ما ادهشني ان عمري قد اصبح 12 عاما فقط حقيقة قد شككت في حساباتي انا ولم اشك بكود استاذنا ابو جودي - واخذت ادعو له بظهر الغيب ان نبهني ان العمر لم يمضي وشمرت عن ساعد الجد لادرك ماظننت انه قد فات في عمر الشباب - ولات حين ادراك 😔 - ولكن قد قمت بالعبث بكود استاذنا وقام بحساب العمر صحيحا علي ما اعتقد وعدلت بعزل نوع الخطأ بعمود مستقل حسب ما فهمت من كلام الاستاذ محمد صاحب الموضوع وهذا المرفق بعد كل هذه الثرثرة قاعدة بيانات موظفين - (3).accdb ملاحظة قمت بحذف بياناتي الشخصية حتي لا يطلع احد علي العمر الحقيقي

جرب كدا في حالة وجود كود الصنف يضيف الكمية dwork.xlsm

جرب أخي الفاضل وضع هذا الكود في حدث workbook كما في الصورة Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub ثم انسخ بياناتك ، وانتقل إلى ورقة العمل الهدف و انقر بزر الماوس الأيمن على الخلية الوجهة ، سيتم لصق قيم الخلايا المنسوخة دون أي تنسيق بإذن الله.

اخي من قائمة ملف ثم خيارات ثم اعدادات العميل ثم ازل علامة الصح من علي تأكيد الاستعلامات الاجرائية هذا بالنسبة لرسائل تأكيد اجراء عمليات الالحاق اتفرج علي الفيديو دا هايساعدك

ربما يجب استبدال الفاصلة بفاصلة منقوطة داخل المعادلة (حسب اعدادات الجهاز عندك) لتبدو المعادلة هكذا =MID(E7;FIND("/";E7)+1;LEN(E7))

السلام عليكم ورحمة الله أخواني وأحبائي الكرام بعد غياب طويل عنكم تجاوز مدة العام والنصف أتيت لكم اليوم ببرنامج جديد ومتميز وجميل اتمنى أن يفيدكم في عملكم بشكل خاص وتتعلموا منه بشكل عام هو برنامج أوفيس سوفت للصرافة والخدمات المالية الاصدار الثاني ولكن بحلته وشكله الجديد البرنامج صراحة تم تصميمه وبرمجته عندما عرض علي أحد أصحابي الذي يعمل في مجال الصرافة وتحويل الاموال فكرة أنشاء برنامج بسيط يجمع بين السهولة والبساطة وبين دقة النتيجة والمعلومة البرنامج بكل اختصار هو (برنامج لشراء وبيع العملات بمختلف اسماءها وبعد ذلك اعطاء تقرير بالارباح والخسائر لكل من العملات التي تم عليها حركة) فكان نتيجة فكرته هذا البرنامج البسيط الذي تجاوز مدة تصميمه وبرمجته مدة 120 ساعة تقريباً على فترة شهر ونصف (في كل يوم 3 ساعات تقريباً من العمل ) مميزات البرنامج: 1 - اضافة وتعريف عملات جديدة بعدد لانهائي 2- فواتير شراء ومبيع عملات بعدد لانهائي 3- بحث متقدم ومتميز في أكثر من 6 معاير نطاق بحث 4- تقرير برصيد الحالي للعملات واعطاء التكلفة لكل رصيد 5- تقرير مفصل حول أرباح وخسائر العملات وهذه صورة من واجهة البرنامج لم أقم برفع باقي الصور لكي تقومو بتحميل البرنامج ويتم اكتشافه من قبلكم البرنامج يعمل على كافة انظمة ويندوز من 7 الى ويندوز 10 ومن نسخ أوفيس 2007 الى أوفيس 2016 وهو مجرب بشكل كامل ويعمل من غير مشاكل كل ماعليكم سواء تحميل الملف المرفق وفك الضغط وتنزيل برنامج التنصيب وبعدها العمل عليه ملاحظة :البرنامج يجب أن يتم تثبيته في مسار غير مسار قرص النظام (يعني القرص D,E,B) وإضافة لذلك يوجد مع البرنامج ملف PDF لتعليم المستخدم كيفية التعامل مع البرنامج Office Soft.Financial Services.rar وفي النهاية اتمنى أن ينال أعجابكم ورضاكم وأن شاء الله تعالى بعد فترة سوف أقوم برفع البرنامج مفتوح المصدر لكي تشاهدو الكودات وتتعلموا منها وهدية لكم أيضاً رابط برنامج مرتبات وشؤون الموظفين الذي واجه الاعضاء مشكلة في صفحة التحميل Office Soft.Employ & Salary أتمنى من إدارة الموقع تثبيت الموضوع لكي يتم الاستفادة منه قدر الامكان والسلام عليكم ورحمة الله والدعاء لي ولوالدي في ظهر الغيب

لأخواني الأفضل وكذلك لزميلي العزيز SEMO.Pa3x احيية على جهدة في فكرته الجميلة لكن يوجد في اكسس تثبيت الخطوط بدون ادوات خارجية وبدون تحديد مسار يكفي وضع الخطوط في مجلد Fonts مع قاعدة بيانات ويتكفل الكود بتثبيتها بدون وسائط او ادوات خارجية، وبالطبع مع كتابة اسم الخط في الكود وقد عملت ملف قبل نصف سنة بهذا الامر ، وهذا مثال للكود الموجود بالملف res = AddFontResource(CurrentProject.Path & "\fonts\DS-DIGI.ttf") مرفق ملف إضافة الخطوط للويندوز.rar

السلام عليكم ورحمة الله وبركاته رمضان كريم وأن شاء الله يعاد علينا بالبهجة والفرح على الأمة الاسلامية من فترة شهر تقريباً اتصل بي أحد الأصدقاء يعمل محاسب في احدى الشركات البسيطة والصغيرة في مجال الصرافة المالية الخاصة يريد برنامج بسيط على اكسيل في مجال الصرافة فقمت بتصميم وبرمجة برنامج مخصص له يوجد فيه الآتي: 1- فواتير شراء 2- فواتير مبيع 3- أيصالات قبض 4- ايصالات دفع 5- دفتر اليومية 6- كشف حساب 7- الميزانية والأرباح والخسائر البرانامج يعتمد السهولة والبساطة في نفس الوقت في العمل والبرنامج أساسا في قيد التجريب والتطوير وناقص فيه أشياء كثيرة من الأشياء الناقصة تعديل فاتورة لكن فكرته تعتمد على المحاسبة النظرية والعلمية وليس المحاسبة العملية فأحببت أن أفيدكم فيه لأنه صراحة بحثت كثيراً في المواقع ولم أجد برنامج خاص للصرافة المالية في إكسل وفي نفس الوقت مجاني فأرجو أن شاء الله أن ينال إعجابكم ويكون طريقاً في الخير وإذا كان الموضوع يستحق التثبيت يرجى تثبيته لتحقيق أكبر فائدة ممكنة للمستخدمين والسلام عليكم أخوكم في الله أنس دروبي الرقم السري لألغاء الحماية anas ‫‫منظومة الصرافة.rar