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

السلام عليكم تحية كبيرة لاخ ياسر بخصوص قبول TextBox لحروف فقط أو أرقام فقط افضل الاتي 1 لجعل التكست بوكس لاتقبل الا الارقام Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0 End Sub 2 لجعل التكست بوكس لاتقبل الا الحرف الانجليزية الصغيرة Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!a-z]" Then KeyAscii = 0 End Sub 3 لجعل التكست بوكس لاتقبل الا الحروف الانجليزية الكبيرة Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!A-Z]" Then KeyAscii = 0 End Sub 4 لجعل التكست تقبل الا الحروف الانجليزية الصغيرة والكبيرة معا Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!A-z]" Then KeyAscii = 0 End Sub 5 لجعل التكست بوكس لا تقبل الا الحروف العربية Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!أ-ي]" And ChrW(KeyAscii) <> " " Then KeyAscii = 0 End Sub اما اذا كنت تريد تفعيل المسطرة فكل ماعليك هو تلرك فراغ قبل الحرف الأول مثال Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[! A-Z]" Then KeyAscii = 0 End Sub أما اذا اردت تضمين بعض الاشكل كل ما عليك هو ادراج الشكل أو العلامة التي ستسمح بها بين الحرف الاول والمطة هذا مثال لايقبل الا الحروف الانجليزة الكبيرة والمسافة وهته الاشارات =:;/. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[! A=:;/-Z]" Then KeyAscii = 0 End Sub تحياتي للجميع

لقد طرح أخي ومعلمي الجليل الأستاذ // عبدالله باقشير "حفظه الله " وجزاه عنا خير الجزاء , في ابداع سابق له (( قــوائم مخصصة علي الفورم باستخدام - CommanBars)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=44506 وعمله الذي فتح بوابة كبيرة امام استخدمات الاكسيل وتمكنه من التحكم بالاكواد وتطويعها جزاه الله خيرا وجعل كل اعماله في ميزان حسناته وارجوا منه السماحة انني استخدمت عمله وطبقته علي موضوع شئون الموظفين الاصدار الثاني - النسخة التجريبية لوجود اخطاء بالنسخة الاولي فاهدي عملي المتواضع كلمة المرور 2300 جعل الله جميــــــع اعمالنا خالصة لوجه الكريم والله ولي التوفيق شئـون الموظفيين الاصدار الثاني نسخة تجريبية.rar

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

إخواني الكرام بدون ما أكتر في الكلام أخذاً بنصيحة أخي في الله خالد تفضلوا الإصدار الأخير (تمت إضافة حوالي 11 كود) Codes Library v1.5.rar

السلام عليكم ورحمة الله وبركاته الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح محاكاة الدالة DateDif با المعادلات و الاكواد. بالنسبة المحاكلة بالاكواد عملت دالة بسيطة اسميتها DateGap في الصورة ادناه تم الاعتماد على الدلة DateDif كمعيار لقياس مدى دقة المعادلات و الدلة DateGap اولا المعادلات و الصيغ على افتراض ان التاريخ الاول هو A1 و التاريخ الثاني A2 فأن: 1 - لايجاد الفرق بين التاريخين باليوم و الشهر و السنين معا الايام =IF(DAY($A$2)>=DAY($A$1),DAY($A$2)-DAY($A$1),DAY($A$2)+DAY(EOMONTH($A$2,-1))-DAY($A$1)) الاشهر =MOD(IF(DAY($A$2)>=DAY($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1)-1),12) السنوات =TRUNC(IF(DAY($A$2)>=DAY($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1)-1)/12) 2 - ايجاد الفرق الكلي بالايام و الاشهر و السنوات الفرق الكلي بالأيام =A2-A1 الفرق الكلي بالأشهر =IF(DAY($A$2)>=DAY($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1)-1) الفرق الكلي بالسنوات =TRUNC(IF(DAY($A$2)>=DAY($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1),(YEAR($A$2)-YEAR($A$1))*12 + MONTH($A$2)-MONTH($A$1)-1)/12) ثانيا بالكود - الدلة DateGap 1 - لايجاد الفرق بين التاريخين باليوم و الشهر و السنين معا الايام =dategap($A$1,$A$2,"md") الاشهر =dategap($A$1,$A$2,"ym") السنوات =dategap($A$1,$A$2,"y") 2 - ايجاد الفرق الكلي بالايام و الاشهر و السنوات الفرق الكلي بالأيام =dategap($A$1,$A$2,"d") الفرق الكلي بالأشهر =dategap($A$1,$A$2,"m") الفرق الكلي بالسنوات =dategap($A$1,$A$2,"y") الملاحظة ===== الدلة DateGap تولد اخطا: 1 - خطأ التاريخ الاول اكبر من التاريخ الثاني DATEGAP_WRONG_DATE_ORDER 2 - خطأ معامل الدالة .. (المعمل يجب ان يكن احدى القيم التالية: y m d md ym) DATEGAP_WRONG_OPERATOR يمكنك تحميل الدلة و المثال من الملف المرفق اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال DateGap DateDif الفروقات بين التواريخ.zip

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

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

