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

بسم الله والحمد لله ولا اله الا الله والله اكبر الحمد لله رب العالمين الحمد الله الذى تتم بنعمته الصالحات شكر وتقدير لكل معلمينا فى هذا الصرح الشامخ على وجه العموم وشكر خاص لكل من المعلمين [ ابو خليل , جعفر , يوسف , رمهان , ابا عمر , رضوان , عبد الرحمن هاشم , ابو الاء , علي المصري , راعى الغنم , اخر الارض ] على وجه الخصوص واختص اصحاب البرامج اومن قدم يد العون والمساعده فى تطويرها والاضافة اليها نظام المستخدمين الخاص بالاستاذ مهند العبادى تعديل العبد الفقير الى الله اضافة التحكم بالعناصر لكل مستخدم ضمن نظام المستخدمين الاستاذ ابو خليل تصغير القاعدة بجوار الساعه مع الاحتفاظ بأيقونة الاكسس عند التكبير على شريط المهام وعدم ظهور الاطار عند الضغط عليها الاستاذ ناصر - تعديل الاستاذ ابا عمر البحث والفلترة وتظليل ناتج البحث ---- الأستاذ رمهان والاستاذ اباعمر اخفاء اطار الاكس نهائيا - الاستاذ ابا عمر http://im56.gulfup.com/0Q9Ybe.jpg اهاا نسيت شئ اسم كل مستخدم هو نفسه الباسورد لفتح القاعده المرفق بعد تعديل عناوين الراوبط ليشمل كل من تنسيق اوفيس 2000-2003 Access Loge in Hide Win2000-2003.rar وتـــــــــنسيق اوفيس 2007-2013 Access Loge in Hide Win 2007-2013.rar << تم تحديث الروابط (الإدارة) >>

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

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

لو أمكن إرفاق الملف للبحث في سبب المشكلة فليس منطقيا أن يحدث هذا وليس لنا معرفة السبب بدون فحص

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

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

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

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الكريم استاذ ياسر ودائماً الى الامام بكل ماهو جديد ومميز واسمح لي ان اوضح لاخونا السائل الاستاذ محيي الدين عن اول ما جال بخاطري عن هذا الكود احيانا قد نحتاج الى عرض تقرير معين لحساب معين باكثر من متغير كالتاريخ او اسم من قام بتسجيل البيان او ... او ... الخ وهو امر سهل وبسيط ومتعارف عليه ولكن ماذا لو كان المطلوب هو تقرير معين لاكثر من حساب وبمتغيرات محددة ؟؟؟ وهنا تبرز فائدة الكود وللتوضيح اكثر لنفترض ان لدينا قاعدة حفظ بيانات ( عبارة عن قيود يومية ) ولنفترض انني اريد عمل تقرير لمجموعة حسابات منتقاة كل حسب كوده في دليل الحسابات وذلك خلال فترة معينة لنوعية القيود التي تحمل النوع PAYABLES وتم اختيار ارقام الحسابات عن طريق ليست بوكس MULTI SELECTION وتم وضع هذه الارقام في صفحة محددة بشكل عمودي ولتكن صفحة بمسمى مؤقت وبتنفيذ الكود بالشكل التالي نحصل على المطلوب اولا : عمل تقرير لآخر رقم حساب في صفحة مؤقت وادراجه في صفحة التقارير ثانياً : حذف آخر سطر من صفحة مؤقت ثم تكرار الكود بنفس الخطوات مع مراعاة لصق النتائج الجديدة في آخر سطر بصفحة التقارير حتى يتم حذف كل ماهو موجود في صفحة مؤقت وبذلك نكون قد حصلنا على تقرير لاكثر من حساب مختار وباكثر من متغير ارجو ان تكون الفكرة واضحة تحياتي للجميع

بنحاول نجرب الأكواد أيضا يا أ / ياسر تلميذك

مشكور مشرفنا الغالي على التنبيه تم التعديل ولكم جزيل الشكر

