العبيدي رعد

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

هكذا تظهر اسماء الصفحات في لوحة vba

هذا البرنامج حسابات 2025.rar

سوف احمله لكم غدا

غيرت اللغة وظهرت الكتابة عربي لكن لايرحل

شكرا جزيلا استخدم وندوز 11 مع اوفيس 2020

هكذا يظهر الكود

السلام عليكم عند كتابة الكود رسالة التنبيه لاتظهر اللغة العربية Dim m As Integer Dim Sh_In As Worksheet, Sh_Out As Worksheet, Rng_In As Range Set Sh_In = Sheets("قبض دولار") ' هنا لاتظهر اللغة العربية Set Sh_Out = Sheets("data") Set Rng_In = Sh_In.Range("B4,B5,B6,B7,B10,B12,E4,E15,f10") m = [F4] If Application.CountA(Rng_In) < Rng_In.Count Then MsgBox prompt:=" أدخال كافة البيانات", Title:="خطأ" Exit Sub

طبعا بجهودك ومساعدتك

السلام عليكم اساتذتي اخواني اصبح المطلوب والحل بهذه الصورة والشكر لكم كثيرا قرض.rar

استاذي الفاضل @Foksh الاستعلام الذي اجريته هو المطلوب بعد ان حذفت التعليمة من الاسم فظهر اسماء الجميع والان احاول اخفاء الذي رصيده صفر

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

استاذي الفاضل مع وافر الشكر والاحترام لمروركم الكريم اولا الفكرة هي بجلب اسم معين ( مثلا ثائر ناصر يظهر امامه مجموع كل دائن ومجموع كل مدين واباقي عليه ارفق مثال في الصورة احسان صالح نعمة اريد اظهار اسمه مرة واحدة وامامه مجموع daen ومجموع maden والباقي بذمته وكما موضح في ملف اكسل شيت 1 karz.xlsx

السلام من جدول karz اريد كشف برصيد المقترض nam وكشف كلي باعداد المقترضين الذين باقي بذمتهم قروض وبحسب كل جهة عمل gehat قرض.rar

شكرا جزيلا استاذ @Moosak وانا عملت تقرير مباشر بفرزه عن طريق الجهة الف شكر لك

احسنتم اخي جاري التجربة وعمل تقرير

السلام عليكم اريد احصاء في تقرير يبين مجموع عدد الافراد ومجموع المبالغ المستلمة وذلك بحسب كل جهة عمل ( gehat) احصاء بالعدد والمبلغ.rar

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

السلام عليكم استاذنا الفاضل اشكر تفاعلك معي ارفق لكم البرنامج وحذفت منه معلومات لكونه كبير في فورم kabz تسديد قروض الموظفين عند ادخال اسم الموظف قسم يظهر رقم الموظف وقسم لايظهر الكود في حدث بعد التحديث لكومبو بوكس com1 اسم الموظف القرضة الحسنة اصدار 31.rar

السلام عليكم لدي المعادلة التالية لاستخراج رقم المقترض (num) من الجدول الذي karz من خلال ظهور اسم المستلم nam من كومبو بوكس com1 Me.n2 = DLookup("[num]", "karz", "nam = '" & Me.com1 & "'") حيث لايظهر ارقام البعض عند ادراج اسم المقترض

احسنتم كثيرا نعم هذا هو المطلوب والضغط والاصلاح ايضا حل المشكلة

هنا التغيير لم يتم الاستدعاء دون الاشارة الى الفورم ... ممكن اعرف السب ؟ Me.n2 = DLookup("[num]", "karz", "nam = '" & Me.com1 & "'")

احسنتم جربت بعض الاسماء تمام ممكن اعرف التغيير أين

شكرا جزيلا انا رفعت البرنامج كاملا وتظهر فيه المشكلة

شكرا جزيلا نعم كما تقول الظاهر لاني رفعت فقط نموذج التسديدات لم ارفع البرنامج بالكامل هذا البرنامج كامل ارفعه لكم استاذنا علما استخدم اوفيس 2010 برنامج القرضة الحسنة نسخة 30.rar