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

وعليكم السلام تم زيادة الخلايا وبالفعل لدى القائمة المنسدلة الإستكمال التلقائى وهو بمجرد كتابة الحرف الأول وفتح سهم القائمة سترى الأسماء التى تبدأ بهذا الحرف ولا يمكن عمل أكثر من هذا فى موضوع القائمة المنسدلة بارك الله فيك تم التعديل هنا قائمه منسدله مطاطية تقبل البحث فيها بدون تكرار وبدون فراغات.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

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

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

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

شكرا اخي ...

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

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

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

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

لاخذ العلم فقط كل عامود من اكسل 16 يحتوي على 1,048,576 صف وليس 148,000 فقط (اي 7 مرات اكثر مما تتوقع يا صديقي وسام) واذا اكتمل العامود يمكنك الانتقال الى عامود اخر من نفس الصفحة الذي يحتوي على نفس العدد من الصفوف (هناك 16,384 عامود) اي ما مجموعه 1,048,576 × 16,384= حوالي 17 مليار و 180 مليون خلية (سكان الارض ثلاث مرات) هذا الكلام في كل صفحة(Worksheet) من نفس المصنف (Workbook) فما بالك اذا كان المصنف يحتوي على 100 بل 1000 صفحة للتأكيد هذا الماكرو Sub test() Range("b1") = Range("a:a").Rows.Count & " Rows in each column" Range("b1").WrapText = False Range("b2") = Rows(1).Rows.Columns.Count & " columns in each row" Range("b2").WrapText = False End Sub

جرب هذا التعديل لعله يفي الغرض 123.xlsx

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

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

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

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

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

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

تفضل بثلاث خيارات وليس خيارين أم القرى ميلادي هجري ::بالتوفيق:: Kaser906تحويل التاريخ11.rar

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

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IF(AND(C1="",D1=""),"",IF(C1=D1,"متزن","غير متزن")) دالة if بأربع شروط.xlsm

طالما لم تقم برفع ملف اكسيل مع شرح كل المطلوب بكل دقة فيمكنك الإستعانة بهذا الرابط https://www.officena.net/ib/topic/91873-مساعدة-في-عهدة-مخزون-تسليم-واستلام-وتقارير/?tab=comments#comment-575657

تفضل تم وضع معادلة استاذنا الكبير سليم له منا كل المحبة والإحترام فى ملفك Book11office.xlsx

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

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

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

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

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

أهلا بك اخ كريم فى المنتدى تفضل لك ما طلبت tarheel1.xlsm

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

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

ممتاز دالة رائعة جعله الله فى ميزان حسناتك

وعليكم السلام ولكن كان عليك رفع الملف نفسه تجنبا لإهدار الوقت ولكن تفضل هذه الدالة المعرفة لعمل اللازم-لابد من وضعها فى مديول جديد Function Reversestr(str As String) As String Reversestr = StrReverse(Trim(str)) End Function واذا كان مثلا هذا التاريخ موجود بالخلية B2 فعليك كتابة هذه المعادلة فى خلية أخرى =Reversestr(B2)

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

وعليكم السلام تفضل لك ما طلبت فورم بحث .xlsm

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

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