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

السلام عليكم ورحمة الله استخدم الكود التالى Sub ShetName() Dim ws As Worksheet Dim C As Range, WsName As String For Each ws In ThisWorkbook.Worksheets Set C = ws.Range("A1") If IsNumeric(C.Value) And Not IsEmpty(C.Value) Then WsName = WsName & Chr(10) & ws.Name End If Next MsgBox WsName End Sub

السلام عليكم حسب مافهمت من طلبك هي تخص الفقرة 4 من تصدير التقرير PDF تفضل اتمنى يكون المطلوب nre_3.rar

السلام عليكم تفضل اخي الكريم تصدير الملف بعدة طرق ؟؟؟؟ اختر مايناسبك منها 1- حفظ pdf بجانب قاعدة البيانات (اي ضمن المسار) 2- الحفظ في القسم C يمكن تغييره حسب ماتريد في اي قسم اخر 3- اختيار الحفظ حسب ناقذة الوندوز 4- الحفظ في فولدر بتم انشاءه من البرنامج باسم التقارير في القسم e يمكن تغيير اسمه وكان الحفظ حسب ماتريد 5- الطباعة مباشرة 6- اختيار الطابعة والطباعة اتمنى ان يكون المطلوب nre_2.rar

بعد اذنك حبيبي ابا البشر انظر كده ....... جرب ووافينا بالنتيجة تنسيق المدارس1.accdb

السلام عليكم لدي طريقة تكون عن طريق النموذج تصدير الى pdf بجانب قاعدة البيانات (ضمن المسار) وبنقس الرقم اتمنى يكون المطلوب nre_1.rar

السلام عليكم ورحمة الله اجعل المعادالة فى الخلية "J5" هكذا ثم اسحبها نزولا =IF(I5="";"";RANK($I5;$I$5:$I$17)+COUNTIF(I5:$I$5;I5)-1)

اخي العزيز لاشكر على واجب نسالك الدعاء

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

تفضل استاذنا الفاضل ولا تنس قراءة شرح الاستاذ ياسر العربي https://www.mediafire.com/file/0cpcrr2gf6wg6r3/VB6setup-generic.exe/file

احسنت اخى خالد جزاك الله خيرا 💐 عملت بنفس طريقتك 😀 بالتوفيق اخوانى

السلام عليكم و رحمة الله اخى الكريم سوف تظهر لك رسالة تظهر اول شيت تنطبق عليه الشروط اذا ما اردت فتحه ما عليك الا الضغط على الزر "Yes" و ينتهى الماكرو اما اذا ضغطت على الزر "No" سيظهر لك الشيت التالى و هكذا حتى لآخر شيت Sub ShetName() Dim ws As Worksheet, x As Variant Dim C As Range, WsName As String Dim OpenSht As String For Each ws In ThisWorkbook.Worksheets x = ws.Tab.ColorIndex Set C = ws.Range("A1") If IsNumeric(C.Value) And Not IsEmpty(C.Value) And x = 3 Then WsName = ws.Name OpenSht = MsgBox(" Are You Want To Open : " & WsName, vbYesNo) If OpenSht = vbYes Then ws.Activate Exit For End If End If Next End Sub

ممكن الاستفادة من الفكرة هنا ..... بالتوفيق ....

تلوين خلايا نطاق.xlsm

اعتذر جدا Results-1000.rar

السلام عليكم استاذ khasem منور استاذنا العزيز ابو البشر ارسل لك هذا الملف وفيه 25000 سجل ولاحظ حجم الملف ثانيا لاحظ سرعة الاداء ان كانت جيدة بالنسبة لك فاعتمده ملاحظة : اي عملية تغيير بالبيانات يرجى الضغط على زر حفظ قبل فتح التقارير Results-500.rar

أولاً من قواعد المنتدى عدم توجيه المساعدة من شخص بعينه حتى يتسنى لأي عضو المساعدة وممكن أن يساعدك يكون لديه خبرة أكثر منه أو الشخص الذي تم التوجيه إليه عنده ظروف فكل عضو يعمل حسب ظروفه الملف ثقيل جدا وحجمه كان كبير ثانيًا حضرتك قمت بسخ الشيتات ولم تقم بنسخ الماكروهات فتم نسخها وتم عمل ماكرو لترتيب الطلاب على ملف Main وتم عمل كود ترحيل عمود الاسم والنوع من شيت Main إلى شيت تسجيل البيانات وتفعيل زر الترتيب واستدعاء البيانات تم تغيير امتداد الملف لرفعه على المنتدى حيث أن أقصى حجم هو 3 ميجا ممكن بعد تنزيله تقوم بحفظه بتسيق 97-2003 برنامج_التنسيق_الصف_الاول_الاصدار_الرابع.rar

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق اخى

