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

أخي الكريم إليك التعديل التالي Sub FollowAll() Dim I As Long, lRow As Long Dim rngFound As Range Dim wsRecord As Worksheet, wsMonthly As Worksheet, SH As Worksheet Set wsRecord = Sheets("معلومات التسجيل"): Set wsMonthly = Sheets("مجمع النتائج الشهرية"): Set SH = Sheets("كشف متابعة") With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual End With With wsRecord For I = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(.Cells(I, "N")) Then If MsgBox("الطالب " & .Cells(I, "C") & " منقطع هل تود أن تطبع له كشف?", vbYesNo + vbMsgBoxRtlReading) = vbYes Then GoTo Continue Else: End If Else Continue: SH.Range("C1") = .Cells(I, "C") SH.Range("C4") = .Cells(I, "B") SH.Range("C5") = .Cells(I, "A") Set rngFound = wsMonthly.Columns("C:C").Find(What:=.Cells(I, "C"), searchorder:=xlByRows, searchdirection:=xlPrevious) If Not rngFound Is Nothing Then lRow = rngFound.Row If wsMonthly.Cells(lRow, "R") >= 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "N"): SH.Range("S4") = wsMonthly.Cells(lRow, "O") ElseIf wsMonthly.Cells(lRow, "R") < 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "L"): SH.Range("S4") = wsMonthly.Cells(lRow, "M") Else MsgBox "لا يوجد درجة للطالب " & .Cells(I, "C"), vbCritical End If End If SH.Range("C2").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$B$2:$B$6))" SH.Range("C3").Formula = "=IF(" & SH.Range("R4").Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & SH.Range("R4").Address & ",QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$D$2:$D$6))" SH.Range("C2:C3").Value = SH.Range("C2:C3").Value SH.PrintPreview End If Next I End With With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic End With End Sub

جرب الكود التالي عله يكون المطلوب طبعاً استخدمت معاينة الطباعة وليس أمر الطباعة للتجربة افحص النتائج بشكل جيد وأعلمنا بالنتائج هل صحيحة أم غير صحيحة Sub FollowAll() Dim I As Long, lRow As Long Dim rngFound As Range Dim wsRecord As Worksheet, wsMonthly As Worksheet, SH As Worksheet Set wsRecord = Sheets("معلومات التسجيل"): Set wsMonthly = Sheets("مجمع النتائج الشهرية"): Set SH = Sheets("كشف متابعة") With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual End With With wsRecord For I = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(.Cells(I, "N")) Then If MsgBox("الطالب " & .Cells(I, "C") & " منقطع هل تود أن تطبع له كشف?", vbYesNo + vbMsgBoxRtlReading) = vbYes Then GoTo Continue Else: End If Else Continue: SH.Range("C1") = .Cells(I, "C") SH.Range("C4") = .Cells(I, "B") SH.Range("C5") = .Cells(I, "A") Set rngFound = wsMonthly.Columns("C:C").Find(What:=.Cells(I, "C"), searchorder:=xlByRows, searchdirection:=xlPrevious) If Not rngFound Is Nothing Then lRow = rngFound.Row If wsMonthly.Cells(lRow, "R") >= 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "N"): SH.Range("S4") = wsMonthly.Cells(lRow, "O") ElseIf wsMonthly.Cells(lRow, "R") < 60 Then SH.Range("R4") = wsMonthly.Cells(lRow, "L"): SH.Range("S4") = wsMonthly.Cells(lRow, "M") Else MsgBox "لا يوجد درجة للطالب " & .Cells(I, "C"), vbCritical End If End If SH.PrintPreview End If Next I End With With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic End With End Sub

اخى الكريم جرب المرفق علة المطلوب الشيكات.rar

السلام عليكم الحل بالملف المرفق لنقل الجدول من A1:D50 لان المدى اللى انت كاتبه فى مضوعك F1:D50949 فاضى !!!!! ولو عايز تعدل فى مكان البيانات المنقولة عدل فى السطر ده من الكود Set rnReport = wsSheet.Range("A1:D50") Export Excel Table To word.rar

