طارق محمود

أين المرفقات

السلام عليكم أخي العززي لاأدري إن كان هذا ماتريد فأنا لست مدرسا ولاأفهم كيف تديرون الأرقام السرية عموما أنا جمعت كل السري 2،3،4،5،6 ووضعتها كلها بجوار السري1 وغيرت في كود الزر ليتم الترتيب لها جميعا في نفس الوقت أما الفورم ، لم أفهم كيف يسير الموضوع لأقدم ماأستطيع تفضل المرفق كنترول نصف العام2.rar

السلام عليكم بالإضافة لما أفادنا به الأخ الغالي / حمادة عمر أحب أضيف التالي XLS تستطيع قرائتها بالإكسل 2003 XLS تستطيع الإحتفاظ بالكود فيها بداية من أوفيس 2007 ، تم استبدال XLS بثلاث إمتدادات xlsb ، xlsx ، xlsm وثلاثتهم لايستطيع الأوفيس 2003 قرائتهم إلا بإضافة أداة جديدة إضافية 1- الإمتداد xlsx لحفظ ملفات الإكسل العادية التي لاتحتوي علي أكواد ، فإن كتبت كود وحفظت الملف بهذا الإمتداد ولم تنتبه لرسالة التنبيه وأغلقت الملف ، فلن تجد الكود مرة أخري عند الفتح 2- الإمتداد xlsm لحفظ ملفات الإكسل التي تحتوي علي أكواد 3- الإمتداد xlsb لحفظ ملفات الإكسل (مع أكوادها) ، ولكن لاتستطيع عمل مشاركة لهذا النوع من الملفات للعمل بأكثر من مستخدم علي الملف في الشبكة ، أي Share أنا شخصيا انصح باستخدام xlsb بدلا من xlsm لقلة حجم هذا النوع الملحوظة بالنسبة للآخرين إلا في حالة مشاركة الملف علي الشبكة كما أوضحت

السلام عليكم أخي العزيز ، أنت تعلم أن طلباتك هذه تأخذ وقت وحظك أنني مشغول فصبر جميل

السلام عليكم أخي الكريم أ/هاني ليس لدي ماأضيفه بعد كل هذا التوضيح منك ومن الأخوة بارك الله فيك وفيهم جميعا بالنسبة لسؤالك أساسا يحتاج وقت طويل لو كنت تريد فهم الطريقة (وهذا مافهمته من طريقة عرضك للسؤال) وأنا كنت اتمني أن أجيب عليك لكن ضيق الوقت عندي شديد ، فأنا أدخل المنتدي دقائق معدودة لأري إن كان هناك شيء سريع يمكنني المشاركة به وإلا خرجت وسأقتبس هنا بعض عبارات أخونا الفاضل م/محمد طاهر مدير الموقع من الرابط الذي أرسلته لك من قبل في سؤالك الأول http://www.officena.net/ib/index.php?showtopic=32359&hl=%2B%D9%87%D8%A7%D9%84%D9%83+%2B%D8%A7%D9%84%D8%AD%D8%AF%D9%8A%D8%AF فليكن لك تمرين إلي أن ييسر الله لي الوقت أو لأحد الإخوة التمرين هو أنك تفهم وتجيد استخدام السولفر وقد تتمكن لوحدك من الحل الذي تريد

السلام عليكم أخي الكريم أهلا ومرحبا بك أنا غيرت العنوان لكيلا يخالف القواعد ثانيا ارجو مراجعة الرابط التالي ، لعل به ماتريد (مسألة مماثلة) http://www.officena.net/ib/index.php?showtopic=47097&hl=

السلام عليكم بالإضافة لما ذكره أخي وأستاذي بن علية أحب أضيف ايضا التالي: حاول تقليص حجم الملف لأقل حجم ممكن (قلل الصور - التنسيقات - ...) ضع قاعدة البيانات في ورقة منفصلة ليس بها تنسيقات غير طريقة البحث بالفورم وهذه المهمة ولابد من تغيير الكود ، معظم أكواد البحث تبحث في النطاق خلية بخلية وهذا يبطيء العمل ولكن هناك أساليب أخري منها استخدام دالة البحث الجاهزة بالإكسل أو بحث الحروف الأولي أو ..

لاأعلم كثيرا عن هذا ولكن يبدو أن الأوفيس لم ينزل بكل مشتملاته (ومنها المكتبة الجاهزة) قد يكون الكود يستدعي أحد أدوات المكتبة مثل النتيجة Calendar لهذا يعطي تلك الرسالة والله أعلم

