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

السلام عليكم ورحمة الله وبركاته نبدأ بعون الله في شرح شيء جديد في عالم البرمجة ، وهو القاموس Dictionary ، وإن شاء المولى يكون مفيد لكم إخواني الكرام. طبعاً عنوان الموضوع جذبكم مش عشان البرمجة أكيد عشان الناموس (وإزاي نقدر نتخلص من الناموس والإزعاج اللي بيسببه ) .. الناموس هنا معناه القانون أو القاعدة .. ودا عنوان كعامل جذب مش أكتر ما هو القاموس Dictionary؟ ---------------------------- من اسمه ممكن نعرفه ..القاموس يعني تجميعة كلمات باللغة الإنجليزية وليها مرادف سواء بنفس اللغة أو بلغة أخرى .. اللي يهمنا في القاموس إني عبارة عن تجميعة Collection القاموس في لغة البرمجة عبارة عن تجميعة ، وبنستخدمه عشان نخزن فيه : أرقام - نصوص - تواريخ - مصفوفات نطاقات - كائنات - متغيرات .. والقاموس عبارة عن عناصر أو بنود Items وكل عنصر له مفتاح مميز Unique Key المفتاح دا فايدته ايه؟ من اسمه بردو نعرف إن المفتاح بيفتح لنا الباب .. بيفتح الباب للعنصر (عشان نتعامل معاه بشكل برمجي .. يعني المفتاح دليلنا أو مرشدنا للعنصر المطلوب التعامل معه) القاموس فايدته إننا بنقدر نتعامل مع البيانات في الذاكرة بعيداً عن ورقة العمل ..يعني مفيش تحديث للشاشة Screen Updating ، مفيش حساب تلقائي Auto Calculation ، بكدا نقدر نفول إنه أسرع في التعامل مع البيانات ++ (فائدة) بما إن القاموس بيحتوي على مفاتيح مميزة ، فيمكن استخدام الخاصية .Keys عشان نستخرج قائمة فريدة Unique List من البيانات ** القاموس ليس ضمن المكتبة القياسية للغة البرمجة VBA ، إنما هي جزء من Microsoft Scripting Runtime library ، وهذه المكتبة توجد في الملف الموجود في المسار التالي \Windows\system32\scrrun.DLL ولذلك إذا أردت استخدام القاموس فيمكنك من خلال محرر الأكواد الذهاب للقائمة Tools ثم References واختر المكتبة المسماة Microsoft Scripting Runtime library إنشاء القاموس Create Dictionary ----------------------------------- أبسط طريقة لإنشاء القاموس استخدام الأسطر التالية With CreateObject("scripting.Dictionary") End With ماذا تعني هذه الأسطر؟ تعني إنشاء كائن جديد بالاعتماد على المكتبة المسماة scripting.Dictionary ، وما بين السطرين سيتم كتابة أسطر وأوامر برمجية الأسطر التي ستبدأ بنقطة تعني التعامل مع خصائص الكائن أي أنها ستتعامل مع الكائن الجديد ## مثال بسيط لإضافة عنصر للقاموس With CreateObject("scripting.dictionary") .Add "First Name", "Yasser" End With الطريقة Method التي تلي النقطة تسمى Add أي أضف .. والمقصود منها إضافة عنصر جديد للقاموس .. ذكرنا في بداية الموضوع أن لكل عنصر مفتاح مميز ، المفتاح هنا First Name ، والعنصر يحتوي على النص Yasser يمكن استخدام متغير للقاموس بهذا الشكل Dim Dict As Object Set Dict = CreateObject("scripting.dictionary") With Dict .Add "First Name", "Yasser" End With الإعلان عن المتغير من النوع كائن ، ثم تعيين قيمة للمتغير ليساوي إنشاء الكائن من المكتبة الخاصة scripting.Dictionary ثم بدء التعامل مع الكائن القاموس .. ## مثال آخر : المثال التالي سيتناول عد العناصر داخل القاموس باستخدام الخاصية Count قم بوضع الكود داخل موديول ثم نفذ الكود ستجد رسالة بها عدد عناصر القاموس وهو في المثال 2 فقط مفتاح العنصر الأول هو First Name ومفتاح العنصر الثاني هو Second Name أما كلمة Yasser وكلمة Khalil فهي محتويات أو عناصر القاموس With CreateObject("scripting.dictionary") .Add "First Name", "Yasser" .Add "Last Name", "Khalil" MsgBox .Count End With وأكتفي بهذ الجزء البسيط .. لكي أجد المتابعة الجيدة منكم وإلى اللقاء في الأسبوع المقبل إن شاء الله مع حلقة جديدة في نفس الموضوع دمتم على طاعة الله