السلام عليكم روحمة الله وبركاته الى كافة الاعضاء المتميزين في هذا الصرح الكريم نبارك لكم بترقية الموقع وإن شاء الله دائما في تطوير وتحديث موضوعي اليوم هو كثير الاستفسار والاسئلة حوله وهي تحويل ملف إكسل الى صيغة ملف exe ومن خلال بحثي في الموقع شاهدت موضوع أخونا وأستاذي الكبير شوقي ربيع حول تحويل ملف اكسل الى صيغة exe والتعديلات التي أجراها أخونا ضاحي الغريب بارك الله فيه لكي يعمل الملف على كافة الانظمة رابط موضوع أستاذي شوقي ربيع http://www.officena.net/ib/topic/49169-شرح-تحويل-ملف-الاكسل-الى-exe-ثم-تغيير-الايقونة-ثم-setup-شوقي-ربيع/ وعندما شاهدت برنامج أخونا ضاحي الغريب والتميز الذي أنشائه في فكرة تصميمات الفورم وكيف نجعل إكسل ونجبره على فعل أي شي نريده في مجال البرمجة رابط برنامج أخي ضاحي الغريب http://www.officena.net/ib/topic/56375-برنامج-نور-التجاري-والخدمي-هدية-العام-الهجري-الجديد/ لف أنتباهي شي جميل جداً هو كيف عندما نقوم بتحميل الملف من الموقع وبعدها نقوم بتنزيل البرنامج على جهاز الكمبيوتر يفتح الملف : أولا : من غير مشاهدة واجهة إكسل 2010 أو 2007 ثانياً: تفعيل الماكرو والكودات تلقائياً لولا خبرتي المتواضعة في مجال الفورمات والتصميمات في هذا المجال لكنت قلت أن البرنامج مبرمج على بيئة فيجوال بيسك من غير الاكسل ولكن هو طبعا ملف إكسل فنرجو من الاستاذ الكبير والساعي للخير دائما في مجال تسهيل العلم لطالبه ضاحي الغريب أن يعلمنا بالظبط ماهو الكود الذي أجبر إكسل على تفعيل الماكرو تلقائيا والامر الثاني كيف لم تظهر نافذة إكسل وظهرت نافذة لمدة ثانية واحدة أو اقل وهي مكتوب فيها الرجاء الانتظار باللغة الانكليزية وبعدها مباشرة ظهر فورم البرنامج قصة التحويل الذي ذكره أخونا شوقي ربيع سهل ولكن ظل عند تحويل الملف وبعدها تثبيته وفتحه ظهر ملف إكسل وبعدها قمنا بتفعيل الماكرو أختفى ملف إكسل مباشرة وظهر الفورم كان لدي منذ فترة بعيدة حوالي سنتين أو أكثر موضوع في هذا المجال ولم تكن الاجابات على قدر المستوى الرجاء ثم الرجاء من أخونا ضاحي الغريب الشرح حول هذين الطلبيين وكيفية تفعيلهم في برامج اكسل لأنه أجهر حاليا برنامج نسأل الله عزوجل أن يكون متميزا وجديد في فكرته وهو برنامج محاسبة المصانع الذي يعمل وفق (محاسبة التكاليف) برنامج متكامل بكافة التفاصيل من ناحية الحسابات وادارة الموظفين والفواتير والايصالات والتقارير المالية والمخزون نسأل الله عزوجل أن يكون الموضوع متفاعل من قبل الاستاذ ضاحي الغريب وباقي الاعضاء ونطلب من إدارة الموقع تثبيت الموضوع نظراً لاهميته من نواحي عديدة منها حماية الحقوق للمبرمج صور من البرنامج المذكور شاركوني رأيكم في التصميم والبرمجة في الموضوع لكي يكون سهل المنال لاي شخص يسعى للعلم والمعرفة