الأخ الحبيب ياسر فتحي راجع الرابط التالي http://www.officena.net/ib/index.php?showtopic=56629&hl= عله يكون موضوع مكرر ... أخيراً لقيت حاجة قديمة في الفهرس بتاعي مفيدة !!!

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

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

بامر الله انا تقريبا خلصته ون شاء الله هنزله على طول من عنيا

يشرفنى دائما مرورك الكريم على موضوع لى أ / ياسر أطال الله عمرك وجزيت خيرا أيضا

شكرا على كل المجهودات المبذولة

شكرا جزيلا على المجهود

السلام عليكم و رحمة الله و بركاته .. khezzani64.rar

وعليكم السلام ورحمة الله جرب المعادلة التالية (معادلة صفيف) =MIN(IF((A2:A36>=I2)*(K2>=A2:A36);$B$2:$B$36)) بن علية

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

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

بسم الله الرحمن الرحيم مرفق لكم بفضل الله تعالى برنامج شؤون الطلاب والعاملين والكنترول ) برنامج الشؤون 4 ( فى برنامج واحد ولجميع الصفوف وعلى أى قرار وزارى أيا كان رقمه سواء كان القرار 460 أو القرار 313 أو أى قرار سيصدر مستقبلا لأن هناك خاصية يمكن من خلالها التعديل على القرار الوزارى جديد الاصدار 1) شؤون الكنترول لجميع الصفوف فى برنامج واحد بحجم صغير بسبب الاعتماد على المعادلات لا الماكرو أو الأكواد ويحتوى الاصدار على هذه المشتملات : * كشف أعمال السنة * كشف الناجحين والراسبين من خلال الاختيار من القائمة المنسدلة * صفحة الأوائل على مستوى الصف على حسب المجموع والسن * صفحة الضعاف العشرين على مستوى الصف لمعالجتهم * صفحة المتفوقين والضعاف فى جميع المواد الدراسية لجميع الصفوف * كشف النسبة والترتيب العام وعلى كل مادة لجميع المواد * شهادات بتصميمات مختلفة * إحصاء عام وشامل لكل من المدرسة والادارة * كشوف اللجان والمنادة 2) شؤون الطلاب لجميع الصفوف بأشكال مختلفة عن الاصدارات السابقة شاملة الاتى : * قاعدة بيانات تفصيلية الية المدخلات شاملة الاسم / والنوع / الرقم القومى / تاريخ الميلاد / السن / الفصل / حالة القيد ...............ز * كشف أعمال السنة قابل للتعديل * قوائم الفصل من خلال اختيار الفصل من القائمة المنسدلة * بيان حالة قيد تلميذ 3 ) شؤون إدارية شاملة الاتى : * قاعدة بيانات تفصيلية لجميع العاملين * إحصاء العاملين على حسب الدرجة والمواد * إحصاء عام وشامل لكل من التلاميذ والعاملين والفصول * نماذج غدارية هامة كالغياب اليومى والرواد ........... لتحميل البرنامج اضغط هنا أسأل الله تعالى أن يكون هذا العمل خالصا لوجهه تعالى وأن يغفر لنا ولكم إنه هو الغفور الرحيم

تسلم يا غالى , هو ده اللى كنت طالبه ^_^ جزاك الله خيراً :) دلوقتى عشان افهم , هو اللى حضرتك عملته هو انك لغيت العلاقة اللى كانت موجوده وضيفت فى حقل abaya number اللى موجود فى جدول sales invoice ضيفت الكود ده بعد التحديث Private Sub Abaya_Number_AfterUpdate() 'Dim D As String 'Me.Abaya_Number = D Me.Total_Price = DLookup("[Total Price]", "code_", "Abaya_Number=" & Me.Abaya_Number) 'Me.Total_Price = DLookup("Total Price", "Abaya Number", "[code_]='" & D & "'") End Sub بس كده , ولا فى حاجة تانية حضرتك عملتها ؟

وفقك الله,, ولك مني جزيل الشكر هذا هو المطلوب بعينه وخشمه.. ياترى وين القمقم حقك ايها المارد^_^ الشكر مرة اخرى...

