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

بغض الخطوات التي يجب اتباعها قيل تنفيذ الماكرو الجدول يجب ان يكون مستقلاً غن اي خلايا لا علاقة له بها لذلك 1- تم تفريغ الصف رقم 5 من اي شيء واخفاءه (لعدم الكتابة فيه غن طريق الحطأ) 2- تم تفريغ العامودين ( D و L ) من اي شيء واخفاءهما (لعدم الكتابة فيهما غن طريق الحطأ) 3- الماكرو يأخذ بعض الوقت ليكمل عمله (جوالي 10 ثواني -- حسب سرعة الحهاز عندك) لان البيانات كثيرة جداً 4- الصفحات الأحرى موجودة لكن تم اخفائها لمتابعة عمل الماكرو (بكمن اعادة اظهارها) الكود Option Explicit Dim i%, Lr%, k% Dim Filer_Rg As Range Dim Mon_Array(), Itm '++++++++++++++++++++++++++++++++++++++++ Sub ADD_Sheet() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With With Tousi3 Lr = .Cells(Rows.Count, "H").End(3).Row If Lr < 7 Then Exit Sub For i = 7 To Lr If Application.CountIf(.Range("H2:H" & i), _ .Range("H" & i)) = 1 Then ReDim Preserve Mon_Array(k) Mon_Array(k) = .Range("H" & i) k = k + 1 End If Next For i = 7 To Lr If Not Application.Evaluate("ISREF('" & _ .Range("H" & i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = _ .Range("H" & i) End If Next End With End Sub '++++++++++++++++++++++++++++++++++++++++ Sub Filter_Please() ADD_Sheet Dim Rg As Range, Ro% Tousi3.AutoFilterMode = False Set Filer_Rg = Tousi3.Range("E6").CurrentRegion For Each Itm In Mon_Array Sheets(Itm).Range("B3").CurrentRegion.Clear Filer_Rg.AutoFilter 4, Itm Filer_Rg.SpecialCells(12).Copy With Sheets(Itm).Range("B3") .PasteSpecial (8) .PasteSpecial (11) End With Set Rg = Sheets(Itm).Range("B3").CurrentRegion Ro = Rg.Rows.Count If Ro > 1 Then With Sheets(Itm).Range("A4").CurrentRegion .Cells(2, 1).Resize(Ro - 1).Value = _ Evaluate("Row(1:" & Ro - 1 & ")") .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14 .Font.Bold = True .Interior.ColorIndex = 35 .Rows(1).Interior.ColorIndex = 6 End With End If Next Tousi3.AutoFilterMode = False Tousi3.Select With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق marwa41.xlsm

السلام عليكم ورحمة الله وبركاته بعد اذن استاذنا العزيز جعفر استبدل السطر myWhere=myWhere & " And [StartDate]=#" & [StartDate] & "#" بهذا myWhere = myWhere & " And [StartDate]=#" & Format([StartDate], "yyyy\/mm\/dd") & "#"

وعليكم السلام اخوي ابو الكرم 🙂 الآن تذكرت موضوع سابق مع اخونا السهران ، وصادفت نفس مشكلة التاريخ ، فقمت بعلاجها بطريقة تشبه طريقتك ، عن طريق الدالة DateFormat : هدية: استخدام التاريخ بطريقة تعمل مع مجموعة السجلات - قسم الأكسيس Access - أوفيسنا (officena.net) وعليه ، يصبح الكود : Dim myWhere As String myWhere = "[pc]='" & [Text0] & "'" myWhere = myWhere & " And [StartDate]=" & DateFormat([StartDate]) myWhere = myWhere & " And [txt]='" & [Text2] & "'" DoCmd.OpenForm "Table1", acNormal, , myWhere, acReadOnly, acNormal . اخوي السهران : رجاء ، دائما استخدم الدالة في برامجك (او طريقة اخرى مثل ما وضع اخوي ابو الكرم) ، لأنه دائما تصير لك مشكلة مع التاريخ في برامجك🙂 جعفر __nbm2.zip

فيه فاصلة ناقصة في الكود اعلاه: dim myWhere as string myWhere="[pc]='" & [Text0] & "'" myWhere=myWhere & " And [StartDate]=#" & [StartDate] & "#" myWhere=myWhere & " And [txt]='" & [Text2] & "'" DoCmd.OpenForm "Table1", acNormal,, myWhere , acReadOnly, acNormal ولكني لاحظت ان تنسيق التاريخ عندك مختلف من الجدول الى النموذج الاول الى النموذج الثاني ، فعملت تنسيق واحد للجميع في المرفق 🙂 جعفر __nbm2.zip

