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

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

تم التعديل على اماكرو كما تريد Option Explicit Sub del_last_4() Dim cel As Range For Each cel In Range("F5", Range("M4").End(4)) If IsNumeric(cel) And _ cel <= 4 And _ Range("N" & cel.Row) = "مكمل" Then cel = vbNullString Next End Sub

جرب هذا الماكرو Option Explicit Sub del_last_4() Dim cel As Range For Each cel In Range("F5", Range("M4").End(4)) If IsNumeric(cel) And _ cel <= 4 Then cel = vbNullString Next End Sub

تفضل يمكنك ذلك عن طريق هذا الكود Private Sub SpinButton1_spinUp() Range("NUMERO").Value = SpinButton1 TextBox1.Value = Format(Range("NUMERO").Value, "0") End Sub Private Sub SpinButton1_spinDown() Range("NUMERO").Value = SpinButton1 TextBox1.Value = Format(Range("NUMERO").Value, "0") End Sub زر زيادة ونقصان في فورم2.xlsm

أحسنت أستاذ سليم بارك الله فيك وزادك الله من فضله وكل عام وانتم بخير

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

السلام عليكم من سلسلة معلومة في اكسس استخراج الاجمالي بواسطة دالة Dsum واستخراج العدد الكلي بواسطة دالة Count أتمنى لكم الفائدة dsum.accdb

بالتوفيق اخي الشربيني123 الله يسعدك

تسلم اخي الشربيني 123 جرب هذا =DCount("[المرحلة]";"الطالب";"[المرحلة]=4 and [الصف]=" & [الصف] & " ")

عليك السلام ورحمة الله وبركاته جرب هذا 123.xlsx

ممكن تختصر الكود هكذا تمهيدي =DCount("[المرحلة]";"الطالب";"[المرحلة]=1") ابتدائي =DCount("[المرحلة]";"الطالب";"[المرحلة]=2") اعدادي =DCount("[المرحلة]";"الطالب";"[المرحلة]=3 ") ثانوي =DCount("[المرحلة]";"الطالب";"[المرحلة]=4") ونصيحه ابتعد عن التسميات باللغه العربيه من الجدول والحقول والنماذج وكل شي اللغه العربيه تعمل مشاكل كثير في الاكواد وغيرها حال ولو ترمز لها بحرف انجليزي وابتعد عن اللغه العربيه اتفضل دعوة طيبة بظهر الغيب بيان.accdb

بارك الله فيك ورحم الله والديك استاذنا الكريم

كل عام وانتم بخير وعيد سعيد عليكم جميعا بارك الله فيك استاذنا الكريم وجزاك الله خير الثواب

تفضل يمكنك استخدام هذا الكود Private Sub CommandButton2_Click() Dim str As String Dim i As Long For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then If str <> vbNullString Then str = str & ", " str = str & ListBox1.List(i) End If Next TextBox2.Text = TextBox2.Text & " " & str End Sub ليست بوكس.xlsm

الأمر في غاية البساطة عليك بعمل الخطوة التي تراها بالصورة

بارك الله فيك استاذنا الكريم على هذا البرنامج و كلمة السر للدخول : bin7shr بعد اذن استاذنا الكريم bin7shr تم رفع الملف فى المشاركة الأصلية لكى تعم الفائدة استاذنا الكريم عبدالله الصاري الملف يعمل وقد تم رفعه يمكنك تحميله من هنا مباشرة ويمكنك ملاحظة كل الإستفسارات من فيديو الشرح الموجود فى المشاركة الأصلية ولكن دائما عند محاولة تغيير كلمة السر من داخل البرنامج تظهر هذه الرسالة كما بالصورة

شكرا اخي ...

جرب المرفق تغيير كامل حقل يوزر في الجدول حسب الاسم المختار في النموذج aceess55.accdb

واضح أستاذ @kha9009lid لذلك اعتقد ان الامر سيكون مستحيل ومع ذلك شكرا لك لاهتمامك الكبير ولوقتك الثمين لكن هذا لايعني انك ستتخلص مني هناك المزيد والكثير من الأسئلة ان شاء الله

استاذ عبد اللطيف تمت اضافة الكود لكن الامر لم ينجح والمشكلة قائمة بانتظار ردكم وشكرا

اشكرك أستاذ وجيه على مرورك ولكما بمثل ما دعوتما

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

اشكرك اخي الشربيني الكود هو عد لي عدد المرحلة اللي في جدول الطالب بشرط المرحله= ١ وهكذا نعم تقد تعدل الكود كما تشاء

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

الاخ الاستاذ د.كاف يار المحترم وهو المطلوب ... شيء رائع ... جزاك الله خير ... الاستاذ خالد kha9009lid والاستاذ ابو محمد kaser906 المحترمون اشكركم جزيل الشكر لماقدمتموه من حلول مفيدة ورائعة وباكثر من طريقة جزاكم الله خير الجزاء ...

اللهم استر عبدك أبو ياسين ..وابعد عنه الهم والحزن هو اسرته كما يبعد عن عبادك الحيرة والهم وزده علما ونورا .. مليون مليون شكر لك والله فرحتني وجزاك الله خيرا عنا

شكرا دائما ً مبدع أستاذ سليم حاصبيا .... هذا هو المطلوب جزاك الله خيراً