سلام: 1: لديك خطأ في دالة حقل المجموع لأن المجموع هو اجمالي المبلغ المستحق ع العميل وبالتالي تكون دالته ([العدد]*[السعر]) بدون خصم الدفعة والتي تكون في حقل الرصيد كالتالي [المجموع]-[الدفعة] 2: لديك خطأ عند ادخال الدفعة حيث تكتب السعر والعدد وهذين الحقلين لا علاقة لهما بالدفعة وينبغي ابقائهما بقيمة صفرية 3: لديك خطا ان تكتب السعر والعدد والدفعة في سجل واحد ويلزم جعل الدفعة في سجل منفرد لأنها مبلغ واصل والعدد والسعر في سجل اخر لأنها مبلغ مستحق 4: لديك مرفق فاذا كان هو ماتريده فكان بها ونعمت والا فانا مستعد للمساعدة.. برنامج الديون.rar

تفضل اخى الكريم هذا هو برنامج بطريقة اجمل وبتنسيق احلى اعاننى الله على تصميمه لك فى نموذج فاتورة جديدة كل ما عليك هو كتابة التاريخ وسيحدث ا\رقم الفاتورة تلقائى 1 2 3 4 برنامج فواتير.rar

الأخ الفاضل محبوب الحمد لله أن تم المطلوب على خير ، وعذراً إن كنت قد تأخرت عليك يرجى تحديد أفضل إجابة ستجد أسفل كل المشاركات كلمة "تحديد كأفضل إجابة" يمكنك اختيار المشاركة التي بها حل لمشكلتك وتحديدها تقبل تحياتي

افضل مشاركة للاستاذ ياسر لو كل الاكواد كده الله يبارك لكم

ضع هذا الكود فى وحدة نمطية Public Function closeIfOpen() As Boolean Dim objWINMGMTS As Object Dim objApps As Object Dim objApp As Object Set objWINMGMTS = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objApps = objWINMGMTS.ExecQuery("select * from win32_process where name='osk.exe'") For Each objApp In objApps objApp.Terminate Next End Function وقم بعمل استدعاء لها فى احدث مثلا عند النقر لاى زر Call closeIfOpen

مشكور اخي الكريم وبارك الله فيك

طيب دى روابط تانية للاطمئنان واتمنى استبدال المرفق تسهيلا على رواد المنتدى بارك الله فيكم ميديا فاير توب4 توب التحميل من المرفق READ IT.txt

لازم يكون في حل وان شاء الله مايبخلو علينا في الحل ياغالي

اسم كل مستخدم هو نفسه الباسورد لفتح القاعده يعنى اسم المستخدم : Admin الباسورد : Admin اسم المستخدم : Developer الباسورد : Developer اسم المستخدم : User الباسورد : User اسم المستخدم : Viewer الباسورد : Viewer ملاحظة هامه : الازرار تختلف صلاحية فعاليتها من المستخدمن الادمن والمطور والمستخدم امممممممممم بالطريقه دى مش راح نحتاج لعمل باسورد على زر امر فقط كل مستخدم بكلمة المرور الخاصة به هو فقط وعلى حسب صلاحياته يتعامل مع المتاح له فقط - كما يمكن لكل مستخدم تغيير كلمة المرور الخاصة به قبل فتح البرنامج

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

أخي الحبيب صلاح الصغير الموضوع أصغر مما تتخيل وأبسط مما تتخيل .. ضع المعادلة التالية في الخلية C13 =SUBTOTAL(9,C2:OFFSET(C14,-2,0)) بس خلاص جرب تدرج صفوف براحتك يا كبير !! شرح المعادلة : ------------ المعادلة زي ما إنت كاتبها .. شوف اللي اتغير !! وصلت تمام الحمد لله انتهى الشرح اللي اتغير بدل ما أحدد نهاية النطاق أخلي الإكسيل هو اللي يحدده ودا باستخدام الدالة Offset اللي بيسموها (دالة الإزاحة) الإزاحة بتبدأ منين من الخلية اللي تحت الخلية اللي بكتب فيها المعادلة وعدد صفوف الإزاحة صفين لفوق .. يعني اطلع صفين لفوق عشان كدا تلاقي الرقم بالسالب وعدد أعمدة الإزاحة صفر لأننا بنعمل إزاحة في نفس ذات العمود لا تنسى أن تحدد الإجابة كأفضل إجابة ليظهر الموضوع مجاب ومنتهي .. تقبل تحياتي :fff:

