NooN2

مرحبا هنا يتم ادراج التاريخ او التاريخ مع الساعة عند BeforeDoubleClick من الكود عدل كما تشاء NooN6.rar

مرحبا ممكن بهذه الطريقة ايضا NooN5.rar

مرحبا انصحك اخى بالتدرج و ان تبدا بالسهل قبل المعقد

مرحباً بوركت اخ خبور

مرحباً اليك الحل بطريقتين و هو ممكن بعدة طرق NooN4.rar

في المنتدى تكرر هذا السوال ابحث وستجد الحل

ماشاء الله عليك عمل طيب

مرحباً اذا غيرت اي اسم فى الرئيسية سيتغير في الباقى noon2.rar

مرحبا http://www.ebookee.com/search.php?cx=00541...;sa=Search#1128 هذا الموقع فيه امهات الكتب

الملف فاضى ؟؟؟ لم افهم قصدك

مرحبا aysam2.rar

مرحبا اخى مصطفى كل عام و الاقصى قد تحرر من دنس يهود http://www.alwatanvoice.com/arabic/content-131249.html http://www.alwatanvoice.com/arabic/content-131293.html اللهم عليك بمن ولى امرنا وربى على هذا من كان يفترض انهم حماة الاقصى الروس تحركوا مع اوسيتيا لانهم لهم روابط عرقيه و اصول روسية العرب في غزة لا يبعدون عن عرب مصر اكثر من امتار لكن لامغيث ( مدينة رفح نصفها فى فلسطين والنصف الاخر فى مصر ) لكن لم يثر اي عربى لنصرة اخيه العربى (لم اقل المسلم لمن يخشون فزاعة الارهاب) على الاقل من باب العروبه او من باب الانسانبة(اوروبيين) كما فعلت سفينتى كسر الحصار

مرحبا بورك فيك و شكرا لكم

مرحباً اخى محمد سلامة * الاخ اكسل 1 كتب 12 كلمة فقط ( من وجهة نظرى لاقدح فيها و لا ذم و لا شتم) * انت كتب اكثر من 100 كلمه من التشهير التعزير و الكلام الغير لائق * انت مشترك منذ 2007 لم تشارك الا بــ 13 مشاركة !!! * الاخ اكسل 1 مشترك من 15 يوم شارك بمشاركتين (يتيمتين حسب رايك) *انظر الى ما كتبت انت و ما كتب السيد اكسل1 ستجد انك من المعتدين *رمضان على الابواب و استغفر ربك انه هو التواب الرحيم اخوكما N00N

مرحباً جزيت خيرا

مرحباً ممكن ان تنسق الورقة الاولى(اجعل عدد الاوراق في المستند 1ورقة) و من ثم قم بنسخ هذه الورقه الى العدد الذى تريد

الاخوة المشرفين هناك داله موجوده اصلا اسمها Column() ترجع رقم العمود

مرحباً الاخ الحبيب نزار هل تعلم ان افضل مكان لمثل هذه المواضيع هو استراحة المنتدى ؟ ***الى ادارة المنتدى اليس هذا مخالفاً لقواعد المشاركة فى المنتدى (و ان كان من اخ مشرف كنزار) ؟

Cells(65000, 1).Value = "" For Each cell In Range("c2:c100").Cells If cell.Offset(0, -1).Value <= 6 And cell.Value >= 30 Then MsgBox "ok" cell.Interior.ColorIndex = 43 cell.Offset(0, -1).Interior.ColorIndex = 43 Cells(65000, 1).Value = "no" End If Next If Cells(65000, 1).Value <> "no" Then MsgBox "نعم كل الطلبة الناجحين اجتازوا ربع الدرجة" Else Exit Sub End If

مرحباً __________3.rar

For Each cell In Range("c2:c100").Cells If cell.Value >= 30 Then If cell.Offset(0, -1).Value < 6 Then MsgBox "ok" cell.Interior.ColorIndex = 43 cell.Offset(0, -1).Interior.ColorIndex = 43 End If End If Next ممكن اضافة عنوان الخليه التى تحقق الشرط __________2.rar

مرحبا __________.rar

الداله الصحيحة weekday() bu3mmar_test.rar