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

أنت لا تجد حلا لسؤالك لأن سؤالك غير مفهوم البتة أو ينقصه شرح مستفيض... وهو السؤال نفسه الذي طرحته في 4 مواضيع أخرى وطالبك الإخوة الكرام الذين شاركوا هذه المواضيع بوضع ملف يمثل الحالة التي تريدها ولكن دون رد منك... وفي هذا الموضوع (طلبك الأخير) لم تذكر متى تتغير قيمة الخلية A (تواتر تغير القيمة؟) ثم تقول "عندما تزيد قيمة الخلية A عن 2 فأكثر"، تزيد عن ماذا؟ هل تزيد عن قيمة ثابتة معينة أم عن قيمة لها سابقة وفي هذه الحالة أين هي القيمة السابقة للخلية A (أي هل يجب تخزينها في خلايا أخرى حسب تواتر تغيير قيمة هذه الخلية)؟ ننتظر توضيحاتك...

رائع يا ابن مصر متمكن من التنسيقات بشكل هائل بارك الله فيك .. تقبل تحياتي

اخى الفاضل سبحان الله انا سألتك على التنسيقات قبل ما ابدا .. انت الذي لم ترد لى خبر .. عامة مرفق الملف بالتنسيقات التى تريدها تحياتي Combinations Scenario For Values Summation.rar

السلام عليكم ورحمة الله أخي الكريم الجموعي، هذا حل باستعمال المعادلات... أخوك بن علية الملف المرفق : حل ترجمة بالمعادلات.rar

بارك الله فيك أخي الحبيب أبو تراب فقد أثريت المكتبة بشكل هائل ومفيد جدا تمت إضافة الكود الأخير بحمد الله واعذرني لأنني لا أضيف للمكتبة كود إلا بعد تجربته وتأكدي من أنه يعمل تماماً.. وجزيت خيراً على الإيضاح الرائع تقبل تحياتي القلبية ... ولا حرمنا الله من إبداعاتك المتميزة

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

اكواد التعامل مع التعليقات او Comments للتوضيح اكثر ارفق مثال Sub btnA1Comment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A1].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If cmt Is Nothing Then ' اضف تعليق و عين المرجع Set cmt = [A1].AddComment cmt.Text Text:="هذا تعليق في الخلية A1" & vbCrLf & vbCrLf & "تعليق في سطر جديد" End If End Sub Sub btnA1EditComment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A1].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If Not cmt Is Nothing Then 'افتح التعليق في وضع التحرير [A1].Select SendKeys "+{F2}" End If End Sub Sub btnDeleteA1Comment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A1].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If Not cmt Is Nothing Then ' احذف التعليق cmt.Delete End If End Sub Sub btnHideAllComments() Dim cmt As Comment For Each cmt In ActiveSheet.Comments cmt.Visible = False Next End Sub Sub btnDeleteAllComments() Dim cmt As Comment For Each cmt In ActiveSheet.Comments cmt.Delete Next End Sub Sub btnA2Comment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A2].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If cmt Is Nothing Then ' اضف تعليق و عين المرجع Set cmt = [A2].AddComment cmt.Text Text:="هذا تعليق في الخلية A2" End If ' اظهر التعليق و اختاره cmt.Visible = True cmt.Shape.Select End Sub Sub btnA3Comment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A3].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If cmt Is Nothing Then ' اضف تعليق و عين المرجع Set cmt = [A3].AddComment cmt.Text Text:="تحذير" & vbCrLf & "هذا تعليق في الخلية A3" ' تنسيق التعليق With cmt.Shape.TextFrame ' تنسيق الخط .Characters.Font.Name = "Times New Roman" .Characters.Font.Size = 11 .Characters.Font.Bold = False .Characters.Font.ColorIndex = 0 'تلوين السطر الاول من التعليق .Characters(1, 5).Font.Color = vbRed .Characters(1, 5).Font.Bold = True End With End If End Sub Sub btnCPI() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A4].Comment If cmt Is Nothing Then Set cmt = [A4].AddComment With cmt .Text Text:="" ' اضافة صورة .Shape.Fill.UserPicture ThisWorkbook.Path & "\CPI.jpg" .Visible = False End With End If End Sub Comments.zip

