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

تم معالجة الامر بواسطة الكود ( الكود اوتوماتيكي يعمل بمجرد ما تختار اي رقم ) ولا حاجة لاستدعاءه بواسطة زر صفحة Salim من هذا الملف الكود Sub By_Macro() Dim s As Worksheet Dim D As Worksheet Dim F_rg As Range Dim ro% Set s = Sheets("Salim"): Set D = Sheets("Data") s.Cells(6, 4).Resize(, 5).ClearContents If s.Cells(6, 3) = vbNullString Then Exit Sub Set F_rg = D.Range("A1").CurrentRegion.Columns(1). _ Find(s.Cells(6, 3), LookIn:=xlValues, lookat:=1) If F_rg Is Nothing Then Exit Sub ro = F_rg.Row s.Cells(6, 4).Resize(, 5).Value = _ D.Cells(ro, 2).Resize(, 5).Value End Sub report_Ali_New.xlsm

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

تمام، تم الأمر بنجاح، أغلقت الورد وفتحته، وفعلا حدد كل المواضع.🌹

آمين وإياكم أخي الحبيب أبو عاصم. لو تكرمت أرجو منك مشاهدة الفيديو التالي: https://drive.google.com/file/d/1BcPXp_stTNcvoDlbgd74MHEkoherob3H ملحوظة: بعد التحديد جرب أن تقوم بالتلوين حتى لو ظهر لك أنه حدد عبارة واحدة فقط.

وهذه مشاركة مع الاستاذ. @Shivan Rekany >>>>>>> Kan_324.accdb

من فضلك اخى الكريم لا تبخل بنجاح المشاركة فليس هناك وجود لأى مشاركة الا بعد تدعيمها بملف مشروح فيه كل المطلوب بكل دقة والا فكان عليك لزاماً استخدام خاصية البحث بالمنتدى قبل رفع هذه المشاركة طالما انك لم تقم برفع ملف !!! ولا تقول ان المشاركة بسيطة لا تحتاج لكل هذا ... فان كان طلبك بسيط لأستطعت انت بنفسك حله ولا احتجت لمساعدة الأخرين فى حل مشكلتك وتفريج كربتك تفضل هذا الكود Sub Unhide_All_Sheets() Dim ws As Worksheet ActiveWorkbook.Unprotect For Each ws In Worksheets ws.Visible = xlSheetVisible Next End Sub وهذا كود أخر Sub Unhide_All_Sheets_Count() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If wks.Visible <> xlSheetVisible Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count > 0 Then MsgBox count & " worksheets have been unhidden.", vbOKOnly, "Unhiding worksheets" Else MsgBox "No hidden worksheets have been found.", vbOKOnly, "Unhiding worksheets" End If End Sub وهذا كود ثالث Sub Unhide_Selected_Sheets() Dim wks As Worksheet Dim MsgResult As VbMsgBoxResult For Each wks In ActiveWorkbook.Worksheets If wks.Visible = xlSheetHidden Then MsgResult = MsgBox("Unhide sheet " & wks.Name & "?", vbYesNo, "Unhiding worksheets") If MsgResult = vbYes Then wks.Visible = xlSheetVisible End If Next End Sub وهذا كود رابع Sub Unhide_Sheets_Contain() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If (wks.Visible <> xlSheetVisible) And (InStr(wks.Name, "report") > 0) Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count > 0 Then MsgBox count & " worksheets have been unhidden.", vbOKOnly, "Unhiding worksheets" Else MsgBox "No hidden worksheets with the specified name have been found.", vbOKOnly, "Unhiding worksheets" End If End Sub اختر منهم ما يناسبك عرفت ان كده اهدار للوقت لأنك لم تقم من البداية برفع الملف فالخطأ عندك ,فالملف لم تقم بوضع اى كود به-تفضل بعد وضع الكود يعمل بكل كفاءة مثال.xlsm