جرب هذا الملف sumInLastrow.rar

khezzaniprg64-2.rar

الأخ الكريم محبوب أعتذر عن التأخر في الرد عليك ، فقد كنت منشغلاً .. إليك الشرح عله يفيدك إن شاء الله Sub YasserKhalil() 'تعريف المتغيرات Dim WBK As Workbook Dim SH As Worksheet, WS As Worksheet, Cell As Range 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'سطر لفتح المصنف المسمى حسابات العملاء لجلب البيانات منه Set WBK = Workbooks.Open(ThisWorkbook.Path & "\حسابات العملاء.xlsx") 'حلقة تكرارية لكل أوراق العمل في المصنف الحالي الذي يحوي الكود For Each SH In ThisWorkbook.Sheets 'سطر لاستثناء ورقة العمل المسماة الفهرس من الحلقة التكرارية If SH.Name <> "الفهرس" Then 'مسح محتويات النطاقات المراد جلب البيانات إليها SH.Range("C6:F99,H6:I99").ClearContents 'حلقة تكرارية لكل أوراق العمل في المصنف المسمى حسابات العملاء For Each WS In WBK.Sheets 'سطر لاستثناء ورقة العمل المسماة الفهرس الرئيسي من الحلقة التكرارية If WS.Name <> "الفهرس الرئيسى" Then 'بدء التعامل مع كل ورقة عمل على حدا With WS 'إذا كانت أول خلية تحتوي على التواريخ فارغة يتم الانتقال لورقة العمل التالية If IsEmpty(.Range("A6")) Then GoTo 1 'سطر لتفادي حدوث خطأ أي استمرار عمل الكود في حالة حدوث خطأ On Error Resume Next 'حلقة تكرارية لنطاق التواريخ For Each Cell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row) 'إذا كانت الخلية التي تحتوي على التاريخ ، الشهر بها يساوي رقم الشهر في ورقة العمل في المصنف الحالي 'وكذلك السنة الموجودة في التاريخ تساوي سنة 2015 يتم تنفيذ الأسطر التالية If Month(Cell.Value) = MonthNumber(SH.Name) And Year(Cell.Value) = 2015 Then 'يتم جلب التاريخ ووضعه في العمود الثامن في أوراق العمل في المصنف الحالي SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value 'يتم جلب اسم العميل ووضعه في العمود الثالث في أوراق العمل في المصنف الحالي SH.Range("C" & SH.Cells(99, 3).End(xlUp).Row + 1) = .Range("C2").Value 'يتم جلب قيمة القسط ووضعها في العمود الخامس في أوراق العمل في المصنف الحالي SH.Range("E" & SH.Cells(99, 5).End(xlUp).Row + 1) = Cell.Offset(, 2) 'يتم جلب قيمة الكوبري ووضعها في العمود السادس في أوراق العمل في المصنف الحالي SH.Range("F" & SH.Cells(99, 6).End(xlUp).Row + 1) = Cell.Offset(, 3) 'يتم جلب رقم التليفون ووضعه في العمود التاسع في أوراق العمل في المصنف الحالي SH.Range("I" & SH.Cells(99, 9).End(xlUp).Row + 1) = .Range("M8").Value 'انتهاء أسطر الشرط End If 'الانتقال للخلية التالية التي تحوي تاريخ Next Cell 'انتهاء التعامل مع ورقة العمل من المصنف المسمى حسابات العملاء استعداداً للتعامل مع ورقة عمل جديدة 1 End With End If 'الانتقال لورقة عمل جديدة في المنصف المسمى حسابات العملاء Next WS End If 'الانتقال لورقة عمل جديدة في المصنف الحالي Next SH 'إغلاق المصنف المسمى حسابات العملاء بدون حفظ التغييرات WBK.Close SaveChanges:=False 'إعادة تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub تقبل تحياتي