إخواني الكرام السلام عليكم ورحمة الله وبركاته أقدم لكم كود مع الشرح لاستخدام القاموس في استخراج القيم الفريدة أي الغير مكررة بفرض أن لديك قائمة أسماء في العمود الأول تبدأ من الخلية A2 .. وتريد استخراج القيم الفريدة أي الغير مكررة في النطاق .. أحد الحلول الجميلة هو استخدام القاموس لتخزين القيم الفريدة (بس يا ريت فريدة متزعلش) وإليكم الكود بالشرح Sub GetUniqueValues() 'يقوم الكود باستخراج القيم الفريدة أي الغير مكررة باستخدام الكائن قاموس '---------------------------------------------------------------------- 'المتغير الأول لتخزين قيم النطاق والمتغير الثاني لتخزين مفاتيح القاموس 'الثالث متغير للكائن القاموس والرابع متغير يستخدم في عمل حلقة تكرارية Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long 'ليساوي الكائن المسمى القاموس والذي يعتبر أداة قوية للتعامل مع القيم الفريدة [Obj] تعيين المتغير Set Obj = CreateObject("Scripting.Dictionary") 'ليساوي قيم النطاق في العمود الأول [myData] تعيين المتغير myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value 'حلقة تكرارية تبدأ من أول عنصر في مصفوفة القيم إلى آخر عنصر في المصفوفة For I = 1 To UBound(myData) 'هذا السطر هو أهم سطر في الكود حيث يتم تمرير القيمة للقاموس 'فيقوم القاموس بتخزينها إذا كانت القيمة تصادفه لأول مرة 'أما إذا كانت القيمة مكررة فلا يقوم بتخزينها مرة أخرى Obj(myData(I, 1) & "") = "" Next I 'ليساوي مفاتيح القاموس والتي تمثل القيم الغير مكررة [Temp] تعيين المتغير Temp = Obj.Keys 'حيث يتم تحديد عدد الصفوف [E1] وضع عناصر القاموس الغير مكررة في الخلية 'والتي تقوم بعد عناصر القاموس التي تم تخزينها [Count] من خلال كلمة 'عبارة عن مصفوفة بالقيم تكون على شكل أفقي لذا نستخدم [Temp] المتغير 'لتحويل القيم من الشكل الأفقي إلى الشكل الرأسي ليناسب وضع النتائج في عمود [Transpose] كلمة Range("E1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub لن يتم إرفاق ملف (عشان الكسالى ... يصحصحوا ويركزوا ) الموضوع بسيط مش محتاج مرفق افتح ملف إكسيل وضع قيم في النطاق A2:A20 مثلاً .. ضع أسماء مكررة في النطاق افتح محرر الأكواد ..أدرج موديول .. ضع الكود في الموديول روح لورقة العمل ونفذ الكود عن طريق Alt + F8 ... هتلاقي القيم الغير مكررة في النطاق من أول الخلية E1 .. وممكن تغير في الكود لتضع النتائج في أي خلية تريدها بس خلاااااااااااص ..وتصبحوا على السرير سالمين آمنين معافين تقبلوا تحياتي

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

الخطأ في كتابة اول الكود يوجد في اول الكود كما موضح بالصورة تكست بوكس 11 ولا يوجد بالفورم تكست بوكس11 من الاساس والمقصود هو تكست بوكس 1

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

وعليكم السلام تفضل الامر المسؤول عن ذلك ويمكنك استبدال الرابط الموجود داخل لسطر اما بمربع نص او متغير Call Shell("explorer " & "D:\officena\a1\b1\c1", vbNormalFocus)