تفضل -يمكنك استخدام هذه المعادلة =COUNTIFS($B$4:$B$28,I$4,$C$4:$C$28,"*"&$H5&"*") SAME1.xlsx

جرب هذا الملف Ab_Kassem.xlsx

بوركت اخي و الحمد لله ان تم الامر على خير

جرب المرفق 100.xlsm

غادر الصفحة ثم ارجع اليها

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

التصفية يقصد فيها اظهار سجلات وفق معايير محددة ولكن انت حسب فهمي ترغب في جملة شريطة لاستخراج التقدير المستحق للطالب حسب الدرجة اذا كان فهمي صحيح ممكن عمل ذلك بالعديد من الطرق ولكن دائما الحل الاسهل اقرب الى الذهن وسوف اشرح ذلك باستخدام طريقتين الطريقة الى الاولى باستخدام دالة IIf ولها وسيطتين اذا حضر الطالب الاختبار فهو ناجح او راسب Expr1: IIf([الدرجة] Between 90 And 100;"ممتاز";IIf([الدرجة] Between 89 And 75;"جيد جدا";IIf([الدرجة] Between 74 And 64;"جيد";IIf([الدرجة] Between 63 And 50;"مقبول";"راسب")))) الطريقة الثانية باستخدام الدالة Switch وتتميز بتعدد الاحتمالات دون الحاجة لتكرار كتابنها ويكون الكود على النحو التالي Expr2: Switch([الدرجة] Between 90 And 100;"ممتاز";[الدرجة] Between 89 And 75;"جيد جدا";[الدرجة] Between 74 And 65;"جيد";[الدرجة] Between 64 And 50;"مقبول";[الدرجة]<50;"راسب") ومرفق مثال للطريقتين Database1391.accdb

تمام، سلمت يداك.

السلام عليكم ورحمة الله وبركاته اساتذتي الاعزاء شفان الريكاني و kanory المحترمين شكرا جزيلا على الجهود التي بذلتموها وكانت الاجابات متقاربه وقريبه من تحقيق المطلوب جزاكم الله عنا خير الجزاء الاستاذ husamwahab جزاك الله عنا خير الجزاء وجعل ذلك في ميزان حسناتك . وفيت وكفيت . تحياتي لك اخي العزيز

جرب هذا الملف report_Ali.xlsm

لديك حق استاذ سليم ... فقد قمت سابقاً بتحميل الملف , والملف يعمل معى بكل كفاءة ويستخرج القيم المطلوب بكفاءة عالية ... بارك الله فيك استاذنا الكريم حقاً وصدقاً كده تكون المشكلة لدى صاحب المشاركة وأعتقد ان طلبه قد تم ويجب غلق المشاركة لعدم تشتيت الأساتذة والخبراء

الظاهر ان المشكلة عندك في الــ Windows جرب ان تنفذ الماكرو من جهاز اخر او دع احد غيرك يحمل الملف ويجربه

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

السلام عليكم ورحمة الله ضع هذا فى نهاية الكود السابق Me.Text1 = "" Me.Text2 = "" Me.Text3 = "" Me.Text4 = "" Me.Text5 = "" Me.Text6 = "" ثم قم باضافة هذا الكود Private Sub SpinButton1_Change() Set ws = Sheets("mark") For i = 9 To 1000 If Me.ComboBox1.Value = ws.Cells(i, 3).Value Then Me.SpinButton1.Value = i + 1 Me.ComboBox1.Value = ws.Cells(i + 1, 3).Value Exit For End If Next End Sub

وعليكم السلام-تفضلى goto the page with pass1.xls

اتمنى لك دوام التوفيق والنجاح

السلام عليكم اخي الكريم ما شاء الله برنامج اكتر من رائع بس في ملاحظه عندي سعر الشراء يظهر للبائع هل في طريقه لاخفاءه وشكرا لك

مشاركة مع اساتذتي الاعزاء تفضل هذه المحاولة ارجو ان تكون طلبك ملاحظة : العمل يتم من خلال النموذج الرئيسي aaa.rar

