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

السلام عليكم أخي الكريم ضع الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) r = Target.Row If Target.Column = 3 Then Cells(r, 6).Activate If Target.Column = 6 Then Cells(r + 1, 3).Activate End Sub تفضل الملف وبه الكود =============================== شرح سريع الكود في حدث التغيير بالورقة Worksheet_Change نسمي صف الخلية التي حدث بها تغيير r ثم من خلال سؤالين شرطيين 1- إذا كان عمود الخلية المتغيرة =3 أي أنه العمود C فلتنشط الخلية التي بنفس الصف في العمود 6 أي أنه العمود F اللي به الكمية 2- إذا كان عمود الخلية المتغيرة =6 أي أنه العمود F فلتنشط الخلية التي بالصف التالي r + 1 في العمود 3 أي أنه العمود C اللي به كود الصنف الإحتمالات الأخري غير هذين العمودين سيخرج الكود عن العمل ولايفعل شيئا ، أي أن الأمور تظل طبيعية طلبية.rar

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

السلام عليكم يعمل الكود عندما يتم التغيير في الخلية F1 المرفق 2003 أوائل الطلبه وشهادات3.rar

الأستاذ / طلال القزاز السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. الواجب 3.rar

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

ما شاء الله تبارك الله ... كما عهدناكم يا ابو ايمان السرعة في الرد والشرح الوافي والدقيق دوما بارك الله بكم ودمتم في رعايته وتقبلوا منى وافر الاحترام والتقدير

السلام عليكم أخي الفاضل اعتذر عن إرفاق ملف حيث أنه لا يمكنني ذلك في الوقط الحالي أولا : سوف تستخدم المدى الخاص بالخلايا مع الدوال والمدى الموجود عندك هو (B5:L5) 1- دالة المتوسط AVERAGE 2- دالة الوسيط MEDIAN 3- دالة المنوال MODE 4- دالة الوسط الهندسي GEOMEAN 5- دالة الوسط التوافقي HARMEAN 6- معامل الارتباط CORREL بالنسبة لباقي الدوال أعتذر عنها بسبب أن سؤالها غير واضح لي أو لجهلي بها وشكرا والأفضل أخي الحبيب أن تجتهد وتحاول الاعتماد على نفسك في إيجاد حلول واجباتك باستخدام البحث في google والله المستعان

هذا الملف بدون أي حمايات 2حساب الكهرباء في السعودية.rar

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

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

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

أخى فى الله الأستاذ الكريم / ابو ايمان بارك الله فيكم وجزاكم الله خيرا تقبل منى وافر الاحترام والتقدير

مبدع اخي جمال ....................

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

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

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

تفضل أخى ماطلبت لو أنى لاأريد الأنخراط فى عمل الكود معلش لأنى ليس لدى أوفيس 2007 البرنامج اللى عندى لايريد عمل " save " للماكرو لذلك تفضل الكود وأضغط على "alt+f11 " ثم "insert "ثم " module " ثم ضع هذا الكود Sub gamal() Dim Rng As Range Dim Dn As Range Dim q As String Dim cols As Variant Dim n As Long 'تغيير الألوان لتناسب cols = Array(0, 1, 3, 4, 5, 6, 7, 38, 46, 50) Set Rng = Range(Range("A1:c4"), Range("A" & Rows.Count).End(xlUp)) For Each Dn In Rng Dn = Replace(Dn, " ", "") q = StrConv(Dn, vbUnicode) Dn = Join(Split(Left(q, Len(q) - 1), vbNullChar), " ") For n = 1 To Len(Dn) With Dn.Characters(n, 1) .Font.ColorIndex = cols(Val(Dn.Characters(n, 1).Text)) .Font.Bold = True End With Next n Next Dn End Sub تقبل تحياتى تغيير لون الرقم.rar

أخى الحبيب " صلاح " ماتريدة لايمكن عملة عن طريق المعادلة لأن مقارنات الجداول تقوم على عنصرين أساسين 1- المقارنة على أساس القيم الأكثر تكرار " أو القيم الأكثر أنتشارا " 2- المقارنة على أساس القيم الفريدة أى القيم " الفريدة فى كلا الجدوليين " أما ماتريدة وفقا للصور لايتم إلا عن طريق " conditional formmating " أو التنسيق الشرطى حيث سيترك الجدول كما هو ويقوم بوضع علامة لونية على الفريد أو الأكثر تكرارا أيضا والله أعلى وأعلم ، و ربما يكون يكون لدى أحد من أعضاء منتدانا حل أخر أو فكرة أخرى أما بخصوص بطأ الجدول فهذا متوقع لأن المعادلة معادلة صفيف ، والصفيف قد يؤدى للبطأ أحيانا لذلك عليك بتسمية النطاقات أو أجزاء المعادلة حتى تكون أسرع تقبل تحياتى

