حسن محمدسليم عبدالحميد قام بنشر فبراير 12, 2011 قام بنشر فبراير 12, 2011 هذا الكود خاص بالأستاذ الفذ خبور خير لطباعة الشهادات قمت بإضافة إطار للشهادة ولكن عند استخدام زر المسح لا يمسح الكود الإطار ولكن يبقى موجود أسفل الورقة مما يجعل الملف بطئ ارجو التعديل فى الكود لكى يقوم بمسح الإطار من الورقة كما يفعل مع الصور ولكم جزيل الشكر ملف شهادات جديد مع اضافة الصور.rar
عبدالله المجرب قام بنشر فبراير 12, 2011 قام بنشر فبراير 12, 2011 اخي الفاضل بامكانك مسحه يدوياً بتحديده ثم الضغط على زر Delete ولن يظهر مرة اخرى ولا داعي لتعديل الكود اذا كنت تريد عدم ظهوره بالمرة. ابواحمد
حسن محمدسليم عبدالحميد قام بنشر فبراير 12, 2011 الكاتب قام بنشر فبراير 12, 2011 السلام عليكم أخى أبو أحمد أشكرك على سرعة الرد والإستجابة نحن نستخدم الكود فى طباعة عدد كبير من الشهادات ونحتاج استخدام زر المسح لتعديل الهوامش فى المعاينة ولذلك يكون مسح اٌلإطار اذا كان عدد الشهادات مثلاُ 150 شهادة نكون فى حاجة لمسح الإطار 150 مرة فهذا مرهق بالإضافة الى بطئ الملف لذلك نرجوا التعديل فى الكود لكى يتم مسح الإطار ايضاً وشكرا على الرد
حسن محمدسليم عبدالحميد قام بنشر فبراير 12, 2011 الكاتب قام بنشر فبراير 12, 2011 السلام عليكم اخى ابو أحمد اشكرك على سرعة الإستجابة لكن اريد توضيح شئ هام هو اننا نستخدم الملف فى طبعة اكثر من 200 شهادة ولابد من ضبط هوامش الصفحات لكى قبل الطباعة ولذلك نستخدم زر المسح اكثر من مرة فعند إجراء معاينة يظهر الإطار فى كل الصفحات وعند استخدام زر المسح يكون الإطار موجود أسفل الورقة بعدد يساوى عدد الشهادت المطلوب طباعتها لذلك نريد التعديل فى الكود أو اضافة كود يقوم بمسح الإطار من كل الشهادات كما يتم فى مسح الصورة فالكود يقوم بمسح كل الصور ولا تبقى لها أثر
عبد الفتاح كيرة قام بنشر فبراير 12, 2011 قام بنشر فبراير 12, 2011 لا أدرى هل هذا ما تريده؟ شهادات جديد مع اضافة صور للطلبة1kemas.rar
حسن محمدسليم عبدالحميد قام بنشر فبراير 12, 2011 الكاتب قام بنشر فبراير 12, 2011 السلام عليكم اخى كيماس اريد عند استخدام كود المسح ان يتم حذف الإطار ولا يوجد فى اسفل الورقة شهادات جديد مع اضافة صور للطلبة1kemas.rar
عبد الفتاح كيرة قام بنشر فبراير 12, 2011 قام بنشر فبراير 12, 2011 لعله هذا؟ شهادات جديد مع اضافة صور للطلبة1kemas2.rar
حسن محمدسليم عبدالحميد قام بنشر فبراير 12, 2011 الكاتب قام بنشر فبراير 12, 2011 السلام عليكم اخى كيماس انا اريد ان يكون الإطار موجود فى الشهادة ولكن عند استخدام زر المسح يمسح الأطار الموجود فى أسفل الورقة والمشار الية بالسهم الأحمر اما الإطار المشار الية بالسهم الأخضر يبقى كم هو شهادات جديد مع اضافة صور للطلبة2kemas.rar
عبد الفتاح كيرة قام بنشر فبراير 12, 2011 قام بنشر فبراير 12, 2011 كهذا؟ شهادات جديد مع اضافة صور للطلبة2222kemas.rar
حسن محمدسليم عبدالحميد قام بنشر فبراير 13, 2011 الكاتب قام بنشر فبراير 13, 2011 السلام عليكم اخى كيماس ما زالت المشكلة كما هى ارجو منك ان ان يتسع صدرك لى وان تقوم بهذه الخطوات لكى تعرف ما اريده 1) اضغط على زر البحث 2) قم باستدعاء على سبيل المثال خمس اسماء من الطلبة لعرض شهادتهم 3) ثم قم باستخدام زر المسح لمسح الشهادات وحفظ العمل الموجود فى اسفل زر البحث 4) وانظر بين الصفين 23 و 24 ستجد أن الإطار موجود على هيئة خط رفيع عندالوقوف علية بالماوس تجده محدد 5) ولكى نقوم بازالته يجب الضغط على مفتاح delete خمس مرات وهو العدد المساوى لعدد الشهادات التى قمنا بعرضها فى الخطوة الأولى ولم يقوم الكود بمسح هذا الإطار 6) الذى اريده ان يقوم الكود بحذف الأطار الموجود على هيئة خط رفيع بين الصفين 23 و 24 ولا نستخدم مفتاح delete
عبد الفتاح كيرة قام بنشر فبراير 13, 2011 قام بنشر فبراير 13, 2011 أخى حسن أفضل أن يتدخل الأخ الأستاذ خبور لتنفيذ ما تريده فالكود خاص به و هو به أعلم وشكرا
عبدالله باقشير قام بنشر فبراير 20, 2011 قام بنشر فبراير 20, 2011 السلام عليكم استخدم هذا الكود للحذف Sub kh_Delete_AllShape() Dim shp As Shape Dim U As Integer For Each shp In Sheet3.Shapes If shp.Type = 8 Or shp.Type = 4 Or shp.Name = "Group 6394" Then GoTo 1 shp.Delete 1: Next shp End Sub هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى ويبقي الازرار والتعليقات جرب واخبرني النتيجة
cat101 قام بنشر فبراير 20, 2011 قام بنشر فبراير 20, 2011 رائع بارك الله فيك == كيف اعمل اطار جميل يتناسب مع طول وعرض الشهاده
حسن محمدسليم عبدالحميد قام بنشر فبراير 21, 2011 الكاتب قام بنشر فبراير 21, 2011 السلام عليكم استاذى الغالى خبور لا استطيع ان اصف لك سعادتى وفرحتى عندما وجدت هذا الرد وخاصة انه من استاذ غالى على قلوب كل أعضاء المنتدى أما بالنسبة للكود فهو يعمل بدقة عالية جداُ بارك الله فيك وفى عملك وجعله فى ميزان حسناتك لى سؤال واحد فقط وهو هذا السطر فى الكود قمت بتعريف متغير اسمه u Dim U As Integer ولم يذكر بعد ذلك فى الكود فما وفائدة هذا السطر وشكرا
عبدالله باقشير قام بنشر فبراير 21, 2011 قام بنشر فبراير 21, 2011 السلام عليكم لى سؤال واحد فقط وهو هذا السطر فى الكود قمت بتعريف متغير اسمه u Dim U As Integer ولم يذكر بعد ذلك فى الكود فما وفائدة هذا السطر وشكرا لا فائدة منه قم بحذفه نستخدم احيانا متغيرات للتاكد من عملية معينة ثم نمسح سطور العملية او نستخدم الشرطة لعدم استخدام هذا السطر وتبقى بعض هذه الاسطر سهوا وخاصة التعاريف تقبل تحياتي وشكري
حسن محمدسليم عبدالحميد قام بنشر فبراير 23, 2011 الكاتب قام بنشر فبراير 23, 2011 السلام عليكم جزاك الله خيرا على هذا الجهد وجعله الله فى ميزان حسناتك استاذ خبور لى سؤال اخر فى الكود وهو ما فائدة الرقم 8 والرقم 4 فى الكود وجزاك الله خيرا ودمتم بكل خير
عبدالله باقشير قام بنشر فبراير 23, 2011 قام بنشر فبراير 23, 2011 السلام عليكم لى سؤال اخر فى الكود وهو ما فائدة الرقم 8 والرقم 4 فى الكود وقد اخبرتك التالي هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى ويبقي الازرار والتعليقات الاطار الخاص بالشهادة الاولى استدلينه علية بالاسم وهو "Group 6394" الازار والتعليقات استدلينه عليها بنوعية الكائن نوع الكائن الزر هو msoFormControl او الرقم 8 نوع الكائن التعليقات هو msoComment او الرقم 4 =============================================== وساعطيك كود مختصر انت بعد استخدام زر المسح والخفظ سيبقى معاك فقط الاطارات التي قمت باضافتها وسيكون ارتفاع هذه الاطارات بعد حذف الصفوف العدد صفر اذن استخدم هذا الكود : Sub kh_Delete_Group() Dim shp As Shape Dim U As Integer For Each shp In Sheet3.Shapes If shp.Height = 0 Then shp.Delete: U = U + 1 Next shp MsgBox U End Sub جرب واخبرنا بالنتيجة
عبدالله باقشير قام بنشر فبراير 23, 2011 قام بنشر فبراير 23, 2011 السلام عليكم كيف اعمل اطار جميل يتناسب مع طول وعرض الشهاده ممكن تبحث عن اطارات عبر البحث بالنيت او تكونها انت حسب الاشكال الموجودة في اشكال تلقائية ثم تعمل لها تجميع هذه اشياء فنيه وكلا حسب ذوقه
محمدي عبد السميع قام بنشر فبراير 24, 2011 قام بنشر فبراير 24, 2011 السلام عليكم لى سؤال اخر فى الكود وهو ما فائدة الرقم 8 والرقم 4 فى الكود وقد اخبرتك التالي هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى ويبقي الازرار والتعليقات الاطار الخاص بالشهادة الاولى استدلينه علية بالاسم وهو "Group 6394" الازار والتعليقات استدلينه عليها بنوعية الكائن نوع الكائن الزر هو msoFormControl او الرقم 8 نوع الكائن التعليقات هو msoComment او الرقم 4 =============================================== وساعطيك كود مختصر انت بعد استخدام زر المسح والخفظ سيبقى معاك فقط الاطارات التي قمت باضافتها وسيكون ارتفاع هذه الاطارات بعد حذف الصفوف العدد صفر اذن استخدم هذا الكود : Sub kh_Delete_Group() Dim shp As Shape Dim U As Integer For Each shp In Sheet3.Shapes If shp.Height = 0 Then shp.Delete: U = U + 1 Next shp MsgBox U End Sub جرب واخبرنا بالنتيجة أمدك الله ببسطة في العلم والحلم
حسن محمدسليم عبدالحميد قام بنشر فبراير 24, 2011 الكاتب قام بنشر فبراير 24, 2011 السلام عليكم استاذ خبور عند استخدام الكود الجديد فى الملف المرفق لم تحدث النتيجة المطلوبة وهى مسح الإطار ارجو توضيح الخطأ وشكرا كنترول اولى ثانوى معدل بالإطار .rar
قصي قام بنشر فبراير 25, 2011 قام بنشر فبراير 25, 2011 الاخ والاستاذ الكريم خبور خير السلام عليكم ورحمة الله وبركاته جزاك الله خيرا
قصي قام بنشر فبراير 25, 2011 قام بنشر فبراير 25, 2011 الخ حسن تم تحميل ملغك ولم يظهر بالملف غير شيت الرصد والشهادة والاوائل يعني 3 ورقات فهل هذا هو الملف مع الحجم الكبير الذي يظهر وكيف نظهر الورق الاخر وشكرا
حسن محمدسليم عبدالحميد قام بنشر فبراير 26, 2011 الكاتب قام بنشر فبراير 26, 2011 السلام عليكم اخى قصى الملف المرفق فى المشاركة السابقة هو للصف الأول الثانوى باقى اوراق الملف تستسطيع اظهارها عن طريق الأتى formate ثم sheets ثم unhaide ثم تختار الورقة التى تريد اظهارها اما شيت كنترول الصفين الأول والثانى الإعدادى فهما على الرابط الأتى : وشكرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.