أخي الحبيب علاء رسلاااااااان الحمد لله تم بحمد الله وعونه وتوفيقه الانتهاء من المرحلة السابعة (كأننا بنركب فلتر مية .. ومش أي فلتر .. فلتر سبع مرااااااااااحل ) أخيراً انتهيت من هذا الملف اللي طلع عيني وخلاني مش شايف قدامي إليكم النسخة النهائية .. البيانات المفترض استخراجها تم استخراجها في ورقة عمل أخرى وهذا هو كود التجميع Sub FinalCollection() Dim I As Long, X As Long, Y As Long X = 2: Y = 3 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Collector") .Range("A2:E10000").ClearContents For I = 1 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row Step 3 .Cells(X, "A").Value = Sheets("Data").Cells(I, "B").Value .Cells(X, "B").Value = Sheets("Data").Cells(I, "C").Value .Cells(X, "C").Value = Sheets("Data").Cells(I + 1, "F").Value .Cells(X, "D").Value = Sheets("Data").Cells(I + 2, "J").Value .Cells(X, "E").Value = Sheets("Data").Cells(I + 2, "K").Value .Cells(Y, "A").Value = Sheets("Data").Cells(I, "D").Value .Cells(Y, "B").Value = Sheets("Data").Cells(I, "E").Value .Cells(Y, "C").Value = Sheets("Data").Cells(I + 1, "G").Value .Cells(Y, "D").Value = Sheets("Data").Cells(I + 2, "L").Value .Cells(Y, "E").Value = Sheets("Data").Cells(I + 2, "M").Value X = X + 2 Y = Y + 2 Next I End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub أرجو أن ينفع الملف صاحبه الأخ بكري (اللي يبدو إنه نسي موضوعه تماماً أو يأس من عدم الوصول لحل ..) ولا يدري أنه بالإصرار يتحول المحال إلى ممكن ، وهذا كله بفضل الله وحده ثم بفضل الله وحده فلولا توفيق الله ما استطعت أن أخطو خطوة واحدة ولا أن أصل إلى ما وصلت إليه فاللهم لك الحمد ربي لك الحمد ملء السماوات والأرض وملء ما بينهما وملء ما شئت من شيء بعد .. اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك .. اللهم لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضى .. اللهم لك الحمد كله ولك الشكر كله وإليك يرجع الأمر كله .. تقبلوا تحياتي أخوكم أبو البراء Filter Data V7.rar

khezzaniprg64-1.rar

اتفضل HideWin.rar

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

اتفضل اخي شوف المرفق ان شاء الله يكون هو المطلوب مثال.rar

ربما. . . اقول ربما يتخيل احدهم اني إتكالي او اني انبطح كتمساح فاتح فاه ليدخله طعام. . . كلا. . لست ذلك قارنت بين هذا الفورم وغيره وغطست في الاكواﺩ محاولا الفهم كعصامي . . بيد انها اكواد تكشط تلافيف عقلي وارقتني ليال طوال . . . لكني اعلن هزيمتي وذلك ليس ضعفا انما هي قلة حيلة . . واني وجدتني ارد على نفسي. . . . وسيظل صبري يصاحبني رغم ان عدم اكتراثك استاذي يسهدني. . يؤرقني. . . يثير في قلبي الم يعصرني. . . او ان هذا سر لا يجب على من مثلي فك طلاسمه. . . . رغم كل شئ تظل استاذي وابقى ﻣﻤﺘﻦ

جرب رفع الملف هذا !! شوف النتائج في الصور المتحركة: جعفر 66.BarcodeStudent.mdb.zip

