علي الشيخ

أتفضل أخي شوف الصورة التالية

لو ده المقصود

تقدر تتحكم في عرض كل عمود من هذا الخيار

السلام عليكم اخي أكرم

ان شاء الله تكون بخير

طيب انا برضو معلش ما فهمت المقصود

ولنفترض لدينا لست بوكس من 3 اعمده

تريد تغيير مساحة كل عمود وتحريك اسم العمود بالأعلى " التكست بوكس اللي فيه اسم العمود " لكي يتم تنسيقه مع العمود الخاص به؟

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

دائما لديك كل جديد ومفيد وفي انتظار المزيد دائما

دمت بخير

السلام عليكم أخي

أنا ما فهمت حضرتك تقصد تتحرك إزاي عناوين الأعمد 

وفي الأساس هي Texebox ثابتة غير قابلة للتحريك

أخي الكريم السلام عليكم

لو في إمكانية ترفق الملف يبقى أفضل 

اتفضل أخي شوف الملف المرفق

الفور Frmfind1 الصفحة data1

والكود المستخدم

Private Sub UserForm_Initialize()
MultiPage1.Pages(1).ScrollBars = _
fmScrollBarsVertical
MultiPage1.Pages(1).KeepScrollBarsVisible = _
fmScrollBarsVertical
MultiPage1.Pages(1).ScrollHeight = _
2 * MultiPage1.Height
MultiPage1.Pages(1).ScrollTop = _
MultiPage1.Height / 2
End Sub

MultiPage1.Pages(0) دي معناها أول صفحة في الملتي بيج 
الصفحة الثانية هتكون  MultiPage1.Pages(1)
والثالثة MultiPage1.Pages(2)
وهكذا والنقطة دي للإيضاح فقط

طبعا الكود اللي في الأول هيكون لكل صفحة يعني الكود بالكامل هيتنسخ 3 مرات ل 3 صفحات في كل مرة هتغير رقم الصفحة في الأربعة سطور بس

25.rar

السلام عليكم

مرحبا اخي

الكود فعلا هيحمي كل أوراق ملف الإكسل مرة واحدة كما أشار الأستاذ ياسر

وممكن بدون أكود من تبويب Review

تختار  Protect Sheet

هتظهر نافذه هتضع علامه في الخيارات التي ترغب في استثنائها من الحماية  ثم تكتب كلمة السر وتضغط اوكي

وتعيد إدخال كلمة السر مرة أخرى وسيتم حماية الورقة ويمكن إعادة الكره في الأوراق المرغوب حمايتها

أو كما ذكرنا استخدام الكود هيحمي كل الأوراق مرة واحدة

والتالي كودين كود للحماية وكود لفك الحماية عن طريق أزرار تعملها في  أي شيت يعجبك

كود الحماية

والباسورد مكتوبه في الكود 123 يمكنك تغيرها زي ما تحب

Sub protectsht()
For Each MySheet In ActiveWorkbook.Sheets
    MySheet.Protect _
        Password:="123", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        UserInterfaceOnly:=True
Next MySheet
End Sub

كود فك الحماية

Sub unprotectsht()
For Each MySheet In ActiveWorkbook.Sheets
    MySheet.Unprotect _
        Password:="123"
Next MySheet
End Sub

عليكم السلام أخي

لا لا يؤثر وليس له لزوم إحذفه فقد نسيت حذفه سهوا

السلام عليكم

اخي الكريم انا فتحت الملف بس ما فهمت شئ

المسلسل اللي انت عاوزه شكله إزاي

1001

1002

1003 وهكذا؟

لو نعم طيب انت تقصد انه يقوم بالترقيم بهذا الشكل بناءا على تواجد قيمه في العمودين المذكورين؟

السلام عليكم

اخي الفاضل

بعد مراجعة الملف المرفق اعتقد السبب إن القيم مأخوذة كـ Link من ملف أخر

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

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

انتظر برضو ردود الأخوة هيفيدوك أكتر بإذن الله

السلام عليكم

على حد علمي لا يمكن عمل سكرول بار في الـ Multipage

يمكن عمله على الـ Userform أو الـ Frame

الأكواد اللي فوق جرب تستخدمها مع اليوزر فورم وهو هيخلي السكرول بار موجود في كل الصفحات اللي في الفورم

وشوف الملف المرفق على الفورم Find1 و FInd2

وانتظر برضو ردود الإخوة إن شاء الله يفيدوك أكتر

25.rar

أتفضل أخي

المعادلة الأولى

=IFERROR(LOOKUP(2,1/($E$14='Base Salaire'!$E$12:$E$42)/(D21='Base Salaire'!$D$12:$D$82),'Base Salaire'!$F$12:$F$118),"")

المعادلة الثانية

=IFERROR(LOOKUP(2,1/($E$14='Base Salaire'!$E$12:$E$42)/(D21='Base Salaire'!$D$12:$D$82),'Base Salaire'!$G$12:$G$118),"")

وأيضا مرفق الملف بعد التعديل

Classeur16_2.rar

سعيد إني قدرت أقدم شئ بسيط لحضرتك وشرفتنا وأسعدني تواجدك أستاذ أسامه 

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

السلام عليكم ورحمة الله وبركاته

مرحبا أخي 

لو اللي فهمته صح جرب حضرتك تحط الكود التالي في الفورم اللي عاوز تعمل فيه سكرول بار وهو هيتضاف بالتالي للفورم كله بما يحتويه حتى من Multipages 

