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

بسم الله والحمد لله ولا اله الا الله والله اكبر الحمد لله رب العالمين الحمد الله الذى تتم بنعمته الصالحات شكر وتقدير لكل معلمينا فى هذا الصرح الشامخ على وجه العموم وشكر خاص لكل من المعلمين [ ابو خليل , جعفر , يوسف , رمهان , ابا عمر , رضوان , عبد الرحمن هاشم , ابو الاء , علي المصري , راعى الغنم , اخر الارض ] على وجه الخصوص واختص اصحاب البرامج اومن قدم يد العون والمساعده فى تطويرها والاضافة اليها نظام المستخدمين الخاص بالاستاذ مهند العبادى تعديل العبد الفقير الى الله اضافة التحكم بالعناصر لكل مستخدم ضمن نظام المستخدمين الاستاذ ابو خليل تصغير القاعدة بجوار الساعه مع الاحتفاظ بأيقونة الاكسس عند التكبير على شريط المهام وعدم ظهور الاطار عند الضغط عليها الاستاذ ناصر - تعديل الاستاذ ابا عمر البحث والفلترة وتظليل ناتج البحث ---- الأستاذ رمهان والاستاذ اباعمر اخفاء اطار الاكس نهائيا - الاستاذ ابا عمر 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 << تم تحديث الروابط (الإدارة) >>

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

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

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

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

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

ممتاز الله ينور للامام

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

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

أخي الحبيب ياسر ممكن أعترض .. ايه فايدة الكود ؟؟!! طيب ما أهو أنا عشان بحب الكسل وأكيد إنت عارف كدا هحدد الأرقام ومن خلال التبويب Home أو Data وأرتب من A>Z مش كدا بردو بيتم عمل المطلوب من غير كود !! بحاول أشوف أي فايدة تانية للكود بس مش لاقي تقبل اعتراضي

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

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

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

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

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

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

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

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

وعليكم السلام ورحمة الله جرب المعادلة التالية (معادلة صفيف) =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

جزاك الله خير استاذ محمد ولكن عند تحميل المرفق 2003 ظهرت لي صفحة جوجل الحمراء المتعلقة بالامان وتحذير !!!؟؟

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

اسم كل مستخدم هو نفسه الباسورد لفتح القاعده يعنى اسم المستخدم : 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 تقبل تحياتي

khezzaniprg64-1.rar

اتفضل HideWin.rar

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

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

أخي الفاضل إبراهيم السيد أهلا بيك في المنتدى ونورت بين إخوانك يرجى الإطلاع على رابط التوجيهات للضرورة .. مش مجرد روتين http://www.officena.net/ib/index.php?showtopic=60147 بالنسبة للفيل اللي نزلته (قدرت تنزله لوحدك ..بسم الله ما شاء الله .. بس الفيل تقيل يا جميل إزاي قدرت تنزله هههه ) بالنسبة لطلبك الموضوع في منتهى البساطة والشياكة إنت عندك في الخلية P1 موجود تاريخ حلو الكلام (قول حلو بس اوعاك تاكله ..) اللي حصل كالآتي .. الأخ اللي عمل الفايل حدد النطاق بالكامل من $A$1:$N$1000 من التبويب Home لو عندك إصدار أوفيس 2007 فما فوق .. هتلاقي Conditional Formatting أو بالعربي التنسيق الشرطي (بس دا ملوش علاقة بالشرطة ) افتح القايمة المنسدلة اللي جنب الكلمة واختار New Rule .. دا لو لسه مكانتش اتعملت اختار آخر اختيار في النافذة اللي اسمها New Formatting Rule والخيار اسمه Use a formula to determine which cells to format وهتكتب المعادلة التالية في الحقل اللي على يمينه سهم أحمر يا أهلاوي =$A1>=$P$1 المعادلة بتقول إن الخلية A1 أكبر من أو يساوي الخلية P1 (يعني التاريخ في A1 أكبر من أو يساوي التاريخ في الخلية P1 ..) لاحظ إن الخلية P1 قبلها علامة الدولار قبل اسم العمود وقبل رقم الصف (أصلها لسه خارجة من البنك ...) طبعاً لأن الخلية دي ثابتة ...أما الخلية A1 متغيرة يعني لما المعادلة تنطبق على باقي الخلايا طبيعي إننا نختبر كل الخلايا مش الخلية A1 بس عموما المعادلة بتكون نتيجتها يا أبيض يا إسود ..أقصد يا صح يا غلط .. أقصد يا True يا False يعني لما الشرط يتحقق ويكون التاريخ الموجود في الخلية A1 أكبر من التاريخ في P1 بيكون الناتج Tue ولما الناتج يكون صح بكدا الإكسيل هيسمع الكلام وينفذ المطلوب منه طيب ايه المطلوب من الإكسيل (دا إنت اللي بتحدده) إزاي هقولك ..ركز معاايا آخر حاجة كتبنا المعادلة ..دلوقتي هتلاقي زر أمر اسمه Format (عينك تاااااااهت ليه ) تحت الحقل اللي كتبت فيه المعادلة لما تنقر Format (اشرب فوسفات وانسى اللي فات) هتلاقي فيه تبويبات في النافذة اللي طلعت (تدخل على أي تبويب ... والمشهور التبويب Fill بتاع تلوين الخلية) واختار اللون اللي يعجبك وبعدين تضغط أوك 3 مرات .... أرجو أن تكون قد استفدت أخوك أبو البراء

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

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

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

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

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

كود للتنقل بين الصفحات مهما تغيرت اسماؤها جزاكم الله خيرا [/color][/size][/center] [size=6][color=#0000CD] ' ' åÐÇ ÇáßæÏ ááÚÇáã ÇáÚáÇãÉ ÛÈÏ Çááå ÈÇÞÓíÑ [/color][/size] [size=6][color=#0000CD]Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 On Error GoTo 0 End Sub لاادري لماذا تظهر اللغة العربية بهذه الصورة التنقل بين الصفحات.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