مقال اعجبني المصدر اكتشف قاعدة 10/90 ربما ستغير لك حياتك.. على الأقل ردود أفعالك تجاه مواقف معينة ماهي هذه القاعدة ؟ عشرة في المائة فقط من الحياة تتشكل من خلال ما يحدث لنا، و الـتسعون في المائة من الحياة يتم تحديدها من خلال ردود أفعالنا . ماذايعني هذا؟ معنى هذا الكلام أننا في الواقع ليس لدينا القدرة على السيطرة علىال 10% مما يحدث لنا , فنحن لا نستطيع منع السيارة من أن تتعطل أو الطائرة منالوصول متأخرة عن موعدها.. مما سيؤدي ذلك إلى إفساد برنامجنا بالكامل.. أو سائق ماقطع علينا حركة المرور أو السير ، فنحن في الواقع ليس لدينا القدرة على التحكمبـ10% و لكن الوضع مختلف مع الـ90 % ، فنحن من يقرر كيف يمكن أن تكون الـ90 % كيف ذلك ؟؟ عن طريق ردود أفعالنا نحن لا نستطيع التحكم في إشارةالمرور الحمراء ، و لكن نستطيع السيطرة على ردة فعلنا ، لا تدع الآخرون يجعلونكتتصرف بحماقة، أنت تستطيع أن تقرر ماهي ردة فعلكالمناسبة دعونا نستخدم هذا المثال كنت تتناول طعامالإفطار مع عائلتك و فجأة أسقطت ابنتك الصغيرة فنجان القهوة على قميص عملك. لم يكنلك دور فيما حدث هنا ولكن ماسوف يحدث لاحقا سيتقرر حسب ردة فعلك بدأت بالصراخو الشتم و قمت بتوبيخ ابنتك.. فأخذت الطفلة في البكاء ، ثم استدرت إلى زوجتك موبخاإياها لوضعها الفنجان على حافة الطاولة ، و بعد مشادة لفظيه قصيرة بينكما، اندفعتإلى الطابق العلوي و قمت بتغيير قميصك و من ثم عدت إلى الطابق السفلي ، فوجد أنابنتك قد انشغلت بالبكاء عن إنهاء فطورها و الاستعداد للمدرسة ، و نتيجة لذلك فاتهاباص المدرسة و زوجتك كان لابد أن تغادر لعملهااضطررت إلى إيصال ابنتكبسيارتك الخاصة إلى المدرسة ، و بما أنك متأخر قدت سيارتك بسرعة 40 ميل في الساعةمن أصل 30 ميل في الساعة كحد أقصى.. و بعد 15 دقيقة تأخير و دفع مخالفة مروريةبقيمة 60 دولار وصلت إلى المدرسة.. ركضت ابنتك إلى مبنى المدرسة دون أن تقول لك معالسلامة و بعد و صولك إلى المكتب متأخراً 20 دقيقة ، وجدت أنك قد نسيتحقيبتك ها هو يومك بدأ بصورة سيئة و استمر من سيء إلى أسوء.. بعد عودتك إلىالمنزل تجد توترا في العلاقة بينك وبين زوجتك وابنتك لماذا ؟؟ بسبب ردود أفعالك منذ الصباح لماذا كان يومك سيئا؟؟ أ) هل هو بسبب القهوة ؟؟ ب) هل هو بسبب إبنتك ؟؟ ج ) هل هو رجلالشرطة ؟ د )هل أنت سببت لنفسك ذلك؟ الإجابة هي : د لم يكن لك دخلأو سيطرة على حادثة الفنجان ولكن ردة فعلك في الخمس ثواني التالية هي من تسببت في إفساد يومك هنا هو ما كان ممكن وينبغي أن يحدث : فنجان القهوة وقع عليك، و بدأت ابنتك بالبكاء.. و قلت لها بكل لطف: لابأس يا عزيزتي.. و لكن كوني في المرة القادمة أكثر حذراً و انتباه تتناولالمنشفة وتسرع إلى الطابق العلوي.. تستبدل قميصك وتتناول حقيبة أوراقك وثم تعود إلىالطابق السفلي في الوقت المحدد لترى ابنتك من النافذة و هي تصعد إلى حافلة المدرسةملوحة بيدها لوداعك تصل إلى عملك مبكراً بـ 5 دقائق و تحيي زملائك بكل مرح وابتهاج.. ويبدي رئيسك تعليقا حول يومك الرائع لاحظت الفرق؟ يوجد سيناريوهانمختلفان لهما نفس البداية ،ولكن نهاية مختلفة لماذا ؟؟ بسبب ردةفعلك هنا بعض الطرق لتطبيق قاعدة ال 10/90 إذا فالأحد الأشخاص: بعض الأشياء السيئة عنك ، فلا تكن مثل الأسفنج.. بل دع الهجوم يسيلعليك مثل الماء على الزجاج ...و لا تسمح للتعليقات السلبية أن تؤثر عليك فردةالفعل الإيجابية لن تفسد يومك ، بينما ردة الفعل السلبية قد تؤدي إلى فقدانكللأصدقاء أو فصلك من العمل و تكون في حالة من العصبية و الإرهاق ..... إلخ كيفتكون ردة فعلك إذا قطع عليك أحد الأشخاص حركة السير ؟؟ هل تفقد أعصابك ؟؟ هل تضربمقود السيارة بقوة حانقا. أحد أصدقائي أسقط مقود السيارة هل تشتم؟؟ هل يرتفع ضغطدمك عاليا؟؟.. من سيهتم إذا وصلت إلى العمل متأخراً بعشر ثواني ؟؟ لماذا تسمحللسيارات بإفساد قيادتك ، تذكر قاعدة الـ 10/90 و لا تقلق لما سيحدث لكَ بعدذلك قيل لك بأنك فقدت وظيفتكَ ... لماذا الغضب و الانزعاج و الأرق ؟؟؟ .استغلطاقة القلق ووقتك في إيجاد وظيفة أخرى تأخر إقلاع الطائرة ، وأفسد ذلك برنامجكَاليومي.. لماذا تصب جام غضبكَ و إحباطكَ على مضيفة الطائرة ؟؟ هي ليس لديهاالقدرة على التحكم في موعد وصول الطائرة استغل وقتكَ في الدراسة أو التعرف علىمسافر آخر.. التوتر لن ينتج عنه إلا تعقيد أوضاعك وجعلها إلىالأسوأ وفي النهاية طبق قاعدة 10/90 وستدهشكالنتائج , لن تخسر شيئا إن حاولت قاعدة 10/90 مذهلة والقليل من الناس من يعرفهاويطبقها في حياته والنتيجة ؟الملايين من الناس تعاني من إرهاق وإجهاد لامبرر له ومحاكم ومشاكل في القلب إذن علينا جميعاً أن نفهم ونطبق هذهالقاعدة حياتك عندها ستتغير المصدر

