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

تفضل .... del_raseb.mdb

لقد قمت انا باغلاق البرنامج ووجدت التعديلات موجودة ..... عموما اصنع زر للحفظ وضع فيه هذا الكود .. me.Requery

عملت تعديل انظر وقبل وحفظ .... عند التعديل انتقل لحقل اخر حتى يتم التحديث في الجدول

لعمل هذا الأمر يجب وضع التصنيف في قائمة التحقق من الصحة حتى لا تختلف الاختيارات ومصدرها الخلايا في العمود G وتم وضع المعادلة التالية في الخلية E4 =IF(A4=G$1,C4/D4,D4/C4) ويمكنك سحبها لاسفل بالتوفيق معدل سيارات.xlsx

طيب جرب المرفق ..... ‏‏test_kanory.accdb

الكود السابق الحقيقة يعيد المؤشر مرة اخرى لمربع النص المسمى a فلا يترك فرصة لعمل مفتاح الاعلى والاسفل ....

تحتاج مراجعة الاكواد في النموذج مثلا هذا الكود عند الخروج يتعارض مع ما تريده ..... Me.sn.SetFocus DoCmd.GoToRecord , , acNewRec Me.a.SetFocus

واياك يا ابا الحسن

ربما تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=الباركود الاكسل&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

اداة ليست بوكس اداة عرض لما هو موجود في الشيت ولا يتم الترتيب من خلالها وأكرر مرة أخرى

عليكم السلام ورحمة الله وبركاته بالنسبه لحل مشكلة تسجيل المكتبات اعطيك الطريقه اللى انا مجربها واعمل عليها بدون مشاكل اولا انقل ملف المكتبه barcodex.ocx في مجلد System32 وانقل نسخة منه اخرى في مجلد syswow64 بعد ذلك افتح برنامج cmd باستخدام التشغيل كمسؤول واكتب الامر التالي : C:\Windows\system32>regsvr32 barcodex.ocx جرب وراح يعمل معك باذن الله

بعد إذن حبيبي @Ali Mohamed Ali هذه مشكلة معروفة مع دالة vlookup أنها لا تجلب نتائج من عمود يسبق عمود البحث ولكن الحل معها استعمال هذا الشرط لعكس اتجاه البحث فتصبح المعادلة =VLOOKUP(J7,IF({1,0},$C$7:$C$11, $B$7:$B$11),2,FALSE) أو =VLOOKUP(J7,IF({0,1},$B$7:$B$11,$C$7:$C$11),2,FALSE) بالتوفيق

لاضافة الكود كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود بالتوفيق

جرب المرفق مع ملفاتك جميعها .... حتى نكمل بقية البيانات بعد التأكد من عمل البرنامج مع جميع ملفاتك ....... ‏‏test_kanory.accdb

هذه الميزة جميلة لكنها تنطق عند حدوث تغيير في كل مكان وهذا مذعج جدا الكود يحدد الخلايا التي ينطقها البرنامج مثلا إذا أردنا نطق أي تعديل في خلايا العمود A نستعمل الكود التالي في حدث عن التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Dim v As Object Set v = CreateObject("SAPI.SpVoice") v.Speak Target.Text Set v = Nothing End If End Sub وأعمل حاليا على كود ينطق باللغة العربية ولكنه يحتاج إلى اتصال بالانترنت إن شاء الله أعرضه فيما بعد بالتوفيق

انا الحقيقة سألت لان احد الملفين لم يعمل معي .... ؟؟

ليس هذا رأيهم ....... حاول ... وحاول ..... بطرق اخرى تلبي طلبك .... هي هذه البرمجة ..... اسلك طريق اخر ....... !!!!!! هذا رأيهم اعتقد ذلك ....

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

حياك الله اخ هاني واياك .....

ارجو التوضيح اكثر انت وضعت الرقم 41 في A2 ما هي الخلايا التي سيتم جمعها؟ وكم سيكون الناتج؟

فيما اعتقد يحتاج كود برمجي لايقاف Private Sub a_Exit عند التنقل بالاسهم للاعلى والاسفل فأن هناك تناقض بين عمل الكودين

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

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

شكرا لجهودك اخي الكريم حاولت كل الطرق لاسترداد الملف دون جدوى عند فتحه يعطي كما في الصورة

اريد ترتيب البيانان من خلال الليست بوكس ليتم وظهور بعض العناصر في القائمة الاولى في شيت الأصناف codes

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

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

تم رفض الوصول إلى الملف

والله باشا كبير اوى فعلا الطريقه جربتها ونجحت اشتغلت بالانجليزى ياسلام بقي لو ت ب ق ي بالعربي يبقي مية فُل بجد تسلم جدا على اهتمامك ومنتظر الطريقه العربيه