السلام عليكم أستاذنا الفاضل / الجندبي (هاي لزقة فيك ) كان على بالي أخبرك عن موضوع ارفاق صور الطلبه في البرنامج ، ولكن وللأسف نسيت وشكرا لأخي حربي ، ذكرني بالموضوع فكرة إرفاق الصور داخل البرنامج ، ستؤدي الى مشاكل في البرنامج ، ومنها ان حجم البرنامج سيصبح كبيرا ، وقد لن تستطيع تستعمله!! والطريقة الصحيحة هي جعل الصور في مجلد على الكمبيوتر ، وانا افضل ان يكون هذا المجلد في نفس المجلد الذي يكون فيه برنامج الجداول (هذا اذا كان برنامجك مقسم الى قسمين) ، وإلا فيكون المجلد في نفس مجلد البرنامج. الملف المرفق بصيغة 2003 ، مع بعض التعديلات على البرنامج السابق ، والصور غير مرفقة في الجدول في البرنامج ، وانما هناك مجلد اسمه Student_Pictures (وانا وضعت فيه صورة للأخ أحمد واخرى لرائد) ، ويجب ان تضع مجلد الصور في نفس مجلد البرنامج (ما يهم اين ، ودائما تستطيع ان تنقلهم معا الى اي مكان تحب ، بشرط ان يكونوا مع بعض) ، واذا اردت ان يكون مجلد الصور في اي مكان آخر في الكمبيوتر ، فيجب تغيير المسار في الوحدة النمطية (وهناك مثال لهذا). جرب ادخال الباركود لأحمد او رائد ، ثم اضغط TAB ، وسترى الصورة جعفر 66.BarcodeStudent.mdb.zip

شكرا اخي الحبيب وجزاك الله كل خير وزادك علما ونفعنا من علمك :)

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

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

