علي الشيخ
-
Posts
313 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو علي الشيخ
-
أتفضل أخي شوف الصورة التالية لو ده المقصود تقدر تتحكم في عرض كل عمود من هذا الخيار
-
السلام عليكم اخي أكرم ان شاء الله تكون بخير طيب انا برضو معلش ما فهمت المقصود ولنفترض لدينا لست بوكس من 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
-
عليكم السلام أخي لا لا يؤثر وليس له لزوم إحذفه فقد نسيت حذفه سهوا
-
طلب تعديل معادلة توليد سريال إعتمادا على أكثر من شرطين
علي الشيخ replied to أبو العاصم's topic in منتدى الاكسيل Excel
السلام عليكم اخي الكريم انا فتحت الملف بس ما فهمت شئ المسلسل اللي انت عاوزه شكله إزاي 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
-
سعيد إني قدرت أقدم شئ بسيط لحضرتك وشرفتنا وأسعدني تواجدك أستاذ أسامه وحضرتك تقدر تحدد الإجابة الصحيحة لو ما عندك أي استفسارات أخرى تتعلق بنفس الموضوع في الوقت الحالي والله يوفقك
- 13 replies
-
- 2
-
-
- حساب المكافأة
- نهايه خدمه
- (و7 أكثر)
-
السلام عليكم ورحمة الله وبركاته مرحبا أخي لو اللي فهمته صح جرب حضرتك تحط الكود التالي في الفورم اللي عاوز تعمل فيه سكرول بار وهو هيتضاف بالتالي للفورم كله بما يحتويه حتى من 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
-
مشكلة الخطأ #DIV/0! ساعدونا بحله جزاكم الله خيزا
علي الشيخ replied to abofayez1's topic in منتدى الاكسيل Excel
العفو أخي والله يوفقك ويحفظك ولو ما عندك استفسارات أخرى بخصوص نفس الجزئية يرجى تحديد الإجابة الصحيحة حتى يتم إغلاق الموضوع والله يوفقك -
أخي الكريم على حد علمي ومعرفتي المتواضعه انك تقدر تعمل قائمة منسدلة لكل العناصر التي ترغب بها على سبيل المثال القائمة بها التالي ( رخص - كشفية - بناء ) وهكذا وجنب القائمة المنسدلة يوجد تكست بوكس واحد فقط بناء على القيمة المختارة من القائمة المنسدلة سيتم ترحيل القيمة المدخلة في التكست بوكس إلى العمود الخاص بها في السجل ولكن على حد علمي لا يمكن إدخال كل القيم من قائمة منسدلة واحده وتكست بوكس واحد لادخال قيم متعددة يعني هنعمل إدخال للبناء وكشفية ورخص واخرى مثلا يبقى أفضل شئ اللي انت بالفعل عاملة حاليا وده على حسب معرفتي البسيطة
-
مشكلة الخطأ #DIV/0! ساعدونا بحله جزاكم الله خيزا
علي الشيخ replied to abofayez1's topic in منتدى الاكسيل Excel
شوف المرفق يا أخي لعله يكون المطلوب بإذن الله لن يتم إحتساب الأرباح إلى اذا كانت قيمة موجبه أكبر من الصفر فقط متابعة الربح.rar