تسلم يا عبقرى

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

في العامود K لا يتعير شيء المعادلات تعمل في الصفحة الرئيسية و تنقل الى باقي البشيتات قيمتها فقط وذلك لتقليل حجم الملف من حيث عدد المعادلات فيه (اذ يمكن ان يتخيل الانسان 20 صفحة زيادة (حسب عدد العملاء) و في كل واحدة اكثر من 50 معادلة) فلماذا لا نجعل الاكسل يرتاح من حسابها

السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. ااجمالى كميات السولار.xlsm

تفضل ..... Me.an = Me.القائمة27.Column(1) Me.an1 = Me.القائمة27.Column(2) Me.an2 = Me.القائمة27.Column(3) Dim db As DAO.Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("my_q") rs.AddNew rs!a = Me.القائمة27.Column(1) rs!b = Me.القائمة27.Column(2) rs!c = Me.القائمة27.Column(3) rs!h = Me.المعرف rs.Update rs.Close Set rs = Nothing DoCmd.SetWarnings False DoCmd.RunSQL "DELETE w.q, w.w, w.e FROM w WHERE (((w.q)=[forms]![my_z]![an]) AND ((w.w)=[forms]![my_z]![an1]) AND ((w.e)=[forms]![my_z]![an2]));" DoCmd.SetWarnings True MsgBox "تم اضافة البيانات", vbInformation DoCmd.Requery استخدمنا هذا الكود .... test (12).accdb

تم معالجة الأمر لا لزوم لادراج معادلات الا في العامود E ابتداء من الخلية E7 تم ادراج تواريخ عشوائية للتأكد من عمل الماكرو بشكل صحيح marwa_New_1.xlsm

