ابو ميشيل

السلام عليكم 

استاذتي الافاضل اريد مساعدة في التعديل على ملف يحتوي على 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

حركة جميلة ومفيدة

شكرا عاشت ايدك