بعض اختصارت لوحة المفاتيح المفيدة إدراج ورقة عمل جديدة. SHIFT+F11 أو ALT+SHIFT+F1 الانتقال إلى الورقة التالية في المصنف. CTRL+PAGE DOWN الانتقال إلى الورقة السابقة في المصنف. CTRL+PAGE UP تحديد الورقة الحالية والتالية. لإلغاء تحديد عدة أوراق، اضغط على CTRL+PAGE DOWN أو، لتحديد ورقة أخرى، اضغط على CTRL+PAGE UP. SHIFT+CTRL+PAGE DOWN تحديد الورقة الحالية والسابقة. SHIFT+CTRL+PAGE UP إعادة تسمية الورقة الحالية (القائمة تنسيق، القائمة الفرعية ورقة، الأمر إعادة تسمية). ALT+O H R نقل الورقة الحالية أو نسخها (القائمة تحرير، الأمر نقل الورقة أو نسخها). ALT+E M حذف الورقة الحالية (القائمة تحرير، الأمر حذف ورقة). ALT+E L عرض القائمة أو الرسالة الخاصة بالعلامة الذكية. في حالة وجود أكثر من علامة ذكية واحدة، قم بالتبديل إلى العلامة الذكية التالية وقم بعرض القائمة أو الرسالة الخاصة بها. ALT+SHIFT+F10 تحديد العنصر التالي في قائمة العلامة الذكية. السهم إلى الأسفل تحديد العنصر السابق في قائمة العلامة الذكية. السهم إلى الأعلى تنفيذ الإجراء الخاص بالعنصر المحدد الموجود في قائمة العلامة الذكية. ENTER إغلاق القائمة أو الرسالة الخاصة بالعلامة الذكية. ESC إدراج ورقة عمل جديدة. SHIFT+F11 أو ALT+SHIFT+F1 الانتقال إلى الورقة التالية في المصنف. CTRL+PAGE DOWN الانتقال إلى الورقة السابقة في المصنف. CTRL+PAGE UP تحديد الورقة الحالية والتالية. لإلغاء تحديد عدة أوراق، اضغط على CTRL+PAGE DOWN أو، لتحديد ورقة أخرى، اضغط على CTRL+PAGE UP. SHIFT+CTRL+PAGE DOWN تحديد الورقة الحالية والسابقة. SHIFT+CTRL+PAGE UP إعادة تسمية الورقة الحالية (القائمة تنسيق، القائمة الفرعية ورقة، الأمر إعادة تسمية). ALT+O H R نقل الورقة الحالية أو نسخها (القائمة تحرير، الأمر نقل الورقة أو نسخها). ALT+E M حذف الورقة الحالية (القائمة تحرير، الأمر حذف ورقة). ALT+E L التنقل والتمرير داخل ورقة العمل الانتقال بمقدار خلية واحدة لأعلى، أو لأسفل، أو لليسار، أو لليمين مفاتيح الأسهم التحرك بمقدار خلية واحدة إلى اليمين. TAB التحرك بمقدار خلية واحدة إلى اليسار. SHIFT+TAB للانتقال إلى حافة منطقة البيانات الحالية. CTRL+مفتاح سهم الانتقال إلى بداية الصف HOME الانتقال إلى بداية ورقة العمل CTRL+HOME الانتقال إلى آخر خلية في ورقة العمل، لأقصى صف تم استخدامه في الأسفل لآخر عمود تم استخدامه في أقصى اليسار. CTRL+END التحرك لأسفل بمقدار شاشة واحدة. PAGE DOWN التحرك لأعلى بمقدار شاشة واحدة. PAGE UP التحرك بمقدار شاشة واحدة إلى اليمين. ALT+PAGE DOWN التحرك بمقدار شاشة واحدة إلى اليسار. ALT+PAGE UP التبديل إلى الجزء التالي في ورقة عمل المنقسمة (باستخدام القائمة إطار، الأمر انقسام). F6 التبديل إلى الجزء السابق في ورقة عمل تم تقسيمها. SHIFT+F6 التمرير لعرض الخلية النشطة. CTRL+BACKSPACE عرض مربع الحوار الانتقال إلى. F5 عرض مربع الحوار بحث. SHIFT+F5 تكرار إجراء بحث الأخير (مثل بحث عن التالي). SHIFT+F4 التنقل بين الخلايا غير المؤمنة في ورقة عمل محمية. TAB التنقل داخل نطاق محدد التنقل من أعلى إلى أسفل داخل النطاق المحدد. ENTER التنقل من أسفل إلى أعلى داخل النطاق المحدد. SHIFT+ENTER الانتقال من اليمين إلى اليسار داخل النطاق المحدد. الانتقال إلى أسفل، إذا تم تحديد خلايا في عمود واحد. TAB الانتقال من اليسار إلى اليمين داخل النطاق المحدد. الانتقال لأعلى، إذا تم تحديد خلايا في عمود واحد. SHIFT+TAB الانتقال في عكس اتجاه عقارب الساعة إلى الزاوية التالية للنطاق المحدد. CTRL+نقطة التبديل إلى التحديد التالي الموجود على اليمين في التحديدات غير المتجاورة. ALT+CTRL+السهم إلى اليمين التبديل إلى التحديد التالي غير المتجاور الموجود على اليسار. ALT+CTRL+السهم إلى اليسار تشغيل وضع End أو إيقاف تشغيله. المفتاح END الانتقال بمقدار مجموعة بيانات واحدة في صف أو عمود. END+مفتاح السهم الانتقال إلى الخلية الأخيرة في ورقة العمل، الموجودة في آخر صف تم استخدامه لآخر عمود أيسر تم استخدامه. END+HOME الانتقال إلى الخلية غير الفارغة الموجودة على أقصى اليسار في الصف الحالي. لا تعمل المفاتيح بهذا الترتيب إذا قمت بتشغيل مفاتيح التحريك الانتقالية (القائمة أدوات، الأمر خيارات، علامة التبويب انتقال). END+ENTER التحريك والتمرير عند تشغيل المفتاح SCROLL LOCK في حالة استخدام مفاتيح التمرير (مثل PAGE UP و PAGE DOWN) عند إيقاف تشغيل المفتاح SCROLL LOCK ، يتم تحريك تحديد الخلية بمقدار المسافة التي تقوم بتمريرها. للتمرير دون تغيير أي من الخلايا المحددة، قم بتشغيل المفتاح SCROLL LOCK أولاً. تشغيل SCROLL LOCK أو إيقاف تشغيله. SCROLL LOCK الانتقال إلى الخلية الموجودة في الزاوية العلوية اليمنى للإطار. HOME الانتقال إلى الخلية الموجودة في الزاوية السفلية اليسرى للإطار. END