هذه يمكن ان تعمل لها وحدات نمطية ، بدل كتابتها في الاستعلام مباشرة 🙂 جعفر

جزاكم الله خيرا ... هو المطلوب

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

يمكن عمل هذا الشيء اذا اردت من خلال كلمة سر و بدون Check Box كلمة السر في المثال Salim Fatur(NEW_1).xlsm

طلبك علي ما اعتقد Fatur(NEW).xlsm

و كيف تظهره في حال الحاجة اليه؟؟؟ الذي يختفي هو الزر delete وليس Check Box

الاستاذ سليم حاصبيا اذا اخفي Check Box فما فائدة وجود زر المسح و Check Box

وعليكم السلام-تفضل أسماء جميع العاملين بالمدرسة.xlsm

السلام عليكم.. في البداية شكرا لكل من قام بالرد على موضوعي السابق في وقتنا الحاضر ارى ان اغلب البرامج في السوق هي من هذا النوع وللأسف لم اجد التفاعل الكبير معها، خصوصا في موضوعي في الأعلى عموما، قمت ببرمجة برنامج صغير لإدارة المخزن، وانتضر منكم التجربة للوقوع على الأخطاء ومحاولة تصحيحها علماً، ان النسخة مؤقتة وسوف تُغلق بعد تصحيح الأخطاء. باسورد فتح البرنامج = 313 تحياتي للجميع. store_manager.rar

أضف الى اليوزر زر واكتب له كود (كما في الصورة) الملف مرفق عندما تريد مسح اي بيانات حدد من الليست بوكس ما تريد حذفه ثم اضغط الزر Delete Fatur.xlsm

وعليكم السلام 🙂 تستطيع ان تفتح ملف الـ pdf عن طريق برنامج قارئ الـ pdf ، ثم تحفظ الملف بصيغة نص txt ، ولكن شركة ادوبي حذفت اوامر التحكم من قارئهم المجاني ، فلا يمكنك استعماله !! تستطيع استعمال برنامج وسيط مثل البرنامج المجاني pdftotext والذي يمكنك انزال الحزمة الكاملة (مع برامج اخرى لإستخراج الصور ووو من ملف الـ pdf) بواجهة ، من هنا : http://www.xpdfreader.com/download.html اما الحزمة التي نريدها فهي التي يمكن ان نتحكم بها عن طريق ارسال الاوامر من الاكسس عن طريقة CommandLine : https://dl.xpdfreader.com/xpdf-tools-win-4.02.zip طريقة استعماله : http://www.xpdfreader.com/pdftotext-man.html تستطيع استعماله عن طريق الامر Shell من الاكسس 🙂 جعفر

استاذ جعفر @jjafferr بالرغم من روعتها الا انها طريقة قاتلة انظر الى هذا المثال المشابه MultiLingualSample.zip

تحياتى لأستاذنا الفاضل بن عليه نعم كلامك صحيح 100 % جرب الملف ده لم أجربه بعد التعديل معنديش 64 64 توزيع الملاحظة.rar 64 توزيع الملاحظة.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى الغالي تحية عطرة لكل المشرفين والأعضاء في مقتبل الدخول على الامتحانات تظهر أفكار جديدة لأعمال المراقبة والكنترول إلخ.. وصدر إكسيل يسع بما فيه الكفاية على ما أعلم!!!! أريد في الملف المرفق توزيع كشوف الملاحظة ( عدد 2 مراقب في كل لجنة ) ( عدد اللجان 7 لجان ) ( عدد المراقبين 16 ، يعني فيه 2 احتياطي ) في الصفحة Torch يوجد توزيع مجمع لجميع أيام الامتحانات ، تعلمته من رجل خبير في أعمال الكنترول(جزاه الله عنا خير الجزاء ) المطلوب ( عشان أنا طولت عليكم وصدعت دماغكم ودوشتوكم وخلتكم خلاص ناويين تتركوا الموضوع وما تردوش عقاباً لي ) معلش رغاي شويتين!!! المطلوب : توزيع أيام الامتحانات بشكل يومي ، كل فترة على حدة ، كما هو موضح في المثال في الصفحة Dis ( المثال لفترة واحدة فقط ) برجاء الإسراع والمسارعة حيث أننا على شبابيك الامتحانات عاشق الإكسيل ______________.rar