اخى الفاضل لا أستطيع أن لا أنفذ طلبا لأستاذي وجزاك الله خيرا على تذكيري بالموضوع .. مرفق الملف بعد إضافة بعض التنسيقات وشرحها بالكود حتى يتسنى لك تغييرها ان اردت تحياتي Combinations Scenario For Values Summation.rar

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

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

وفى الختام الشكر موصول لكل من الاستاذ gamalin وهو أول من طرح الموضوع الذى كنت أبحث عنه لفترة كبيرة وعن طريقه تابعت حل الاستاذ عبدالله باقشير وهو أول من قدم الحل بمعادلة سيناريو توافيق وعن طريق المشكلة التى بالكود قام الاستاذ ياسر خليل وهو أول من قدم لى حل لمشكلة الكود الذى تمم عمل التنسيقات اللازمة له الاستاذ ابن مصر

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

أخى ابن مصر : أرجوا منك أن تسامحنى على عدم ردى عليك بخصوص التنسيقات فلقد كان عندى مشكلة بالشبكة أدت إلى تأخرى فعذراً أخى فأنا أشعر أننى قد أغضبتك وجزالك الله خيرا على ما قدمته لى ولكل من سيطلع على الموضوع

الأخ العزيز حسين انا قصدي اذا وضعت التنبيه يكون علي كلا من التااريخ الهجري والتاريخ الميلادي ، بحيث اذا فتحت البرنامج يظهر رسالة تنبيه بإنتهاء المستندات التالية ،و يكون ( للهوية بالتاريخ الهجري ، والجواز بالتاريخ الميلادي) فما هي الطريقة المناسبة ، وكيف يتم ( وضعت Date() ( i هو لتاريخ اليوم +30 فهل يقراء اي التاريخين وشكرا علي سعة صدرك وذوقك اريد ان افهم هذا الجزء وكيف يتم ( وضعت Date() ( i هو لتاريخ اليوم +30 فهل يقراء اي التاريخين .

كود لعرض الاسم كاملا لمستخدم الويندوز الحالي مرفق مثال Sub btnGetFullUserName() Dim Accounts As Object, User As Object Dim ComputerName As String ' الجهاز الحالي ComputerName = "." ' احصل على مرجع لحسابات الويندوز Set Accounts = GetObject("WinNT://" & ComputerName & "") ' فلتر الحسابات حسب الاسماء Accounts.Filter = Array("user") ' افحص جميع الاسماء For Each User In Accounts ' تأكد ان المستخدم هو المستخدم الحالي للنظام If User.Name = Environ("Username") Then ' اعرض الاسم كاملا اذا وجد MsgBox "مرحبا " & User.FullName, vbInformation + vbMsgBoxRtlReading End If Next End Sub Get Full user name.zip

الأخ ياسر خليل : ما هذا الجماااااااااال راودتني هذه الفكرة كثيراً وظننت انها غير ممكنةأبداً بارك الله فيك ورزقك من العلم حتى ترضي

تعلمنا الكثير والكثير من منتدى اوفيسنا صراحتنا جزاكم الله خيرا

اخي الفاضل ابو خليل الف شكر لك هذا هو المطلوب بالفعل افرحت قلبي والله جزاك الله الجنه وزادك الله من علمه

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

السلام عليكم ورحمة الله وبركاته موضوع اليوم هو دالة sumif دالة sumif.rar مكتبة دوال ومعادلات.rar

الله ينور بجد الف الف شكررررررررررررررر ربنا يعزك ويجعلو فى ميزان حسناتك

لم احتج ولم اجرب اكثر من ثلاث شروط العمدة هنا هي علامة التنصيص المفردة التي بين المزدوجتين ونستخدمها في الشرط النصي اما اشرط الرقمي فلا نستخدمها ونكتفي بـــ & وفي التاريخ نستخدم # بين مزدوجتين

آمين ولك مثل ذلك

الاخوة الكرام اليوم ان شاء الله سنكمل كيفية عمل الترحيل بشروط لو رجعنا الى المشاركة رقم 1 ونظرنا على شكل كود الترحيل النهائى كان كالتالى Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub طبعا الكود فى شرط واحد وهو هذا السطر ( يعنى لا ينفذ الكود لو كان فى خليه من الخلايا المذكور فارغه ليس بها بيانات If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub طيب انا عايز اعمل شرط لو نوع السند بالخليه G6 نقدى ينفذ الكود ولو مش نقدى مش ينفذ كل اللى هنعمله هنستخدم if If [G6] = "نقدى" Then السطر قاعدة if ده هيكون مكانه فين فى الكود أعلاه هيكون بعد هذا السطر Lr = .Cells(.Rows.Count, "D").End(xlUp).Row وطبعا طالما فتحنا if أذن لابد من قفلها ب end if قبل هذا السطر من الكود End With وهيصبح الكود بشكل النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row If [G6] = "نقدى" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End If End With End Sub وبكدا الكود اصبح فى شرطين الشرط الاول وهو عدم ترك الخلايا فارغه لو فى خلية فارغه يطلع من الكود وميكملش طيب لو كل البيانات مكتوبه ينتقل للشرط التالى وهو والشرط الثانى وهو اذا كان السند نقدى يتم الترحيل غير كدا لا ميرحلش طيب عايز اعمل شرط ثالث لو كان G6 شيك هيكون بهذا الشكل If [G6] = "شيك" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "i") = [d11] .Cells(Lr + 1, "j") = "=R[-1]C+RC[-1]-RC[-2]" End If هنا عملنا قاعدة if جديده لو كانت الخلية G6 شيك نفذ التالى طيب الشرط ده هيكون فين موقعه من الكود بتاعنا الاصلى هيكون كالتالى Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row If [G6] = "نقدى" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[ End If If [G6] = "شيك" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "i") = [d11] .Cells(Lr + 1, "j") = "=R[-1]C+RC[-1]-RC[-2]" End If End With End Sub يعنى الكود هيروح لاول شرط ملئ جميع البيانات لو تمام هينتقل للشرط الاخر وهو لو الخلية G6 نقدى هينفذ سطور التالية ولو شيك هينفذ السطور التالية وطبعا قفلنا if بعد كل مره يوجد ملف مرفق للتجربه وفى النهاية تقبلوا منى وافر الاحترام والتقدير خزينة.zip

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

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

انا طبقت الدرس الاول ونجحت 100% ولكن حاولت اتابع الدرس الثاني واتقفل المخ نهائي غير قابل للفتح مره ثانية ... ولا حتى باستخدام المطرقة و المفك .... ايش العمل ؟؟؟؟ ----------- يبدولي السبب هو انك تكتب كلمة انجليزية ترجمة لمعنى العربي للكلام الي تشرحة وبرايي انه يلخبط الموضوع فلو تم الشرح بالعربي وادراج الكلمات الانجليزية الخاصة بالاكواد كان افضل .... انا قلت لك من الاول لابد تخلي احد الاخوه الصغار بجانبك لان قدرتي لا تتعدى قدره الطفل ... فاحتاج الى الشرح باستخدام كل الحواس ( السمع عبر مقاطع متحركة - البصر عبر الصور - والقوالب و الاكواد عبر الكتابة ) ياليت يتم التطبيق على برنامج يكون مختصر ثم نبداء بزيادة الاوامر شيئا فشيئا ... محبكم / اخوكم ابو سليمان

السلام عليكم عسى ان ينال الاعجاب data salim.rar

انا البارحة رايت الموضوع و اليوم رايت صفحة الرد اعتبرني طالب معااااااااااااااااكم

ما شاء الله تبارك الله رررررررررررررررائع و الاروع الروح العالية طلبات يا باشا 1- ان تجعل بجانبك اخوك الصغير او ابنك الصغير وتقوله ابغي اعلمك ...................... ليه اخلي ابنك الصغير بجانب ..؟؟ لان الاطفال يسالون عن اشياء لا تخطر لك على بال ... وقد تكون بديهية جدا لك ولكنها كبيره امام اعينهم اعتبرني اخوك الصغير او ابنك اللعاااااااااااب وبطلب او ل طلب ان تسهب في التفصيل المملك لكل فقرة ... ان تدعم المشاركة بمقاطع متحركة + صور ثابته شكر لك وبارك الله في وقتك وعلمك

انظر التعديل ان كان يوافق طلبك فأكمل على النسق نفسه student8.rar

تفضل student7.rar

في هذه الحالة لا بد ان تستخدم الاستعلام الفرعي ويمكنك جلب هذه النتيجة من الاستعلام الرئيس في اي مكان من مشروعك بواسطة Dco sa4.rar

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

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

للرفع

جزكام الله خيرا على ذلك ودمتم في عز ورفعة

الحل بالمعادلة without camma.rar

أستخدم هذه المعادلة =0+SUBSTITUTE(A1,".","") تقبل تحياتى

جزاك الله خيرا

أخي الفاضل جرب الملف التالي Combinations Scenario For Values Summation.rar

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

شكرا لجميع الإخوة المشاركين في الموضوع وللعلم تم تحديث المشاركة الأولى وتحديث الملف المرفق لتلافي بعض المشكلات برجاء إعادة تحميله

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

أرفق لكم هذا البرنامج والذي إنتهيت منة اليوم بناء على طلب من أحد الزملاء في منتدى خاص بالمحاسبة فأرت أن أضعه بين أيديكم لعل أحد الزملاء أن يستفيد منه راجياً من الله أن يتقبل هذا العمل خالصاً لوجه الكريم برنامج بسيط لشئون الموظفين وإليك صور البرنامج البسيط ( برنامج المراد ) يا رب ينال إعجابكم جميعاً البرنامج على الرابط التالي : http://amonshare.com/zdlga5xw33nw/SALARY.xls.html أخوكم وائل مراد SALARY.rar

هذا البرنامج شكله جميل جدا يا اخي الفاضل ولكن عند تحميل البرنامج تظهر رسالة End Help وعند الضغط على End لا يعمل البرنامج ما ادري ما الخطا اي لا يعمل البرنامج ولكن من شكل البرنامج انه برنامج قيم وجميل الرجاء اخباري ما المشكلة حتى استطيع التعامل مع البرنامج SALARY (1).rar

السادة اعضاء ومشرفي قسم الاكسل لدي مشكلة وهي تتلخص في ان لدي رقم اريد ان اعرف ان كان يمكن الحصول عليه بتجميع عده ارقام اخرى ام لا مثال لدي ارقام 1 و 5 و 8 و 15 و 1.3 و 7 مثلا هل توجد معادلة تخبرني ان الرقم 9.3 هو ناتج جمع 8+1.3 هل يمكن التوصل الى اي صيغة تحل هذا اللغز علما بان هذا مثال مبسط لكني احتاجه مع عدد كبير من الارقام ولعديد من الحالات وليس بهذه البساطة ارجوا ان يكون الشرح والاستفسار واضح ارجوا لمن يعرف حلا ان يراسلني على الايميل m.gamalin@medstar-misr.com

أشكركم جميعاً لحسن حديثكم ولكني أيضاً أتبرأ إلى الله ممن يستخدمه في غير موضعه ويسرق به ما ليس من حقه اللهم قد بلغت اللهم فاشهد

أكرمك الله أخي حسن ثروة ايه يا راجل كفاية مرورك على الموضوع واحتفاظك بالملف أخي الكريم الملف الذي عرضه أخي حسن علي هو لعمل تفقيط بدون كود ومن الواضح في مطلوبك أنك تريد تفقيط بالكود وهذا موجود بكثرة في المنتدى وباللغتين العربية والانجليزية وبقليل من البحث سوف تجده وعلى العموم هذا رابط لملف التفقيط العربي والانجليزي http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_rel_module=post&attach_id=26618 وأصل الموضوع هنا http://www.officena.net/ib/index.php?showtopic=29357&view=findpost&p=145920 تحياتي للجميع أخوكم محمد صالح