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

أنت لا تجد حلا لسؤالك لأن سؤالك غير مفهوم البتة أو ينقصه شرح مستفيض... وهو السؤال نفسه الذي طرحته في 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

السلام عليكم ورحمة الله وبركاته مقدمه هامه عن الصيغ نتعلم في هذه المقدمة كيفية ادخال الصيغة العوامل المختلفة في الصيغ المراجع النسبية والمطلقة الاقواس المختلفه ملاحظة تم عمل هذا الموضوع بناء على طلب احد الاخوه الاعضاء http://www.officena.net/ib/index.php?showtopic=58104#entry370104 لاتبخلو علينا بمقتراحاتكم وارائكم حتى نصل الى الافضل رجاء لاتنسونا بصالح دعاؤكم مكتبة دوال ومعادلات.rar

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

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

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

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

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

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

كود لعرض الاسم كاملا لمستخدم الويندوز الحالي مرفق مثال 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

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

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

بعد اذن اخى الحبيب بن مصر جزاه الله خيرا هذه طرق عمل الدوائر الحمراء بالصور بالطرق العاديه ayman.rar

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

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

يالا ورينى الهمه عايز تعمل المطلوب وتبعت الملف اشوفه تقبل تحياتى

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

اخى الكريم المفروض لو انت فهمت الشرح المسبق تقدر تعمله ده لوحدك بس انا هديك الخطوط اللى تمشى عليها او بمعنى ادق الفكرة انت شفت ازاى عملنا if مرتين لو شيك او نقدا هيكون نفس الشئ بس مع with هنعمل with تانى بس مع شيت العملاء with Sheet3 وفى النهاية طبعا end with يالا شغل الجمجمه ورينى الهمه تقبل تحياتى

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

اخى الفاضل تفضل الملف المرفق,, تمت اضافة الدالة الرائعة DrawOvals بعد التعديل عليها قليلا لتناسب طلبك .. ستجد في الخلايا F5 .. H5 >>>>الخ صيغة الدالة بهذا الشكل =DrawOvals(F8:F33,"دون") تستطيع تغيير النطاق الى أى نطاق تريده تحياتي ayman.rar

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

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

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

بارك الله فيك يا ابن مصر تنسيقات في منتهى الروعة ..أهكذا اكتمل العمل أخي هشام؟؟ هل لديك أقوال أخرى غير الدعاء لابن مصر ولي؟!!

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

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

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

للرفع

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

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

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

أفضل من المعادلات أخى ظلل كامل العمود الذى يحتوى على هذه الأرقام وأضغط " CTRL+H " وفى " FIND " ضع "." نقطة بدون أى شئ مجرد نقطة وفى "REPLACE " لاتضع شئ ثم أضغط " REPLACE " سيتم إلغاء علامة الديسميل من كامل العمود تقبل تحياتى

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

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

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

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

لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح يرجى من السادة المشرفين حذف هذا السطر بعد تحديث المشاركة الأولى بمضمون هذه المشاركة وبإذن الله سيتم رفع فيديو لشرح كيفية استعمال الأداة MasNoPass.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

احاول اوضح اكثر المشكلة بفرض انه ورد الي مبلغ محول من عميل 105012 مثلا واريد ان اعرف هذا المبلغ يسدد اي فواتير له وكانت مبالغ الفواتير كما يلي 4012 1000 5000 10000 100000 اريد دالة او معادلة تبحث في احتمالات التباديل لتعطيني احتمالات المجاميع ليكون الاجابة مثلا في المثال اعلاه ان المبلغ يمكن ان يكون مجموع 4012 +1000 + 100000

اخي ibrteeb اضف الكلمة Distinct بعد الامر Select في مصدر الصف لمربع التحرير والسرد . مع الشكر والتقدير للاخ حامل المسك. وهذا المف بعد التعديل db7.rar