بسم الله الرحمن الرحيم أساتذتى بالمنتدى و ألاخوة الزملاء كل عام وانتم بخير بمناسبة العام الجديد مما لا شك فيه أن الأهداء يقدم الى أغلى شخص لدى الانسان وبما انه اغلى شخص فلابد من تقديم أغلى هدية يملكها فسمحو لى ان اقدم أغلى ما املك واعز ما أملك وهو برنامج EMA الى أغلى منتدى . منتدى أوفيسنا هذا الصرح العظيم الذى شرفت بالانضمام اليه أهداء برنامج EMA برنامج EMA تم تصميمة بعمل متواصل على مدار 300 يوم بمعدل لا يقل عن 5 ساعات يوميا معظمها كان البحث والتفكير وكيفية التنفيذ فأن أحسنت فمن الله وما توفيقى الا بالله وأن أخطأت فمن نفسى والشيطان والحمد لله الذى بنعمته علينا تتم الصالحات تم رفع البرنامج بتاريخ 29-9-2014م وهذا كان الاصدار الاول من الجزء الاول للبرنامج وبعد التواصل مع الاعضاء ومشاركتى لأرائهم طلب منى بعض الاضافات الاخرى والحمد لله تم ذالك أقدم لكم الاصدار الثانى من الجزء الاول أتمنى أن يحوز اعجابكم ورضاكم البرنامج به أمكانيات وخيارات كبيرة جدا تم تصميمه على اعلى مستوى من الرقابه والتحكم فى المدخلات أنا الحمد لله عملت على برامج كبرى وهذا البرنامج عصارة خبرة محاسبية وأنتظرو منى قريباً الجزء الثانى للبرنامج (المخازن والمبيعات والمشتريات) فى نفس الملف وأخيرا وليس أخراً البرنامج بين أيديكم لا يتم فتج البرنامج الا فى الساعه 12ص أى بالليل 2015/1/1م لأنه نسخة عام 2015م ملحوظه مهمه جدا 1-يفضل تشغيل البرنامج على 2007 2-لا يتم تغيير اسم البرنامج نهائيا لانه لا يفتح عند تغيير- الاسم (EMA)فقط فى بعض الاحيان عند التنزيل يكون EMA 1 فى هذه الحالة يحذف 1 أن شاء الله نرفق لكم شرح لكيفية العمل على البرنامج اسم المستخدم / الدعم الفنى الباسورد / 123 EMA.zip

اخوانى وأحبابى السلام عليكم اليوم أقدم لكم كيفية عمل صورة من مدى معين تحدده مع حفظ الصورة فى مسار تحدده أيضاً الكود المستخدم فى الموضوع مديول عادى : Sub make_jpeg() Dim i As Integer Dim intCount As Integer Dim objPic As Shape Dim objChart As Chart 'نسخ المدى كصوره Call Sheet1.Range("A1:f13").CopyPicture(xlScreen, xlPicture) 'مسح أى أشكال من شيت 2 intCount = Sheet2.Shapes.Count For i = 1 To intCount Sheet2.Shapes.Item(1).Delete Next i 'عمل جدول فى شيت 2 Sheet2.Shapes.AddChart 'تنشيط شيت 2 Sheet2.Activate 'تحديد الجدول الذى يوجد فى شيت 2 Sheet2.Shapes.Item(1).Select Set objChart = ActiveChart 'لصق المدى اللى نسخناه فى هذا الجدول Sheet2.Shapes.Item(1).Width = Range("A1:f13").Width Sheet2.Shapes.Item(1).Height = Range("A1:f13").Height objChart.Paste 'حفظ الجدول كصورة فى المسار التالى objChart.Export ("D:\photo\mokhtar.Jpeg") End Sub وتفضلوا المرفق واعلموا أن لا أريد كلمات المدح أو الثناء ولكن كل ما أريده من حضراتكم دعوة بسيطة بظهر الغيب للمرحوم أبى . كل سنة وأنتم أقرب الى اللـــــه عز وجل range 2 jpeg by mohtar.rar