التعديلات كانت على اساس الموضح في الملف انه لايظهر الا وقت الترقية مثل جملة هنا تلقائي بعد مرور اربع سنوات يظهر التاريخ هل المقصود يظهر تلقائي اي يحسب الفرق ويظهر النتجة ام يحسب الفرق ولا يظهر النتيجة الا بعد مرور المدة ؟؟؟؟؟؟؟؟ وهذا التعديل علي نفس الفكرة ولكن يظهر التاريخ دائما مصنف الاستحقاق.rar

يمكن ان يكون المطلوب مصنف الاستحقاق salim.rar

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

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

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

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

بسم الله و الحمد لله بعد اذن اخى / عبدالله باقشير بارك الله فيك و ابداعاتك _ و جزاك الله خيرا على علمك الفياض مرفق ملف خاص بالاستاذ/ عبدالله باقشير_kh_sumproduce و دليل حسابات اربعة مستويات ليستفيد به اعضاء المنتدى بعد التعديل بعد التعديل تابع ما تم تعديله على الملف بالرابط _ يومية و ميزان_kh_SumProduc_معدلG_2014 الجديد بالملف هو تكويد الحسابات عن طريق دليل الحسابات للاستاذ / عبدالله باقشير _ و لمتابعة طريقة التكويد بالدليل بالرابط _ دليل حسابات اربعة مستويات_KH و للاستفادة و المتابعة لخطوات التعديل على الملفين _ على الرابط _تكويد حسابات _ ليومية و ميزان_kh_sumproduc و لا تنسونا من صالح الدعاء _ و تقبلوا تحياتى يومية و ميزان_بدليل حسابات_kh_SumProduc_معدل_G_2014.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

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

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

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

جرب هذا الملف Book1 books.rar

السلام عليكم تحية الى استاذنا ابو خليل ونستاذنه بالرد الاخ حسن لم تذكر ما عملت بالتفصيل نحتاج ان توضح بعض الامور 1 - هل قمت بعملية ربط الجداول بين القواعد الاماميه والقاعدة الخلفية 2 - لم تذكر نوع الشبكه وما هي الطريقة التي ترتبط الحواسيب مع بعضها بالتوفيق

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

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

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

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

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

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

مرفق مستخدم به الدالة If بطريقة بسيطة لعله المطلوب مصنف الاستحقاق.rar

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

كفيت ووفيت اخوي بارك الله فيك هو المطلوب . جزاك الله الف خير

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

تفضل هذا تطبيق للفكرة التي ذكرتها اعلاه dty = DMax("edate", "employees") If Me.edate < dty Then Me.AllowEdits = False Me.fvacations.Locked = True Else Me.AllowEdits = True Me.fvacations.Locked = False End If db1.rar

عاجبك كدا أديني أخدت برد وعمال بعطس .. يا شماتة العربي فيا .. العربي مين؟؟! اخرس

السلام عليكم رجاء مطالعة المرفق ، فهو حسب ما ذكرته انا في مشاركتي السابقة رجاء تفسر شو معنى افتح "وصفة جديدة" ؟ هل معناه انك تريد عمل فرز للأدوية عند طباعتها ، بحيث كل وصفة ادوية تحتوي على 3 ادوية فقط؟ فاذا كان الجواب نعم ، فالمسألة لا علاقة لها في نموذج الادخال ، وانما في التقرير جعفر 298.Medication.accdb.zip

اخي احمد يعمل البرنامج جيدا معي اظهار الاندوريد بتاعك مشيع اخي كريم جزاك الله خيراتقبل تحياتي ابو البراء الغالي ياغالي نعملك اللي يناسبك وادي صور توضيحيه للبرنامج

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

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

السلام عليكم تفضل أخي جرب هذا التعديل حسب طلبك db1.rar

بصراحه الحل السريع اللى حضرنى الآن إن تاخد صورة الزرار الجديد كصوره وتضيفها على الزرار فى الوفيس 2007

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

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

