الخليفي

السلام وعليكم للفائدة تم وضع السؤال في احدى المنتديات الأجنبية http://www.excelforum.com/ وتم حلة وحبيت ان اشارككم الحل لتعم الفائدة: تم الحل من قبل احد الاخوة اسمة dflak له جزيل الشكر Option Explicit Sub GradeIt() Dim note As Integer ' "Grade" from Column A Dim score_comment As String ' Interpretation of the grade Dim i As Long ' Counter for rows ' Loop through rows 2 to 100 For i = 2 To 100 note = Sheets("Sheet1").Cells(i, 1) ' Make comment based on the value of note Select Case note Case 6 score_comment = "Excellent score !" Case 5 score_comment = "Good score" Case 4 score_comment = "Satisfactory score" Case 3 score_comment = "Unsatisfactory score" Case 2 score_comment = "Bad score" Case 1 score_comment = "Terrible score" Case Else score_comment = "Zero score" End Select Sheets("Sheet1").Cells(i, 2) = score_comment Next i End Sub

السلام وعليكم اخوتي الكرام ممكن احد يساعدني في هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim note As Integer, score_comment As String note = Range("A1") If note = 6 Then score_comment = "Excellent score !" ElseIf note = 5 Then score_comment = "Good score" ElseIf note = 4 Then score_comment = "Satisfactory score" ElseIf note = 3 Then score_comment = "Unsatisfactory score" ElseIf note = 2 Then score_comment = "Bad score" ElseIf note = 1 Then score_comment = "Terrible score" Else: score_comment = "Zero score" End If Range("B1") = score_comment End Sub ما معنى المصطلح ByVal المطلوب هل بالامكان ان ينطبق الكود على العمود في نطاق الخلايا التالية A2 to A100 والنتيجة تظهر في كامل العمود في النطاق التالي B2 to B10 هناك ملف مرفق وشكرا Book1.rar

بارك الله فيك اخي ياسر خليل أبو البراء ولكن المطلوب ليس منع النسخ واللصق ولكن منع تحديث الخلية التي تحتوي على التاريخ التلقائي في حالة النسخ من الخلية (H) . والسماح لها بالتحديث في حالة تم اظافة نص وا حذف حرف من محتوى الخلية (H)

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

جزاك الله خيراً بالنسبة لاسم الدخول لم اعرف من اين يتم تغييرة ولا زلت أحاول

شكرا جزيلا اخي الكريم وملاحظاتك على العين والراس

السلام وعليكم ورحمة الله وبركاته لو سمحتم المساعدة في تغيير الكود فيجوال بيسك لينطبق على كامل خلايا العمودين اتش 1 واف 1. قمت بعمل فورميلا تقوم بإضافة التاريخ التلقائي في الخلية اف 1 وذألك عند الكتابة في الخلية اتش 1 =IF(H3="","",(TODAY())) ولكن المشكلة انه في اليوم التالي يتغير التاريخ تلقائيا ولا يبقى على حالة, أي انه يحدث نفسة تلقائيا. ولذألك قمت بوضع الكود فيجوال بيسك في الأسفل وذألك لوقف التحديث التلقائي للتاريخ أي انه يسمح للتاريخ بالتحديث مرة فقط وذألك حسب الشرط وهو الكتابة في الخلية اتش 1. Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, [H1]) Is Nothing Then [F1] = Date End If End Sub المطلوب: هو اني اريد الكود ان ينطبق على كامل العمود اتش 1 واف 1 وليس فقط لصف واحد. شكرا جزيلا Test 2.rar

الاخوة الكرام: محمد الريفى leprince2007 ibn_egypt جزاكم الله خير الجزاء وشكرا لكم على سرعه تفاعلكم

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

اصدقائي الأكارم رمضان كريم السلام عليكم و رحمة الله و بركاته المرفق التالي يحتوي على استعلام به عدد من السجلات والمطلوب كالاتي: كيف استطيع إظهار آخر سجل لكل قطعة او جهاز في خلية (SNumber) ( مثلا جهاز لديه سجلين اريد عرض آخر سجل فقط ) ؟؟ لو سمحتم اريد شرح العملية اذا امكن ملفات مرفقة 12.rar

اخوي أبـوخليل فرج الله همك فعلا هذا هو المطلوب جزاك الله خير

اخي ابو خليل حاولت اطبق الكود ولكن تظهر لي هذة الرسالة:

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

عذرا اضغط في نفس الصفحة على الزر Dwonload As Zip وسوف يتحمل الملف ارجو الاطلاع علية والمساعدة في ايجاد الحل

عذرا لقد استطعت ان ارفق الملف الى احد المواقع الرابط http://www.wobzip.org/file/54IIIIIQ الملف ظاهر في الرابط باسم HLink.accdb وشكرا