وعليكم السلام-لكى يتحقق ما تريد عليك بإستخدام هذه المعادلة =(INT(A2)+(A2-INT(A2))*100/60)*C2 الأضافى1.xls

غدا ان شاء الله راح ارجع لك اتفضل الان المصدر هو استعلام ASALKL وتقدر تعمل فرز في القاعدة السابقة والحالية ايضا اتفضل اليك ملف بعد تعديل تاريخ الواصل (1).rar

السلام عليكم مبدئيا هذا حل باستعمال دالة مستحدثة (تم تسميتها Reversestr)... في الملف المرفق... 1 (3).xlsm

برنامج الكنترول المدرسي اليمني إهداء لكل مدارس اليمن – مجاني ولا يسمح المتاجرة به . المهام يقوم البرنامج بالمهام التالية : إحصائيات حافظة الدوام إقرار بالقوى العاملة بيانات هيئة التدريس طباعة بيانات الشهادات الرسمية سجل توزيع الكتب كشف أسماء الطلاب خاص بيانات ورصد الطلاب تقسيم الشعب سجلات الغياب الرصد الشهري كشوف المحصلة الأولى والثانية شيت كنترول نصفي وآخر كشوف المناداة نصفي وآخر دليل الطالب نصفي وآخر دليل سري نصفي وآخر استمارة تفريغ درجات نصفي وآخر كشوف نهائية نصفي وآخر أوائل نصفي العام وآخر نتيجة نصفي وآخر تحليل مواد على مستوى الشعب نصفي وآخر رفع درجات نصفي وآخر خلاصات عامة وصف ومواد إعداد أرقام الجلوس والأرقام السرية الحساب التراكمي للمدارس التي تعمل بالحساب التراكمي يمكن تحميل البرنامج المحدث من الرابط التالي : https://cutt.us/ur8My للاخوة مستخدمي برنامج الكنترول المدرسي والسكرتارية يمكنكم التواجد بهذه المجموعة على الواتساب ليصلكم كل جديد عن البرنامج ولتلقي ملاحظاتكم . https://chat.whatsapp.com/Cxlu6FtAS6QL9G2ddVcgEB

السلام عليكم ورحمة الله تم تحضير الملف الذي اقترحته عليك في ردي السابق وقد وضعت فيه المثال الذي ذكرته في ردك السابق (في الصف الرابع) حيث أن: تاريخ التعيين هو 20/01/2011 والتاريخ 19/05/2011 الذي تم تحديده قبل تاريخ 20/05/2011 والرصيد هو 0 كما تريد (والرصيد يبقى ثابتا بين أي تاريخ والتاريخ الذي يليه بعد 4 أشهر)... أرجو أن تفي الغرض المطلوب... وأعتقد أن الملف عملي هذه المرة إذ يعتمد الرصيد على تاريخين فقط (تاريخ التعيين في العمود A والتاريخ المختار من العمود B)... بن علية حاجي Kitap6.rar

الاخوة الافاضل : ابو الحارث سعد عابد محمود اشكركم جزيل الشكر الاستاذ الفاضل محمد صالح شكرا على الكود الجميل اخي الحبيب ابو نصار اشكرك على الكود الجميل ===================================== هذا ايضا كود تغيير حجم صورة بتغير قيمة خلية Option Explicit Option Compare Text Public ScrWidth&, ScrHeight& Declare Function GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex&) As Long Sub SizePic() Dim SizeFactor, x SizeFactor = Range("A1").Value ActiveSheet.Shapes(1).Width = SizeFactor * (GetSystemMetrics32(0)) End Sub تغيير حجم صورة حسب تغير قيمة خلية.rar

وهذا كود تغير اسم الورقة النشطة Sub Renamed_SH() alidroos_sh = Application.Dialogs(xlDialogWorkbookName).Show End Sub