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

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

السلام عليكم توزيع الفصول على نصفي الورقة غير اعدادات الكود حسب طلبك من هنا '*********************************************** '*********************************************** ' اسم نطاق البيانات Private Const NRng As String = "myDate" ' رقم عمود الاسماء Private Const cName As Byte = 2 ' رقم عمود النوع Private Const ColumnSex As Byte = 3 ' معيار البحث عن الاولاد في عمود النوع Private Const SBoy As String * 3 = "ولد" ' معيار البحث عن البنات في عمود النوع Private Const SGirl As String * 3 = "بنت" ' رقم عمود الفصل Private Const ColumnClass As Byte = 16 ' رقم عمود الدرجات Private Const cDegree As Byte = 15 '*********************************************** '*********************************************** ' اسم ورقة الفصول Private Const ShName As String = "فصول" ' عدد اعمدة الطباعة Private Const CountColumn As Byte = 13 '*********************************************** '*********************************************** توزيع الفصول على نصفي الورقة.rar

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

تفضل تم التعديل يمكنك فتح الملف على ثلاث صيغ بملىء الشاشة أو عادي أو تصغير في شريط المهام وللتجربة : انظر آخر كلمة في سطر كود التشغيل ، ولاستبدالها انظر الحالات الثلاث الموضحة في الوحدة النمطية العامة آمل ان يحقق مطلوبك HelpFile2.rar

جزاكم الله خيرا

السلام عليكم اخي العزيز / إبراهيم ابوليله بارك الله فيك وزادك الله من علمه اعتذر لك عن التأخير عن الرد حيث لم اري مشاركتك الأخيرة بطلبك تعديل الكود الا الآن وعموما ... التأخير جاء بالمفيد فلقد قدمت الافضل أنت بالتأكيد مجهود راائع وجميل وهنيئاً لك الكود ولكل من يريده وللتنسيق ليس الا فهذا هو الكود خاصتك ولكن بشكل منسق فقط لمن يريده .... مع ملف مرفق وبه الكود جزاك الله خيرا اضافة ورقة جديدة ومعاينة1.rar Sub New_Sheet() Range("J2:Q3").Select Selection.Copy mySht = ActiveSheet.Name Set Sht = ActiveSheet N_Sht = Format(Sheets(mySht).[A2], "#") For I = 1 To Sheets.Count If Sheets(I).Name = N_Sht Then MsgBox ("توجد صفحة بنفس الاسم ... راجع اسم الصفحة اولا"): GoTo 1 Next Set Sht = Sheets.Add(After:=Sheets(Sheets.Count)) ActiveSheet.Name = N_Sht ActiveSheet.Paste ActiveWindow.SelectedSheets.PrintPreview Sheets("Sheet1").Select 1 End Sub

أخى الفاضل / هذا الملف لأحد الزملاء افتحه قد يفى بالغرض منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.rar