الخليفي

السلام وعليكم للفائدة تم وضع السؤال في احدى المنتديات الأجنبية 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 وشكرا

بسم الله الاخوة الاعزاء حياكم الله الموضوع عندي زر في النموذج اريد منة ان يفتح ملف pdf عن طريق رابط في مربع نص. مع العلم ان كل سجل لة رابط خاص بة. بالنسبة لمربع النص عند الضغط عليىة فانة يفتح الملف المرتبط بنجاح ولكن اردت ان اجعل عملية الفتح عن طريق زر امر. اسم الزر = OpenLink اسم مربع نص = Link اسم الفورم= Links Form لم استطع ارفاق الملف لانه محضور في الشبكة ارفاق ملفات Rar استطعت ارفاق صورة للفورم وشكرا لكم

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

عزيزي ابو يامن البرنامج مفتوح المصدر ويمكنك الاطلاع علية, على العموم مشكرو على مرورك

اخي الكريم osama ababneh بارك الله فيك, والله ان اقتراحاتك مفيدة ومثمرة وسوف تشكل اظافة ذات فائدة, واسوف احاول ان اطبق ما استطعت, ولكن الباب لا يزال مفتوح للجميع فمن يستطيع ان يطور في البرنامج فالمجال مفتوح خاصة ان لدينا اساتذة لا يصعب عليهم شي, بارك الله في الجميع

الاخوة الكرام اسف على تاخري بالرد وذالك بانشغالي والله ماتوقعت مثل هذا التفاعل, اسال الله ان يجزيكم خير الجزاء على تشجيعي الاخوة الكرام rudwan , habibdar ,hood7117 , yas , r79a , wafe , عاشق الرقي , أبـوخليل , nart lebzo , aub nawaf99 , ashrafsnaa مشكورين وانا سعيد وفخور بمروركم الكريم.

اخي العزيزnart lebzo شهادة اعتز بها خصوصا عندما تكون صادرة من شخص محترف, شكرا لك

بسم الله الرحمن الرحيم اخواني الاعزاء ان ما شجعني لطرح برنامج اليوم هو تفاعل الاعضاء الكرام مع ما طرحت سابقا (الرابط ادناه) http://www.officena....01 احببت ان اضيف في هذا البرنامج عملية نطق الكلمة الانجليزية نطقا صحيصا لمساعدة المتعلمين وانا منهم من تعلم اللغة الانجليزية بالطريقة الصحيحة. وللحصول على النطق الصحيح نستطيع تحميل النطق من اي موقع ترجمة او قاموس معتمد الاكاتي: http://www.macmillandictionary.com/ http://www.merriam-webster.com/ http://dictionary.cambridge.org/ http://www.ldoceonline.com/ ونستطيع تحميل النطق (الملف الصوتي) من اي من المواقع اعلاة او غيرها وذالك بعد ترجمة الكلمة وسماع نطقها وعن طريق البرنامح (Internet Download Manage) تستطيعون تحميل الملف الصوتي, وهناك العديد من البرامج التي تقوم بنفس الوظيفة. ويكمنكم تحميلة من الرابط ادناه. http://www.mediafire...j7r07zas3tk71f7 تنبية: يجب ان يكون البرنامج وملفات الصوت في مجلد او فولدر واحد. يجب ان يسمى الملف الصوتي بنفس تسمية الكلمة المراد حفضها ونطقها. يجب ان يكون امتداد الملف الصوتي (wav) ولتغيير وتحويل الامتداد المحمل من الانترنت ليكون مطابقا لما نريدة نحمل الرنامج التالي (FairStars Audio Converter) وهو برنامج محمول لا داعي لتنصيبة في الجهاز, وهناك العديد من الرامج التي تقوم بتحويل الامتدادات الصوتية, ويمكنكم تحميل البرنامج من احدى الرابطين بالاسفل. http://www.mediafire.com/?luiudzwdgq4 او من هنا http://www.mediafire.com/?mnmwg53yznz ملاحظة: احدى ميزات البرنامج المهمة وهي تعليم النطق الصحيح, والميزة الاخرى انة يعمل كذاكرة نستطيع معرفة كم كلمات تم حفضها وبحيث يمكننا مراجعتها اي وقت نشاء. احب ان اشكر كل من ساهم في الرد على استفساراتي واخص الاخ أبو رهف جزاة الله الف خير. الاخوة الاعزاء انا مجرد مبتدئي ولم اتلقى اي دورات في هذا المجال فقط تعلمت عن طريق اطلاعي للانترنت فاعذروني على التقصير, احببت ان اطرح البرنامج كصدقة لوجة الله تعالى راجيا ثوابه. الملف هو مفتوح المصدر والدعوة مفتوحة للجميع لتطويرة وانا متاكد من انكم تملكون افكار جديدة وقدرات هائلة لجعلة اكثر فائدة في مجالة, على سبيل المثال لا الحصر يمكنكم من جعله يتقبل اي امتداد صوتي. وشكرا للجميع. Improving your Vocabulary Rev.01.rar

ارجو الاطلاع على المرفق بعد تعديلة من قبل احد الاخوة "للاستفادة" New Programe_2.rar

السلام عليكم الاخوة الاعزءا للفائدة لقد تم حل مشكلة البرنامج من قبل احد الاخوة جزاة الله الف خير, والحل لا يخطر على الحسبان فهو يكمن فقط في العلاقات بين الجداول, ارجو منكم الاطلاع للاستفادة. اخيرا احب ان اشكر اخي ابو خليل على سعية الدائم للتفاعل مع اخوتة, شكرا لكم جميعا وخواتم مباركة New Programe.rar

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