السلام عليكم تفضلي الملف وبه الطلبين وكتمرين لكي ، حاولي تجعلي عدد الشهادات المطبوعة (كل في صفحة) أكثر من 4 ملاحظة: طلب النتيجة كان سبق به اخونا قنديل من قبل في الصف الأخير من الشهادة ، جزاه الله خيرا نتيجه الترم الثانى للمرحلة الاولي3.rar

ماشاء الله أخي قنديل سباق بالخير رأيت مشاركتك بعد إرسالي ، عفوا

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

السلام عليكم ماشاء الله أنتي خلاص دخلتي في الملف (جميل) ، أعتقد انه مضبوط ولكن لحساسية الموضوع أنصح بمراجعته يدويا من قبل الإدارة المختصة لمدة شهرين مثلا قبل إعتماده للعمل به إذا أردتي التغيير في (الوقت السموح به فى التأخير) فيمكنك الذهاب لصفحة اللوائح ثم للمجال المسمي "شرائح" .... G4:I9 مع مراعاة أن الحد الأول للتأخير بعد الـ 120 هو 135 ، هذا بالذات لو تغير فستتغير معادلات العمودين G , J إبحثي فيهما عن ال_ 135 وغيريهما للجديد (في حال لو تغير الحد الأول للتأخير عن 135) وفقكم الله

السلام عليكم أخي العزيز انظر المرفق به اول طلب فقط الباقي يحتاج وقت (وللأسف أنا مشغول) المندوب1.rar

ولايهمك ياأخي زيادة الخير (خيرين)

السلام عليكم جرب الكود التالي Cells.EntireColumn.Hidden = False او تفضل المرفق كود لاظهار اعمده.rar

أختي الفاضلة لعلك نسيتي أن تضغطي الملف (winrar أو winzip) قبل الرفع

السلام عليكم ارجو أن يكون المرفق هو ماتريد يوجد كود صغييير بالورقة الأولي ، يتحسس تغير خلية الإسم فيرجع قيمة الرقم إلي 1 ثم بالمعادلات يتم الباقي تفضل المرفق الأخذ2.rar

لايوجد مرفقات

السلام عليكم أخي الكريم هذه هي المشاركة الثالثة تقريباً التي تفتحها لنفس الموضوع يرجى الإلتزام بشروط المشاركات ومتابعة الإستفسار على نفس الرابط . وأيضا أرجو الإلتزام بشروط المشاركة في المنتدي من حيث العنوان والموضوع يرجي قراءة الشروط من هنا http://www.officena.net/Tips/Questions.htm ومنها طبعا أقدر أخي الكريم انك مازلت معنا جديد ولكن هذه القواعد للصالح العام وإلا يتعرض موضوعك أو مشاركتك للالغاء الفوري من مشرفين ومراقبين القسم أوالمنتدي سأغلق هذا الموضوع أما سؤالك فقد دمجته مع موضوعك الأول وتم الحل علي رابط موضوعك الأول http://www.officena.net/ib/index.php?showtopic=47136

وهذا هو بعد التضبيط وبه الكود التالي (لابد من تخفيض أمان الماكرو) Sub Macro1() old_N = Format([M1], "dd-mm-yyyy") ActiveSheet.Name = old_N new_N = Format([M1] + 1, "dd-mm-yyyy") ActiveSheet.Copy After:=Sheets(Sheets.Count) With Sheets(old_N) [M1] = .[M1] + 1 .Protect End With ActiveSheet.Name = new_N [F9999].End(xlUp).Copy [F1].End(xlDown).End(xlDown).Select Selection.PasteSpecial Paste:=xlPasteValues Range("B2:I" & [A9999].End(xlUp).Row).ClearContents [C9999].End(xlUp).End(xlUp).Offset(0, 4).Select Cells([C9999].End(xlUp).End(xlUp).Row, "G").Select Range([F9999].End(xlUp).Offset(-1, 0), Selection).ClearContents End Sub تفضل المرفق (تم دمج الموضوعين) مطلوب التعديل3.rar

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

السلام عليكم أخي العزيز لايوجد مرفقات ولم توضح ماتريد من تعديل

عندي مضبوط يمكن بتتكلم علي ملفك؟ إرسل الملف اللي عندك

كلمة سر الفيجوال بيزيك؟

السلام عليكم تفضل المرفق مطلوب التعديل2.rar