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

السلام عليكم فليسمح لى اساتذتى بالمشاركة نظراً لتساوى ترتيب الاعمدة الخاصة بسبب الغياب فى كل صفحات العمل وكذلك صفحة الاحصائية السنوية لذلك يمكننا استخدام معادلة اكثر اختصاراً كهذه =SUMPRODUCT(SUMIF(INDIRECT("'"&$Z$1:$Z$12&"'!A5:A500");$A2;OFFSET(INDIRECT("'"&$Z$1:$Z$12&"'!AG5:AG500");;COLUMN(A1);;))) المرفق برنامج متابعة حضور وغياب الافراد والاجازات3.rar

من أروع ما قرأت في موضوع رضا الناس هذه القصيدة التي لم أقف على صاحبها ولا حتى عنوانها ضحكتُ فقالوا ألا تحتشـم؟ ........ بكيت فقالوا ألا تبتسم؟ بسمت فقالوا يرائـــــــــي ........ عبست فقالوا بدا ما كتم صمتّ فقالوا كليل اللسان ........ نطقت فقالوا كثير الكلم حلمت فقالوا صنيع الجبان ........ ولو كان مقتدرا لانتقم بسلت فقالوا لطيشٍ بــــه ........ وما كان مجترئا لو حكم يقولون شـــذٌ إذا قلـــت لا ........ وإمّعةٌ حين وافقتـــــهم فأيقنتُ أني مهــــــما أُرِدْ ....... رضا الناس لابد من أن أُذَم طبعا هذا يخص الناس الذين ليس لهم همٌ سوى تتبع أخطاء الناس وإظهار أخطائهم حتى وإن لم يخطئوا أما باقي المعتدلين من الناس فيستسحنون الفعل الحسن ويستقبحون الفعل القبيح