أخي العزيز حماده سعد الله بارك الله فيك وجزيت خيراً على دعائك الطيب .. الحمد لله أن تم المطلوب على خير .. والحمد لله الذي بنعمته تتم الصالحات

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

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

و عليكم السلام و رحمة الله و بركاته ... 1- نعم تستطيع عمل برامج قوية ومنوعة و لا حصر لها . لكن اظن انه من ناحية الحماية توجد لغات برمجة و برامج افضل . 2- ممكن الاعتماد على معالجات البرنامج فقط . 3- نعم تستطيع رفع البرنامج على جهاز او على الشبكة . 4- ابدأ بالخطوات البسيطة و كلما واجهك استفسار تستطيع البحث عنه في المنتدى فان لم تجد الاجابة افتح موضوع جديد واشرح بشكل وافي مشكلتك و مرادك وبالنسبة للمعلمين فهنا ما اكثرهم و ما احلاهم من معلمين ... مع تمنياتي لك بالتوفيق الدائم ...

السلام عليكم ورحمة الله وبركاته إخوتي الكرام إليكم البرنامج بعد محاولة التعريب فما كان به من خير فمن الله وإن كان من خطأ أو سهو أو نسيان فمني ومن الشيطان جزاكم الله خيراً على حسن أدبكم وكلامكم الرفيع والسلام عليكم New-Userform-.rar

عسى ان يكون المطلوب جرب هذا الكزد Sub talween() ro = Cells(Rows.Count, "O").End(3).Row Range("a1:o" & ro).ClearFormats For Each cell In Range("o1:O" & ro) If IsNumeric(cell) And cell.Value < 0 Then cell.Offset(0, -14).Resize(1, 15).Interior.ColorIndex = 3 End If Next End Sub حاجة سهلة كل شيء بالكود متعلق بالحرف O استبدله الى M و استبدل الرقم 14- ب 12- و الرقم 15 ب 13 وأخيراً اين الاعجاب بالكود

عسى ان يكون المطلوب جرب هذا الكود Sub talween() For x = 1 To Sheets.Count With Sheets(x) ro = .Cells(Rows.Count, "O").End(3).Row .Range("a1:o" & ro).ClearFormats For Each cell In .Range("o1:O" & ro) If IsNumeric(cell) And cell.Value < 0 Then cell.Offset(0, -14).Resize(1, 15).Interior.ColorIndex = 3 End If Next End With Next End Sub

المشكلة أخي الكريم في تصميم ملفك .. اتضح لي أنه لا يمكن الاعتماد على العمود السادس حيث أن البيانات المرحلة قد تكون فارغة في هذا العمود وهذا ما يحدث المشكلة... راعي أن موضوع دمج الخلايا يسبب المشاكل مع الاكواد عموماً جرب هذا الكود .. ولا تنسى أن تحدد أفضل إجابة Sub CutRow() Dim WS As Worksheet, SH As Worksheet, LR As Long, I As Long Dim Cell As Range Set WS = Sheets(" الخطة النظريةو التنفيذ الفعلي"): Set SH = Sheets("البنود المنتهية") Application.ScreenUpdating = False For Each Cell In WS.Range("N5:N" & WS.Cells(Rows.Count, 1).End(xlUp).Row) If Cell.Value >= 1 Then LR = IIf(SH.Cells(Rows.Count, 1).End(xlUp).Row <= 3, 4, SH.Cells(Rows.Count, 1).End(xlUp).Row + 1) Cell.EntireRow.Copy SH.Range("A" & LR) End If Next Cell For I = WS.Cells(Rows.Count, 1).End(xlUp).Row To 5 Step -1 If Cells(I, "N").Value >= 1 Then Cells(I, "N").EntireRow.Delete End If Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

الله يبارك فيك , موضوع مفيد جدا يحتاجه الجميع بورك فيكم

اقــدم الى الاخوة الاعضــاء جدول الدورى العام 2012/2013 الذى يتكون من مجموعتينNew Folder.rar

السلام عليكم وش رأيك بالفله المنوره للأستاذ الحســـــــــــــامي حفظه الله إطلع على المرفق قاعدة بيانات صور (للاستاذ الحسامي).rar