بس طبعا على وضع الفورم الحالي تصغر حجمه وهحاول أرفقلك مثال وتطبق مثله على الفورم اللي عندك لان لقيت اكثر من فورم في ملفك 

Private Sub UserForm_Activate()
With Me
'السطر التالي سيقوم بعمل سكرول بار أفقي
.ScrollBars = fmScrollBarsVertical

'يمكنك تغيير الإعدادات التالية الخاصة بالطول والعرض للاسكرول بار لتناسب احتياجك
.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 9
End With
End Sub

والكود التالي لو عندك Frame موجود في اليوزر فورم وعاوز تعمله سكرول بار هو فقط دون الفورم كله استخدم الكود التالي

Private Sub UserForm_Activate()
'يتم تطبيق الكود التالي على حسب الفريم اللي انت تختاره Frame1 او Frame2 وهكذا
With Me.Frame1
.ScrollBars = fmScrollBarsVertical

.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 9
End With
End Sub

السلام عليكم ورحمة الله 

يسعدني أكون أول مشارك في الموضوع المتميز الله يجزاك الخير وسيتم التطبيق بإذن الله تعالى والرجوع إليكم في أي استفسارات 

في انتظار المزيد من أعمالك المتميزة والله يجعله في ميزان حسناتك

اتفضل أخي جرب تنسخ المعادلة التالية في الخلية 

F21

=IFERROR(LOOKUP(2,1/("Ahmed Kheroubi"='Base Salaire'!$E$12:$E$42)/(D21='Base Salaire'!$D$12:$D$82),'Base Salaire'!$F$12:$F$118),"")

والمعادلة التالية في الخلية G21

=IFERROR(LOOKUP(2,1/("Ahmed Kheroubi"='Base Salaire'!$E$12:$E$42)/(D21='Base Salaire'!$D$12:$D$82),'Base Salaire'!$G$12:$G$118),"")

والمعادلاتان في الشيت Fiche Salaires

وتواجهني مشكلة في إرفاق الملف هحاول أرفقه في مشاركة مستقلة 

Classeur16_2.rar

السلام عليكم أستاذ أسامة 

حضرتك أنا عملت المعادله كلها بطريقة أخرى وأخدت عينة عشوائية والحمدلله تمام 

وغالبا هيكون في فروقات بسيطة في الحساب العادي باليد بالطريقة اللي اتبعتها حضرتك في المشاركتين السابقتين 

والطريقة الأتوماتيكية عن طريق المعادلات ودي حاجة شائعة دائما

شوف حضرتك الملف المرفق وفي انتظار تعليقك والمعادلة المستخدمة كالتلي

=IF(O2<2,"لا يستحق مكافأة",IF(O2<=5,(O2*(N2/3)),IF(O2<=10,((O2-5)*(N2*2/3))+((5*N2/3)),IF(O2>10,((O2-5)*(N2)+((5*N2/2))),""))))

مكافأة نهاية الخدمة.rar

عليكم السلام ورحمة الله

حضرتك أرفقي الملف المطلوب التعديل على طباعته إن أمكن

ويتم الشرح عليه أفضل وأسهل وبمشية الله سيتم علي شرح التالي

توسيط الصفحة في الطباعة

تكرار أول سطر " الرؤوس " Header في كل صفحة في حال الطباعة في اكثر من صفحة

عمل ترقيم تلقائي للصفحات لمعرفة العدد الكلي والجزئي من مجموع الصفحات مثل صفحة 1 من 2 وهكذا

شرح إجبار الصفحة على الطباعة في صفحة واحده

كل ده يمكن توضيحه على الشيت مع إضافة صور للتوضيح ان شاء الله

اتفضل أخي شوف المرفق

أنا طبقت على حسب اللي فهمته شوف وأي تعديلات إن شاء الله هنحاول نقدمها لحد ما نوصل للمطلوب بإذن الله

Classeur16.rar

أستاذ أسامه

أتفضل حضرتك شوف المرفق بعد التعديل

لكل من هو أقل من سنتين لا يوجد له مستحقات

مكافأة نهاية الخدمة.rar

السلام عليكم أستاذ اسامه

حضرتك شوف الملف المرفق ان شاء الله يكون فيه المطلوب

مكافأة نهاية الخدمة.rar

أخي الفاضل 

انا جربت في الجدول الأول فقط لو ده المقصود نكمل الباقي ان شاء الله 

لو مش المقصود وضحلي أكتر وان شاء الله نقدر نساعدك

Classeur16.rar

العفو أخي والله يوفقك ويحفظك 

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

والله يوفقك

أخي الكريم 

على حد علمي ومعرفتي المتواضعه 

انك تقدر تعمل قائمة منسدلة لكل العناصر التي ترغب بها 

على سبيل المثال 

القائمة بها التالي ( رخص - كشفية - بناء ) وهكذا

وجنب القائمة المنسدلة يوجد تكست بوكس واحد فقط

بناء على القيمة المختارة من القائمة المنسدلة 

سيتم ترحيل القيمة المدخلة في التكست بوكس إلى العمود الخاص بها في السجل

ولكن على حد علمي لا يمكن إدخال كل القيم من قائمة منسدلة واحده وتكست بوكس واحد

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

شوف المرفق يا أخي لعله يكون المطلوب بإذن الله

لن يتم إحتساب الأرباح إلى اذا كانت قيمة موجبه أكبر من الصفر فقط

متابعة الربح.rar