السلام عليكم ورحمة الله وبركاته مرفق ملف موضح به معادلة تفقيط التاريخ للفائدة تفقيط تاريخ.rar

اخى محمد يرجى وضع مرفق للعمل عليه وذلك تيسرا على الاخوه الاعضاء فى مساعدتك على العموم ضع هذه الاكواد داخل الفورم لعلها تكون ماتريد Private Sub UserForm_Activate() With Me.ListBox1 .AddItem "ابراهيم" .AddItem "محمد" .AddItem "ابراهيم" .AddItem "ابوليله" End With End Sub Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then MsgBox "h" TextBox1.Value = ListBox1.Column(0) End If End Sub تقبل تحياتى

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

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

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

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات للاطفال هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فالف مليون تحية اعزاز وتقدير لكل القائمين علي خدمة المنتدي من اساتذة وخبراء ومشرفين واعضاء الشرف والاعضاء المميزين والاعضاء والضيوف ايضا احب ان انوه في البداية .... انه في منتدي الباوربوينت موضوع باسم ( لعبة الصورة المستخبية ) للاستاذ / مجدى يونس .. جزاه الله خيرا بنفس الفكرة تقريبا وعندما رأيتها اعجبت ابنتي ( سما ) كثيرا .... علي الرابط التالي ... والفكرة في الاصل بالطبع للاستاذ / مجدي ... حقوق الطبع محفوظه ( طبعا ) http://www.officena.net/ib/index.php?showtopic=45425 ولكن لعشقي الرهيب الشديد للاكسيل فقررت ان اقوم بتصميمها علي الاكسيل وها هي بين ايديكم كل ما عليك في اللعبة هو ان تضغط علي الزر الموجود اسفل الصورة يظهر لك جزء منها وكل ضغطة يظهر جزء آخر وعندما تتعرف علي الصورة اختار اسمها من الاجابات الموجودة بالاسفل ستظهر لك الصورة بالكامل ويتم الانتقال للصورة التالية و....... اترككم مع اللعبة ...بلاش كلام كتير ..... ارجو ان تحوز علي اعجابكم ارجو من كل خبراء واساتذة واعضاء ورواد هذا الصرح العملاق ( جامعة اوفيسنا ) ابداء الرأي في هذا العمل ... جزاكم الله خيرا لعبة الصورة المستخبية - اكسيل.rar

السلام عليكم ورحمة الله تفضل اخي عبدالعزيز تفقيط التاريخ في مربع نص بالفورم والخلايا بالشيت إن شاء الله يكون ماطلبت تفقيط التاريخ علي تكست بالفورم والخلايا بالشيت.rar

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

السلام عليكم شاهد احد ابداعات علامة المنتدى عبدالله باقشير http://www.officena.net/ib/topic/36524-فورم-لحفظ-نسخة-من-الملف/?do=findComment&comment=193395

السلام عليكم و رحمة الله وبركاته اخي ابو جنا - ادخل الى تنسيق الخلايا Format - Ctrl+1 - اختار التبويب حماية Protect وهو آخر تبويب - الغي التأشير الموجود على خيار مخفيةHiden وبهذا يمكنك التعديل باستخدام F2 jpdhjd

الأستاذ / ياسر تحيه طيبه بداية أشكر حضرتك وآسف أن كنت سببت لك ازعاج لكن اود ان هذا ليس بأسلوب للتعامل مع مشكله قمت بعرضها وليس أسلوب للحل ان كانت هذه هي الطريقه في التعامل وعموما انا دقيق في كلامى وقولت اللى حصل عندى وقولت كمان يمكن المشكله علشان انا باستخدم office 2003 وشكرت حضرتك هنا ونفس الرساله أرسلتها لك على الخاص ليس لكى تقوم بالحل ولكن لأبلاغك خوفا من عدم الأطلاع عليها هنا ويا اخى الفاضل مرفق صوره بعد تشغيل الملف والملف نفسه دليل على صدق كلامى ... ولا تفهم كلامى انى عاوز حضرتك تحل المشكله خلاص انا مش عاوز حل ولا تعديل في الملف ... انا خلاص درس اتعلمته انى طالما انا اللى طالب فما تجود به سيادتك لازم اتقبله من حضرتك باى شكل ودون معارضه او ابداء اى راى واخير اً انا بعتذر لحضرتك وبعتذر انى كمان طرحت الموضوع من الأصل صوره من النتيجه.rar

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

