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

كل عاام و انتم بخير جرب هذه المعادلة في الخلية E13 ,و اسحب نزولاً =IF(ROWS($A$1:A1)>$G$10,"",ROUND($D$10/$G$10,2))

اعاده الله عليكم و على الجزائر الحبيبة بلــــــــــ المليون شهيد ــــــــــــــد بالخير واليمن و البركات

مرحبا جرب هذا الكود Sub AAAAAA() Dim sh As Worksheet, v As Double, x As Integer Set sh = Sheets("a") With sh v = Val(.Range("D10").Value) / Val(.Range("G10").Value) For x = 1 To Val(.Range("G10").Value) .Cells(x + 12, 5) = v Next End With End Sub

السلام عليكم ورحمة الله وبركاته برنامج شئون العاملين بالتربية والتعليم الرقم السرى .... 1111 أي تعديل ... تحت امركم رابط التحميل

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود VBA لمنع المستخدمين من الدخول على sheet معين فى ملف اكسل تم ارفاق كود الحل من الفاضل ا / إبراهيم ابوليله _ سليم حاصبيا و لا تنسونا من صالح الدعاء تحياتى PASS123 (IBRAHIM).rar SELIMاخفاء ورقة.rar

السلام عليكم هكذا؟ calculation-Repport.rar

الله يجزاكم بالخير على النقطة الهامة بالنسبة لي وتشكر يبش مهندس قدور على المرفق البسيط المفيد

الاساتذة الكرام معادلة استاذنا سليم من النوع معادلات الصفيف بعنى اى تغيير يطرأ على المعادلة يجب ان تضغط على ctrl+shift+enterمع بعض وبعد ذلك اسحب الخلية كما اشار استاذنا وان شاء الله ستحل المشكلة

اثراءً للموضوع هذا الكود Sub salim_Loop() With Sheets("a") .Range("E13:E1000") = Empty x = .[g10] t = 0 .Cells(13, "e").Activate Do While t < x ActiveCell = Round([d10] / x, 2) ActiveCell.Offset(1, 0).Activate t = t + 1 Loop End With ActiveCell.Offset(-1, 0).Activate End Sub او هذا Sub salim1() With Sheets("a") .Range("E13:E1000") = Empty .Cells(13, "e").Resize(.[g10], 1) = Round(.[d10] / .[g10], 2) End With End Sub

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

كل سنة وجميع سكان الارض بخير وسلامة ومحبة

انظر الى اعلى الصفحة ف اكسل ستجد " المطور " اضغط عليه ثم على يمين الصفحة او يسارها حسب واجهة اللغة في الاكسل عندك ستجد خيار " viusal baisic" اضغط عليه وسيفتح الموديل تلقائيا ثم على يسار الصفحة من اعلى ستجد كلمة " file " اضغط عليه ستظهر عدة خيارات منها " remove module" اضغط عليه وستظهر نافذة تفيد هل تريد حفظ الموديل قبل الحذف اضغط " لا " ثم سينحذف الموديل بعد ذلك اضغظ على زر حفظ الذي يشبه القرص كي تحفظ عملك

و عيدكم اسعد

لو ارسلت الملف و به النتائج المتوقعة و يستحسن اكثر من مثال جرب هذا Sub AAAAAA() Dim sh As Worksheet, v As Double, x As Integer Set sh = Sheets("a") With sh .Range("E13:E42") = "" For x = 1 To Val(.Range("G10").Value) .Cells(x + 12, 5) = .Range("D10").Value Next End With End Sub

الملف يعمل عندي كما طلبت المرفق 22.rar

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

السلام عليكم اخي فايز حسب ما فهمت من الملف هناك شرطان للنجاح احدهما الحصول على النهاية الصغرى لدرجة المجموع والشرط الآخر الحصول على النهاية الصغرى لإمتحان الفصل الثاني عليه لديك طلبة لهم دور ثاني نوعان" 1- طلبةدور ثاني بسبب لم يتحصلوا النهاية الصغرى لمجموع المادة 2- طلبة دور ثاني تحصلوا على النهاية الصغرى لمجموع المادة ولكنهم لم يتحصلوا على النهاية الصغري لدرجة امتحان الفصل الثاني وهذا واضح من ورقة شيت وانت وضعت في ورقة شهادات اخر العام شرط واحد فقط وهوالنهاية الصغرى لمجموع المادة ولم تضع الشرط الاخر وهو الحصول علىالنهاية الصغري لدرجة امتحان الفصل الثاني . وعلية سيتم وضع دوائر على الذين لم يتحصلو على الشرط الاول وهو المجموع طبعا الكود من ارشيف اوفيسنا بارك اللهفي الجميع شيت كنترول الصف الثاني والثالث الإبتدائي1.rar

اين الاعجاب

كود لنسخ ملف الاكسل كل 30 يوما و يتم تخزين الملف الجديد في المجلد Monthly Reports مع تاريخ الانشاء و اللوقت عملت مثال لتتضح الطريقة كل ماعليك فعله هو وضع الاجراء CheckAndCopyThisWB في حدث فتح الملف Sub CheckAndCopyThisWB() ' المجلد الذي سيتم تخزين الملفات فيه Const DestDir As String = "\Monthly Reports\" ' عنوان الخلية التي تحتوي على اخر تاريخ تم نسخ الملف Const LastCopyCell As String = "B1" ' اسم الملف بدون امتداد Dim WBName As String ' امتداد الملف بدون الاسم Dim WBExtension As String ' المسار كاملا لملف المصدر Dim SourceFile As String ' المسار كاملا للملف الجديد Dim DestFile As String ' تأكد انه مرة 30 يوما على اخر عملية نسخ او ان الملف ينسخ للمرة الاولى If Sheets("LOG").Range(LastCopyCell).Value = "" Or DateAdd("d", 1, Sheets("LOG").Range(LastCopyCell).Value) <= Date Then WBName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - (Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, ".") + 1)) WBExtension = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, "."), 7) SourceFile = """" & ThisWorkbook.FullName & """" DestFile = """" & ThisWorkbook.Path & DestDir & WBName & Format(Now(), "dd-mmm-yy-h-mm;@") & WBExtension & """" ' انسخ الملف Shell "CMD /C COPY /-Y " & SourceFile & " " & DestFile, vbHide ' حدث تاريخ اخر عملية نسخ Sheets("LOG").Range(LastCopyCell).Value = Date End If End Sub Check and Copy Workbook.zip

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634