السلام عليكم ورحمة الله وبركاته التالى كود لدق أرقام سرية أو عمل ترقيم تلقائى Sub AutoNumbering() ActiveCell = ActiveCelltiveCell NS: A = Application.InputBox("أدخل أول رقم فى السلسلة التى تريد إنشاؤها", " ") B = Application.InputBox("أدخل آخر رقم فى السلسلة التى تريد إنشاؤها", " ") If A = False Or B = False Then Exit Sub ElseIf A = "" Or B = "" Then MsgBox "!تأكد من إدخال الأرقام بشكل صحيح", vbExclamation, "إدخال خاطئ" Else If [IV65536] = 1 Then ActiveCell = A Else: Columns(ActiveCell.Column).Rows(65536).End(xlUp).Select If ActiveCell = "" Then ActiveCell = A Else: ActiveCell.Offset(1, 0).Select Selection = A End If End If ActiveCell.DataSeries xlColumns, , , 1, B End If If Application.WorksheetFunction.CountA(Columns(ActiveCell.Column)) = 1 Then ActiveCell.ClearContents Beep If MsgBox("أول رقم فى السلسلة أكبر من آخر رقم ... هل تود إعادة المحاولة ؟", vbQuestion + vbYesNo, " إدخال خاطئ") = vbNo Then Exit Sub Else: GoTo NS End If End If Beep If MsgBox("هل تود إنشاء سلسلة رقمية أخرى ؟", vbYesNo + vbQuestion, "إنشاء سلسلة أخرى") = vbNo Then Exit Sub Else: GoTo NS End If End Sub تحياتى للجميع

جزاك الله خيرا أستاذنا أبا آلاء جعله الله لك ذخرا

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

السجل فارغ exam.rar

اضافة بسيطة invigilations_2.rar

تفضل اخي مثال.zip

بعد اذن الاساتذه دى طريقة اخرى لاخفاء الادوات واظهارها وايضا اخفاء الصفحات ماعدا الصفحة النشطة فقط اخفاء الصفحات.rar

السلام عليكم ورحمة الله اخي الجموعي مشكرو وجزاك الله خير لاحظت في جدول الاخ الأمير هشام ان الرقم الوظيفي يتكرر بأكثر من مره فحسب ماهو مبين هذا ملف إن شاء الله يفي بالغرض مع الطباعــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــة يدخل الرقم الوظيفي في الخلية المحددة F3 وللمسح الوقوف علي الخلية ثم bACKSPACE ثم Enter مرفق الملف invigilations.rar

إخواني الأحباب لكم يشرفني ويسعدني مرور كبار المنتدى وأساتذتي الأجلاء على الموضوع ، والله إنه لشرف لي أن يشاركوا فيه .. ولكم أتمنى مداومة المشاركة حتى يخرج العمل في النهاية بأفضل صورة ويستفيد منه الجميع الكبير قبل الصغير والخبير قبل المبتديء .. أسأل الله العلي القدير أن ينفع بنا ويجعل عملنا في ميزان حسناتنا يوم القيامة الأخ الحبيب أبو محمد عباس تسلم على الكود الرائع وانتظر مني كود مشابه لنفس العمل ولكن ... سأذكر فيما بعد الأخ الحبيب عبد الله المجرب تسلم على الكود الرائع ، ولا تنسانا من روائعك المتميزة أما أنت يا أخي شوقي أما أنت فلا أجد لك كلمة أعبر لك بها عن فرحتي وسعادتي بمشاركتك وأرجو أن تكمل فرحتي بطلبين : الأول : المشاركة يومياً في الموضوع اسهاما منك في هذا المشروع الكبير الذي لطالما حلمت به وها هو بحمد الله بدأت بوادره في الظهور .. الطلب الثاني أن يكون الكود مدعوم بالشرح حتى تكون المكتبة زاخرة عامرة بالأكواد المفهومة لدى الناس تقبلوا تحياتي إخواني الأعزاء إليكم تجميعة اليوم 8 أكواد (بما فيها أكواد الأساتذة الكرام مع شرح مبسط لما استطعت شرحه) أترككم مع النسخة الأخيرة ، انسى اللي فات اعمل Delete ومتسيفش اللي فات ، خليك مع الجديد يا أبو عيد Codes Library v1.6.rar

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