شكرا لك اخي العزيز, لكن فكرتي هي في حال عدم وجود اتصال بالانترنت عند المستخدم

اخي الكريم قاعدة البيانات المرفقة بما انها تحتوي على رموز لأسماء الأعمدة ستجد صعوبة في التعامل معها انت تريد التنسيق المستحسن لقاعدة البيانات انشئ جدول باسم الأطراف ( رقم الطرف - .............. بيانات الاطراف) انشئ جدول اسم القضايا ( رقم القضية / القيد - رقم الطرف الأول - رقم الطرف الثاني - ..... باقي البيانات) ** يفضل و بشدة ان تكون المسميات باللغة الانجليزية تهجئة عربية و حروف انجليزية ** رقم الطرف مفتاح اساسي ** عمل علاقة طرفية بين الجدولين تفضل هذا المقترح Database1.accdb

اخي الكريم فقط قم باضافة docmd.quit تفضل التعديل test_quit.accdb

اتفضل Expr1: Nz(DSum("[الرصيد الافتتاحي]";"اطراف الفاتورة";"[باركود]='" & [باركود] & "'")) هذا حسب كودك والاصح هو بدل الرصيد الافتتاحي يكون الرصيد الاولى هكذا Expr1: Nz(DSum("[الرصيد الاولي]";"اطراف الفاتورة";"[باركود]='" & [باركود] & "'"))

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

ارفق الملف حتى يمكن معرفة الخلل

توجد عدة طرق اخي الفاضل وفي المرفق مثال جميل للاستاذ عبد اللطيف سلوم تظهر كافة الحقول الفارغة برسالة واحدة قاعدة بيانات1.accdb

تم التعديل على المعادلة والملف السابق

تفضل لك ما طلبت-كما قلت لك سابقا لابد من ضبط تنسيق الرقم القومى مش عارف ليه الموضوع صعب كده معك يا استاذ على فقط كان عليك ضبط التنسيق مع تثبيت الجزء الموجود بالمعادلة الخاص بالصفحة الأخرى اى وضعه بين علامة الدولار كما تلاحظ المعادلة المفروض والصح تكون هكذا =IFERROR(VLOOKUP(A2,'رقم الموظف'!$A$1:$G$130,5,0),"") Pay-aht_moustafa-20190802-040908.xlsx Pay-mttks_magdi-20181011-082233-2019 - Copy.xls

كان عليك من البداية رفع الملف لكى تكون المساعدة أدق ولكن مثلا ضع هذا الكود في كوماند بوتن Enter في الفورم Private Sub CommandButton2_Click() UserForm1.Hide Application.Visible = True Sheets("Sheet8").Select End Sub

تم معالجة الامر وتعديل المعادلات للحصول على سرعة أفضل اذ ليس من المعقول ان تأخذ جدولا من b4 الى xfd4 ونزولاً على كل الصفوف اي أكثر 17 مليار خلية (عدد سكان الارض ضرب 3) لتبحث من خلاله على خلية واحدة الكود Sub trasnfer_data() Dim DE As Worksheet, D As Worksheet Dim My_ro% Set DE = Sheets("Data Enter"): Set D = Sheets("Data") My_ro = D.Cells(Rows.Count, 3).End(3).Row With D .Cells(2, 1).Resize(My_ro, 64).Interior.ColorIndex = xlNone .Range("C" & My_ro + 1) = DE.[k8] .Range("N" & My_ro + 1) = DE.[k10] .Range("BV" & My_ro + 1) = DE.[k12] .Range("BM" & My_ro + 1) = DE.[k14] 'ok '============================= .Range("F" & My_ro + 1) = DE.[I16] .Range("Br" & My_ro + 1) = DE.[O16] .Range("E" & My_ro + 1) = DE.[AD6] '=========================== .Range("R" & My_ro + 1) = DE.[Af8] .Range("D" & My_ro + 1) = DE.[AD10] .Range("Q" & My_ro + 1) = DE.[ad12] .Range("G" & My_ro + 1) = DE.[ad14] .Range("J" & My_ro + 1) = DE.[ad16] .Cells(My_ro + 1, 1).Resize(, 64).Interior.ColorIndex = 6 End With End Sub الملف My_Salary .xlsm

وعليكم السلام عليك برفع ملف وشرح المطلوب بالتفصيل

وعليكم السلام ولإثراء الموضوع يمكنك استخدام هذه المعادلة =IFERROR(INDEX($D$3:$D$29,MATCH(C33,$C$3:$C$29,0)),"")

أحسنت استاذى الكريم بارك الله فيك عمل رائع

وعليكم السلام تفضل Test2.xlsx

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

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

اهلا بك اخ كريم فى المنتدى -كلمة السر موجودة بالمشاركة الأولى الرقم السرى للدخول الى البرنامج هو 123

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

يمكن يكون نسخة الإكسيل لديك اعلى من النسخة المرسل اليها الملف بارك الله فيك

لو الخطأ مع معادلتى انا فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات لكى تعمل المعادلة بكل دقة لأنها معادلة مصفوفة وليست معادلة عادية بارك الله فيك

أحسنت استاذ شريف معادلة رائعة ولإثراء الموضوع هذا حل اخر بمعادلات المصفوفة دالة تحسب المبالغ بدلالة الشهر والسنة وذلك من التاريخ 1.xlsx