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

هذه محاولتي . DD226.accdb

Me.TextBox52.Value = Evaluate("SUM(0+(O10:O" & Cells(Rows.Count, "O").End(xlUp).row & "<>""""))") مني 3.xlsm

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

غير الجزء التالي If Weekday(Cells(4, i)) > 5 ليصبح If Weekday(Cells(4, i)) = 6

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

وهذه لمسة جمالية بالتنسيق الشرطي 🙂 قائمة قابلة للزيادة حسب عدد السجلات.accdb

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

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

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

عمل رائع استاذ @kkhalifa1960

حل الأستاذ موسى لا غبار عليه ، وهو بلا شك من المخضرمين في المنتدى ، إلا أنها كانت ليس الفكرة المطلوبة . ورغم ذلك فهو من أساتذتي الذين أعتز بالتعلم من خبرتهم.

تفضل أخي حل ثاني بفورم2 . أنا لا أخشى الصدمات .......... متعود . DD226-1.accdb

Private Sub CommandButton14_Click() Dim ColNum As Long, MyValue As String, Col As Range MyValue = Me.TextBox50 ColNum = 15 If Me.TextBox50 = "" Then: Exit Sub Set Col = ActiveSheet.Columns(ColNum).Find(what:=MyValue, LookIn:=xlValues, lookat:=xlWhole) If Not Col Is Nothing Then Me.TextBox51 = WorksheetFunction.CountIf(Columns(ColNum), MyValue) Else MsgBox "غير موجود" Me.TextBox50 = Empty End If End Sub مني 2 (2).xlsm

هذه ليست محاولة ، هذا إبداع ما بعده إبداع . والله إنه ليس بالجديد على عمالقتنا وعباقرتنا في هذا المنتدى ؛ نتعلم منكم كيف نوجد الحلول بطرق رهيبة سأعتمد وأقوم بالتعديل على فكرتك ( بعد إذنك طبعاً ) لتتماشى مع باقي الفكرة التي في مخيلتي وهي إنشاء الزر تلقائياً مع حدث عند النقر 😁 بوركت أستاذي @kkhalifa1960

تفضل جرب ووافينا بالنتيجة مستخلصات هيكل2023 الجنوبية 3.xlsm

والله شئ طيب جدا وفيه عبقرية جزاك كل خير استاذ خليفة

هو كان طالب منك وظيفة كل زر بالتفصيل ... يعني شرح

تفضل أخي طريقة أخرى DD225.Accdb

الف مبارك وجزاكم الله خيرا جميعا على جهودكم في هذا المنتدى الرائع. نسأل الله التوفيق للجميع. مبارك لكم @عمر ضاحى والاخ @Foksh

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

ربما يفيدك هذا الموضوع بالتوفيق

بعد اذن الأخوة المشاركين في الوصول للحل المطلوب محالف للمرفق أعتقد المطلوب البحث في جدول 2 عن الرقم القومي الموجود في جدول 1 وكتابة المرتب من العمود L إلى العمود E في نفس الشيت الأول وإذا كان هذا المطلوب فعلا فيكطم استخدام معادلة بحث عادية vlookup أبسطها =IFERROR(VLOOKUP(B3,$I$3:$L$15,4,0),0) بالتوفيق البحث.xlsx

ما الارهاق في استعمالك للمعادلات؟؟؟؟ اللهم إلا إذا كنت تقصد إرهاق الآلة أو ربما تقصد ألا تتعب نفسك في تكملة المعادلات وتريد حلا كاملا جاهزا من أحد الإخوة (مجانا) المنتدى تعليمي وإعطاء الفكرة لمن يريد أن يتعلم نصف الحل بالتوفيق

خير الكلام ما قل و دل ابدعت ابدعت و انرت الطريق للجميع بسطور معدودة سهلة الفهم و بكفرة ابداعية خارجة عن المألوف

اتفضل اتنمي ده ما تريده ما تم عمله كود جبل البيانات من الجدول او الاستعلام ووضع جميع السجلات فى سطر واحد للعرض وتخزينها فى المتغير xTEXT Dim db As DAO.Database Dim rst As DAO.Recordset Dim xTEXT As String Dim delimiter As String Set db = CurrentDb Set rst = db.OpenRecordset("TablTest", dbOpenDynaset) xTEXT = "" delimiter = " - " With rst Do While Not .EOF xTEXT = xTEXT & ![ID] & " " & ![TextName1] & " " & ![TextName2] & " " & ![TextName3] & delimiter .MoveNext Loop .Close End With Set rst = Nothing db.Close Set db = Nothing If Right(xTEXT, Len(delimiter)) = delimiter Then xTEXT = Left(xTEXT, Len(xTEXT) - Len(delimiter)) End If AutoText.Caption = xTEXT وهذا الكود يتم وضعه فى حدث عند التحميل ثم نأتي لكود التحريك لمربع التسميه فى حدث عند عداد الوقت Private Sub Form_Timer() AutoText.Caption = Mid(AutoText.Caption, 2) & Left(AutoText.Caption, 1) End Sub وخلاص كده ^_^ واتفضل ملف للمراجعه شريط اخبار مصدره جدول.rar

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

بارك الله فيكم جميعا ومن تقدم إلى تقدم ان شاء الله

هذه محاولة في الوصول للحل تعتمد على تقسيم الاسم إلى الاسم ثنائي وثلاثي ورباعي تم وضع معادلاتها يمكنك وضع معادلات العمود B والمقارنة بأربع مستويات بدالة match مثلا أولها تطابق الاسمين في العمود A & B وفي حالة الخطأ تتم المقارنة بين عمودين الاسم الرباعي وفي حالة الخطأ تتم المقارنة بين عمودين الاسم الثلاثي واعتمادا على نتيجة المقارنة تكتب الحالة بالتوفيق نموذج طلب مقارنة.xlsx

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

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

السلام عليكم جرب الكود التالي Sub Test() Dim sRow As Long, eRow As Long sRow = 8: eRow = 19 With ActiveSheet .Range("D" & sRow & ":D" & eRow).Value = .Range("F" & sRow & ":F" & eRow).Value .Range("E" & sRow & ":E" & eRow).Value = 0 End With End Sub

أخي الكريم أبو يوسف النجار يرجى وضع الأكواد بين أقواس الأكواد لتظهر بشكل مناسب جرب الكود التالي للذهاب إلى أول خلية في العمود بها بيانات Sub NavigateToFirstNonBlankCell() With Columns("A") .Find(what:="*", After:=.Cells(1, 1), LookIn:=xlValues).Activate End With End Sub تقبل تحياتي

السلام عليكم الاخ الفاضل leprince2007 هذا الكود يقوم بنسخ من مسار تحددة في الكود وملف الاكسل والورقة من الملف تحددها والمدى يقوم بالنسخ والملف مغلق ولاكن ؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟ لملف واحد فقط Private Function GetValue(path, file, sheet, ref) Dim arg As String If Right(path, 1) <> "\" Then path = path & "\" If Dir(path & file) = "" Then GetValue = "File Not Found" Exit Function End If arg = "'" & path & "[" & file & "]" & sheet & "'!" & _ Range(ref).Range("A1").Address(, , xlR1C1) GetValue = ExecuteExcel4Macro(arg) End Function Sub TestGetValue2() '==================================== p = "C:\temp" ' المسار احد الاقراص فقط دون ملف الاكسل '==================================== f = "ALI2011.xls" ' إسم ملف الإكسل فقط '==================================== s = "ورقة1" ' إسم الورقة المراد نسخ احد البيانات منها '==================================== Application.ScreenUpdating = False '==================================== For r = 1 To 100 ' هنا حلقة التكرار تعبر عن الصفوف من صف رقم واحد حتى صف رقم 100 '==================================== For c = 1 To 12 ' هنا حلقة التكرار تعبر عن الاعمدة من عمود رقم 1 حتى عمود رقم 12 '==================================== ' ======================= ' المدى ككل من A1:L100 '======================== a = Cells(r, c).Address Cells(r, c) = GetValue(p, f, s, a) Next c Next r Application.ScreenUpdating = True End Sub هذا الكود سبق ان ذكرة الاستاذ القدير والمعلم الكبير محمد طاهر تحياتي

ايضا بنفس الطريقة يتم نقل البيانات من عدة ملفات الي الملف الذي اسمه 2.xls اتبع ايضا نفس الخطوات السابقة مرفق الملف بالرابط التالي نقل البيانات من ملف اخر.rar

عزيزي راعي الرحل هل هذا ما تقصده مفيد برنامج الجداول المدرسية.rar

أخي أبو أكرم أنت فعلا تأخذ العقل حبيبي بارك الله فيك. أشكرك على المساندة والمساعدة لإخوانك بهذا المنتدي الذي نحن فيه لهذا السبب. وأشكر كل من قام بالمرور والتعليق في الموضوع. وأحب أن أضيف معلومة صغيرة: أنه يوجد برنامج يتحكم بأي ملف إكسل تريده ليجعله كملف تنفيذي دون الحاجة لتمكين وحدات الماكرو. وهذه ملفات محسّنة بالمرفقات. الملف (3Times Only) نفس الملف القديم ولكن به تغيير بسيط. الملف (New Chance) يعطي فرصة جديدة أي يصفر العملية من جديد. 3_Times_Only.rar New_Chance.rar

تحياتى الى الاخوة التعديلات التى تمت 1 - تم عمل شريط ادوات بدلا من الازرار الموجودة فى الصفحة الرئيسية 2 - تم تخطى رسالة الخطأ بعض النصائح للتعامل مع البرنامج : 1- البرنامج ينتج عدد ستة ملفات من النتائج والكشوف لتعرف اين انت دائما انظر الى شريط العنوان العلوى سيخيرك فى اى ملف انت . 2 - لتغير الشكل المرسوم حول الدرجة دون حد النجاح اتبع الاتى من الصفحة الرئيسية اختار طلب له مواد دور ثانى عن طريق احد القوائم المنسدلة الثلاثة اضغط مفتاحى CTRL + INSERT ستحصل على احد الاشكال الخمسة المحددة بالبرنامج اختار ما تراه مناسبا لك . اما لمن اراد الاطلاع فيمكنة استخدام بعض المفاتيح الخفية لأظهار او اخفاء جميع الاوراق المخفية اضغظ المفاتيح الثلاثة الاتية معا CTRL + SHIFT + F1 تحياتى لكم لم استطع رفع الملف وتم الاتصال بلأستاذ محمد طاهر ليتكرم مشكورا بوضعه فى هذه المشاركة Prim_Sch2.rar

أرفق لكم هذا الرابط الذي قمت بتنزيله يقوم بإضافة قائمة للأكسيل بها منافع كثيرة جدا جدا نفعنا الله وإياكم بها ASAP-utilities

بسم الله الرحمن الرحيم المرفقات : omar.rar

السلام عليكم ورحمة الله وبركاتة تحياتى للجميع المرفقات : ملف شريط ادوات أوفيسنا للأدوات الذكية النسخة 02. Command_Bar_Officena_v.02.rar تحياتى للجميع

بسم الله الرحمن الرحيم تحياتى للجميع وكل عام وانتم بخير لقد وجدت ان عدد الادوات الذكية سيبدأ فى الازدياد فقررت عمل ملف واحد يشمل كل الادوات بدلا من تحميل ملف لكل اداه وهو عبارة عن شريط ادوات ويسمى شريط أوفيسنا للأدوات الذكية ويحمل كل الادوات السابقة مع بعض الزيادات وسوف يستوعب الكثير من الادوات واليكم طلريفة استخدامة المرفقات ملف شريط أوفيسنا للأدوات الذكية تحياتى للجميع OfficenaCommandBar.rar

بسم الله الرحمن الرحيم تحياتي للجميع تم تعديل الأداة الثالثة من مجموعة : أدوات الحلول الذكية ( الأداة :: تلوين السطور الفردية أو الزوجية ) تم اضافة المفتاح (3 F ) لتلوين السطور الفردية و الزوجية فى آن واحد . تحياتي لكم جميعا ملف تلوين السطور الفردية و الزوجية بعد التعديل في المرفقات LineOneTowColor.rar

بسم الله الرحمن الرحيم تحياتي للجميع اليوم معنا الأداة الثالثة من مجموعة : أدوات الحلول الذكية الأداة :: تلوين السطور الفردية أو الزوجية هذه الاداة تقوم بتلوين نطاق محدد او مجموعة صفوف . وفى حالة الغاء بعض السطور بعد تلوينها لن تحتاج الى اعادة ضبط الوان السطور مرة اخر فهذه الاداة تقوم بأدراج صيغة التلوين باستخدام التنسيق الشرطى صيغة التلوين لمن اراد الاطلاع صيغة تلوين السطور الفردية =MOD(ROW()-1;1*2)+1<=1 صيغة تلوين السطور الزوجية =MOD(ROW()-2;1*2)+1<=1 طريقة الاستخدام: قم بفتح ملف الإكسيل المراد تلوين بعض سطوره قم بتشغيل ملف تلوين الصفوف الموجود بالمرفقات إذا لم يذهب بك إلى ملفك الأول اذهب إليه حدد مجموعة خلايا أو عدة صفوف اضغط مفتاح (1 F ) لتلوين السطور الفردية اضغط مفتاح (2 F ) لتلوين السطور الزوجية اختار اللون من قائمة الالوان تحياتي لكم جميعا ملف تلوين السطور الفردية او الزوجية في المرفقات LineOneTowColor.rar

بسم الله الرحمن الرحيم تحياتى للجميع الاخوة الاعزاء nse gamalin الجزيرة skyblue ادم أبوعبدالله شكرا لكم جميعا جزاكم الله كل خير فى هذا الشهر المبارك اعاده الله على امة الاسلام باليمن والبركات إن شاء الله تحياتى للجميع بسم الله الرحمن الرحيم تحياتي للجميع اليوم معنا الأداة الثانية من مجموعة:أدوات الحلول الذكية الأداة:: إكسيل كاميرا هذه الكاميرا تقوم بتصوير اى جزء من ملف الإكسيل أيضا بضغطة زر واحدة وأقوم يأستخدامها في معظم الشروح الخاصة بى . طريقة الاستخدام: قم بفتح ملف الإكسيل المراد تصوير بعض الأجزاء منه قم بتشغيل ملف الكاميرا الموجود بالمرفقات إذا لم يذهب بك إلى ملفك الأول اذهب إليه حدد مجموعة خلايا أو عدة صفحات متتالية اضغط مفتاح (1 F ) للتصوير ستجد ملف باسم ملف الإكسيل ذو نهاية ( jpg ) في نفس الفلدر الذي تعمل منه قم بفتح الملف الصورة ستجد صورة الجزء الذي قمت بتحديده حدود مساحة الصورة : يجب إلا تتعدى المساحة المختارة لتصويرها عن 500 سطر بعرض الشاشة أو ما يعادلها. تحياتي لكم جميعا ملف الإكسيل كاميرا في المرفقات Omar.rar

مرفق نسخه غير محميه تحياتي ______________.rar

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