هل تريد جمع النطاق بالكامل من D2:D14 حيث أن المجموع في هذه الخلية عبارة عن المجموع الكلي للشهور وليس النطاق بالكامل .. لو كانت نتيجة الجمع صحيحة كما في المرفق ..هل تريد أن تقوم بقسمة الناتج / 2 ؟؟ هل التعامل مع البيانات سيكون بهذا الشكل ؟

نعم اخي الفاضل جزاك الله خيرا

تم اخي الفاضل أسأل الله العلي العظيم أن يبارك فيك و في علمك و أن يجزيك عني خير الجزاء

استخدم الكود كما يلي On Error Resume Next DoCmd.OutputTo acOutputTable, "Table1", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table2", "Table1.xlsx", True, sheet2 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table3", "Table1.xlsx", True, sheet3 يمكنك اضفة سطر رابع مع الجدول رقم 3 وسطر خامس مع الجدول التالي وهكذا مع تغيير table3 ب table4 وهكذا وتغيير رقم الشيت sheet3 إلى sheet4 وهكذا ولا تغير اسم الملف Table1.xlsx تلاحظ انه نفس الاسم في السطور الثلاث وهذا يعني اننا نقول لكود قم بتصدير الجداول الثلاثة إلى نفس الملف واذا ار\ت تغييرة باسم آخر فقط غير كلمة Table1 بالاسم الذي تريده مثلا AliElmasry.xlsx

استاذنا القدير الاستاذ ياسر خليل اليك ملف ومنفذ عليه الكود وكلمة سر الملف (1900) درجات نصف العام.rar

باستخدام احد الأكواد التالية يمكنك تصدير جدولين إلى ملف اكسيل واحد كل جدول في ورقة حيث Table1 و Table2 هي اسماء الجداول DoCmd.OutputTo acOutputTable, "Table1", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Table2", "Table1.xlsx", True, sheet2 أو استخدم الكود التالي Dim Filepath As String Filepath = CurrentProject.Path & "\StudentData.xlsx" DoCmd.TransferSpreadsheet acExport, , "Table1", Filepath, True, sheet1 DoCmd.TransferSpreadsheet acExport, , "Table2, Filepath, True, sheet2 حيث أنه سوف يتم الحفظ في نفس مسار قاعدة البيانات باسم studentsData يمكنك تغييره كما تحب

السلام عليكم مولد نبوي شريف ومبارك وعام سعيد على كل الامة العريبة الشكر موصول للاخ والاستاد العزيز ياسر على الجهد الذي يبذله وكل الاعضاء الذين يشاركون في الموضوع اعتذر عن تأخري في المساهمة في هذا الموضوع المميز وكبداية اقدم هذا الكود البسيط الذي طرحته سابقا في احد طلبات الاعضاء طباعة محتوى اليست بوكس من الفورم Private Sub CommandButton1_Click() Dim Tableau() As Variant: Tableau() = ListBox1.List Dim i As Integer: i = ListBox1.ListCount Dim j As Byte: j = ListBox1.ColumnCount Application.DisplayAlerts = False Workbooks.Add Range("A1:" & Cells(i, j).Address) = Tableau() ActiveWorkbook.PrintOut ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub تحياتي للجميع والى اكواد اخرى ان شاء الله Printe listbox.rar

تمام يا باشا يا معلم جزيت خيرا و رضى الوالدين

السلام عليكم احببت ان اسجل اعجابي بالفكرة والجهد الكبير الذي تبذله استاذ ياسر ===== وهذا الكود البسيط عشان ما تقولي ايدي فاضية ===== Sub Abu_Ahmed_Del() LR = [A1000].End(xlUp).Row For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, 1)) > 1 Then Cells(i, 1).Delete Shift:=xlUp Next End Sub الكود يقوم بحذف المكرر من القيم والابقاء على قيمة واحدة فقط ويعمل على مدى مفتوح ولا يقوم بحذف الصف بالكامل وانما يقوم بالحذف بطريقة الازاحة الى اعلى