أخى الحبيب / محمود الشريف تسل ايديك ولكن أخى الحبيب اسمح لى بتعديل بسيط على الكود يعمل على مسح التعليق القديم من الخلية النشطة قبل اضافة التعليق الجديد حتى لا يحدث خطأ فى الكود Private Sub CommandButton3_Click() ActiveCell.Comment.Delete ActiveCell.AddComment ActiveCell.Comment.Visible = False ActiveCell.Comment.Text Text:=TextBox2.Value End Sub أو تعديل آخر كالآتى لتخطى الخطأ Private Sub CommandButton3_Click() On Error Resume Next ActiveCell.AddComment ActiveCell.Comment.Visible = False ActiveCell.Comment.Text Text:=TextBox2.Value End Sub تقبل أرق تحياتى وتقديرى

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

أخى فى الله الأستاذ / الحسن بارك الله فيكم وجزيتم عنى خيرا فيما يختص بالبحث انه مثل دليل الهاتف فى الموبايل عندما تكتب اول حرف من الاسم يجلب لك كل الاسماء التى تبدأ بهذا الحرف فبالنموذج مثلا عندما تكتب محمود يجلب لك كل الأسماء نظرا لأن جميع الاسماء تبدأ بمحمود بالنموذج وتقبل منى وافر الاحترام والتقدير

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

أخى الحبيب / محمود الشريف عمل رائع تسلم ايديك ولو سمحت لى أخى الحبيب بتعديل بسيط على الكود لمنع تكرار الرسالة بشكل مستمر عند الضغط على زر NO Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim R_ALI As Range Set R_ALI = Intersect(Target, Range("B6:B26")) If Target.Count > 1 Then Exit Sub If Target - Target.Offset(-1) <> 1 Then Application.Speech.Speak "Sorry you exceed the serial number If You Want To Keep It Press Yes Else Press No" Choices = MsgBox(" YES " & "إذا كنت تريد الإبقاء على الإدخال الحالي إضغط " & vbNewLine & " NO " & "وإذا كنت تريد حذف الإدخال الحالي إضغط ", vbYesNoCancel, "تحديد المطلوب") Select Case Choices Case vbYes Exit Sub Case vbNo Application.EnableEvents = False Target.Select Target = "" Application.EnableEvents = True End Select End If End Sub

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

طبعا حل المعادلات لايمكن أن يغنى عن الكود وخاصا فى مثل هذه الحالة ولكن هذه فكرة بالمعاددلات أعتقد إنها فكرة يمكن الأستفادة منها فى الكثير Book1.rar

كود رائع أستاذى " رجب جاويش " تقبل تحياتى

السلام عليكم اخي konafa4000 ما شاء الله عليك ونفعنا الله بعلمك معلومات اكثر من رائعة ولاثراء الموضوع اخي سعد استعمل الكود التالي ويعمل على عمل نسخة بنفس الاسم مع زيادة اسم الشهر والسنة مع الاسم القديم ويمكنك تسمية اسم الملف من داخل الكود اذا اردت انسخ الكود واربطه بزر لعمل النسخة Option Explicit Sub SaveWithBackup() Application.DisplayAlerts = False With ThisWorkbook .SaveCopyAs ThisWorkbook.Path & "\" & _ NameWithOutExt(.Name) & " " & _ Format(Now, "mmmm") & Format(Now, "yyyy") & ".xls" .Save End With Application.DisplayAlerts = True End Sub Function NameWithOutExt(pStr_FileName As String) Dim lStr_FileName As String Dim lint_Pos As Integer lStr_FileName = pStr_FileName lint_Pos = InStr(1, lStr_FileName, ".") If lint_Pos > 0 Then lStr_FileName = Left _ (lStr_FileName, InStr(1, lStr_FileName, ".") - 1) NameWithOutExt = lStr_FileName End Function

أخي وائل سؤال صغير لماذا لم تقم بوضع المبلغ كاملاً في خلية واحدة بدلاً من فصله إلى خانتين؟ فهذه الطريقة اسهل و اسرع في التعامل ؟ على كل حال شرح المعادلة الاولى في خانة القروش الجنيه المصري يحتوي مئة قرش على ما اعتقد فعليه =MOD(SUM(B3:B7),100) فهذه المعادلة تاخذ باقي قسمة العمود الذي يحتوي القروش و الذي قمنا بجمعه و من ثم استخراج نتيجة باقي القسمة و الذي يمثل مجموع القروش العمود الثاني و الذي يحتوي مجموع الجنيهات إضافة إلى مجموع القروش التي زادت عن 100 قرش =TRUNC(SUM(C3:C7)+SUM(B3:B7)/100) و المعادلة بسيطة جداً هذه المعادلة لجمع الجنيهات SUM(C3:C7) و هذه المعادلة لجمع المبلغ الذي زاد عن 100 من جمع القروش و لذلك قمنا بقسمة المبلغ على 100 قرش SUM(B3:B7)/100 و طبعاً الدالة TRUNC تستخدم لاستخراج الرقم بدون فواصل عشرية ============= و دمتم في حفظ الله و رعايته

السلام عليكم تفضل اخي وائل أتمنى ان يكون هذا هو المطلوب wael.rar

Doc1.doc Doc1.doc