نجوم المشاركات

الأمر ليس بالصعب طالما انك تريد هذا تفضل الملف بدون كلمة فقط تفقيط الدرجات.xls

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

يثبت عدم عجز الاكسس كما يتخيل البعض اعجبنى جدا جدا جدا احببت مشاركتكم اياه https://github.com/krishKM/Modern-UI-Components-for-VBA

المعادلات تعمل بشكل دقيق ولكن عليك وضع علامة الصح كما بالصورة

وعليكم السلام تفضل 2.xlsm

الحمد لله توصلت للحل وها هو منشور للفائدة

وعليكم السلام -تفضل حساب التاريخ تلقائى.xlsx

لضمان هذه الإشكالية من الوقوع؛ أن نقوم بإعادة الجداول إلى الوضع المعتاد قبل ضغط البيانات وإصلاحها..

تفضل حل بسيط وبدون برامج يمكنك رفع الملف المحمى على هذا الموقع مباشرة وسيتم فك الملف لك -وذلك كما بالصورة الموضحة لك http://www.ensode.net/xls-crack.jsf

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm

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

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

وعليكم السلام -اهلا بكم فى المنتدى طالما انكى لم تقومى برفع ملف وشرح عليه المطلوب بشكل دقيق فيمكنك رؤية هذا الرابط داخل المنتدى فبه ملف سوف يفيدك https://www.officena.net/ib/topic/70419-برنامج-جرد-العهده-المخزنيه/ ولدى برنامج اخر بالأكسيس -تفضلى ادارة عهد المستودع.accdb

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

شاهد هذا الفيديو فيه شرح لكل شيء https://www.youtube.com/watch?v=W_GBoDkb2pI

وعليكم السلام يمكنك استخدام هذه المعادلة =SUMPRODUCT(('بنجلاديش متابعة'!$E$2:$E$92>=$A$4)*('بنجلاديش متابعة'!$E$2:$E$92<=$B$4)*('بنجلاديش متابعة'!$D$2:$D$92="وصول")) العمال .xlsx

بعد اذن الأستاذ محمد فؤاد لك ما طلبت كما تم مناقشة هذا الموضوع من قبل على هذا الرابط https://www.officena.net/ib/topic/91655-دالة-لعد-الطلاب/ New_Microsoft_Excel_Worksheet_(2).xlsx

ممتاز جدا و فعلا مفيد شكرا استاذ عبد اللطيف

تفضلوا هذا هو الملف بعد اذن الأستاذ محمد فؤاد طبعا لكى تعم الإستفادة للجميع المبيعات و العملاء.xlsm

وعليكم السلام -نورت المنتدى جزاك الله كل خير واحسنت بما انه اول برنامج لك

وعليكم السلام يمكنك استخدام هذا الكود بعد وضعه فى حدث This Workbook Private Sub Workbook_Open() MsgBox "Ok" MsgBox DateDiff("d", "10/Jun/2019", Date) If DateDiff("d", "10/Jun/2019", Date) > 1 Then MsgBox "Ok1" Application.ActiveWorkbook.Close End If MsgBox "Ok2" End Sub Expire.xls

بارك الله فيك وجزاك الله كل خير ولكن الملف لا يفتح ويظهر كما بالصورة

تفضل SEER.xlsx

من فضلك ضع النتائج المطلوبة على الملف

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

احسنت استاذ بن علية كود ممتاز وبعد اذن حضرتك وزيادة فى اثراء الموضوع -هذا كود اخر للحل Option Explicit Sub Inqwayry7() Dim Q1, Q2, q3, FR, TR Dim S_sh As Worksheet: Set S_sh = Sheets("ÇáíæãíÉ") Dim T_sh As Worksheet: Set T_sh = Sheets("ßÔÝ ÇáÍÓÇÈ") Range("A7:j1000").ClearContents Q1 = Range("b2") Q2 = Range("b3") q3 = Range("D2") TR = 7 If Range("b2").Value > Range("b3").Value Then MsgBox "åäÇß ÎØà Ýí ÊÑÊíÈ ÇáÊÇÑíÎ", vbExclamation, "ÎØÃ" Exit Sub End If With S_sh For FR = 7 To 3333 If .Cells(FR, 1) >= Q1 And .Cells(FR, 1) <= Q2 And .Cells(FR, 2) = q3 Then Cells(TR, 1) = .Cells(FR, 1) Cells(TR, 2) = .Cells(FR, 2) Cells(TR, 3) = .Cells(FR, 3) Cells(TR, 4) = .Cells(FR, 4) Cells(TR, 5) = .Cells(FR, 5) Cells(TR, 6) = .Cells(FR, 6) Cells(TR, 7) = .Cells(FR, 7) Cells(TR, 8) = .Cells(FR, 8) Cells(TR, 9) = .Cells(FR, 9) Cells(TR, 10) = .Cells(FR, 10) TR = TR + 1 End If Next FR End With End Sub ولكن بالتأكيد كود حضرتك الأفضل فهو كود صغير وبسيط وادى الغرض بكل كفاءة كشف حساب بين تاريخين.xlsm

بارك الله فيك