اسلوب جديد بس رائع

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ابو البراء جزاكم الله خيرا قرات جميع الاكواد المرفقة في الاصدار الاخير من مكتبة الاكواد في المشاركة 36 لم اجد فيها اخفاء الصفوف حسب قيمة معينة مثلا صفر او فراغ احببت ان اشارككم هذا الكود لاخفاء الصفوف اذا كانت الخلية صفر او فراغ وحسب نطاق محدد او نغيره الى تحديد يدوي وباي شيت من المصنف ارجو ان يفي بالغرض ويستفيد منه الاخوة الاعزاء لكم كل الحب والاحترام والتقدير Sub HideBlankRows() ' اذا كان النطاق معلوم ومحدد غير النطاق حسب بياناتك 'Dim rng As Range 'Dim cell As Range 'Set rng = Range("A4:A100") 'For Each cell In rng ' هنا حسب التحديد "نحدد النطاق" ويجب ان يكون في عمود واحد فقط وباي شيت من المصنف ثم نشغل الكود For Each cell In Selection 'هذا هو الكود يعمل على الخاصيتين حسب حاجتكم If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = True End If Next cell End SubSub ShowAll() هذا الكود لاظهار الصفوف المخفية Sub ShowAll() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.ShowAllData Application.ScreenUpdating = True End Sub

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

مرفق مثال exam.rar