جرب هذه الدالة ، ضعها في موديول ثم استخدمها في معادلاتك كما تستخدم الدالة الأصل Round Function myRound(Number As Double) As Double If Number - Fix(Number) = 0.5 Then myRound = Number Else myRound = Round(Number, 0) End If End Function

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

يوجد في منتدانا الرائع مشاركات كثيرة في هذا المجال هذه بعضها https://www.officena.net/ib/search/?q=تحويل المعادلات كود&updated_after=any&sortby=relevancy&search_and_or=and إن شاء الله تجد ما تريده فيها

في خصائص النموذج * غير خاصية height إلى 500 مثلا * وخاصية scrollbars إلى 2 vertical * وخاصية scrollheight إلى الرقم الذي كان في خاصية height سيظهر شريط تمرير يمكنك من رؤية باقي أجزاء النموذج بالتوفيق

عملت لك كشف حساب للعملاء في حالة تكرر اسم العميل يتم تجميع المبالغ له .. والرجاء الانتباه للحقول الفارغة في النموذج الرئيسي وحولها الى رقم صفر البرنامج(1).accdb

يا أخي الكريم كل هذا افتراض منا لأنك لم ترفع ملفا أو تحدد ما تحتاجه تمام التحديد من يعرف أساسيات البرمجة ب vba يعرف أنه يمكنك تحديد أي عدد من الأعمدة بكتابته بدلا من 10 ويعرف أيضا أنه لإخفاء الصفوف نغير كلمة columns إلى rows ويعرف أيضا أن cells تحتاج إلى رقم الصف ثم رقم العمود وتغيير مكان العداد n هو الذي يحدد اتجاه الإخفاء فلو كانت n في الرقم الثاني قهي تمثل العمود وإذا وضعتها في الرقم الأول فهي تمثل الصف وهذا الكود ربما يفيدك Sub hideblank() For n = 1 To 10 If Cells(1, n) = "" Then Columns(n).Hidden = True Next n For n = 1 To 10 If Cells(n, 1) = "" Then Rows(n).Hidden = True Next n End Sub Sub showblank() Columns("a:j").Hidden = False Rows("1:10").Hidden = False End Sub أرجو أن يكون الأمر قد اتضح وفي الأخير أرجو من الله أن يتقبل تطوعي هذا في حل مشكلات الآخرين سواء قدروا أو لم يقدروا

مشكلة عدم جمع الوقت سببها اختلاف القيمة في الخلية عن قيمة الوقت لذلك يجب إولا إصلاح قيمة الخلية بهذا الاجراء Sub mas() For n = 2 To Cells(Rows.Count, 4).End(xlUp).Row Cells(n, 4).Value = Cells(n, 4).Text Next n End Sub ستجد بعدها خلية المجموع تعمل وللحصول على الإجمالي بالدقائق يمكنك تغيير تنسيق الخلية I2 إلى عام وكتابة المعادلة التالية =INT(SUM(D2:D233)*24*60) بالتوفيق

دعنا نفترض إذا كان الصف الذي يخبر ان العمود فارغ هو الصف الأول وعدد الاعمدة 10 يمكنك استدعاء هذا الكود قبل الطباعة Sub hideblank() For n = 1 To 10 If Cells(1, n) = "" Then Columns(n).Hidden = True Next n End Sub وهذا الكود لإظهار الأعمدة المخفية Sub showblank() For n = 1 To 10 If Columns(n).Hidden Then Columns(n).Hidden = False Next n End Sub بالتوفيق

هذه هي التصفية بالمعادلات وتتم بمعادلات المصفوفات حدد النطاق B3:B16 ثم اكتب في شريط الصيغة المعادلة التالية =IFERROR(INDEX(entries!D:D,SMALL(IF(1001=entries!$C:$C,ROW(D:D),""),ROW()-2)),"") واضغط Ctrl+shift+enter لقبول المعادلة وكررر ذلك مع النطاقات C3:C16 =IFERROR(INDEX(entries!E:E,SMALL(IF(1001=entries!$C:$C,ROW(E:E),""),ROW()-2)),"") وأيضا مع النطاق D3:D16 =IFERROR(INDEX(entries!F:F,SMALL(IF(1001=entries!$C:$C,ROW(F:F),""),ROW()-2)),"") ملحوظة: هذه المعادلات لا يتم سحبها أفقيا أو رأسيا وإذا تم ينتج عنها بطء شديد للملف لذا يفضل تحديد النطاق الذي ستطبق عليه كله مرة واحدة بالتوفيق

تفضل هذا ملفك بعد تعديل تنسيق التواريخ والمعادلات حركة تسديد القروض.xlsm

يوجد ولكن باللغة الإنجليزية

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

[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

مجهود ممتاز بارك الله فى جهودكم

بارك الله فيك

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

اخي محمد او اي احد من الاخوه المحترمين الدين استفادو من هدا العمل هل اضيف النمودج الى برنامجي ويعمل تلقائي ؟؟