وعليكم السلام-تفضل إضافة صورة مع رابط في توقيع Outlook يرجى اتباع الخطوات التالية لإضافة صورة مع رابط في توقيع في Outlook. 1. في Outlook ، انقر فوق الرئيسية > بريد إلكتروني جديد لفتح نافذة رسالة جديدة ، ثم انقر فوق إدراج > التوقيع > التوقيعات. انظر لقطة الشاشة: 2. في حوار التوقيع والقرطاسية ، تحت توقيع البريد الإلكتروني انقر فوق التوقيع المحدد في حدد التوقيع للتعديل مربع لإظهار محتوى التوقيع في تعديل التوقيع مربع. 3. في تعديل التوقيع في المربع ، ضع المؤشر الذي سيتم وضع الصورة فيه ، وانقر فوق صورة زر. انظر لقطة الشاشة: 4. في مربع الحوار "إدراج صورة" ، يرجى البحث عن الصورة التي ستدرجها وتحديدها ، ثم النقر فوق إدراج . 5. الآن يتم إدراج الصورة في التوقيع. حدد الصورة في تعديل التوقيع مربع، وانقر فوق الارتباط التشعبي زر. انظر لقطة الشاشة: 6. في مربع الحوار "إدراج ارتباط تشعبي" ، الرجاء النقر فوق تمييز الملف الحالي أو صفحة ويب في ال الرابط ل ، اكتب عنوان صفحة الويب في العنوان مربع، وانقر فوق OK زر. انظر لقطة الشاشة: 7. انقر على OK في مربع الحوار التوقيع والقرطاسية لحفظ التغييرات. من الآن فصاعدًا ، عند إدراج التوقيع المحدد في بريد إلكتروني ، ستحصل على الصورة مع رابط كما هو موضّح أدناه.

PM السلام عليكم ورحمه الله وبركاته كتير من الاحيان بنبعت رسائل وبنكون بنستنى الرد على احر من الجمررر وما بنعرف الي وصلتوا الرساله نايم والا صاحي ؟؟ شافها والا ما شافها ؟؟ بدو يرد علينا والا لا ؟؟ هالطريقه علشان اول ما يفتح مسلتم الرساله رسالتك توصلك رساله انو تم تسليم الرساله وفتحها من الجهه المرسله اليه طبعا مستلم الرساله بس يفتحها بيطلع لو خيار .... عادي يوصلك خبر هوه فتح الرساله والا لا في حال وافق بيوصلك الاشعااار .... طبعا الشرح على Microsoft Outlook 2007 نبدى الصوور والشرح في حال كان بدنا الامر يتم على جميـــــع الرسائل الي رح نبعتها بنروح على أدوات بتفتح لنا قائمه منسدله بنختار منها خيارات وبتفتح لنا الصوره التاليه الي بنختار منها خيارات البريد بعدها بنختار خيارات التعقب وبنحدد خيار ايصال بالقراءه طبعا متل مو ملاحظين في خيار تاني اسمو ايصال بالتسليم << هاد الخيار ببعتلك رساله تقولك انو الرساله استقبلها "وصلت" على ايميل المرسل اليه فقط لا غير طبعا هون بنكون خلصنا الشرح علشان يتطبق الامر على كل الايميل الي رح تبعتوها من الايميل في حال كنتوا بدكم تطبقوا الخيار على رساله وحده فقط بنضغط على جديد لارسال رساله وبنختار خيارات متل مو موضح بالصوره وبعدين بطلع لنا الخيار وبنحددوا متل مو موضح بالصوره

تفضل الملف مرة أخرى Office Soft.Employ & Salary-Source.rar

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

وعليكم السلام-تفضل تنسيق شرطى.xlsx

ابداع استاذ سليم معادلات رائعة بارك الله فيك

وعليكم السلام -اخى الكريم فقد تم الرد على هذا الموضوع من قبل اساتذتنا الكرام ,الأستاذ سليم حاصبيا و الأستاذ بن علية حاجى من فترة فعليك من فضلك الا تكرر نفس المشاركات المشاركة كانت على هذا الرابط https://www.officena.net/ib/topic/90650-استخراج-الوقت-الصباحي-والمسائي-من-عمود-الوقت/ ولكن تفضل هذا ملفك في هذه المشاركة الجديدة فقد تم العمل عليه بنفس المعادلات السابقة المثال.xls

بارك الله فيك وجزاك الله كل خير

أخى الكريم كان عليك من البداية استخدام خاصية البحث بالمنتدى https://www.officena.net/ib/topic/71340-تفقيط-عربي-انجليزي/?tab=comments#comment-461513 https://www.officena.net/ib/topic/45879-من-رقم-إلى-كتابة-تفقيط-عربي-مميز/?tab=comments#comment-271888 https://www.officena.net/ib/topic/50897-تفقيط-مبلغ-معين-من-الأرقام-الى-الحروف-سواء-باللغة-العربية-أو-الإنجليزية-بدون-اكواد/?tab=comments#comment-313355

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

اهلا بك في منتدانا الكريم تفضل هذا الرابط -كان عليك استخدام خاصية البحث في المنتدى أولا قبل رفع المشاركة https://www.officena.net/ib/topic/91235-طباعة-الشيكات-بالاكسل/?tab=comments#comment-572010

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

وعليكم السلام التنسيق الشرطى.xlsx

بارك الله فيك وجزاك الله كل خير

بارك الله فيك وجزاك الله كل خير

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

تفضل برنامج الشيكات.xlsx

بارك الله فيك اخى الكريم والحمد لله الذى بنعمته تتم الصالحات

يكون الكود كالتالى Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintPreview End Sub

تفضل-ولكن كا ن عليك من البداية رفع ملف تجنبا لإهدار الوقت وشرح لما تريد بالضبط فعليك بتغيير النطاق بالكود لما تريد Sub print_out() Sheets("Sheet1").Range("a2:g100").PrintOut End Sub

وعليكم السلام تفضل Att Apr 2019.xlsx

بارك الله فيك

اهلا بك اخى الكريم فى المنتدى الرابط موجود فى اول مشاركة من الموضوع-تفضل http://www.mediafire.com/file/iwmlyw13zdl/بيانات+طبية.rar