ابو ميشيل

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

الملف لا يفتح

بارك الله فيك استاذ عبدالباري برنامج جميل جدا وسهل وفيه الكثير من الخيارات جعله الله في ميزان حسناتك

هل يمكن تزويدنا بكملة سر حماية الورقة

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

شكرا على مداخلتكم اساتذتي الاجلااء وعذرا لعد ارفاق الملف كونه يحتوي على اسماء وبيانات موظفين تصيح صغير لما ذكرته في موضوعي بالبداية ان الملف يمكم ان يعمل على اي كومبيوتر سواء متفرمت جديد او لا لكنه يقفل بعد مرور شهر بفضل ملف الاستاذ ياسر خليل ابو البراء المطروح في المنتدى والخالص بكسر حماية محرر الاكواد http://www.officena.net/ib/topic/60289-كسر-حماية-محرر-الأكواد-بدون-برامج-قنبلة-الموسم/ تم كسر حماية محرر الاكواد وكان يحتوي على الصيغة التالي لمشاركتها معكم وتققيم قوة الحماية لتعم الفائدة Public Sub unlock_page(n As Integer) ' ' ' str1 = CStr((n - 1) * 28 + 2) end1 = CStr(n * 28 - 2) Range("H" + str1 + ":" + "H" + end1).Select Selection.Locked = False Range("J" + str1 + ":" + "J" + end1).Select Selection.Locked = False Range("L" + str1 + ":" + "L" + end1).Select Selection.Locked = False Range("N" + str1 + ":" + "N" + end1).Select Selection.Locked = False Range("P" + str1 + ":" + "P" + end1).Select Selection.Locked = False Range("R" + str1 + ":" + "R" + end1).Select Selection.Locked = False Range("T" + str1 + ":" + "T" + end1).Select Selection.Locked = False Range("V" + str1 + ":" + "V" + end1).Select Selection.Locked = False Range("X" + str1 + ":" + "AG" + end1).Select Selection.Locked = False Range("AI" + str1 + ":" + "AI" + end1).Select Selection.Locked = False Range("AK" + str1 + ":" + "AK" + end1).Select Selection.Locked = False Range("AM" + str1 + ":" + "AM" + end1).Select Selection.Locked = False Range("AO" + str1 + ":" + "AO" + end1).Select Selection.Locked = False Range("AQ" + str1 + ":" + "AQ" + end1).Select Selection.Locked = False Range("AS" + str1 + ":" + "AS" + end1).Select Selection.Locked = False Range("AU" + str1 + ":" + "BH" + end1).Select Selection.Locked = False Range("B2").Select End Sub

السلام عليكم اود الاستفسار عن نوع الحماية لملف لدي ملف اكسل 2003 الملف يفتح لمدة 30 يوم فقط بعدها يصبح غير قابل للفتح الا بعد فرمتة الكومبيوتر او فتح الملف في كومبيوتر متفرمت جديد اي لم يمضي على فرمتته اكثر من شهر يعني لو نقلت الملف الى كومبيوتر متفرمت من زمان لن يفتح ايضا كيف يتعرف الملف على الكومبيوتر ويعرف انه متفرمت من زمان؟ معقول في هيك حماية لملفات اكسل

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

السلام عليكم حبذا لو تكون الدرجات المفروزة في شيت اخر وكذلك عمل مدى اكبر بكثير ليكون هناك مجال لاضافة اسماء ودرجات كثيرة . حاولت ازيد مدى الدالة لكن للاسف لمن انجح بذلك كل الود والاحترام لاساتذتنا الكرام

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

السلام عليكم اخواني الاساتذة لو تكرمتم اريد مساعدتكم لدي ملف اكسل فيه اسماء مدرسين مع اختصاصاتهم ومدارسهم استخدمت الدالة vlookup لكنها لم تفي بالغرض المطلوب البحث باسم المدرسة بحيث اذا كتبت اسم المدرسة يظهر كل المدرسين المنتمين لتلك المدرسة وكذلك عند كتابة جزء من الاسم الثلاثي تظهر كل الاسماء التي تحتوي على ذلك الجزء ملاحظة/ عدد الاسماء هو كبير جدا لكني ارفقت جزء صغير منهم سوال هل اذا حولت المستند الى ملف اكسس وعملت تقارير باسم المدرسة مثلا ستكون العملية اسهل؟ اسماء مدرسين.rar

حركة جميلة ومفيدة شكرا عاشت ايدك