السلام عليكم ورحمة الله وبركاته برنامج الجدول المدرسي الاصدار الثاني مقدمة عامة عن عمل البرنامج: يصلح لجميع المدارس ايا كان نوعها في اي قطر من الاقطار العربية وذلك للميزات والامكانيات التالية: مميزات البرنامج 1 - عدد الحصص اليومية 12 حصة يتمدد وينكمش من 6 حصص الى 12 حصة. 2 - عدد ايام الاسبوع 7 ايام يتمدد وينكمش من 5 ايام الى 7 ايام. 3 - عمل قوائم للفصول لكل مدرس وامكانية التبديل بينها وبين قائمة كل الفصول. 4 - يتسع 120 معلم و120 فصل و120 مادة. 5 - التحكم في عرض اوراق المصنف يمينا او يساراً ========================= امكانيات البرنامج 1 - استخراج جداول الفصول (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 2 - استخراج جداول المعلمين (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 3 - استخراج جداول المواد(الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 4 - استخراج جداول اجمالي الفصول 5 - استخراج جداول اجمالي المعلمين الاعدادات الاولية في بداية العمل على البرنامج في الرئيسية 1 - غير العام وبداية العمل بالجدول في الخلايا D2:D3 2 - غير العناوين للمحافظة والادارة والمدرسة في الخلايا B6:B8 3 - اضغط زر حذف جميع البيانات لحذف جميع البيانات في المصنف 4 - ادخال اسماء الايام في جدول الاسبوع خمسة ايام افتراضية 5 - تحديث قائمة الحصص باختيار عدد الحصص التي تريدها في الرئيسية انشاء قوائم للفصول لكل مدرس في الصف المقابل للمدرس في الاعمدة F:O حول البرنامج برنامج مجاني الاصدار الثاني برمجة / خبور خير باستشارة الاستاذ / محمدي عبد السميع الذي سيقوم بالردعلى استفساراتكم خبور خير برنامج الجدول المدرسي الاصدار الثاني.rar

هذا جدول منقول من احدى المنتديات واجريت به تعديلات بمعرفتى لتتناسب مع مدرستى لذا يرجى من اساتذة المنتدى التعاون معى فى : فى شيت جدول المدرس اريد كل ما هو مكتوب باللون الاحمر يتغير حسب الوظيفة مادة التدريس وعدد الحصص وينطبق على جميع الثلاث جداول للطباعة لو امكن الحصة المكرر يتغير لونها باللون الاحمر فى شيت الفصل اريد زيادة الفصول فى القائمة المنسدله فى العمودn وهو ينتهى 8-3 وليس 7-1 كما اريد تكرار الجدول للطباعة على اثنين او ثلاثة

السلام عليكم إخواني الكرام ومع ثاني حلقة من سلسلة (من روائع الأعمال ) للأخ المغربي الغائب عنا جعفر طرباق أقدم لكم اليوم ملف يحوي على كود العدسة المكبرة .. أترككم مع الملف عله ينال إعجابكم .. لاغلاق العدسة كليك يمين عليها Close Me بس نصيحة بلاش حد يبص ع الأكواد عشان ميتعقدش !!! Magnifier.rar

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

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

اسفل هذا الحدث Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ضع هذه الجملة Me.TextBox1.Value = "" بين هاتين السطرين End If Me.TextBox1.Value = "" End Sub

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

أنا نسيت الموضوع ... الأخ الغالي سليم قدم لك حل بالمعادلات أعتقد يفي بالغرض ..

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

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

أخي الحبيب أبو يوسف بالفعل كما ذكرت في حدث فتح المصنف يتم إلغاء مفتاح الهروب Esc لئلا يتحايل المستخدم ويلغي الأكواد ثم يأتي السطر التالي Application.Visible = False ويقوم السطر بإخفاء التطبيق (تطبيق الإكسيل) ثم آخر سطر يقوم بإظهار النموذج (الفورم)

شكرا لادارة المندى تم حل المشكلة

جزاك الله خيرا اخي خالد الرشيدى

 السلام عليكم ورحمة الله وبركاته إخوتي الأكارم: نتابع من حيث وصلنا:كما يمكن وضع علامة * بدلاً من ظهور الأرقام كما أخبرنا الأستاذ الكريم ياسر في بداية هذا البحث من خلال خصائص النص PasswordChar نضع علامة* بجوارها وبالانتفال إلى زر الخروج CommandButton2 الذي نستكمل به أول نموذج والمخصص للخروج من البرنامج عندما لا يتم وضع كلمة مرور صحيحة Private Sub CommandButton2_Click() Dim pp pp = MsgBox("خروج نهائي من البرنامج . هل أنت موافق؟؟؟", 36, "!!! تحذير") If pp = 6 Then Application.Quit TextBox1.SetFocus End Sub حيث يودعك البرنامج بمثل ما استقبلك بكل حفاوة وتكريم عندها يصدر الأمر بإغلاق البرنامج هذا ما استطعت معرفته عن النموذج الأول Start Up والتي تعطينا الإذن بالدخول Sign In فمن كان من إخوتي لديه زيادة أو إضافة أو تنقيح لمعلومة وردت أو سقط منها سهواً فليبادر مشكوراً إلى إسعافي بها لإتمام هذه النقطة من البحث ثم الانطلاق إلى نقطة جديدة جديرة بالاهتمام كما سابقتها...والسلام عليكم بانتظار ردودكم ومشاركاتكم الكريمة.............

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر: مبارك عليكم هذا البرنامج وأرجو الله أن يُنتفَعَ به ...وأن يجزيك خير الجزاء ....وكما قلت أخي: لا تعطني سمكة ولكن علمني كيف أصطاد... درس نستفيد منه العبر...راجياً لكم التوفيق والسداد..والتطور والازدهار....آمين ...والسلام عليكم.

إخواني الكرام تم تحديث البرنامج في المشاركة الأولى نظراً لوجود بعض التطويرات الهامة في البرنامج تفضلوا بتحميل البرنامج من جديد

وعليكم السلام ورحمة الله جرب أخي الفاضل هذا التعديل عدد الحروف والكلمات مهم--edit.rar

الاخوة الكرام اليكم المرفق لعلة المطلوب تنوية :- الطريقة المستخدمة هى لمعلمنا عبد الله باقشير - جزاه الله خيراً - El rashedy listbox.rar

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

أخي الكريم ممكن تكبر حجم الخط شوية بالنسبة لطلبك روح للإجراء المسمى Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) في السطر الأخير قبل نهاية الإجراء وضع السطر التالي TextBox1.SetFocus بس خلاص

إليك التعديل التالي Private Sub CommandButton1_Click() Dim LColor On Error GoTo Error If TextBox1 = "" Then MsgBox ("أدخل نص في حقل البحث") Else Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate LColor = ActiveCell.Interior.Color ActiveCell.Interior.Color = vbYellow Application.Wait (Now + TimeValue("0:00:01")) ActiveCell.Interior.Color = LColor End If Exit Sub Error: MsgBox ("لا تتوفر نتائج للبحث") End Sub

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

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

إليك الطلب الأول Sub ConvertFormulaVBA() Dim LR As Long LR = Cells(Rows.Count, "D").End(xlUp).Row With Range("R8:R" & LR) .Formula = "=(T8*V8)/U8" .Value = .Value End With With Range("S8:S" & LR) .FormulaArray = "=Wish(D8:R" & LR & ",X12:Y23,3,14,15,10)" .Value = .Value End With End Sub بحيث لا تحدد آخر صف بنفسك بالنسبة للطلب الثاني إليك الكود Sub YasserKhalil() Dim rngData As Range, rngToCopy As Range, arrFilter, I As Long, J As Long Application.DisplayAlerts = False Application.ScreenUpdating = False If Len(Dir(ThisWorkbook.Path & "\Results", vbDirectory)) = 0 Then MkDir ThisWorkbook.Path & "\Results" End If Set rngData = Range("D7:S" & Cells(Rows.Count, "D").End(xlUp).Row) arrFilter = Application.Transpose(Range("X12:X" & Cells(Rows.Count, "X").End(xlUp).Row)) ReDim Preserve arrFilter(1 To UBound(arrFilter) + 1) arrFilter(UBound(arrFilter)) = "<>بدون توجيه" For I = 1 To UBound(arrFilter) ActiveSheet.AutoFilterMode = False rngData.AutoFilter Field:=16, Criteria1:=arrFilter(I) J = rngData.Columns(1).SpecialCells(xlCellTypeVisible).Count If J = 1 Then GoTo skipper Set rngToCopy = Intersect(Union(Columns("D:E"), Columns("R:S")), rngData.SpecialCells(xlCellTypeVisible)) Workbooks.Add With ActiveSheet.Cells .Clear .FormatConditions.Delete End With rngToCopy.Copy Range("B5").PasteSpecial xlPasteValues Columns(2).ColumnWidth = 11: Columns(3).ColumnWidth = 28: Columns(4).ColumnWidth = 10.5: Columns(5).ColumnWidth = 15 With Range("B2:E3") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .MergeCells = True .Font.Size = 20 .Value = IIf(I < UBound(arrFilter), arrFilter(I), "قوائم التوجهات الكلية") End With If I < UBound(arrFilter) Then Columns("E").Delete FormatRange ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Results\" & arrFilter(I) & ".xlsx" Else FormatRange ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Results\" & "قوائم التوجهات الكلية" & ".xlsx" End If ActiveWorkbook.Close skipper: Next I ActiveSheet.AutoFilterMode = False Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Sub FormatRange() With Range("B5").CurrentRegion .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 13 .Borders.Weight = xlThin .BorderAround Weight:=xlThick End With Range("B2").Select End Sub إذا كان فيه أي طلبات أخرى يرجى طرح موضوع جديد حيث أنه يفضل أن يكون كل موضوع لطلب واحد فقط ... وصل الموضوع هنا إلى 4 طلبات ( ......................)

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

الاخ ابو زهرة اذهب الى الرابط التالى فيه الموضوع http://www.officena.net/ib/topic/45425-لعبة-الصورة-المستخبية/ او الرابط التالى http://www.officena.net/ib/topic/45408-رانسى-تتحدى-فى-جدول-الضرب/

أخي العزيز ما رأيك في فلترة البيانات في ورقة أخرى عن طريق التضفية المتقدمة طبعا قمت ببعض التعديلات في عناوين الجدول فقد ألغيت دمج الخلايا المدمجة لأن الدمج يعيق عمل الأكواد وترقيم العناوين المتشابهة حتى لا يكرر الكود نتائج العنوان الأول في بقية العناوين المشابهة له اذهب إلى ورقة (Sheet2 (2 وستجد بأعلى الصفخة معايير للفلترة والبحث باللون الأصفر قم بتعبئتها بما تريد ليتم البحث على أساسها كما أن هناك الصف الثالث مخفي هو أساس المعيار للبحث ولكنه يجلب بياناته من الصف الرابع فتم إخفائه لاحتوائه على معادلات خاصة بالتاريخ حتى لا يتم حذفها عن طريق الخطأ المهم لاحظ المرفق إن شاء الله يكون هو المطلوب أم إذا أردت الفلترة في نفس الورقة فقم بعملية الفلترة التي يوفرها برنامج الأكسل فقط معادلات الجمع في آخر الجدول تحتاج تعديل ليتم جمع البيانات المفلترة فقط هذا والله الموفق Utility customs Follow-up 1 (Autosaved) (1).rar

اخي نور الدين وبعد اجمل تحية للجميع مثل ما ذكر الاستاذ جعفر تنسيق accdb انطلق من الاصدار 2007 فاصبح اسمه تنسيق 2007 ! لان الاكسس لديه تنسيق 2000 وتنسيق 2002- 2003 فيظهر في الاعلى ! ولو ذهبت الى ملف >> خيارات >> ستجد الخيار تنسيق الملف الافتراضي للقاعدة الجديدة وعلى الاكسس الحالي ! تحياتي

وعليكم السلام لا يوجد مشكلة الصيغة الجديدة للأكسس هي accdb ، وهي منذ الاصدار 2007 وفي اعتقادي اذا صار للأكسس صيغة جديدة ، فستحمل تاريخ الاصدار الجديد جعفر

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

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

ارجو النظر للموضوع ................................. (( لماذا غيرتم شكل بيتناً )) ...................... ليس كل جديد ممتع

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