اتفضل اخى @صايل عزام ان شاء الله يكون ما تريد Repair(4).mdb

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

استاذ تعجز الكلامات عن الشكر @Khalid Jnb .....

الاستاذ المبدع @Khalid Jnb كلمة شكر لاتكفي لكن دعوة بالغيب ....هناك مطلب اخر واخير اعرف اني اثقلت عليك لكن اتمنى منك تحملي لكي يكون الموضوع متكامل ويكون مرجع يستفاد منة الجميع ماذا لو اضفنا حقل اخر الى النموذج واسميناه اسم الفولدر اي الفولدر الذي سيحفظ بة ملف التصدير في الحاسوب وكان هناك ثلاث فولدرات وهي (اوفيسنا1 و اوفيسنا 2 و افيسنا3 ) في البارتيشن z في الحاسوب كيف يتم حفظ الملف بحسب اسم الفولدر الموجود في النموذج كمثال لو كان القيمة الموجودة في الحقل اسم الفلولد في النموذج هي اوفيسنا 1 يتم حفظ الملف المصدر الى البارتيشن z في الفولدر اوفيسنا 1 وهكذا لكن في حال لم يكن الاسم موجود يتم اظهار رسالة تحذيرية و يتم ايقاف الامر او انشاء فولدر في نفس البارتيشن z بنفس اسم الفولدر

شكر وتقدير واحترام من اخيك استاذ عبدالله الصاري

السلام عليكم وتحية طيبة وبعد هل البرنامج يعمل على الويندوز 7؟

ان شاء الله اخي انتظرني بعض الوقت

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

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله ورحم الله والديك

برنامج بسيط لتسجيل طلاب الصف الأول ويصلح لجميع المراحل ابتدائى / اعدادى / ثانوى كلمة السر 1970 تقديم الصف الأول.rar تقديم الصف الأول.rar

يمكن رفعه على اي سحابه مثل قوقل درايف مثلا وترسل الرابط للاستاذ حسام

انا جربت الملف بالتعديل المذكر واشتغل

مشكور على هذا المجهود الأكثر من رائع

اتفضل اخى ازهر ان شاء الله يكون ما تريد بالتوفيق الجمع باكثر من شرط.accdb

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

اولاً :تم اضافة حقل = Text6 في نموذج البيان ثانياً لا بد ان يكون نموذج = البيان مفتوح واليك الملف بعد التعديل مثال1.rar تحياتي

التحويل بواسطة برنامج VB6 نسخة خفيفة حوالي 30 ميقا وتعلمتها من المنتدي ويوجد شرح مفصل للطريقة بالمنتدى للاستاذ ياسر العربي حيث قام بشرح تفصيلي لربط الاكسل بالفيجوال بيسك والتحكم بملف الاكسل عن طريقه واما التحويل الى EXEفهي ميزة موجودة بالفيجول بيسك. https://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ تحياتي

وعليكم السلام ورحمة الله وبركاته السبب اسم التقرير = État1 الافضل اعادة تسميته بحروف لاتينية ( انجليزية ) مثل = rpt1 تحياتي

وعليكم السلام فى مشكله عندك فى اعدادت اللغه لانى لما غيرت اسم التقرير لى Etat1 فتح المحرر عادى بالتوفيق مشكل في التقارير.accdb

الشكر لله ثم لاخوانى واساتذتى جزاهم الله خيرا 💐 بالتوفيق اخى

اتفضل اخى ازهر ان شاء الله يكون ما تريد =IIf([L1]<>"";Nz(DSum("N1";"TBR";"[W]='X' and [L1]=" & [IDL]);0);" New Microsoft Access قاعدة بيانات(2).accdb

هل هذا ما طلبت 123: Replace([Name],"x","Z")

تفضل هدا الكود اكتب الرقم بدون الرقمين الاولين ثم اضغط على أضف ارقمين فيقوم الكود باضافة الرقمين الاولين الى جميع الارقام في العمود و اذا كانت ارقام الهواتف تحتوي مسبقا على الرقمين الاوليين لا يعيد اضافتهما. Book1.xlsm

في الخدمة اخي الفاضل 🌹

بسم الله الرحمن الرحيم السلام عليكم قد يتم غلق البرنامج عندما تقوم بخذف عمود قد حدث لي هذا وقد وفقني الله لمعرفة سبب ذلك بعد تجارب كثيرة والسبب هو وجود تجميد للألواح أو أنقسام (freeze panes or split) وبعد إلغائه يتم حذف الأعمد دون أي مشكلة

وعليكم السلام ورحمة الله واجهت من قبل مشكلتك بعد ترقية الويندوز إلى 10 جرّب الخط simplified Arabic المرفق simpo.zip