الاخوه الاعزاء السلام عليكم لدي جول ارغب بجعله برنامج يستطيع العاملون معي الاستفادة منه ومشاركته وذلك لتسهيل المتابعات التي يزيد عددها اليومي للشخص عن 20 متابعة وذلك جانب مهامة حتى لا يحدث نسيان لأي من المهام والتاخر في اجراء الأعمال المطلوبة - مدخلين البيانات 3 فقط والباقين فقط للقراءة - كل شخص من الفريق يرى ما عليه عمله وذلك باستخدام فلتر داخل البرنامج ويكون في عامود الجهة المتابعة - فلتر في حالة المهمة وذلك في حالة طباعة تقرير او نسخه على برنامج الوورد أو الاكسل - في عامود حالة المهمة / يتحول لون السطر الى اللون الرمادي في حالة اختيار كلمة تمت او انتهت - في حالة متأخر يتحول لون السطر إلى أخضر- في حالة مهم يتحول لون السطر الى البرتقالي ( ويكون العامود على شكل قائمة منسدلة بها الاختيارات : تمت / متأخر / - وهذه الشرطة لإعادة المهمة لحالة المتابعة - عامود تاريخ اخر متابعة يتحدث حسب اليوم الذي يتم فيه تعديل عدد المتابعات - تسمح خانة الموضوع/المهمة بكتابة مالايزيد عن 100 حرف ومسافة - في خانة تاريخ الإنتهاء يدرج التاريخ اوتماتكياً في حالة اختيار كلمة تمت في حالة المهمة - أي شخص من المسؤولين الثلاثة يقوم بإختيار تمام المهمة لايستطيع أحد التعديل عليها الا هو شخصياً Archive.Zip

إخوانى فى الله الأستاذ الكريم // خالد حداده الأستاذ الكريم // أبو يوسف الأستاذ الكريم // اسلام محمود __( فيما يختص بالترحيل الكود للتعلم كيفية كتابته وهناك الكثير من طرق الترحييل ) الأستاذ الحبيب // حسام عيسى الأستاذ الكريم // ابو سليمان ( زمزم ) _ ( لا توجد مشكله كبيرة فى اللغة فقط عليك بالمحاوله وستجد الامر يسير بإذن الرحمن ) الأستاذ الكريم // عكرمه الأستاذ الكريم // جمعه العوامى بارك الله فيكم أجمعين على مروركم الكريم ودعاؤكم الطيب وجزاكم عنى خير الجزاء وتقبلوا منى وافر الإحترام والتقدير

السلام عليكم بعد اذن استاذى الكبير والحبيب ابومحمد عباس جزاه الله خيرا حل اخر لاثراء الموضوع معادله =SUMPRODUCT(('Vacation Sheet'!$H$2:$H$100='حل بالمعادلات'!$G2)*('Vacation Sheet'!$M$2:$M$100='حل بالمعادلات'!H$1)) او =COUNTIFS('Vacation Sheet'!$H$1:$H$100;'حل بالمعادلات'!$A2;'Vacation Sheet'!$M$1:$M$100;B$1) او حل ب pivottable وفى النهايه ارجو ان تحقق المطلوب Vacation Sheet.rar

السلام عليكم Function Nm_Prgram(Nm_Pth As String) As Boolean Dim In_c As Integer On Error Resume Next In_c = GetAttr(Nm_Pth) Select Case Err.Number Case Is = 0 Nm_Prgram = True Case Else Nm_Prgram = False End Select On Error GoTo 0 End Function Sub Auto_Open() Dim Pth As String '=============================== ' عادة مسار البرامج Pth = "C:\Program Files\skype" If Nm_Prgram(Pth) Then Else MsgBox " برنامج سكاي غير موجود على جهازك": _ ThisWorkbook.Saved = 1: Application.Quit ' امر اغلاق الملف End Sub

33مشاهدة بدون أي فكرة او اقتراح او حتى استفسار بجد العمل دا راح يفيد كثير من السكرتاريه ومدراء المكاتب لمتابعة اعمالهم

أخى فى الله الأستاذ الحبيب // أحمد النجار بارك الله فيكم وجزاكم الله خيرا ودمتم فى أمان الله وحفظه تقبل منى وافر الاحترام والتقدير

بسم الله الرحمن الرحيم الاخ الفاضل ابو حنين جزيل الشكر والتقدير لاكتشافك هذة الثغرة فهي فعلا نقطه هامه لذلك قم باستبدال كود اظهار الفورم بالكود التالى Sub Show_F2() If Sheets("My Account").Range("iv1").Value = "الدعم الفني" Then UserForm2.Show Else MsgBox " ليس لديك الصلاحيه " End If End Sub

بارك الله فيك اخي الكريم أ// محمود الشريف البرنامج النسخة الثانية بالمرفقات شئـون الموظفيين الاصدار الثاني نسخة تجريبية.rar

السلام عليكم جرب المرفق التالي ان شاء الله به طلبك ولكن يجب ان يكون ملف الصور باسم ( photo ) ويوجد بنفس الفولدر او المجلد الموجود به الملف شاهد المرفق تجربة.rar

وفقكم الله لفعل الخير ارفق اليكم البرنامج وفق ما تم طلبة تم اعاد تقارير وتم اعداد القوائم المنسدلة ارجو تجربته و الرد جمعية خيرية - Copy - Copy.rar

السلام عليكم ورحمة الله أخي الكريم، في اعتقادي أنه لحل هذه المشكلة في الوورد يجب اتباع ما يلي : 1- الضغط على : ALT+F9 وفي هذه الحالة كل الحقول المدرجة في الورقة تُفتح على الشكل : { MERGEFIELD Name } حيث Name يمثل اسم الحقل... 2- تختار الحقل الذي تريد تغيير التنسيق فيه وتضيف له بعد اسم الحقل العبارة MM/dd/yyyy @\ أو العبارة dd/MM/yyyy @\ (حسب الحالة) بعد اسم الحقل، فيكون الحقل من الشكل : { MERGEFIELD Name \@ MM/dd/yyyy } أو { MERGEFIELD Name \@ dd/MM/yyyy } 3- الضغط على : ALT+F9 مرة أخرى للرجوع إلى حالة الدمج... أرجو أن يفيدك هذا في حل مشكلتك.... أخوك بن علية

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

لعمل التقارير المستندة الى الاستعلامات الجدولية اتبع الخطوات التالية : 1- قم بإنشاء استعلام جدولي. 2- قم بفتح الاستعلام في طريقة العرض "تصميم" 3. قم بعرض صفحة خصائص الاستعلام بالنقر نقراً مزدوجاً فوق أي مكان خارج شبكة وخارج قوائم الحقول. 4. في مربع الخاصية عناوين_الأعمدة، اكتب عناوين الأعمدة التي تريد إظهارها في التقرير ، افصل بين كل منها بفاصلة منقوطة . إذا احتوى أحد الأعمدة على مسافة ، ضعها بين علامتي اقتباس مزدوجة (""). على سبيل المثال ، في استعلام يظهر المبيعات حسب ربع السنة ، يمكنك كتابة : الربع الأول؛ الربع الثاني؛ الربع الثالث؛ الربع الرابع 5.قم بإنشاء تقرير فارغ بحيث يكون منضماً إلى الاستعلام الجدولي. 6.قم بإضافة عناصر التحكم للحقول التي تريد إظهارها في التقرير. 7.ضع تسميات لعناوين الصفوف وعناوين الأعمدة في رأس الصفحة. 8.ضع مربعات نص لعناوين الصفوف وقيم الأعمدة في مقطع التفاصيل . المثال بعد التعديل : s3 .rar