وعليكم السلام لفتح اي نموذج : DoCmd.OpenForm "اسم النموذج" لفتح سجل جديد داخل النموذج : DoCmd.GoToRecord , , acNewRec

اخى الكريم استخدم المعادلة التالية علها المطلوب فكرة عمل الدالة البحث بشرط التاريخ يكون 1/1 بالنسبة للعميل الموجود بالخلية C4 بشيت كشف الحساب فى شيت واحد وارجاع القيمة من عمود المدين او الدائن ايهما لا يساوى صفر للمدين =VLOOKUP(DATE(YEAR(C3);1;1)&$C$4;IF({1,0};Sheet1!C5:C500&Sheet1!D5:D500;Sheet1!E5:E500);2;0) للدائن =VLOOKUP(DATE(YEAR(C3);1;1)&$C$4;IF({1,0};Sheet1!C5:C500&Sheet1!D5:D500;Sheet1!F5:F500);2;0) ملحوظة هامة جداً هذه معادلة صفيف بعد كتابتها يتم الضغط على CTRL+CHIFT+ENTER وليس انتر وحدها جرب المرفق وابدى ملاحظاتك كشف حساب مع الطباعة_2.rar وانصحك اخى الكريم ان يكون كشف الحساب من خلال كود وليس معادلات لكى يصبح الملف خفيف فقد لاحظت بطئ فى الملف بسسب المعادلات الكثيرة المستخدمة

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

السلام عليكم ورحمة الله قمت بالتعديل المطلوب واعذرنى مرة اخرى على التاخر التعديل a8.rar

ان شاء الله ارفع المرفق مساء بعد الانتهاء

السلام عليكم وفقكم الله الحل بديع - حفظكم الله ممكن حفظ الصور استنادا الى انشاء تسلسل معين يدل على صاحب الهوية - وان الصور موجودة في بارتيش D:| صور السلام عليكم

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

تعنى انك تريد ان تعكس الطريقة تحدد لكل مدرس الدورات التى يستطيع تمريرها بدلا من ان تحدد لكل دورة مدرسيها واذا كان الامر كذلك فهل تريد ان تحدد لكل مدرس عدد من الدورات ام تريده حسب المساقات

الحمد لله المشكلة انحلت يوجد نموذج جديد اسمه tbldwaratsubform وهو مستخدم فى نموذج المساقات ويوجد نموذج فرعى اعلى نموذج المساقات لكنه مخفى ويستخدم لمعرفة المدرسين لكل دورة a8.rar

السلام عليكم أخي وصوما مقبولا بإذن الله ياريت تحط الملف الذي يحتوي على الكود المراد جعله دائم في كل ملفات الإكسل ويمكنك للمعرفة أيضا الإطلاع على الموضوع التالي http://www.officena.net/ib/index.php?showtopic=62229#entry402735

السلام عليكم عدم ترك خلية في الصف فارغة يمين العمود بمعادلة في ( التحقق من الصحة ) طلب للاخ دغيدي عدم ترك خلية فى الصف فارغة.rar

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

السلام عليكم ورحمة الله أخي الكريم جرب إضافة الجزء التالي إلى الكود في المكان الذي تغير فيه رقم الشهر: =Month(Date) أتمنى أن ينجح الأمر معك... أخوك بن علية

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

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