hegazee

و عليكم السلام و رحمة الله و بركاته تفضل أخي الكريم Sub InsertBlankRowForAllColumns() Dim lastRow As Long Dim lastColumn As Long Dim i As Long, j As Long ' تحديد آخر صف وآخر عمود يحتويان على بيانات lastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lastColumn = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column ' البدء من آخر صف والعمل إلى الأعلى For i = lastRow To 2 Step -1 ' التحقق من وجود بيانات في أي من الأعمدة For j = 1 To lastColumn If Cells(i, j).Value <> "" Then Rows(i + 1).Insert Shift:=xlDown Exit For ' الخروج من الحلقة الداخلية إذا وجدنا بيانات End If Next j Next i End Sub إضافة صف.xlsm

تفضل أخي الكريم =A2 + IF(DATEDIF(A2; TODAY(); "m") >= 12; 30; IF(DATEDIF(A2; TODAY(); "m") >= 8; 20; IF(DATEDIF(A2; TODAY(); "m") >= 4; 10; 0))) لا تنسى وضع التاريخ في خلية A2 و ستظهر الزيادة في الخلية التي بها المعادلة

طلبك هنا https://www.officena.net/ib/topic/41803-كود-طباعة-بعد-المعاينة/#google_vignette

و عليكم السلام و رحمة الله و بركاته تفضل أخي الكريم بالملف المرفق زر به كود معاينة و طباعة زر طباعة و معاينة.xlsm

المشكلة ان كم الارتبطاتات التشعبية ضخم جدا حوالي 36 ملف و كل ملف به 12 ورقة عمل فممكن تبدل الارتباط حسب اسم الملف الجديد يعني كلك يمين على الارتباط و تختار تحرير و ثم الملف الجديد بالاسم الجديد كما بالصورة. يتبقى مشكلة الارتباطات الاخرى المرتبطة باسم الملف القديم و هنا يمكن استخدام خاصية البحث و الاستبدال الاسم القديم بالاسم الجديد

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

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

بعد إذن أساتذتي الكرام تفضل أخي الكريم فصل و تجميع و تفقيط Book(1).xlsm

و عليكم السلام و رحمة الله و بركاته حسب ما فهمت تريد أن تكون أوراق العمل مخفية و لا تظهر إلا بكلمة سر و لعلك تجد في هذا الملف المطلوب. حيث يمكن اخفاء جميع أوراق العمل و استدعاء الورقة المطلوبة من خلال يوزرفورم و بكلمة سر تحددها أنت إظهار أوراق العمل بكلمة سر.xlsm

عمل رائع للأستاذ عبدالله و بعد إذنه تم إضافة زر لاستدعاء الفورم test2.xlsm

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

هذه الداله غير موجوده في جوجل شيت

جزاكم الله خيرا و نفع بكم و زادكم في العلم و جعله لكم صدقة جارية و علم ينتفع به

عند اللصق اختار لصق قيم

تفضل أخي الكريم البحث عن )2(قيمة.xlsm

من خصائص User form أفعل كما هو موضح بالصورة و ضع نجمة مقابل passwordChar

الموضوع بسيط فقط من استبدال RS_ST_196(8).xls

السلا عليكم يمكنك الاطلاع على هذه المشاركة https://www.officena.net/ib/topic/44445-دالة-لإدراج-صورة/

أخي الكريم يرجى ارفاق ملف إكسيل بالمطلوب للعمل عليه

تفضل مطلوب تفعيل إشعار إنتهاء فترة التجربة.xlsx

و عليكم السلام ورحمة الله و بركاته تفضل أخي الكريم انتتهاء فترة التجربة.xlsx

وعليكم السلام ورحمة الله و بركاته أخي الكريم طلبك موجود في هذا الرابط https://www.officena.net/ib/topic/115583-مطلو-ب-كود-للبحث-داخل-كل-شيتات-ملف-الاكسيل/

و عليكم السلام حل سريع ضع مسافة قبل كلمة دينار في الكود Classeur2.xlsm

لسوء الحظ، لا يمكن للتنسيق الشرطي وحده إدراج نص في خلية؛ فهو لا يستطيع سوى تغيير مظهر الخلية (مثل لونها أو خطها أو حدودها) استنادًا إلى الشروط التي تحددها. إذا كنت تريد عرض كلمة معينة (مثل "حضور") في خلية استنادًا إلى محتوى خلية أخرى دون استخدام المعادلات أو الأكواد فلن يكون ذلك ممكنًا باستخدام التنسيق الشرطي فقط. التنسيق الشرطي مخصص فقط للتغييرات المرئية ولا يعدل محتوى الخلية الفعلي. إذا كنت تريد إدراج نص استنادًا إلى شروط، فسيكون باستخدام المعادلات أو الأكواد. تحياتي

بيكون من خلال الأكواد